mirror of
https://gitlab.com/scemama/qmcchem.git
synced 2024-11-07 06:33:38 +01:00
25 lines
389 B
OCaml
25 lines
389 B
OCaml
|
open Core.Std
|
||
|
|
|
||
|
|
|
||
|
|
let run ezfio_filename =
|
||
|
|
Ezfio.set_file ezfio_filename ;
|
||
|
|
Status.write Status.Stopping
|
||
|
|
|
||
|
|
|
||
|
|
let spec =
|
||
|
|
let open Command.Spec in
|
||
|
|
empty
|
||
|
|
+> anon ("ezfio_file" %: string)
|
||
|
|
|
||
|
|
let command =
|
||
|
|
Command.basic
|
||
|
|
~summary: "Stop a running calculation"
|
||
|
|
~readme:(fun () ->
|
||
|
|
"
|
||
|
|
Stop a running calculation
|
||
|
|
")
|
||
|
|
spec
|
||
|
|
(fun ezfio_file () -> run ezfio_file )
|
||
|
|
|
||
|
|
|