ocaml-base-compiler.4.10.0/manual/tools/transfmain.ml

9 lines | 209 chars

1	let main() =
2	let lexbuf = Lexing.from_channel stdin in
3	if Array.length Sys.argv >= 2 && Sys.argv.(1) = "-html"
4	then Htmltransf.main lexbuf
5	else Transf.main lexbuf;
6	exit 0;;
7
8	Printexc.print main ();;
9