8 Main.with_file filename
Main.parse_sql
11 Error.log
"SQL to C++ Code Generator Version %s (%s)"
13 (Version.revision
>> String.explode
>> List.take
8 >> String.implode
);
15 Error.log
" Usage: %s file_with_statements.sql" (Filename.basename
Sys.executable_name
);
17 Error.log
" Parse given file (treating content as SQL statements) and emit corresponding code to stdout"
20 match Array.to_list
Sys.argv
with
21 | _
::"-test"::_
-> Test.run
()
22 | _
::["-"] -> Main.parse_sql
(Std.input_all stdin
)
23 | _
::[file
] -> work file
26 let _ = Printexc.print
main ()