LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-26 07:02:14 +02:00
Code Issues Releases Wiki Activity

Fixed #140

Browse Source
This commit is contained in:
Anthony Scemama 2016-02-19 19:04:03 +01:00
parent d4357a0042
commit 21143afb4f
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ocaml/qp_run.ml
View File

@ -54,7 +54,11 @@ let run ~master exe ezfio_file =
let executables = Lazy.force Qpackage.executables in
if (not (List.exists ~f:(fun (x,_) -> x = exe) executables)) then
failwith ("Executable "^exe^" not found");
begin
Printf.printf "\nPossible choices:\n";
List.iter executables ~f:(fun (x,_) -> Printf.printf "* %s\n%!" x);
failwith ("Executable "^exe^" not found")
end;
Printf.printf "%s\n" (Time.to_string time_start);
Printf.printf "===============\nQuantum Package\n===============\n\n";
@ -96,8 +100,8 @@ let run ~master exe ezfio_file =
| None -> ""
and exe =
match (List.find ~f:(fun (x,_) -> x = exe) executables) with
| None -> assert false
| Some (_,x) -> x^" "
| None -> assert false
in
match (Sys.command (prefix^exe^ezfio_file)) with
| 0 -> ()