Changeset 2715 for trunk/NEMOGCM/EXTERNAL/AGRIF/LIB/UtilListe.c

Timestamp:

2011-03-30T17:58:35+02:00 (13 years ago)

Author:

rblod

Message:

First attempt to put dynamic allocation on the trunk

File:

• trunk/NEMOGCM/EXTERNAL/AGRIF/LIB/UtilListe.c (modified) (8 diffs)

trunk/NEMOGCM/EXTERNAL/AGRIF/LIB/UtilListe.c

@@ -72 +72 @@
    var->v_optionaldeclare     = 0 ;
    var->v_allocatable         = 0 ;
+   var->v_target              = 0 ;
    var->v_dimsempty           = 0 ;
    var->v_dimension = (listdim *)NULL;
@@ -152 +153 @@
    }
    /* Si cette variable est declaree en save                                  */
-   if (SaveDeclare == 1 ) curvar->v_save = 1;
+   if (SaveDeclare == 1 ) {
+   curvar->v_save = 1;
+   }
+
    /* Si cette variable est v_allocatable                                     */
    if (Allocatabledeclare == 1 ) curvar->v_allocatable=1;
+   
+   /* Si cette variable est v_targer                                     */
+   if (Targetdeclare == 1 ) curvar->v_target=1;
    /* if INTENT spec has been given                                           */
    if ( strcasecmp(IntentSpec,"") )
@@ -202 +209 @@
       tmpvar->v_save=parcours->var->v_save;
       tmpvar->v_VariableIsParameter=parcours->var->v_VariableIsParameter;
+      printf("QLKDF\n");
       tmpvar->v_indicetabvars=parcours->var->v_indicetabvars;
       strcpy(tmpvar->v_modulename,parcours->var->v_modulename);
@@ -220 +228 @@
       tmpvar->v_optionaldeclare=parcours->var->v_optionaldeclare;
       tmpvar->v_allocatable=parcours->var->v_allocatable;
+      tmpvar->v_target=parcours->var->v_target;
       strcpy(tmpvar->v_IntentSpec,parcours->var->v_IntentSpec);
       tmpvar->v_dimsempty=parcours->var->v_dimsempty;
@@ -511 +520 @@
 }
 
-listname *Insertname(listname *lin,char *nom)
+listname *Insertname(listname *lin,char *nom, int sens)
 {
    listname *newvar ;
@@ -526 +535 @@
    else
    {
+      if (sens == 0)
+      {
       tmpvar = lin ;
       while (tmpvar->suiv)
@@ -533 +544 @@
       tmpvar -> suiv = newvar;
    }
+      else
+      {
+      newvar->suiv = lin;
+      lin = newvar;
+      }
+   }
    return lin;
+}
+
+listname *concat_listname(listname *l1, listname *l2)
+{
+   listname *tmpvar;
+
+   tmpvar = l1;
+   while (tmpvar->suiv)
+   {
+    tmpvar = tmpvar->suiv;
+   }
+   
+   tmpvar->suiv = l2;
+   
+   return l1;
+}
+
+void *createstringfromlistname(char *ligne, listname *lin)
+{
+listname *tmpvar;
+
+strcpy(ligne,"");
+tmpvar = lin;
+while(tmpvar)
+{
+  strcat(ligne,tmpvar->n_name);
+  if (tmpvar->suiv) strcat(ligne,",");
+  tmpvar=tmpvar->suiv;
+}
 }
 
@@ -618 +664 @@
 
 }
+
+void Init_List_Data_Var()
+{
+listvar *parcours;
+
+parcours = List_Data_Var_Cur;
+
+if (List_Data_Var_Cur)
+{
+while (parcours)
+{
+ List_Data_Var_Cur = List_Data_Var_Cur->suiv;
+ free(parcours);
+ parcours = List_Data_Var_Cur;
+}
+}
+
+List_Data_Var_Cur = NULL;
+
+}