teyalem/ce
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add comments

Browse source
This commit is contained in:
백현웅 2022-02-19 20:39:50 +09:00
parent b6e00cd862
commit dbcba252bf
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
eval.ml
View file

@ -20,6 +20,7 @@ and env = (string * value) list
exception No_operation exception No_operation
exception Too_many_arguments exception Too_many_arguments
(* TODO: add proper type system *)
module Type = struct module Type = struct
type t = type t =
| Int | Int
@ -146,6 +147,7 @@ module Operator = struct
let lt a b = Bool (compare a b < 0) let lt a b = Bool (compare a b < 0)
(* operator table *) (* operator table *)
(* TODO: refactor operator finding alg (support type vars) *)
let operators = let operators =
let open Type in let open Type in
let ip = Int, Int and fp = Float, Float in let ip = Int, Int and fp = Float, Float in
@ -248,6 +250,7 @@ let rec binop op l r =
exception Unbound of string exception Unbound of string
(* TODO: refactor eval, split function into parts *)
let rec eval env ast = let rec eval env ast =
let rec aux = function let rec aux = function
| Nothing -> Nop | Nothing -> Nop
@ -328,7 +331,7 @@ let rec eval env ast =
let eval_top env_ref ast = let eval_top env_ref ast =
let var, v = match ast with let var, v = match ast with
| Let (var, Nfunction (arg, e)) -> | Let (var, Nfunction (arg, e)) -> (* named function *)
var, Function (Some var, arg, e, !env_ref) var, Function (Some var, arg, e, !env_ref)
| Let (var, e) -> var, eval !env_ref e | Let (var, e) -> var, eval !env_ref e
| ast -> "-", eval !env_ref ast | ast -> "-", eval !env_ref ast