diff options
Diffstat (limited to 'examples/OCaml-Kaleidoscope/Chapter2/toy.ml')
| -rw-r--r-- | examples/OCaml-Kaleidoscope/Chapter2/toy.ml | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/examples/OCaml-Kaleidoscope/Chapter2/toy.ml b/examples/OCaml-Kaleidoscope/Chapter2/toy.ml new file mode 100644 index 0000000..42b19fe --- /dev/null +++ b/examples/OCaml-Kaleidoscope/Chapter2/toy.ml @@ -0,0 +1,21 @@ +(*===----------------------------------------------------------------------=== + * Main driver code. + *===----------------------------------------------------------------------===*) + +let main () = + (* Install standard binary operators. + * 1 is the lowest precedence. *) + Hashtbl.add Parser.binop_precedence '<' 10; + Hashtbl.add Parser.binop_precedence '+' 20; + Hashtbl.add Parser.binop_precedence '-' 20; + Hashtbl.add Parser.binop_precedence '*' 40; (* highest. *) + + (* Prime the first token. *) + print_string "ready> "; flush stdout; + let stream = Lexer.lex (Stream.of_channel stdin) in + + (* Run the main "interpreter loop" now. *) + Toplevel.main_loop stream; +;; + +main () |