Changeset 774 for trunk/AGRIF/LIB/UtilListe.c

Timestamp:

2007-12-18T17:45:53+01:00 (16 years ago)

Author:

rblod

Message:

Update Agrif, see ticket:#39

File:

• trunk/AGRIF/LIB/UtilListe.c (modified) (11 diffs)

trunk/AGRIF/LIB/UtilListe.c

@@ -31 +31 @@
 /* knowledge of the CeCILL-C license and that you accept its terms.           */
 /******************************************************************************/
-/* version 1.6                                                                */
+/* version 1.7                                                                */
 /******************************************************************************/
 #include <stdio.h>
@@ -116 +116 @@
 {
    if (!strcasecmp(type,"character") && strcasecmp(CharacterSize,"") )
-                            strcpy(curvar->v_dimchar,CharacterSize);
+   {
+      strcpy(curvar->v_dimchar,CharacterSize);
+      Save_Length(CharacterSize,5);
+   }
 
   /* On donne la precision de la variable si elle a ete donnee                */
@@ -123 +126 @@
   /*                                                                          */
   strcpy(curvar->v_vallengspec,"");
-  if ( strcasecmp(vallengspec,"") ) strcpy(curvar->v_vallengspec,vallengspec);
+  if ( strcasecmp(vallengspec,"") )
+  {
+     strcpy(curvar->v_vallengspec,vallengspec);
+     Save_Length(vallengspec,8);
+  }
 
   strcpy(curvar->v_precision,"");
-  if ( strcasecmp(NamePrecision,"") ) strcpy(curvar->v_precision,NamePrecision);
+  if ( strcasecmp(NamePrecision,"") )
+  {
+     strcpy(curvar->v_precision,NamePrecision);
+     Save_Length(NamePrecision,12);
+  }
   /* Si cette variable a ete declaree dans un module on met curvar->module=1  */
   if ( inmoduledeclare == 1 || SaveDeclare == 1)
@@ -134 +145 @@
    /* Puis on donne le nom du module dans curvar->v_modulename                */
    strcpy(curvar->v_modulename,curmodulename);
+   Save_Length(curmodulename,6);
    /* Si cette variable a ete initialisee                                     */
-   if (InitialValueGiven == 1 ) strcpy(curvar->v_initialvalue,InitValue);
+   if (InitialValueGiven == 1 )
+   {
+      strcpy(curvar->v_initialvalue,InitValue);
+      Save_Length(InitValue,14);
+   }
    /* Si cette variable est declaree en save                                  */
    if (SaveDeclare == 1 ) curvar->v_save = 1;
@@ -141 +157 @@
    if (Allocatabledeclare == 1 ) curvar->v_allocatable=1;
    /* if INTENT spec has been given                                           */
-   if ( strcasecmp(IntentSpec,"") ) strcpy(curvar->v_IntentSpec,IntentSpec);
+   if ( strcasecmp(IntentSpec,"") )
+   {
+      strcpy(curvar->v_IntentSpec,IntentSpec);
+      Save_Length(IntentSpec,13);
+   }
 }
 
@@ -190 +210 @@
       tmpvar->v_pointedvar=parcours->var->v_pointedvar;
       strcpy(tmpvar->v_commoninfile,mainfile);
+      Save_Length(mainfile,10);
       strcpy(tmpvar->v_subroutinename,parcours->var->v_subroutinename);
       tmpvar->v_dimensiongiven=parcours->var->v_dimensiongiven;
@@ -277 +298 @@
       v=parcours_var->var;
       strcpy(v->v_dimchar,(lin->dim).last);
+      Save_Length((lin->dim).last,5);
       parcours_var=parcours_var->suiv;
    }
@@ -316 +338 @@
   variable *var;
   listdim *dims;
-  char ligne[LONGNOM];
-  char listdimension[LONGNOM];
+  char ligne[LONG_C];
+  char listdimension[LONG_C];
 
    var=(variable *) malloc(sizeof(variable));
@@ -324 +346 @@
    /*                                                                         */
    strcpy(var->v_nomvar,nom);
+   Save_Length(nom,4);
    /*                                                                         */
    strcpy(listdimension,"");
    strcpy(var->v_modulename,curmodulename);
+   Save_Length(curmodulename,6);
    strcpy(var->v_commoninfile,mainfile);
+   Save_Length(mainfile,10);
    strcpy(var->v_subroutinename,subroutinename);
+   Save_Length(subroutinename,11);
    /*                                                                         */
    if ( strcasecmp(nameinttypename,"") )
-                                 strcpy(var->v_nameinttypename,nameinttypename);
+   {
+      strcpy(var->v_nameinttypename,nameinttypename);
+      Save_Length(nameinttypename,9);
+   }
    if ( optionaldeclare     == 1 ) var->v_optionaldeclare = 1;
    if ( pointerdeclare      == 1 ) var->v_pointerdeclare = 1;
@@ -361 +390 @@
    }
    strcpy(var->v_readedlistdimension,listdimension);
+   Save_Length(listdimension,15);
    /*                                                                         */
    var->v_nbdim=num_dims(d);
@@ -428 +458 @@
       v=newvar->var;
       strcpy(v->v_typevar,nom);
+      Save_Length(nom,3);
       newvar=newvar->suiv;
    }