lci/bin/main.ml

open MiniImp

let () =
  (* let program = "def main with input x output y as *)
  (*                  x := 2; *)
  (*                  if y < 0 then ( *)
  (*                      y := x + 3; *)
  (*                      x := y; *)
  (*                  ) else *)
  (*                      x := 1 - y;" in *)

  let program = "def main with input x output y as
                   x := 2;
                   if y < 0 then (
                       y := x + 3;
                       if x > 0 then
                         x := y;
                       else
                         x := y + 1;
                   ) else
                       x := 1 - y;" in

  let get_result x = Lexing.from_string x |> Parser.prg Lexer.lex in

  let p = get_result program in

  let convertedcfg = CfgImp.convert_io p 3 in

  Printf.printf "%a" CfgImp.SSCfg.pp convertedcfg;

  let convertedrisccfg = CfgRISC.convert convertedcfg in

  let risc = RISC.convert convertedrisccfg in

  Printf.printf "%a" RISC.RISCAssembly.pp risc