1 | %{ |
---|
2 | /**CFile*********************************************************************** |
---|
3 | |
---|
4 | FileName [ctlp.l] |
---|
5 | |
---|
6 | PackageName [ctlp] |
---|
7 | |
---|
8 | Synopsis [Lexical analyzer for CTL formula parser. See ctlp.h for syntax.] |
---|
9 | |
---|
10 | Author [Gary York, Ramin Hojati, Tom Shiple, Yuji Kukimoto, |
---|
11 | Jae-Young Jang] |
---|
12 | |
---|
13 | Copyright [Copyright (c) 1994-1996 The Regents of the Univ. of California. |
---|
14 | All rights reserved. |
---|
15 | |
---|
16 | Permission is hereby granted, without written agreement and without license |
---|
17 | or royalty fees, to use, copy, modify, and distribute this software and its |
---|
18 | documentation for any purpose, provided that the above copyright notice and |
---|
19 | the following two paragraphs appear in all copies of this software. |
---|
20 | |
---|
21 | IN NO EVENT SHALL THE UNIVERSITY OF CALIFORNIA BE LIABLE TO ANY PARTY FOR |
---|
22 | DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT |
---|
23 | OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF THE UNIVERSITY OF |
---|
24 | CALIFORNIA HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
---|
25 | |
---|
26 | THE UNIVERSITY OF CALIFORNIA SPECIFICALLY DISCLAIMS ANY WARRANTIES, |
---|
27 | INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND |
---|
28 | FITNESS FOR A PARTICULAR PURPOSE. THE SOFTWARE PROVIDED HEREUNDER IS ON AN |
---|
29 | "AS IS" BASIS, AND THE UNIVERSITY OF CALIFORNIA HAS NO OBLIGATION TO PROVIDE |
---|
30 | MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.] |
---|
31 | |
---|
32 | Revision [$Id: ctlp.l,v 1.8 2010/04/09 23:30:23 fabio Exp $] |
---|
33 | |
---|
34 | ******************************************************************************/ |
---|
35 | |
---|
36 | #include "ctlpRead.h" |
---|
37 | |
---|
38 | /*---------------------------------------------------------------------------*/ |
---|
39 | /* Constant declarations */ |
---|
40 | /*---------------------------------------------------------------------------*/ |
---|
41 | |
---|
42 | /*---------------------------------------------------------------------------*/ |
---|
43 | /* Variable declarations */ |
---|
44 | /*---------------------------------------------------------------------------*/ |
---|
45 | |
---|
46 | |
---|
47 | /**AutomaticStart*************************************************************/ |
---|
48 | |
---|
49 | /*---------------------------------------------------------------------------*/ |
---|
50 | /* Static function prototypes */ |
---|
51 | /*---------------------------------------------------------------------------*/ |
---|
52 | |
---|
53 | |
---|
54 | /**AutomaticEnd***************************************************************/ |
---|
55 | |
---|
56 | |
---|
57 | |
---|
58 | /*---------------------------------------------------------------------------*/ |
---|
59 | /* Definition of internal functions */ |
---|
60 | /*---------------------------------------------------------------------------*/ |
---|
61 | |
---|
62 | /**Function******************************************************************** |
---|
63 | |
---|
64 | Synopsis [Initializes global variables for parsing file.] |
---|
65 | |
---|
66 | SideEffects [] |
---|
67 | |
---|
68 | ******************************************************************************/ |
---|
69 | void |
---|
70 | CtlpFileSetup( |
---|
71 | FILE * fp) |
---|
72 | { |
---|
73 | CtlpYyin = fp; |
---|
74 | CtlpYylineno = 1; |
---|
75 | } |
---|
76 | |
---|
77 | /*---------------------------------------------------------------------------*/ |
---|
78 | /* Definition of static functions */ |
---|
79 | /*---------------------------------------------------------------------------*/ |
---|
80 | |
---|
81 | /**Function******************************************************************** |
---|
82 | |
---|
83 | Synopsis [Prints error message and sets global error flag.] |
---|
84 | |
---|
85 | SideEffects [] |
---|
86 | |
---|
87 | ******************************************************************************/ |
---|
88 | static void |
---|
89 | CtlpYyerror( |
---|
90 | char * errmsg) |
---|
91 | { |
---|
92 | (void) fprintf(vis_stderr, "%s in line %d with token \"%s\"\n", errmsg, CtlpYylineno, yytext); |
---|
93 | CtlpGlobalError = 1; |
---|
94 | } |
---|
95 | |
---|
96 | %} |
---|
97 | |
---|
98 | /*---------------------------------------------------------------------------*/ |
---|
99 | /* Lexical analyzer rules */ |
---|
100 | /*---------------------------------------------------------------------------*/ |
---|
101 | |
---|
102 | %option noyywrap |
---|
103 | %option yylineno |
---|
104 | |
---|
105 | /* substitution strings */ |
---|
106 | /* alnum is the same set in alnumsymbol in io.l except [ and ] being |
---|
107 | removed here for the until operator */ |
---|
108 | /* - , =, and ; are intentionally removed |
---|
109 | - is used for -> and <-> |
---|
110 | = is used for foo = bar |
---|
111 | ; is used for delimitters */ |
---|
112 | /* ( and ) are intentionally removed since they are used as parentheses */ |
---|
113 | /* +, *, and ^ have to be used surrounded by spaces |
---|
114 | since they are symbols. ! can be attached immediately w/o spaces though |
---|
115 | since it is not a symbol */ |
---|
116 | alnum [A-Za-z0-9\^\?\|\/\+\*\$\<\>~@\_#\$%\:\"\'\.] |
---|
117 | /*alnum [A-Za-z0-9\^\?\|\/\[\]\+\*\$\<\>~@\_#\$%\:\"\'\.]*/ |
---|
118 | %% |
---|
119 | |
---|
120 | [ \t\n\r] ; |
---|
121 | |
---|
122 | "#".* ; |
---|
123 | |
---|
124 | A { return(TOK_FORALL); } |
---|
125 | AX { return(TOK_FORALL_NEXT); } |
---|
126 | AF { return(TOK_FORALL_EVENTUALLY); } |
---|
127 | AG { return(TOK_FORALL_GLOBALLY); } |
---|
128 | |
---|
129 | E { return(TOK_EXISTS); } |
---|
130 | EX { return(TOK_EXISTS_NEXT); } |
---|
131 | EF { return(TOK_EXISTS_EVENTUALLY); } |
---|
132 | EG { return(TOK_EXISTS_GLOBALLY); } |
---|
133 | |
---|
134 | AX:[0-9]+ { return(TOK_FORALL_NEXT_MULT); } |
---|
135 | EX:[0-9]+ { return(TOK_EXISTS_NEXT_MULT); } |
---|
136 | |
---|
137 | U { return(TOK_UNTIL); } |
---|
138 | |
---|
139 | TRUE { return(TOK_TRUE); } |
---|
140 | |
---|
141 | FALSE { return(TOK_FALSE); } |
---|
142 | |
---|
143 | \\DEFINE | |
---|
144 | \\Define | |
---|
145 | \\define { return(TOK_DEFINE); } |
---|
146 | |
---|
147 | \+ { return(TOK_OR); } |
---|
148 | \|\| { return(TOK_OR); } |
---|
149 | \* { return(TOK_AND); } |
---|
150 | \&\& { return(TOK_AND); } |
---|
151 | ! { return(TOK_NOT); } |
---|
152 | "^" { return(TOK_XOR); } |
---|
153 | "->" { return(TOK_THEN); } |
---|
154 | "<->" { return(TOK_EQ); } |
---|
155 | = { return(TOK_ASSIGN); } |
---|
156 | == { return(TOK_EQIV); } |
---|
157 | \, { return(TOK_COMMA); } |
---|
158 | \\ { return(TOK_MACRO); } |
---|
159 | |
---|
160 | {alnum}+ { return(TOK_ID); } |
---|
161 | {alnum}+\[[ ]*[0-9]+[ ]*\] { return(TOK_ID2); } |
---|
162 | {alnum}+\[[ ]*[0-9]+[ ]*\:[ ]*[0-9]+[ ]*\] { return(TOK_ID_VECTOR); } |
---|
163 | |
---|
164 | . { return CtlpYytext[0]; } |
---|
165 | %% |
---|