Changeset 2715 for trunk/NEMOGCM/EXTERNAL/AGRIF/LIB/fortran.lex

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/fortran.lex (modified) (8 diffs)

trunk/NEMOGCM/EXTERNAL/AGRIF/LIB/fortran.lex

@@ -72 +72 @@
            }\
            strcpy(motparse1,yytext);\
-           /*printf("yytext = %s\n",yytext);*/\
+/*           printf("yytext = %s\n",yytext);*/\
         /*if ( firstpass == 1 ) 
                       printf("yytext = %s %d\n",yytext,strlen(yytext));*/\
@@ -100 +100 @@
 
 COMMENTAIRESFORTRAN77 ^([Cc*](([ \t]*\n)|([^AaHhOo\n]{NIMPORTEQUOI}*\n)))
+COMMENTAIRESFORTRAN77_2 \n([Cc*](([ \t]*\n)|([^AaHhOo\n]{NIMPORTEQUOI}*\n)))
 COMMENTAIRESFORTRAN90 ^([ \t]*!{NIMPORTEQUOI}*\n)
 COMMENTAIRESFORTRAN90_2 (!{NIMPORTEQUOI}*)
 NEXTLINEF90 "&"{NIMPORTEQUOI}*[\n]*
-NEXTLINEF77 \n[ \t]{5}("&"|"+"|"$"|"*"|"1"|"2"|"3"|"4"|"5"|"6"|"7"|"8"|"."|"#")
+NEXTLINEF77 [\n \t]*\n[ \t]{5}("&"|"+"|"$"|"*"|"1"|"2"|"3"|"4"|"5"|"6"|"7"|"8"|"9"|"."|"#")
 %%
   if (infixed) BEGIN(fortran77style) ;
@@ -117 +118 @@
 program                 {return TOK_PROGRAM;}
 allocate                {inallocate = 1; return TOK_ALLOCATE;}
+nullify        {return TOK_NULLIFY;}
 deallocate              {inallocate = 1; return TOK_DEALLOCATE;}
 result                  {return TOK_RESULT;}
@@ -254 +256 @@
 maxloc                  {return TOK_MAXLOC;}
 minval                  {return TOK_MINVAL;}
-interface               {return TOK_INTERFACE;}
 backspace               {return TOK_BACKSPACE;}
-end[ \t]*interface      {return TOK_ENDINTERFACE;}
 \({SLASH}               {return TOK_LEFTAB;}
 {SLASH}\)               {return TOK_RIGHTAB;}
@@ -268 +268 @@
 (\")[^\n"]*(\")         {strcpy(yylval.na,yytext);return TOK_CHAR_MESSAGE;}
 ({NAME}{REAL})          {strcpy(yylval.na,yytext);return TOK_CHAR_INT;}
+^[ \t]*interface        {printf("debug interfacer\n");BEGIN(donottreat);}
+<donottreat>^[ \t]*end[ \t]*interface[ \t]*\n {
+                  BEGIN(INITIAL);
+                        if (infixed) BEGIN(fortran77style) ;
+                        if (infree) BEGIN(fortran90style)  ;
+                        line_num_fortran++;line_num_fortran_common++;
+                        return '\n';
+                  }
 {NAME}                  {strcpy(yylval.na,yytext);return TOK_NAME;}
 {REAL}                  {strcpy(yylval.na,yytext);return TOK_CSTREAL;}
@@ -277 +285 @@
 \'|\"                   {return TOK_QUOTE;}
 \.                      {}
-\(|\)|:|\[|\]|\+|\-|\*|\% {strcpy(yylval.na,yytext);return (int) *yytext;}
+\(|\)|:|\[|\]|\+|\-|\* {strcpy(yylval.na,yytext);return (int) *yytext;}
+\%                     {afterpercent = 1; strcpy(yylval.na,yytext);return (int) *yytext;}
 \;                      {return TOK_SEMICOLON;}
 \,                      {return (int) *yytext;}
@@ -299 +308 @@
                            else
                            {
-                              colnum=0;line_num_fortran++;line_num_fortran_common++;
-                             if ( !strcasecmp(motparse1,"C$AGRIF_DO_NOT_TREAT\n")) return TOK_DONOTTREAT;
+                            /*  colnum=0;line_num_fortran++;line_num_fortran_common++;*/
+                             if ( !strcasecmp(motparse1,"C$AGRIF_DO_NOT_TREAT\n")) 
+                             return TOK_DONOTTREAT;
                              if ( !strcasecmp(motparse1,"C$AGRIF_END_DO_NOT_TREAT\n")) return TOK_ENDDONOTTREAT;
+                             unput('\n');
                            }
                          }
-^"!$AGRIF_DO_NOT_TREAT\n" BEGIN(donottreat);
-<donottreat>^"!$AGRIF_END_DO_NOT_TREAT\n" BEGIN(INITIAL);
-<donottreat>.*\n
+<fortran77style>{COMMENTAIRESFORTRAN77_2} {
+                           convert2lower(&motparse1[1]);
+                           if ( strncasecmp(&motparse1[1],"contains",8) == 0 )
+                           {
+                              return TOK_CONTAINS;
+                           }
+                           else
+                           {
+                             /* colnum=0;line_num_fortran++;line_num_fortran_common++;*/
+                             if ( !strcasecmp(&motparse1[1],"C$AGRIF_DO_NOT_TREAT\n")) 
+                             return TOK_DONOTTREAT;
+                             if ( !strcasecmp(&motparse1[1],"C$AGRIF_END_DO_NOT_TREAT\n")) return TOK_ENDDONOTTREAT;
+                             unput('\n');
+                           }
+                         }                            
+^"!$AGRIF_DO_NOT_TREAT"[ \t]*\n {
+                  BEGIN(donottreat);
+                  }
+<donottreat>^"!$AGRIF_END_DO_NOT_TREAT"[ \t]*\n {
+                  BEGIN(INITIAL);
+                        if (infixed) BEGIN(fortran77style) ;
+                        if (infree) BEGIN(fortran90style)  ;
+                        line_num_fortran++;line_num_fortran_common++;
+                        return '\n';
+                  }
+<donottreat>.*\n        {line_num_fortran++;line_num_fortran_common++;}
 {COMMENTAIRESFORTRAN90}   {
                              colnum = 0;
@@ -323 +357 @@
    if (!strcasecmp(curfile,mainfile))
    {
-      printf("%s line %d, file %s\n",s,line_num_fortran,curfile);
+      printf("%s line %d, file %s motclef = %s\n",s,line_num_fortran,curfile,yytext);
    }
    else
    {
-      printf("%s line %d, file %s\n",s,line_num_fortran_common,curfile);
+      printf("%s line %d, file %s motclef = %s curbuf = %s\n",s,line_num_fortran_common,curfile,yytext,curbuf);
    }
-   /*exit(0);*/
+/*   exit(0);*/
 }