Fix: make it work (test under OCaml 4.12).

The change is from adamrk/llvm-ocaml-tutorial#1. Other changes is made by ocamlformat (default setting).

Author: arbipher

.gitignore

@@ -1,3 +1,4 @@
 _build
 .merlin
 *.swp
+*.so

README.md

@@ -0,0 +1,15 @@
+## Meta
+
+The project is forked from https://github.com/adamrk/llvm-ocaml-tutorial.
+
+## Build
+
+`opam install core async ctypes-foreign llvm menhir`
+
+`export LD_LIBRARY_PATH=/path/to/libbindings.so`
+
+The path is `_build/default/stubs/libbindings.so` by default.
+
+## Run
+
+`./path/to/bin/kaleidoscope.exe < example/mandel.kal`

bin/dune

@@ -1,9 +1,8 @@
 (executable
  (name kaleidoscope)
- (libraries 
-   async
-   core
-   kaleidoscope_lib)
- (link_deps (file ../stubs/libbindings.so))
+ (libraries async core kaleidoscope_lib)
+ (link_deps
+  (file ../stubs/libbindings.so))
  (link_flags -cclib -Lstubs -cclib -lbindings)
- (preprocess (pps ppx_jane ppx_expect ppx_let)))
+ (preprocess
+  (pps ppx_jane ppx_expect ppx_let)))

bin/kaleidoscope.ml

@@ -4,7 +4,7 @@ let () =
   let open Command.Let_syntax in
   Command.basic ~summary:"Parse and print kaleidoscope"
     [%map_open
-      let file = flag "file" (optional file) ~doc:"FILE read input from file" in
+      let file = flag "file" (optional string) ~doc:"FILE read input from file" in
       fun () -> Kaleidoscope_lib.Toplevel.main (match file with
     | None -> `Stdin
     | Some file -> `File file)]

lib/dune

@@ -1,16 +1,17 @@
 (library
  (name kaleidoscope_lib)
- (libraries 
-   async
-   core
-   ctypes.foreign
-   llvm
-   llvm.analysis
-   llvm.executionengine
-   llvm.target
-   llvm.scalar_opts
-   menhirLib)
- (preprocess (pps ppx_jane ppx_expect ppx_let))
+ (libraries
+  async
+  core
+  ctypes.foreign
+  llvm
+  llvm.analysis
+  llvm.executionengine
+  llvm.target
+  llvm.scalar_opts
+  menhirLib)
+ (preprocess
+  (pps ppx_jane -allow-unannotated-ignores ppx_expect ppx_let))
  (inline_tests))
 
 (ocamllex lexer)