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 |