PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-22 04:13:55 +01:00
Code Releases Activity

Fixed read/write in qp_edit

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