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

adding literals + pretty printing

Browse Source
This commit is contained in:
simon petit 2024-12-13 09:33:56 +00:00
parent 323b17e4a9
commit 9f345489ae
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/ast.ml
View File

@ -69,6 +69,8 @@ and expression_primary =
| DateLiteral of string
| TimeLiteral of string
| TimestampLiteral of string
| IntegerLiteral of int
| FloatLiteral of float
| Concatenation of expression_primary * expression_primary
| Numeric of expression_primary * sign * expression_primary
| Signed of sign * expression_primary
@ -103,8 +105,18 @@ and pp_expression exp =
| DateLiteral(d) -> "'" ^ d ^ "'"
| TimeLiteral(t) -> "'" ^ t ^ "'"
| TimestampLiteral(ts) -> "'" ^ ts ^ "'"
| IntegerLiteral(i) -> string_of_int i
| FloatLiteral(f) -> string_of_float f
| Numeric(n1, s, n2) -> pp_expression n1 ^ pp_sign s ^ pp_expression n2
| _ -> "Expression not yet supported"
and pp_sign sign =
match sign with
| Plus -> "+"
| Minus -> "-"
| Times -> "*"
| Divide -> "/"
and pp_table_expression table_exp =
match table_exp with
| TableExpression(tables, filter, _) -> pp_tables tables ^ pp_filter filter