comparison src/urweb.lex @ 302:bc89dfdbc495

Parsing INSERT
author Adam Chlipala <adamc@hcoop.net>
date Sun, 07 Sep 2008 14:07:10 -0400
parents bacd0ba869e1
children 04ebfe929a98
comparison
equal deleted inserted replaced
301:54282db31a9b 302:bc89dfdbc495
333 <INITIAL> "MAX" => (Tokens.MAX (pos yypos, pos yypos + size yytext)); 333 <INITIAL> "MAX" => (Tokens.MAX (pos yypos, pos yypos + size yytext));
334 334
335 <INITIAL> "ASC" => (Tokens.ASC (pos yypos, pos yypos + size yytext)); 335 <INITIAL> "ASC" => (Tokens.ASC (pos yypos, pos yypos + size yytext));
336 <INITIAL> "DESC" => (Tokens.DESC (pos yypos, pos yypos + size yytext)); 336 <INITIAL> "DESC" => (Tokens.DESC (pos yypos, pos yypos + size yytext));
337 337
338 <INITIAL> "INSERT" => (Tokens.INSERT (pos yypos, pos yypos + size yytext));
339 <INITIAL> "INTO" => (Tokens.INTO (pos yypos, pos yypos + size yytext));
340 <INITIAL> "VALUES" => (Tokens.VALUES (pos yypos, pos yypos + size yytext));
341 <INITIAL> "UPDATE" => (Tokens.UPDATE (pos yypos, pos yypos + size yytext));
342 <INITIAL> "SET" => (Tokens.SET (pos yypos, pos yypos + size yytext));
343 <INITIAL> "DELETE" => (Tokens.DELETE (pos yypos, pos yypos + size yytext));
344
338 <INITIAL> {id} => (Tokens.SYMBOL (yytext, pos yypos, pos yypos + size yytext)); 345 <INITIAL> {id} => (Tokens.SYMBOL (yytext, pos yypos, pos yypos + size yytext));
339 <INITIAL> {cid} => (Tokens.CSYMBOL (yytext, pos yypos, pos yypos + size yytext)); 346 <INITIAL> {cid} => (Tokens.CSYMBOL (yytext, pos yypos, pos yypos + size yytext));
340 347
341 <INITIAL> {intconst} => (case Int64.fromString yytext of 348 <INITIAL> {intconst} => (case Int64.fromString yytext of
342 SOME x => Tokens.INT (x, pos yypos, pos yypos + size yytext) 349 SOME x => Tokens.INT (x, pos yypos, pos yypos + size yytext)