Structure

Makefile

@@ -8,6 +8,7 @@ EXTENSION=native
 all:
 	eval `opam config env`
 	ocamlbuild -use-ocamlfind \
+		-I src/	\
 		-pkgs '$(PACKAGES)' \
 		-use-menhir \
 		-cflags '$(CFLAGS)' $(NAME).$(EXTENSION)
@@ -17,9 +18,10 @@ deps:
 	opam install $(PACKAGES)
 
 # For giving out to student prefer giving an url to the git project.
-archiveLastest:
+archiveLatest:
 	git archive -o cmicrojsML-${shell git rev-parse HEAD}.zip HEAD
 
 clean:
 	ocamlbuild -clean
 
+.PHONY: all deps archiveLatests clean

README.md

@@ -1,7 +1,7 @@
 # kitty-lang
-An other toy compiler in Ocaml, made with Menhir and Ocamlex for 3I018 compilation course at university
+An other toy compiler in OCaml, made with Menhir and Ocamlex for 3I018 compilation course at university
 
 ## Build
 ```shell
-ocamlbuild -use-ocamlfind -use-menhir 'main.native'
+make
 ```

ast.ml → src/ast.ml

@@ -87,7 +87,7 @@ let rec string_of_expr = function
        (string_of_expr init)
        (string_of_expr body))
   | Seq (left, right) ->
-    (Printf.sprintf "%s ; %s"
+    (Printf.sprintf "%s;\n%s"
        (string_of_expr left)
        (string_of_expr right))
   | Fun (id, args, body) ->

kittylang.ml → src/kittylang.ml

@@ -70,7 +70,7 @@ let select_action parse compile expand =
        |> result_string
        |> Printf.sprintf "Parsed program:%s")
   else if expand then
-    failwith "-expand Not implemented"
+    failwith "--expand Not implemented"
     (*
     (fun prog ->
        Expander.expand_prog prog
@@ -79,7 +79,7 @@ let select_action parse compile expand =
        |> P.sprintf "Kernal Abstract Syntax Tree:%s")
     *)
   else if compile then
-    failwith "-compile Not implemented"
+    failwith "--compile Not implemented"
     (*
     (fun prog ->
       compile_prog prog