mg/mlox
1
0
Fork 0
mirror of https://github.com/MorizzG/MLox.git synced 2025-12-06 04:22:41 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixed parser bug by filtering out all comments

Browse source
This commit is contained in:
Moritz Gmeiner 2024-08-25 03:07:18 +02:00
commit b4e25ee561
3 changed files with 23 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lib/expr.ml
View file

@ -40,6 +40,7 @@ let rec show_expr ?(indent = 0) expr =
ident_s ^ show_binary_op op ^ "\n" ^ show_indented left.expr ^ "\n" ^ show_indented right.expr
| UnaryExpr { op; expr } -> ident_s ^ show_unary_op op ^ "\n" ^ show_indented expr.expr
let show_expr_node expr_node = show_expr expr_node.expr
let make_expr_node (pos : Error.code_pos) (expr : expr) = { expr; pos }
let make_string (pos : Error.code_pos) (s : string) = make_expr_node pos (Literal (String s))
let make_number (pos : Error.code_pos) (x : float) = make_expr_node pos (Literal (Number x))