*)
let main =
- let help = "Usage: transcript [ <package> | <conf_file> ]*" in
- let process_package package = Engine.produce (Engine.make package) in
+ let cwd = ref Filename.current_dir_name in
+ let help = "Usage: transcript [ -C <dir> ] [ <package> | <conf_file> ]*" in
+ let help_C = " set working directory to <dir>" in
+ let help_vp = " verbose parsing" in
+ let help_vl = " verbose lexing" in
+ let help_vx = " verbose character escaping" in
+ let set_cwd dir = cwd := dir in
+ let process_package package = Engine.produce (Engine.make !cwd package) in
Engine.init ();
Arg.parse [
+ ("-C", Arg.String set_cwd, help_C);
+ ("-vp", Arg.Set Options.verbose_parser, help_vp);
+ ("-vl", Arg.Set Options.verbose_lexer, help_vl);
+ ("-vx", Arg.Set Options.verbose_escape, help_vx);
] process_package help