Initial state - basic lexer + parser + interpreter

lib/interpreterStdlib.ml

@@ -0,0 +1,46 @@
+open Ast;;
+
+let iadd _ vs : lisp_val = 
+  let rec auxi vs accum = 
+    match vs with
+    | LCons (LInt a, b) -> (auxi b (accum + a))
+    | LCons (LDouble a, b) -> (auxf b ((float_of_int accum) +. a))
+    | _ -> LInt accum
+  and auxf vs accum =
+    match vs with
+    | LCons (LInt a, b) -> (auxf b (accum +. (float_of_int a)))
+    | LCons (LDouble a, b) -> (auxf b (accum +. a))
+    | _ -> LDouble accum
+  in (auxi vs 0);;
+let isub _ vs = 
+  let rec auxi vs accum = 
+    match vs with
+    | LNil -> LInt accum
+    | LCons (LInt a, b) -> auxi b (accum - a)
+    | LCons (LDouble a, b) -> auxf b ((float_of_int accum) -. a)
+    | _ -> raise (Invalid_argument "-: invalid argument to subtraction operator")
+  and auxf vs accum = 
+    match vs with
+    | LNil -> LDouble accum
+    | LCons (LInt a, b) -> auxf b (accum -. (float_of_int a))
+    | LCons (LDouble a, b) -> auxf b (accum -. a)
+    | _ -> raise (Invalid_argument "-: invalid argument to subtraction operator")
+  in
+  match vs with
+  | LCons (LInt a, LNil) -> LInt (-a)
+  | LCons (LInt a, b) -> auxi b a
+  | LCons (LDouble a, LNil) -> LDouble (-. a)
+  | LCons (LDouble a, b) -> auxf b a
+  | _ -> auxi vs 0;;
+
+
+let car _ vs =
+  match vs with
+  | LCons (LCons (a, _), LNil) -> a
+  | _ -> raise (Invalid_argument "car: invalid argument")
+
+let cdr _ vs =
+  match vs with
+  | LCons (LCons (_, b), LNil) -> b
+  | _ -> raise (Invalid_argument "cdr: invalid argument")
+