support for logging argument

generator/Makefile

@@ -50,9 +50,12 @@ tests/jsref/%.ml:
 tests/%.ml.d: tests/%.ml
 	$(OCAMLDEP) -I $(<D) $< | $(DEPSED) > $@
 
-tests/%.cmi tests/%.log.js tests/%.unlog.js: tests/%.ml main.byte stdlib
+tests/%.cmi tests/%.unlog.js: tests/%.ml main.byte stdlib
 	./main.byte -I $(<D) $<
 
+tests/%.log.js: tests/%.ml tests/%.cmi main.byte stdlib
+	./main.byte -I $(<D) -log $<
+
 tests: $(ML_TESTS:.ml=.log.js)
 
 tests/lambda: tests/lambda/Lambda.log.js

generator/js_of_ast.ml

+open Params
 open Asttypes
 open Attributes
 open Log
@@ -246,7 +247,7 @@ type generate_mode =
   | Mode_line_token
   | Mode_logged
 
-let current_mode = Mode_unlogged
+let current_mode = if !logging then Mode_logged else Mode_unlogged
 
 
 (****************************************************************)