code-browser/F90Mapper/VarDic.y

/* $Id: */

/* Data dictionary -> HTML table translator */
%{
#include <stdio.h>
#include <string.h>
#include "DD.h"
#include "GLOBALS.h"
%}

%union {
   int     LineNo;
   char    *stringPtr;
}

%token <LineNo> HREF
%token <LineNo> TEXT
%token <LineNo> UNITS
%token <LineNo> NOTES
%token <stringPtr> NAME
%token <stringPtr> STRING
%type  <stringPtr> stringList

%%

input:  /* empty */
      | input recordDefinition
;
recordDefinition:  name '{' tableEntries '}'  {addRecord();}
                 | name                       {addRecord();}
;
tableEntries:  tableEntries tableEntry        {}
             | tableEntry                     {}
;
tableEntry:  HREF  '=' stringList ';'     {curHref      = strdup($3);}
           | TEXT  '=' stringList ';'     {fprintf(stdout,"TEXT %s found\n",$3);
                                           curText      = strdup($3);
                                           fprintf(stdout,"TEXT %s found\n",$3);
                                           fflush(stdout);}
           | UNITS '=' stringList ';'     {curUnits     = strdup($3);}
           | NOTES '=' stringList ';'     {curFootNotes = strdup($3);}
           | error ';'        
;
name: NAME {curName = strdup($1);
            fprintf(stdout,"NAME %s found\n",curName);fflush(stdout);
           } 
;
stringList:  stringList STRING {$$=strjoin($1,$2); }
           | STRING            {$$=$1;             }
;
%%
1	adcroft	1.1	/* $Id: */
2
3			/* Data dictionary -> HTML table translator */
4			%{
5			#include <stdio.h>
6			#include <string.h>
7			#include "DD.h"
8			#include "GLOBALS.h"
9			%}
10
11			%union {
12			int LineNo;
13			char *stringPtr;
14			}
15
16			%token <LineNo> HREF
17			%token <LineNo> TEXT
18			%token <LineNo> UNITS
19			%token <LineNo> NOTES
20			%token <stringPtr> NAME
21			%token <stringPtr> STRING
22			%type <stringPtr> stringList
23
24			%%
25
26			input: /* empty */
27			\| input recordDefinition
28			;
29			recordDefinition: name '{' tableEntries '}' {addRecord();}
30			\| name {addRecord();}
31			;
32			tableEntries: tableEntries tableEntry {}
33			\| tableEntry {}
34			;
35			tableEntry: HREF '=' stringList ';' {curHref = strdup($3);}
36			\| TEXT '=' stringList ';' {fprintf(stdout,"TEXT %s found\n",$3);
37			curText = strdup($3);
38			fprintf(stdout,"TEXT %s found\n",$3);
39			fflush(stdout);}
40			\| UNITS '=' stringList ';' {curUnits = strdup($3);}
41			\| NOTES '=' stringList ';' {curFootNotes = strdup($3);}
42			\| error ';'
43			;
44			name: NAME {curName = strdup($1);
45			fprintf(stdout,"NAME %s found\n",curName);fflush(stdout);
46			}
47			;
48			stringList: stringList STRING {$$=strjoin($1,$2); }
49			\| STRING {$$=$1; }
50			;
51			%%