https://github.com/FujiiMaika/fscd21.git
Revision 583c7def1de3d2bbc425f4fc0ead48040635f9a6 authored by Maika Fujii on 24 June 2021, 05:53:09 UTC, committed by GitHub on 24 June 2021, 05:53:09 UTC
1 parent e37c343
Tip revision: 583c7def1de3d2bbc425f4fc0ead48040635f9a6 authored by Maika Fujii on 24 June 2021, 05:53:09 UTC
Update README.md
Update README.md
Tip revision: 583c7de
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 ()
Computing file changes ...