mirror of
https://gitlab.com/scemama/qmcchem.git
synced 2024-08-30 14:53:42 +02:00
53 lines
810 B
OCaml
53 lines
810 B
OCaml
|
open Qputils
|
||
|
|
||
|
type t =
|
||
|
| Stopped
|
||
|
| Queued
|
||
|
| Running
|
||
|
| Stopping
|
||
|
;;
|
||
|
|
||
|
let of_string = function
|
||
|
| "Stopped" -> Stopped
|
||
|
| "Queued" -> Queued
|
||
|
| "Running" -> Running
|
||
|
| "Stopping" -> Stopping
|
||
|
| _ -> failwith "Invalid status"
|
||
|
;;
|
||
|
|
||
|
let of_int = function
|
||
|
| 0 -> Stopped
|
||
|
| 1 -> Queued
|
||
|
| 2 -> Running
|
||
|
| 3 -> Stopping
|
||
|
| _ -> failwith "Invalid status"
|
||
|
;;
|
||
|
|
||
|
let to_string = function
|
||
|
| Stopped -> "Stopped"
|
||
|
| Queued -> "Queued"
|
||
|
| Running -> "Running"
|
||
|
| Stopping -> "Stopping"
|
||
|
;;
|
||
|
|
||
|
let to_int = function
|
||
|
| Stopped -> 0
|
||
|
| Queued -> 1
|
||
|
| Running -> 2
|
||
|
| Stopping -> 3
|
||
|
;;
|
||
|
|
||
|
|
||
|
let read () =
|
||
|
Ezfio.set_file (Lazy.force ezfio_filename);
|
||
|
Ezfio.get_simulation_do_run ()
|
||
|
|> of_int
|
||
|
;;
|
||
|
|
||
|
let write x =
|
||
|
Ezfio.set_file (Lazy.force ezfio_filename);
|
||
|
to_int x
|
||
|
|> Ezfio.set_simulation_do_run
|
||
|
;;
|
||
|
|