|
4 | 4 | * procedural language |
5 | 5 | * |
6 | 6 | * IDENTIFICATION |
7 | | - * $Header: /cvsroot/pgsql/src/pl/plpgsql/src/Attic/scan.l,v 1.19 2002/08/0403:59:09 momjian Exp $ |
| 7 | + * $Header: /cvsroot/pgsql/src/pl/plpgsql/src/Attic/scan.l,v 1.20 2002/08/0404:17:33 momjian Exp $ |
8 | 8 | * |
9 | 9 | * This software is copyrighted by Jan Wieck - Hamburg. |
10 | 10 | * |
@@ -61,9 +61,9 @@ static void plpgsql_input(char *buf, int *result, int max); |
61 | 61 |
|
62 | 62 | %optionyylineno |
63 | 63 |
|
64 | | -DQUOTE\"([^\"])*\" |
65 | | -WS [\200-\377_A-Za-z] |
66 | | -WC [\200-\377_A-Za-z0-9] |
| 64 | + |
| 65 | +WS [\200-\377_A-Za-z"] |
| 66 | +WC [\200-\377_A-Za-z0-9"] |
67 | 67 |
|
68 | 68 | %xIN_STRINGIN_COMMENT |
69 | 69 |
|
@@ -155,48 +155,17 @@ dump{ return O_DUMP;} |
155 | 155 | * ---------- |
156 | 156 | */ |
157 | 157 | {WS}{WC}*{returnplpgsql_parse_word(yytext);} |
158 | | -{DQUOTE}*{returnplpgsql_parse_word(yytext);} |
159 | | - |
160 | 158 | {WS}{WC}*\.{WS}{WC}*{returnplpgsql_parse_dblword(yytext);} |
161 | | -{WS}{WC}*\.{DQUOTE}*{returnplpgsql_parse_dblword(yytext);} |
162 | | -{DQUOTE}*\.{WS}{WC}*{returnplpgsql_parse_dblword(yytext);} |
163 | | -{DQUOTE}*\.{DQUOTE}*{returnplpgsql_parse_dblword(yytext);} |
164 | | - |
165 | 159 | {WS}{WC}*\.{WS}{WC}*\.{WS}{WC}*{returnplpgsql_parse_tripword(yytext); } |
166 | | -{WS}{WC}*\.{WS}{WC}*\.{DQUOTE}*{returnplpgsql_parse_tripword(yytext); } |
167 | | -{WS}{WC}*\.{DQUOTE}*\.{WS}{WC}*{returnplpgsql_parse_tripword(yytext); } |
168 | | -{WS}{WC}*\.{DQUOTE}*\.{DQUOTE}*{returnplpgsql_parse_tripword(yytext); } |
169 | | -{DQUOTE}*\.{WS}{WC}*\.{WS}{WC}*{returnplpgsql_parse_tripword(yytext); } |
170 | | -{DQUOTE}*\.{WS}{WC}*\.{DQUOTE}*{returnplpgsql_parse_tripword(yytext); } |
171 | | -{DQUOTE}*\.{DQUOTE}*\.{WS}{WC}*{returnplpgsql_parse_tripword(yytext); } |
172 | | -{DQUOTE}*\.{DQUOTE}*\.{DQUOTE}*{returnplpgsql_parse_tripword(yytext); } |
173 | | - |
174 | 160 | {WS}{WC}*%TYPE{returnplpgsql_parse_wordtype(yytext);} |
175 | | -{DQUOTE}*%TYPE{returnplpgsql_parse_wordtype(yytext);} |
176 | | - |
177 | 161 | {WS}{WC}*\.{WS}{WC}*%TYPE{returnplpgsql_parse_dblwordtype(yytext); } |
178 | | -{WS}{WC}*\.{DQUOTE}*%TYPE{returnplpgsql_parse_dblwordtype(yytext); } |
179 | | -{DQUOTE}*\.{WS}{WC}*%TYPE{returnplpgsql_parse_dblwordtype(yytext); } |
180 | | -{DQUOTE}*\.{DQUOTE}*%TYPE{returnplpgsql_parse_dblwordtype(yytext); } |
181 | | - |
182 | 162 | {WS}{WC}*%ROWTYPE{returnplpgsql_parse_wordrowtype(yytext);} |
183 | | -{DQUOTE}*%ROWTYPE{returnplpgsql_parse_wordrowtype(yytext);} |
184 | 163 |
|
185 | 164 | \$[0-9]+{returnplpgsql_parse_word(yytext);} |
186 | | - |
187 | 165 | \$[0-9]+\.{WS}{WC}*{returnplpgsql_parse_dblword(yytext);} |
188 | | -\$[0-9]+\.{DQUOTE}*{returnplpgsql_parse_dblword(yytext);} |
189 | | - |
190 | 166 | \$[0-9]+\.{WS}{WC}*\.{WS}{WC}*{returnplpgsql_parse_tripword(yytext); } |
191 | | -\$[0-9]+\.{WS}{WC}*\.{DQUOTE}*{returnplpgsql_parse_tripword(yytext); } |
192 | | -\$[0-9]+\.{DQUOTE}*\.{WS}{WC}*{returnplpgsql_parse_tripword(yytext); } |
193 | | -\$[0-9]+\.{DQUOTE}*\.{DQUOTE}*{returnplpgsql_parse_tripword(yytext); } |
194 | | - |
195 | 167 | \$[0-9]+%TYPE{returnplpgsql_parse_wordtype(yytext);} |
196 | | - |
197 | 168 | \$[0-9]+\.{WS}{WC}*%TYPE{returnplpgsql_parse_dblwordtype(yytext); } |
198 | | -\$[0-9]+\.{DQUOTE}*%TYPE{returnplpgsql_parse_dblwordtype(yytext); } |
199 | | - |
200 | 169 | \$[0-9]+%ROWTYPE{returnplpgsql_parse_wordrowtype(yytext);} |
201 | 170 |
|
202 | 171 | [0-9]+{return T_NUMBER;} |
|