2 ** Copyright (c) Massachusetts Institute of Technology 1994-1998.
3 ** All Rights Reserved.
4 ** Unpublished rights reserved under the copyright laws of
7 ** THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY EXPRESSED
8 ** OR IMPLIED. ANY USE IS AT YOUR OWN RISK.
10 ** This code is distributed freely and may be used freely under the
11 ** following conditions:
13 ** 1. This notice may not be removed or altered.
15 ** 2. Works derived from this code are not distributed for
16 ** commercial gain without explicit permission from MIT
17 ** (for permission contact lclint-request@sds.lcs.mit.edu).
20 ** Copyright (c) Massachusetts Institute of Technology, 1993
21 ** All Rights Reserved. Unpublished rights reserved
22 ** under the copyright laws of the United States.
26 ** MODULE DESCRIPTION:
28 ** FILENAME: signature.y
30 ** PURPOSE: bison grammar for LSL signatures.
33 ** Yang Meng Tan, Massachusetts Institute of Technology
38 # include "bison.reset"
41 # include "lclintMacros.nf"
43 # include "lslparse.h"
44 # include "signature.h"
46 void lslerror (char *);
47 /*@dependent@*/ /*@null@*/ lslOp importedlslOp;
49 /*@-noparams@*/ /* Can't list params since YYSTYPE isn't defined yet. */
50 static void yyprint (/*FILE *p_file, int p_type, YYSTYPE p_value */);
53 # define YYPRINT(file, type, value) yyprint (file, type, value)
57 # include "bison.head"
63 /* CONVENTIONS: Reserved words are in ALL CAPS (plus markerSym)
64 Characters appearing in the grammar are reserved:
68 - added LBRACKET stuff in OpForm (missing in LSL)
69 - dif from LCL: open vs openSym, close vs closeSym
70 - yylval vs yylval.tok
74 ltoken ltok; /* a leaf is also an ltoken */
76 /*@only@*/ ltokenList ltokenList;
77 /*@only@*/ opFormNode opform;
78 /*@owned@*/ sigNode signature;
79 /*@only@*/ nameNode name;
80 /*@owned@*/ lslOp operator;
81 /*@only@*/ lslOpList operators;
84 %token <ltok> LST_SIMPLEID
85 %token <ltok> LST_LOGICALOP /* \implies, \and, \not, \or */
86 %token <ltok> LST_EQOP /* \eq, \neq, ==, != */
87 %token <ltok> LST_SIMPLEOP /* opSym - reserved */
88 %token <ltok> LST_MAPSYM /* LSL's -> */
89 /* FIELDMAPSYM = "\\field_arrow", only for LCL symtable import */
90 %token <ltok> LST_FIELDMAPSYM /* LCL's struct field operator -> */
91 %token <ltok> LST_MARKERSYM /* \marker, __ */
92 %token <ltok> LST_ifTOKEN LST_thenTOKEN LST_elseTOKEN
93 /* different from LSL: separate LBRACKET from openSym and
94 RBRACKET from closeSym */
95 %token <ltok> LST_LBRACKET LST_RBRACKET
96 %token <ltok> LST_SELECTSYM /* \select or . */
97 %token <ltok> LST_SEPSYM LST_OPENSYM LST_CLOSESYM
98 %token <ltok> LST_COLON /* : */
99 %token <ltok> LST_COMMA /* , */
100 %token <ltok> LST_EOL LST_COMMENTSYM LST_WHITESPACE
102 %token LST_WHITESPACE
103 %token LST_QUANTIFIERSYM
104 %token LST_EQUATIONSYM
106 %token LST_COMPOSESYM
109 %token LST_assertsTOKEN
110 %token LST_assumesTOKEN
112 %token LST_convertsTOKEN
113 %token LST_enumerationTOKEN
114 %token LST_equationsTOKEN
115 %token LST_exemptingTOKEN
117 %token LST_generatedTOKEN
118 %token LST_impliesTOKEN
119 %token LST_includesTOKEN
120 %token LST_introducesTOKEN
122 %token LST_partitionedTOKEN
123 %token LST_traitTOKEN
124 %token LST_tupleTOKEN
125 %token LST_unionTOKEN
128 %type <ltok> anyOp separator sortId opId
129 %type <count> middle placeList
130 %type <ltokenList> domain sortList
131 %type <opform> opForm
132 %type <signature> signature
134 %type <operator> operator
135 %type <operators> operatorList top
139 top: operatorList { lslOpList_free ($1); }
141 operatorList: operator
142 { lslOpList x = lslOpList_new ();
143 g_importedlslOp = $1;
144 lslOpList_add (x, $1);
146 | operatorList operator
147 { lslOpList_add ($1, $2);
150 operator: name LST_COLON signature
151 { $$ = makelslOpNode ($1, $3); }
152 /* The next production is never used in the output of lsl -syms
154 { $$ = makelslOpNode ($1, (sigNode)0); } */
156 name: opId /* check for the case of if_then_else */
157 { $$ = makeNameNodeId ($1); }
159 { $$ = makeNameNodeForm ($1); }
162 : LST_ifTOKEN LST_MARKERSYM LST_thenTOKEN LST_MARKERSYM LST_elseTOKEN LST_MARKERSYM
163 { $$ = makeOpFormNode ($1, OPF_IF, opFormUnion_createMiddle (0), ltoken_undefined); }
165 { $$ = makeOpFormNode ($1, OPF_ANYOP, opFormUnion_createAnyOp ($1), ltoken_undefined); }
166 | LST_MARKERSYM anyOp
167 { $$ = makeOpFormNode ($1, OPF_MANYOP, opFormUnion_createAnyOp ($2), ltoken_undefined); }
168 | anyOp LST_MARKERSYM
169 { $$ = makeOpFormNode ($1, OPF_ANYOPM, opFormUnion_createAnyOp ($1), ltoken_undefined); }
170 | LST_MARKERSYM anyOp LST_MARKERSYM
171 { $$ = makeOpFormNode ($1, OPF_MANYOPM, opFormUnion_createAnyOp ($2), ltoken_undefined); }
172 | LST_OPENSYM middle LST_CLOSESYM
173 { $$ = makeOpFormNode ($1, OPF_MIDDLE, opFormUnion_createMiddle ($2), $3); }
174 | LST_MARKERSYM LST_OPENSYM middle LST_CLOSESYM
175 { $$ = makeOpFormNode ($2, OPF_MMIDDLE, opFormUnion_createMiddle ($3), $4); }
176 | LST_OPENSYM middle LST_CLOSESYM LST_MARKERSYM
177 { $$ = makeOpFormNode ($1, OPF_MIDDLEM, opFormUnion_createMiddle ($2), $3); }
178 | LST_MARKERSYM LST_OPENSYM middle LST_CLOSESYM LST_MARKERSYM
179 { $$ = makeOpFormNode ($2, OPF_MMIDDLEM,
180 opFormUnion_createMiddle ($3), $4); }
181 | LST_LBRACKET middle LST_RBRACKET
182 { $$ = makeOpFormNode ($1, OPF_BMIDDLE,
183 opFormUnion_createMiddle ($2), $3); }
184 | LST_MARKERSYM LST_LBRACKET middle LST_RBRACKET
185 { $$ = makeOpFormNode ($2, OPF_BMMIDDLE,
186 opFormUnion_createMiddle ($3), $4); }
187 | LST_LBRACKET middle LST_RBRACKET LST_MARKERSYM
188 { $$ = makeOpFormNode ($1, OPF_BMIDDLEM,
189 opFormUnion_createMiddle ($2), $3); }
190 | LST_MARKERSYM LST_LBRACKET middle LST_RBRACKET LST_MARKERSYM
191 { $$ = makeOpFormNode ($2, OPF_BMMIDDLEM,
192 opFormUnion_createMiddle ($3), $4); }
193 | LST_SELECTSYM LST_SIMPLEID
194 { $$ = makeOpFormNode ($1, OPF_SELECT,
195 opFormUnion_createAnyOp ($2), ltoken_undefined); }
196 | LST_MARKERSYM LST_SELECTSYM LST_SIMPLEID
197 { $$ = makeOpFormNode ($1, OPF_MSELECT,
198 opFormUnion_createAnyOp ($3), ltoken_undefined); }
199 /* not in LSL, need FILEDMAPSYM to distinguish it from MAPSYM */
200 /* LST_FIELDMAPSYM = "\\field_arrow", only for LCL symtable import */
201 | LST_MARKERSYM LST_FIELDMAPSYM LST_SIMPLEID
202 { $$ = makeOpFormNode ($1, OPF_MMAP,
203 opFormUnion_createAnyOp ($3), ltoken_undefined); }
218 placeList: LST_MARKERSYM
220 | placeList separator LST_MARKERSYM
228 signature: domain LST_MAPSYM sortId
229 { $$ = makesigNode ($2, $1, $3); }
232 { $$ = ltokenList_new (); }
237 { $$ = ltokenList_singleton ($1); }
238 | sortList LST_COMMA sortId
239 { $$ = ltokenList_push ($1, $3); }
244 ltoken_setText ($$, processTraitSortId (ltoken_getText ($1)));
251 # include "bison.reset"
255 void lslerror (char *s)
259 ("There has been a problem parsing an LSL signature. This is believed to "
260 "result from a problem with gcc version 2.95 optimizations, "
261 "but it has not been confirmed. Please try rebuidling LCLint "
262 "without the -O<n> option."));
266 static void yyprint (FILE *file, int type, YYSTYPE value)
268 fprintf (file, " (%u:%u type: %d; text: %s) ",
269 ltoken_getLine (value.ltok),
270 ltoken_getCol (value.ltok),
272 ltoken_getRawTextChars (value.ltok));
275 extern void PrintToken (ltoken tok) {
278 switch (ltoken_getCode (tok))
280 case NOTTOKEN: codStr = "*** NOTTOKEN ***"; break;
281 case LST_QUANTIFIERSYM: codStr = "QUANTIFIERSYM"; break;
282 case LST_LOGICALOP: codStr = "LOGICALOP: "; break;
283 case LST_SELECTSYM: codStr = "LST_SELECTSYM"; break;
284 case LST_OPENSYM: codStr = "LST_OPENSYM"; break;
285 case LST_SEPSYM: codStr = "SEPSYM"; break;
286 case LST_CLOSESYM: codStr = "LST_CLOSESYM"; break;
287 case LST_SIMPLEID: codStr = "LST_SIMPLEID"; break;
288 case LST_MAPSYM: codStr = "MAPSYM"; break;
289 case LST_MARKERSYM: codStr = "LST_MARKERSYM"; break;
290 case LST_COMMENTSYM: codStr = "COMMENTSYM"; break;
291 case LST_SIMPLEOP: codStr = "SIMPLEOP"; break;
292 case LST_COLON: codStr = "LST_COLON"; break;
293 case LST_COMMA: codStr = "COMMA"; break;
294 case LST_LBRACKET: codStr = "LST_LBRACKET"; break;
295 case LST_LPAR: codStr = "LST_LPAR"; break;
296 case LST_RBRACKET: codStr = "LST_RBRACKET"; break;
297 case LST_RPAR: codStr = "LST_RPAR"; break;
298 case LST_EQOP: codStr = "LST_EQOP"; break;
299 case LST_WHITESPACE: codStr = "WHITESPACE,"; break;
300 case LST_EOL: codStr = "LST_EOL"; break;
301 case LST_elseTOKEN: codStr = "elseTOKEN"; break;
302 case LST_ifTOKEN: codStr = "ifTOKEN"; break;
303 case LST_thenTOKEN: codStr = "thenTOKEN"; break;
304 case LST_BADTOKEN: codStr = "*** BADTOKEN ***"; break;
305 case LEOFTOKEN: /* can't reach LEOFTOKEN easily */
306 codStr = "LEOFTOKEN"; break;
308 codStr = "*** invalid token code ***";
312 /* only used for debugging */
313 printf ("%u:%u: Token Code (%u): %s",
314 ltoken_getLine (tok), ltoken_getCol (tok),
315 ltoken_getCode (tok), codStr);
316 if (ltoken_getRawText (tok) != 0)
318 printf (", Token String (%lu): %s\n",
319 ltoken_getRawText (tok), ltoken_getRawTextChars (tok));