open MiniImp

let colorred s =
  "\027[31m" ^ s ^ "\027[0m"

let () =
  let program = "
def main with input n output result as
    result := 0;
    s := 0;
    while (0 == ((n - 1) / (2 ^ s)) % 2) do (
      s := s + 1
    );

"
  in

  (* Printf.printf "%s\n%s\n" (colorred "Program is") program; *)

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

  let p = get_result program in

  (* Format.printf "%s\n%a\n@?" (colorred "AST is") Types.pp_p_exp p; *)

  let convertedcfg = CfgImp.convert_io 10 p in

  (* Printf.printf "%s\n%a" (colorred "Converted CFG is") CfgImp.SSCfg.pp convertedcfg; *)

  let convertedrisccfg = CfgRISC.convert convertedcfg in

  Printf.printf "%s\n%a" (colorred "Converted RISC CFG is") CfgRISC.RISCCfg.pp convertedrisccfg;

  (* ---------------------------------- *)

  let analysiscfg = DefinedVariables.compute_defined_variables convertedrisccfg in

  Printf.printf "%s\n%a" (colorred "Analysis CFG is") DefinedVariables.DVCfg.pp analysiscfg;

  Printf.printf "%s%b\n" (colorred "Analysis CFG defined variables: ") (DefinedVariables.check_defined_variables analysiscfg);
  Printf.printf "%s\n" (colorred "Undefined Variables are:");
  List.iter (fun v -> Printf.printf "%a, " DefinedVariables.Variable.pp v)  (DefinedVariables.undefined_variables analysiscfg);
  Printf.printf "\n";

  let convertedrisccfg = DefinedVariables.compute_cfg analysiscfg in

  Printf.printf "%s\n%a" (colorred "Converted RISC after analysis CFG is") CfgRISC.RISCCfg.pp convertedrisccfg;

  (* ---------------------------------- *)

  let _risc = RISC.convert convertedrisccfg in

  (* Printf.printf "%s\n%a" (colorred "RISC code is") RISC.RISCAssembly.pp risc; *)

  (* let computerisc = RISCSemantics.reduce risc in *)

  (* Printf.printf "%s\n%d\n" (colorred "Output of RISC code is") computerisc; *)

  ()