code-browser/F90Mapper/F90sym.y

/* F90 program symbol/call tree lister */
%{
int Lno; char *currentFile;
%}

%union {
   int      LineNo;
   char    *symbolName;
}

%token <LineNo> OTHER    
%token <symbolName> NAME
%token <LineNo> SUBROUTINE
%token <LineNo> EXTERNAL
%token <LineNo> CALL
%token <LineNo> NAMELIST
%token <LineNo> FSLASH
%token <LineNo> CPP_IFDEF
%token <LineNo> CPP_IFNDEF
%token <LineNo> CPP_DEFINE
%token <LineNo> CPP_UNDEF 
%token <LineNo> CPP_ELIF  
%token <LineNo> CPP_IF
%type  <LineNo> call

%%

input:  /* empty */
      | input NAME                {noteVariable($2,Lno,currentFile);}
      | input SUBROUTINE NAME     {noteProcDef($3,Lno,currentFile); }
      | input call NAME           {noteProcCall($3,Lno,currentFile);}
      | input EXTERNAL   NAME     {noteExtDef($3,Lno,currentFile);  }
      | input NAMELIST FSLASH 
              NAME FSLASH         {noteInNameList($4,Lno,currentFile); }
      | input CPP_IFDEF           {noteInIfdef();                   }
      | input CPP_IFNDEF          {noteInIfdef();                   }
      | input CPP_DEFINE          {noteInIfdef();                   }
      | input CPP_UNDEF           {noteInIfdef();                   }
      | input CPP_ELIF            {noteInIfdef();                   }
      | input CPP_IF              {noteInIfdef();                   }
      | input FSLASH               
      | input OTHER                
      | input error                 { yyerrok; }
;
call: CALL                          { $$ = $1; }
;
%%
1	/* F90 program symbol/call tree lister */
2	%{
3	int Lno; char *currentFile;
4	%}
5
6	%union {
7	int LineNo;
8	char *symbolName;
9	}
10
11	%token <LineNo> OTHER
12	%token <symbolName> NAME
13	%token <LineNo> SUBROUTINE
14	%token <LineNo> EXTERNAL
15	%token <LineNo> CALL
16	%token <LineNo> NAMELIST
17	%token <LineNo> FSLASH
18	%token <LineNo> CPP_IFDEF
19	%token <LineNo> CPP_IFNDEF
20	%token <LineNo> CPP_DEFINE
21	%token <LineNo> CPP_UNDEF
22	%token <LineNo> CPP_ELIF
23	%token <LineNo> CPP_IF
24	%type <LineNo> call
25
26	%%
27
28	input: /* empty */
29	\| input NAME {noteVariable($2,Lno,currentFile);}
30	\| input SUBROUTINE NAME {noteProcDef($3,Lno,currentFile); }
31	\| input call NAME {noteProcCall($3,Lno,currentFile);}
32	\| input EXTERNAL NAME {noteExtDef($3,Lno,currentFile); }
33	\| input NAMELIST FSLASH
34	NAME FSLASH {noteInNameList($4,Lno,currentFile); }
35	\| input CPP_IFDEF {noteInIfdef(); }
36	\| input CPP_IFNDEF {noteInIfdef(); }
37	\| input CPP_DEFINE {noteInIfdef(); }
38	\| input CPP_UNDEF {noteInIfdef(); }
39	\| input CPP_ELIF {noteInIfdef(); }
40	\| input CPP_IF {noteInIfdef(); }
41	\| input FSLASH
42	\| input OTHER
43	\| input error { yyerrok; }
44	;
45	call: CALL { $$ = $1; }
46	;
47	%%