LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-21 11:03:29 +01:00
Code Releases Activity

Fixed read/write in qp_edit
Some checks failed
continuous-integration/drone/push Build is failing
Details

Browse Source
This commit is contained in:
Anthony Scemama 2024-03-18 17:53:22 +01:00
parent a29c67a738
commit 00859876d5
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
scripts/ezfio_interface/qp_edit_template
View File

@ -156,10 +156,10 @@ let create_temp_file ?filename ezfio_filename fields =
let run check_only ?ndet ?state ?read ?write ezfio_filename = let run check_only ?ndet ?state ?read ?write ezfio_filename =
(* Set check_only if the arguments are not empty *) (* Set check_only if the arguments are not empty *)
let check_only = let open_editor =
match ndet, state, read with match ndet, state, read, write with
| None, None, None -> check_only | None, None, None, None -> not check_only
| _ -> true | _ -> false
in in
(* Open EZFIO *) (* Open EZFIO *)
@ -246,10 +246,7 @@ let run check_only ?ndet ?state ?read ?write ezfio_filename =
in in
let () = if open_editor then
match check_only with
| true -> ()
| false ->
begin begin
(* Open the temp file with external editor *) (* Open the temp file with external editor *)
let editor = let editor =
@ -258,8 +255,7 @@ let run check_only ?ndet ?state ?read ?write ezfio_filename =
in in
Printf.sprintf "%s %s" editor temp_filename Printf.sprintf "%s %s" editor temp_filename
|> Sys.command |> ignore |> Sys.command |> ignore
end end;
in
if write = None then if write = None then
(* Re-read the temp file *) (* Re-read the temp file *)