2015-12-29 01:16:19 +01:00
|
|
|
open Core.Std
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
let run ezfio_filename =
|
2016-01-18 20:17:37 +01:00
|
|
|
Qputils.set_ezfio_filename ezfio_filename;
|
2015-12-29 01:16:19 +01:00
|
|
|
let qmcchem_info =
|
|
|
|
|
Lazy.force Qmcchem_config.qmcchem_info
|
|
|
|
|
in
|
|
|
|
|
let prog, args =
|
|
|
|
|
qmcchem_info,
|
|
|
|
|
[ qmcchem_info ; ezfio_filename ]
|
|
|
|
|
in
|
|
|
|
|
ignore @@
|
|
|
|
|
Unix.exec ~prog ~args ()
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
let spec =
|
|
|
|
|
let open Command.Spec in
|
|
|
|
|
empty
|
|
|
|
|
+> anon ("ezfio_file" %: string)
|
|
|
|
|
|
|
|
|
|
let command =
|
|
|
|
|
Command.basic
|
|
|
|
|
~summary: "Display info on an EZFIO database"
|
|
|
|
|
~readme:(fun () ->
|
|
|
|
|
"
|
|
|
|
|
Display info on an EZFIO database
|
|
|
|
|
")
|
|
|
|
|
spec
|
|
|
|
|
(fun ezfio_file () -> run ezfio_file )
|
|
|
|
|
|
|
|
|
|
|
