Skip to main content
https://github.com/FujiiMaika/fscd21.git
14 October 2025, 14:49:57 UTC
Revision d51eccc55493a9a78db4b0ea72543bc10a6bceff authored by Maika Fujii on 24 June 2021, 05:43:16 UTC, committed by GitHub on 24 June 2021, 05:43:16 UTC
Update README.md
1 parent e388208
Raw File Download
Tip revision: d51eccc55493a9a78db4b0ea72543bc10a6bceff authored by Maika Fujii on 24 June 2021, 05:43:16 UTC
Update README.md
Tip revision: d51eccc
main.ml 
(* main *)
let go () =
  let program = Parser.expr Lexer.token (Lexing.from_channel stdin) in
  if Array.length Sys.argv = 1 then begin
    print_string "Parsed : ";
    Syntax.print program;               (* input *)
    print_newline ();
    print_string "Result : "
  end;
  print_string (Value.to_string (Eval.f program)) ;(* result *)
  print_newline ()

(* startup *)
let _ = go ()