manual/tools/transfmain.ml


1
2
3
4
5
6
7
8

let main() =
  let lexbuf = Lexing.from_channel stdin in
  if Array.length Sys.argv >= 2 && Sys.argv.(1) = "-html"
  then Htmltransf.main lexbuf
  else Transf.main lexbuf;
  exit 0;;

Printexc.print main ();;