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

implemented calls

Browse source
This commit is contained in:
Moritz Gmeiner 2024-08-27 20:32:05 +02:00
commit be931b7214
6 changed files with 115 additions and 55 deletions
Download patch file Download diff file Expand all files Collapse all files

45
lib/expr.ml
View file

@ -1,3 +1,5 @@
open Error
type literal = String of string | Number of float | Bool of bool | Nil
[@@deriving show { with_path = false }]
@ -32,11 +34,12 @@ type expr =
| Unary of { op : unary_op; expr : expr_node }
| Binary of { op : binary_op; left : expr_node; right : expr_node }
| Logical of { op : logical_op; left : expr_node; right : expr_node }
| Call of { callee : expr_node; args : expr_node list }
and expr_node = { expr : expr; pos : Error.code_pos }
and expr_node = { expr : expr; pos : code_pos }
let rec show_expr ?(indent = 0) expr =
let show_indented = show_expr ~indent:(indent + 2) in
let show_indented ?(add = 2) = show_expr ~indent:(indent + add) in
let indent_s = String.make indent ' ' in
match expr with
| Literal literal -> indent_s ^ show_literal literal
@ -49,30 +52,34 @@ let rec show_expr ?(indent = 0) expr =
| Logical { op; left; right } ->
indent_s ^ show_logical_op op ^ "\n" ^ show_indented left.expr ^ "\n"
^ show_indented right.expr
| Call { callee; args } ->
let callee_s = show_indented ~add:4 callee.expr in
let args_s =
List.map (fun arg -> show_indented ~add:4 arg.expr) args
|> List.fold_left (fun acc s -> acc ^ s) ""
in
indent_s ^ "Call\n" ^ indent_s ^ " Callee\n" ^ callee_s ^ "\n" ^ indent_s ^ " Args\n"
^ args_s
let show_expr_node expr_node = show_expr expr_node.expr
let make_expr_node (pos : Error.code_pos) (expr : expr) : expr_node = { expr; pos }
let make_expr_node (pos : code_pos) (expr : expr) : expr_node = { expr; pos }
let make_string (pos : code_pos) (s : string) : expr_node = Literal (String s) |> make_expr_node pos
let make_number (pos : code_pos) (x : float) : expr_node = Literal (Number x) |> make_expr_node pos
let make_bool (pos : code_pos) (b : bool) : expr_node = Literal (Bool b) |> make_expr_node pos
let make_nil (pos : code_pos) = Literal Nil |> make_expr_node pos
let make_variable (pos : code_pos) (name : string) : expr_node = Variable name |> make_expr_node pos
let make_string (pos : Error.code_pos) (s : string) : expr_node =
Literal (String s) |> make_expr_node pos
let make_number (pos : Error.code_pos) (x : float) : expr_node =
Literal (Number x) |> make_expr_node pos
let make_bool (pos : Error.code_pos) (b : bool) : expr_node = Literal (Bool b) |> make_expr_node pos
let make_nil (pos : Error.code_pos) = Literal Nil |> make_expr_node pos
let make_variable (pos : Error.code_pos) (name : string) : expr_node =
Variable name |> make_expr_node pos
let make_assignment (pos : Error.code_pos) (name : string) (expr : expr_node) : expr_node =
let make_assignment (pos : code_pos) (name : string) (expr : expr_node) : expr_node =
Assignment { name; expr } |> make_expr_node pos
let make_unary (pos : Error.code_pos) (op : unary_op) (expr : expr_node) =
let make_unary (pos : code_pos) (op : unary_op) (expr : expr_node) =
Unary { op; expr } |> make_expr_node pos
let make_binary (pos : Error.code_pos) (op : binary_op) (left : expr_node) (right : expr_node) =
let make_binary (pos : code_pos) (op : binary_op) (left : expr_node) (right : expr_node) =
Binary { op; left; right } |> make_expr_node pos
let make_logical (pos : Error.code_pos) (op : logical_op) (left : expr_node) (right : expr_node) =
let make_logical (pos : code_pos) (op : logical_op) (left : expr_node) (right : expr_node) =
Logical { op; left; right } |> make_expr_node pos
let make_call (pos : code_pos) (callee : expr_node) (args : expr_node list) =
Call { callee; args } |> make_expr_node pos