ops.ml

open Printf

let add () =
  let a = Stack.pop Objects.stack in
  let b = Stack.pop Objects.stack in
  (*
  if (a is Int and b is Int) {
    a + b
  }
  else if (a is Int and b is String) {
    append a b
  }
  else if (a is String and b is Int) {
    append a b
  }

String and Int are defined in:
type stack_object =
  | Int of int
  | Float of float
  | String of string
  | CodeBlock of string

  *)

let sub () =
  printf "Sub not implemented yet\n"

let mul () =
  printf "Mul not implemented yet\n"

let div () =
  printf "Div not implemented yet\n"

let handle s =
  match s with
  | "+" -> add ()
  | "-" -> sub ()
  | "*" -> mul ()
  | "/" -> div ()
  | _ -> printf "Operator not found: %s\n" s