simonpetit/ocaml_sql_parser
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adding tokens

Browse Source
This commit is contained in:
Simon Petit 2024-12-10 18:00:26 +01:00
parent 87959fae33
commit 4d62ebe2a3
1 changed files with 45 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

86
lexer/lexer.mll
View File

@ -8,44 +8,48 @@ let alpha = ['a'-'z' 'A'-'Z' '_']
let alphanumeric = (alpha|digit)
rule read_token = parse
| "SELECT" { SELECT }
| "AVG" { AVG }
| "MAX" { MAX }
| "MIN" { MIN }
| "SUM" { SUM }
| "COUNT" { COUNT }
| "DISTINCT" { DISTINCT }
| "FROM" { FROM }
| "INNER" { INNER }
| "LEFT" { LEFT }
| "RIGHT" { RIGHT }
| "CROSS" { CROSS }
| "UNION" { UNION }
| "NATURAL" { NATURAL }
| "JOIN" { JOIN }
| "ON" { ON }
| "OR" { OR }
| "AND" { AND }
| "WHERE" { WHERE }
| "HAVING" { HAVING }
| "BETWEEN" { BETWEEN }
| "IN" { IN }
| "LIKE" { LIKE }
| "GROUP" { GROUP }
| "BY" { BY }
| "*" { ASTERISK }
| "." { DOT }
| "=" { EQUALS_OPERATOR }
| "(" { LEFT_PAREN }
| ")" { RIGHT_PAREN }
| "," { COMMA }
| "|" { PIPE }
| "'" { QUOTE }
| "+" { PLUS_SIGN }
| "-" { MINUS_SIGN }
| whitespace { read_token lexbuf }
| digit+ { INTEGER }
| digit+"."digit+ { FLOAT }
| '.'digit+ { FLOAT }
| alpha alphanumeric* as ident { IDENT ident }
| eof { EOF }
| "SELECT" { SELECT }
| "AS" { AS }
| "DATE" { DATE }
| "TIME" { TIME }
| "AVG" { AVG }
| "MAX" { MAX }
| "MIN" { MIN }
| "SUM" { SUM }
| "COUNT" { COUNT }
| "DISTINCT" { DISTINCT }
| "FROM" { FROM }
| "INNER" { INNER }
| "LEFT" { LEFT }
| "RIGHT" { RIGHT }
| "CROSS" { CROSS }
| "UNION" { UNION }
| "NATURAL" { NATURAL }
| "JOIN" { JOIN }
| "ON" { ON }
| "OR" { OR }
| "AND" { AND }
| "WHERE" { WHERE }
| "HAVING" { HAVING }
| "BETWEEN" { BETWEEN }
| "IN" { IN }
| "LIKE" { LIKE }
| "GROUP" { GROUP }
| "BY" { BY }
| "*" { ASTERISK }
| "." { DOT }
| "=" { EQUALS_OPERATOR }
| "(" { LEFT_PAREN }
| ")" { RIGHT_PAREN }
| ',' { COMMA }
| "|" { PIPE }
| "'" { QUOTE }
| "+" { PLUS_SIGN }
| "-" { MINUS_SIGN }
| ':' { COLON }
| whitespace { read_token lexbuf }
| digit+ as integer { INTEGER (int_of_string integer) }
| digit+"."digit+ { FLOAT }
| '.'digit+ { FLOAT }
| alpha alphanumeric* as ident { IDENT ident }
| eof { EOF }