let help_p = " verbose parsing" in
let help_x = " verbose character escaping" in
let set_cwd dir = Options.cwd := dir; Engine.init () in
- let process_package package = Engine.produce (Engine.make package) in
+ let process_file file =
+ if Sys.file_exists file || Sys.file_exists (file ^ Engine.suffix) then
+ begin Engine.produce (Engine.make file); Options.sources := [] end
+ else
+ Options.sources := file :: !Options.sources
+ in
Arg.parse [
("-C", Arg.String set_cwd, help_C);
("-g", Arg.Set Options.getter, help_g);
("-m", Arg.Clear Options.comments, help_m);
("-p", Arg.Set Options.verbose_parser, help_p);
("-x", Arg.Set Options.verbose_escape, help_x);
- ] process_package help
+ ] process_file help