Changeset 774 for trunk/AGRIF/LIB/convert.y

Timestamp:

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

Author:

rblod

Message:

Update Agrif, see ticket:#39

File:

• trunk/AGRIF/LIB/convert.y (modified) (10 diffs)

trunk/AGRIF/LIB/convert.y

@@ -31 +31 @@
 /* knowledge of the CeCILL-C license and that you accept its terms.           */
 /******************************************************************************/
-/* version 1.6                                                                */
+/* version 1.7                                                                */
 /******************************************************************************/
 %{
@@ -42 +42 @@
 %union {
        int ival;
-       char na[LONGNOM];
+       char na[LONG_C];
        listnom * ln;
        }
@@ -86 +86 @@
    extern FILE * yyin ;
    FILE *dependglobaloutput;
-   char *tmp;
    int i;
    listnom *parcours;
@@ -133 +132 @@
    strcpy(mpiinitvar,"");
 
+   length_last = 0 ;
+   length_first = 0 ;
+   length_v_typevar = 0 ;
+   length_v_nomvar = 0 ;
+   length_v_dimchar = 0 ;
+   length_v_modulename = 0 ;
+   length_v_commonname = 0 ;
+   length_v_vallengspec = 0 ;
+   length_v_nameinttypename = 0 ;
+   length_v_commoninfile = 0 ;
+   length_v_subroutinename = 0 ;
+   length_v_precision = 0 ;
+   length_v_IntentSpec = 0 ;
+   length_v_initialvalue = 0 ;
+   length_v_readedlistdimension = 0 ;
+   length_u_usemodule = 0 ;
+   length_u_charusemodule = 0 ;
+   length_u_cursubroutine = 0 ;
+   length_u_modulename = 0 ;
+   length_n_name = 0 ;
+   length_c_namevar = 0 ;
+   length_c_namepointedvar = 0 ;
+   length_o_nom = 0 ;
+   length_o_module = 0 ;
+   length_a_nomvar = 0 ;
+   length_a_subroutine = 0 ;
+   length_a_module = 0 ;
+   length_t_usemodule = 0 ;
+   length_t_cursubroutine = 0 ;
+   length_curfilename = 0 ;
+   length_nomfileoutput = 0 ;
+   length_motparse = 0 ;
+   length_mainfile = 0 ;
+   length_nomdir = 0 ;
+   length_commondirout = 0 ;
+   length_commondirin = 0 ;
+   length_filetoparse = 0 ;
+   length_curbuf = 0 ;
+   length_toprintglob = 0 ;
+   length_tmpvargridname = 0 ;
+   length_ligne_Subloop = 0 ;
+   length_lvargridname_toamr = 0 ;
+   length_toprint_utilagrif = 0 ;
+   length_toprinttmp_utilchar = 0 ;
+   length_ligne_writedecl = 0 ;
+   length_newname_toamr = 0 ;
+   length_newname_writedecl = 0 ;
+   length_ligne_toamr = 0 ;
+   length_tmpligne_writedecl = 0 ;
+   value_char_size = 0 ;
+   value_char_size1 = 0 ;
+   value_char_size2 = 0 ;
+   value_char_size3 = 0 ;
+
    checkexistcommon=1;
    todebug=0;
@@ -149 +202 @@
    mark = 0 ;
    shouldincludempif = 0 ;
+   Read_val_max();
 /******************************************************************************/
 /*  2-  Program arguments                                                     */
@@ -214 +268 @@
    }
 
+   Save_Length(nomdir,34);
+   Save_Length(commondirout,35);
+   Save_Length(commondirin,36);
+   Save_Length(filetoparse,37);
+
 /******************************************************************************/
 /*  3-  Parsing of the  conv file <name>.in                                   */
@@ -224 +283 @@
    }
    strcpy(mainfile,argv[1]);
+   Save_Length(mainfile,33);
 
    if ( strstr(filetoparse,".f90") ||
@@ -267 +327 @@
    /* Update all lists                                                        */
    ListUpdate();
+   /*                                                                         */
+   Clean_List_Global_Var();
    /* Indice tabvars identification                                           */
    IndiceTabvarsIdentification();
@@ -296 +358 @@
    processfortran(filetoparse);
 
+   newvar = (listvar *)NULL;
+/*newvar = List_Global_Var; */
+   while ( newvar )
+   {
+      printf("++++ %s %d %s %s %s\n",
+      newvar->var->v_nomvar,
+      newvar->var->v_nbdim,
+      newvar->var->v_subroutinename,
+      newvar->var->v_modulename,
+      newvar->var->v_typevar
+             );
+      newvar = newvar->suiv;
+   }
 /******************************************************************************/
 /*  6-  Write informations in output files                                    */
@@ -332 +407 @@
    creefichieramr(NameTamponfile);
 
+   Write_val_max();
 
    if ( todebug == 1 ) printf("Out of CONV \n");