sql2cpp.ml

   1 (** command-line *)
   2
   3 open ListMore
   4 open ExtString
   5 open Operators
   6
   7 let work filename =
   8   Main.with_file filename Main.parse_sql
   9
  10 let show_help () =
  11   Error.log "SQL to C++ Code Generator Version %s (%s)"
  12     Version.version
  13     (Version.revision >> String.explode >> List.take 8 >> String.implode);
  14   Error.log "";
  15   Error.log " Usage: %s file_with_statements.sql" (Filename.basename Sys.executable_name);
  16   Error.log "";
  17   Error.log " Parse given file (treating content as SQL statements) and emit corresponding code to stdout"
  18
  19 let main () =
  20   match Array.to_list Sys.argv with
  21   | _::"-test"::_ -> Test.run ()
  22   | _::["-"] -> Main.parse_sql (Std.input_all stdin)
  23   | _::[file] -> work file
  24   | _ -> show_help ()
  25
  26 let _ = Printexc.print main ()
  27