diff options
Diffstat (limited to 'examples/OCaml-Kaleidoscope/Chapter3/toy.ml')
| -rw-r--r-- | examples/OCaml-Kaleidoscope/Chapter3/toy.ml | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/examples/OCaml-Kaleidoscope/Chapter3/toy.ml b/examples/OCaml-Kaleidoscope/Chapter3/toy.ml new file mode 100644 index 0000000000..73c1a1ec62 --- /dev/null +++ b/examples/OCaml-Kaleidoscope/Chapter3/toy.ml @@ -0,0 +1,26 @@ +(*===----------------------------------------------------------------------=== + * Main driver code. + *===----------------------------------------------------------------------===*) + +open Llvm + +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; + + (* Print out all the generated code. *) + dump_module Codegen.the_module +;; + +main () |