code-browser/F90Mapper/VarDic.lex

 /* $Id: VarDic.lex,v 1.2 1997/03/22 20:58:46 cnh Exp $ */
 /* Lex analyser to process variable database into HTML table */
%p 100000
%a 100000
%o 100000
%n 100000
%k 100000
%e 100000
%option noyywrap

/* Matches variable names */
NAME      [_a-zA-Z]+[_a-zA-Z0-9\./]*

%{
#include <stdio.h>
#include <string.h>
#include "VarDic.tab.h"
#include "GLOBALS.h"

/* DEBUGGING aids */
#define DP(a)
#define DP(a) (printf("\"%s\" (%d,%d)\n",a,Lno,Cno))
#define RETURN(a) return(a)
/* #define RETURN(a) printf("Token %d\n",a);return(a)   */
%}
%%
^#.*   {DP("COMMENT");}
HREF   {DP("HREF"); Cno=Cno+VarDicleng; RETURN(HREF);}
TEXT   {DP("TEXT"); Cno=Cno+VarDicleng; RETURN(TEXT);}
UNITS  {DP("UNITS"); Cno=Cno+VarDicleng; RETURN(UNITS);}
NOTES  {DP("NOTES"); Cno=Cno+VarDicleng; RETURN(NOTES);}
{NAME} {DP("NAME"); Cno=Cno+VarDicleng; 
        VarDiclval.stringPtr=strdup(VarDictext);  
        RETURN(NAME);}
[ ]    {DP("SPACE"); Cno=Cno+VarDicleng; }
\{     {DP("{"); Cno=Cno+VarDicleng; RETURN('{');}
\}     {DP("}"); Cno=Cno+VarDicleng; RETURN('}');}
;      {DP(";"); Cno=Cno+VarDicleng; RETURN(';');}
=      {DP("="); Cno=Cno+VarDicleng; RETURN('=');}

\"([^\"\n\\\\"]|\\.)*\" {DP("STRING"); Cno=Cno+VarDicleng; 
                         VarDiclval.stringPtr=strcopy(VarDictext+1);
                         VarDiclval.stringPtr[strlen(VarDiclval.stringPtr)-1]='\0';
                         RETURN(STRING);}

\"([^\"\n\\\\"]|\\.)*$  {DP("UNTERMINATED STRING");
                         Cno=Cno+VarDicleng;
                         fprintf(stderr,
                         "Error: unterminated string. <%s> Line %d Column %d\n",
                         currentFile,Lno,Cno);
                         fprintf(stderr,"==> %s\n",VarDictext);
                         }


\n     {DP("\\n");
        ++Lno;Cno=1;
       }

.    {DP("UNMATCHED");
      Cno=Cno+VarDicleng;
     }
1	adcroft	1.1	/* $Id: VarDic.lex,v 1.2 1997/03/22 20:58:46 cnh Exp $ */
2			/* Lex analyser to process variable database into HTML table */
3			%p 100000
4			%a 100000
5			%o 100000
6			%n 100000
7			%k 100000
8			%e 100000
9			%option noyywrap
10
11			/* Matches variable names */
12			NAME [_a-zA-Z]+[_a-zA-Z0-9\./]*
13
14			%{
15			#include <stdio.h>
16			#include <string.h>
17			#include "VarDic.tab.h"
18			#include "GLOBALS.h"
19
20			/* DEBUGGING aids */
21			#define DP(a)
22			#define DP(a) (printf("\"%s\" (%d,%d)\n",a,Lno,Cno))
23			#define RETURN(a) return(a)
24			/* #define RETURN(a) printf("Token %d\n",a);return(a) */
25			%}
26			%%
27			^#.* {DP("COMMENT");}
28			HREF {DP("HREF"); Cno=Cno+VarDicleng; RETURN(HREF);}
29			TEXT {DP("TEXT"); Cno=Cno+VarDicleng; RETURN(TEXT);}
30			UNITS {DP("UNITS"); Cno=Cno+VarDicleng; RETURN(UNITS);}
31			NOTES {DP("NOTES"); Cno=Cno+VarDicleng; RETURN(NOTES);}
32			{NAME} {DP("NAME"); Cno=Cno+VarDicleng;
33			VarDiclval.stringPtr=strdup(VarDictext);
34			RETURN(NAME);}
35			[ ] {DP("SPACE"); Cno=Cno+VarDicleng; }
36			\{ {DP("{"); Cno=Cno+VarDicleng; RETURN('{');}
37			\} {DP("}"); Cno=Cno+VarDicleng; RETURN('}');}
38			; {DP(";"); Cno=Cno+VarDicleng; RETURN(';');}
39			= {DP("="); Cno=Cno+VarDicleng; RETURN('=');}
40
41			\"([^\"\n\\\\"]\|\\.)*\" {DP("STRING"); Cno=Cno+VarDicleng;
42			VarDiclval.stringPtr=strcopy(VarDictext+1);
43			VarDiclval.stringPtr[strlen(VarDiclval.stringPtr)-1]='\0';
44			RETURN(STRING);}
45
46			\"([^\"\n\\\\"]\|\\.)*$ {DP("UNTERMINATED STRING");
47			Cno=Cno+VarDicleng;
48			fprintf(stderr,
49			"Error: unterminated string. <%s> Line %d Column %d\n",
50			currentFile,Lno,Cno);
51			fprintf(stderr,"==> %s\n",VarDictext);
52			}
53
54
55			\n {DP("\\n");
56			++Lno;Cno=1;
57			}
58
59			. {DP("UNMATCHED");
60			Cno=Cno+VarDicleng;
61			}