sqlgg.ml

   1 (** command-line *)
   2
   3 open Printf
   4
   5 let work = function
   6   | "-" -> Main.parse_sql (Std.input_all stdin)
   7   | filename -> Main.with_file filename Main.parse_sql
   8
   9 let usage_msg =
  10   let s1 = sprintf "SQL Guided (code) Generator ver. %s\n" Config.version in
  11   let s2 = sprintf "Usage: %s <options> <file.sql>\n" (Filename.basename Sys.executable_name) in
  12   let s3 = "Options are:" in
  13   s1 ^ s2 ^ s3
  14
  15 let show_version () = print_endline Config.version
  16
  17 let main () =
  18   let args =
  19   [
  20     "-version", Arg.Unit show_version, " Show version";
  21     "-test", Arg.Unit Test.run, " Run unit tests";
  22   ]
  23   in
  24   Arg.parse (Arg.align args) work usage_msg
  25
  26 let _ = Printexc.print main ()
  27