Added timed test for JSON

Author: vietlq

.gitignore

@@ -8,4 +8,5 @@
 *.exe
 *.native
 *.byte
-_build
+ocamlprof.dump
+_build

README.md

@@ -4,6 +4,9 @@ https://opam.ocaml.org/doc/Packaging.html
 https://github.com/ocaml/opam-repository
 
 https://ocaml.org/learn/tutorials/performance_and_profiling.html
+https://stackoverflow.com/questions/9061421/running-time-in-ocaml
+http://caml.inria.fr/pub/docs/manual-ocaml/libref/Sys.html
+http://caml.inria.fr/pub/docs/manual-ocaml/libref/Arg.html
 
 http://numeraljs.com/
 http://www.json-generator.com/

json/Makefile

@@ -1,12 +1,16 @@
 .PHONY: all clean token json lexer parser test
-.PHONY: build_parser debug_parser interfaces
+.PHONY: build_parser debug_parser interfaces time_test
 
 all: interfaces build_parser
 	make test | wc
+	make time_test
 
 test:
 	./run_json_test.sh
 
+time_test:
+	./run_time_test.sh
+
 debug_parser: build_parser
 	ocamldebug ./test_json_parser.byte
 

json/run_time_test.sh

@@ -0,0 +1,8 @@
+#!/bin/bash -x
+
+ocamlopt -p -ccopt -O2 -o time_test_json \
+    json.ml lexer.ml parser.ml time_test_json.ml \
+    && ./time_test_json test_tiny.json \
+    && ./time_test_json test_small.json \
+    && echo Extracting test_medium.json.gz \
+    && time gunzip < test_medium.json.gz | ./time_test_json

json/time_test_json.ml

@@ -0,0 +1,25 @@
+let parse_in_chan in_chan () =
+  Parser.parse_top_level @@ Lexer.lex @@ Stream.of_channel @@ in_chan
+
+let parse_file file () =
+  parse_in_chan @@ open_in file
+
+let time f =
+  let t = Sys.time () in
+  let _ = f () in
+  Printf.printf "\nExecution time: %fs\n" (Sys.time() -. t)
+
+let usage () =
+  Printf.printf "1) Run: %s < input.json\n" Sys.argv.(0) ;
+  Printf.printf "2) Run: %s input.json\n" Sys.argv.(0)
+
+let () =
+  match Array.length Sys.argv with
+  | 1 ->
+    Printf.printf "Parsing JSON from STDIN\n";
+    time @@ parse_in_chan stdin
+  | 2 ->
+    let file = Sys.argv.(1) in
+    Printf.printf "Parsing JSON from the file %s\n" file;
+    time @@ parse_file file
+  | _ -> usage ()