1 /* ------------------------------------------------
\r
2 Copyright 2014 AT&T Intellectual Property
\r
3 Licensed under the Apache License, Version 2.0 (the "License");
\r
4 you may not use this file except in compliance with the License.
\r
5 You may obtain a copy of the License at
\r
7 http://www.apache.org/licenses/LICENSE-2.0
\r
9 Unless required by applicable law or agreed to in writing, software
\r
10 distributed under the License is distributed on an "AS IS" BASIS,
\r
11 WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
\r
12 See the License for the specific language governing permissions and
\r
13 limitations under the License.
\r
14 ------------------------------------------- */
\r
19 flex -PPartnParser -opartnlexer.cc partn.l
\r
25 * AT&T lex can't handle this lexer due to lex bugs. It works with flex
\r
26 * 2.3.7, pclex 2.0.5, and MKS lex 3.1a.
\r
29 #include "parse_partn.h"
\r
34 #include "partn.tab.cc.h"
\r
37 Some includes that flex doesn't include as standard,
\r
38 but which are needed.
\r
45 // Prevent flex from defining yywrap as extern "C"
\r
47 #define YY_SKIP_YYWRAP
\r
49 /* No lex lib, supply the yywrap fcn. that normally resides there
\r
52 int PartnParserwrap(){return(1);}
\r
54 extern int PartnParserdebug;
\r
58 These variables are used for error reporting:
\r
59 flex_partn_lineno : the line currently being parsed when the error occurs.
\r
60 flex_partn_ch : the character on the line where the error occurs
\r
61 flex_partn_linebuf : store the line for reporting.
\r
63 NOTE : 1) the fixed size flex_partn_linebuf buffer is dangerous.
\r
64 2) You might get pointed to a place shortly after
\r
65 where the syntax error occurs. It is close enough
\r
69 int flex_partn_lineno = 1;
\r
70 int flex_partn_ch = 0;
\r
71 char flex_partn_linebuf[20000];
\r
73 char *flex_partn_stringinput = NULL;
\r
74 int flex_partn_stringinput_ptr = 0;
\r
75 FILE *flex_partn_fileinput = NULL;
\r
76 int my_PartnParser_yyinput(char *buf, int max_size);
\r
80 void PartnParsererror(char *s){
\r
82 fprintf(stderr,"On line %d, char %d: %s (token %s):\n%s\n",
\r
83 flex_partn_lineno, flex_partn_ch, s, PartnParsertext, flex_partn_linebuf );
\r
84 for(i=0;i<flex_partn_ch;i++){
\r
85 if(flex_partn_linebuf[i] == '\t'){
\r
86 fprintf(stderr,"\t");
\r
88 fprintf(stderr," ");
\r
91 fprintf(stderr,"^\n");
\r
92 // fprintf(stderr,"%*s\n",1+flex_partn_ch,"^");
\r
96 #define YY_INPUT(b, r, ms) (r = my_PartnParser_yyinput(b,ms))
\r
99 /* MKS needs the next line to increase the NFA table */
\r
105 /* literal keyword tokens */
\r
108 The actions associated with each text token are to
\r
109 keep track of the current location (for syntax error reporting)
\r
110 and to report any necessary info to the emf.y parse tree builder
\r
112 Its likely that there are a number of omissions, inconsistencies
\r
113 (some keywords do not need to be in caps), and relics
\r
114 (keywords such as BETWEEN, INDICATOR, etc., are not used
\r
116 This parser is somewhat of a work in progress.
\r
119 /* Query keywords */
\r
121 HEX { flex_partn_ch+=PartnParserleng; return HEX_L;}
\r
122 LHEX { flex_partn_ch+=PartnParserleng; return LHEX_L;}
\r
123 IP_VAL { flex_partn_ch+=PartnParserleng; return IP_L;}
\r
129 [;%&|!+*/:(),.\[\]$@#] { flex_partn_ch+=PartnParserleng; return yytext[0]; }
\r
130 "-" { flex_partn_ch+=PartnParserleng; return yytext[0]; }
\r
131 "~" { flex_partn_ch+=PartnParserleng; return yytext[0]; }
\r
135 [A-Za-z_][A-Za-z0-9_]* { flex_partn_ch+=PartnParserleng; PartnParserlval.strval = strdup(yytext); return NAME; }
\r
140 [0-9]+UL { flex_partn_ch+=PartnParserleng; PartnParserlval.strval = strdup(yytext); return INTNUM; }
\r
142 [0-9]+ULL { flex_partn_ch+=PartnParserleng; PartnParserlval.strval = strdup(yytext); return LONGINTNUM; }
\r
148 /* Newline : advance the error reporting line number */
\r
149 /* and grab the next line into flex_partn_linebuf */
\r
152 \n.* {flex_partn_ch=0; flex_partn_lineno++;
\r
153 strcpy(flex_partn_linebuf,PartnParsertext+1);
\r
157 [ \t\r]+ {flex_partn_ch+=PartnParserleng; } /* white space */
\r
159 "--".*$ {flex_partn_ch+=PartnParserleng; }; /* comment */
\r
160 "//".*$ {flex_partn_ch+=PartnParserleng; }; /* comment */
\r
162 .|\n {flex_partn_ch+=PartnParserleng; fprintf(stderr,"Warning: unknown token (ignored)\n"); PartnParsererror(yytext);}
\r
166 int my_PartnParser_yyinput(char *buf, int max_size){
\r
170 if(flex_partn_stringinput != NULL){
\r
172 if(flex_partn_stringinput[flex_partn_stringinput_ptr] != '\0'){
\r
173 buf[c++] = flex_partn_stringinput[flex_partn_stringinput_ptr++];
\r
181 if(flex_partn_fileinput != NULL){
\r
182 while(c < max_size){
\r
183 inchar = getc(flex_partn_fileinput);
\r
196 void PartnParser_setfileinput(FILE *f){
\r
197 PartnParserrestart(NULL);
\r
199 flex_partn_fileinput = f;
\r
200 flex_partn_stringinput = NULL;
\r
201 flex_partn_lineno = 1;
\r
205 void PartnParser_setstringinput(char *s){
\r
206 PartnParserrestart(NULL);
\r
208 flex_partn_fileinput = NULL;
\r
209 flex_partn_stringinput = s;
\r
210 flex_partn_stringinput_ptr = 0;
\r
211 flex_partn_lineno = 1;
\r