- surf_double_update(&(action->generic_action.remains),
- lmm_variable_getvalue(action->variable) * delta);
- if (action->generic_action.max_duration != NO_MAX_DURATION)
- surf_double_update(&(action->generic_action.max_duration), delta);
- if ((action->generic_action.remains <= 0.0) &&
- (lmm_get_variable_weight(action->variable)>0)) {
- action->generic_action.finish = surf_get_clock();
- action_network_KCCFLN05_change_state((surf_action_t) action, SURF_ACTION_DONE);
- } else if ((action->generic_action.max_duration != NO_MAX_DURATION) &&
- (action->generic_action.max_duration <= 0.0)) {
- action->generic_action.finish = surf_get_clock();
- action_network_KCCFLN05_change_state((surf_action_t) action, SURF_ACTION_DONE);
- } else { /* Need to check that none of the resource has failed */
- /* FIXME : FAILURES ARE NOT HANDLED YET */
- }
- }
-
- xbt_swag_foreach_safe(action, next_action, failed_actions) {
- lmm_variable_disable(maxmin_system_network_KCCFLN05, action->variable);
- }
-
- return;
-}
-
-static surf_action_t communicate_KCCFLN05(void *src, void *dst, double size,
- double rate)
-{
- surf_action_network_KCCFLN05_t action = NULL;
- workstation_KCCFLN05_t card_src = src;
- workstation_KCCFLN05_t card_dst = dst;
- route_KCCFLN05_t route = &ROUTE(card_src->id, card_dst->id);
- int i;
-
- action = xbt_new0(s_surf_action_network_KCCFLN05_t, 1);
-
- action->generic_action.cost = size;
- action->generic_action.remains = size;
- action->generic_action.max_duration = NO_MAX_DURATION;
- action->generic_action.start = -1.0;
- action->generic_action.finish = -1.0;
- action->generic_action.resource_type =
- (surf_resource_t) surf_network_resource;
-
- action->generic_action.state_set =
- surf_network_resource->common_public->states.running_action_set;
-
- xbt_swag_insert(action, action->generic_action.state_set);
-
- if(rate>0)
- action->variable = lmm_variable_new(maxmin_system_network_KCCFLN05, action, 1.0, rate,
- route->size+1);
- else
- action->variable = lmm_variable_new(maxmin_system_network_KCCFLN05, action, 1.0, -1.0,
- route->size+1);
-
- for (i = 0; i < route->size; i++)
- lmm_expand(maxmin_system_network_KCCFLN05, route->links[i]->constraint,
- action->variable, 1.0);
-
- if(card_src->bus)
- lmm_expand(maxmin_system_network_KCCFLN05, card_src->bus,
- action->variable, 1.0);
-
- action->src=src;
- action->dst=dst;
-
- xbt_dynar_push(card_src->outgoing_communications,&action);
- xbt_dynar_push(card_dst->incomming_communications,&action);
-
- return (surf_action_t) action;
-}
-
-static void network_KCCFLN05_action_suspend(surf_action_t action)
-{
- lmm_update_variable_weight(maxmin_system_network_KCCFLN05,
- ((surf_action_network_KCCFLN05_t) action)->variable, 0.0);
-}
-
-static void network_KCCFLN05_action_resume(surf_action_t action)
-{
- lmm_update_variable_weight(maxmin_system_network_KCCFLN05,
- ((surf_action_network_KCCFLN05_t) action)->variable, 1.0);
-}
-
-static int network_KCCFLN05_action_is_suspended(surf_action_t action)
-{
- return (lmm_get_variable_weight(((surf_action_network_KCCFLN05_t) action)->variable) == 0.0);
-}
-
-/***************** CPU ****************/
-static void action_cpu_KCCFLN05_free(surf_action_t action)
-{
- xbt_swag_remove(action, action->state_set);
- lmm_variable_free(maxmin_system_cpu_KCCFLN05, ((surf_action_cpu_KCCFLN05_t)action)->variable);
- xbt_free(action);
-}
-
-/* #define WARNING(format, ...) (fprintf(stderr, "[%s , %s : %d] ", __FILE__, __FUNCTION__, __LINE__),\ */
-/* fprintf(stderr, format, ## __VA_ARGS__), \ */
-/* fprintf(stderr, "\n")) */
-/* #define VOIRP(expr) WARNING(" {" #expr " = %p }", expr) */
-/* #define VOIRD(expr) WARNING(" {" #expr " = %d }", expr) */
-/* #define VOIRG(expr) WARNING(" {" #expr " = %lg }", expr) */
-
-static double share_cpu_KCCFLN05_resources(double now)
-{
- s_surf_action_cpu_KCCFLN05_t s_cpu_action;
- lmm_constraint_t cnst = NULL;
- workstation_KCCFLN05_t workstation = NULL;
- double W=0.0;
- double scale=0.0;
- int cpt;
- surf_action_network_KCCFLN05_t action;
-
- for(cnst = lmm_get_first_active_constraint(maxmin_system_cpu_KCCFLN05);
- cnst;
- cnst= lmm_get_next_active_constraint(maxmin_system_cpu_KCCFLN05, cnst))
- {
- workstation = lmm_constraint_id(cnst);
- W=workstation->power_current * workstation->power_scale;
-
- if((!xbt_dynar_length(workstation->incomming_communications)) &&
- (!xbt_dynar_length(workstation->outgoing_communications))) {
- scale = 1.0;
- } else if((!xbt_dynar_length(workstation->incomming_communications)) &&
- (xbt_dynar_length(workstation->outgoing_communications))) {
- scale = workstation->interference_send;
- xbt_dynar_foreach (workstation->outgoing_communications,cpt,action) {
-/* VOIRD(action->src->id); */
-/* VOIRD(action->dst->id); */
-/* VOIRP(&ROUTE(action->src->id,action->dst->id)); */
-/* VOIRG(ROUTE(action->src->id,action->dst->id).impact_on_src); */
- scale -= ROUTE(action->src->id,action->dst->id).impact_on_src *
- lmm_variable_getvalue(action->variable);
- }
- if(scale<0.0) scale=0.0;
- xbt_assert0(scale>=0.0,"Negative interference !");
- } else if((xbt_dynar_length(workstation->incomming_communications)) &&
- (!xbt_dynar_length(workstation->outgoing_communications))) {
- scale = workstation->interference_recv;
- xbt_dynar_foreach (workstation->incomming_communications,cpt,action) {
- scale -= ROUTE(action->src->id,action->dst->id).impact_on_dst *
- lmm_variable_getvalue(action->variable);
- }
- if(scale<0.0) scale=0.0;
- xbt_assert0(scale>=0.0,"Negative interference !");