LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-22 20:35:19 +01:00
Code Issues Releases Wiki Activity

Added -c option in qp_edit to only check input.

Browse Source
This commit is contained in:
Anthony Scemama 2015-02-23 14:26:12 +01:00
parent 3529950720
commit e37bc2c15f
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ocaml/qp_edit.ml
View File

@ -153,7 +153,7 @@ let create_temp_file ezfio_filename fields =
let run ezfio_filename =
let run check_only ezfio_filename =
(* Open EZFIO *)
if (not (Sys.file_exists_exn ezfio_filename)) then
@ -194,8 +194,13 @@ let run ezfio_filename =
| Some editor -> editor
| None -> "vi"
in
match check_only with
| true -> ()
| false ->
Printf.sprintf "%s %s" editor temp_filename
|> Sys.command_exn ;
|> Sys.command_exn
;
(* Re-read the temp file *)
let temp_string =
@ -231,9 +236,9 @@ let restore_backup ezfio_filename =
let spec =
let open Command.Spec in
empty
+> flag "-c" no_arg
~doc:"Checks the input data"
(*
+> flag "i" (optional string)
~doc:"Prints input data"
+> flag "o" (optional string)
~doc:"Prints output data"
*)
@ -255,9 +260,9 @@ Edit input data
with
| _ msg -> print_string ("\n\nError\n\n"^msg^"\n\n")
*)
(fun ezfio_file () ->
(fun c ezfio_file () ->
try
run ezfio_file ;
run c ezfio_file ;
(* create_backup ezfio_file; *)
with
| Failure exc