LCPQ/qmcchem
10
1
Fork 1
mirror of https://gitlab.com/scemama/qmcchem.git synced 2024-11-07 06:33:38 +01:00
Code Releases Activity

Fixed OCaml

Browse Source
This commit is contained in:
Anthony Scemama 2018-07-09 19:21:59 +02:00
parent 1542964710
commit 87fed8350a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ocaml/Qmcchem_run.ml
View File

@ -59,22 +59,22 @@ let full_run ?(start_dataserver=true) ezfio_filename =
and address = and address =
Ezfio.get_simulation_http_server () Ezfio.get_simulation_http_server ()
in in
Zmq.Socket.set_receive_timeout socket 100;
let reply = let reply =
try try
( (
Zmq.Socket.set_receive_timeout socket 100;
Zmq.Socket.connect socket address; Zmq.Socket.connect socket address;
Zmq.Socket.send socket (Message.(to_string Test)); Zmq.Socket.send socket (Message.(to_string Test));
Zmq.Socket.recv socket Zmq.Socket.recv socket
) with ) with
| Unix.Unix_error (_,_,_) -> | Unix.Unix_error (_,_,_) ->
begin begin
Zmq.Socket.set_linger_period socket 1 ;
Zmq.Socket.close socket;
Zmq.Context.terminate zmq_context;
"Failed" "Failed"
end end
in in
Zmq.Socket.set_linger_period socket 1 ;
Zmq.Socket.close socket;
Zmq.Context.terminate zmq_context;
reply = "OK" reply = "OK"
in in