LCPQ
/
qmcchem
mirror of https://gitlab.com/scemama/qmcchem.git
10
1
Fork 1
Code Releases Activity

Seems to work again

This commit is contained in:
Anthony Scemama 2019-07-23 17:34:58 +02:00
parent 380169d219
commit f7ffed3a5a
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ocaml/Block.ml
View File

@ -150,7 +150,7 @@ let raw_data ?(locked=true) () =
let properties = lazy (
let h = Hashtbl.create 63 in
List.iter (fun x ->
Hashtbl.add h (Property.to_string x.property) x.property)
Hashtbl.replace h (Property.to_string x.property) x.property)
(raw_data ());
Hashtbl.fold (fun k v a -> v :: a) h []
)

8
ocaml/Time.ml
View File

@ -10,15 +10,15 @@ let to_sec t =
sec +
min * 60 +
hour * 60 * 60 +
mday * 60 * 60 * 24
(mday-1) * 60 * 60 * 24
let string_of_t t =
let mday = t.Unix.tm_mday in
let mday = t.Unix.tm_mday - 1 in
let sec = t.Unix.tm_sec
and min = t.Unix.tm_min
and hour = t.Unix.tm_hour + 24*mday
in
Printf.sprintf "%2d:%2d:%2d" hour min sec
Printf.sprintf "%2d:%2.2d:%2.2d" hour min sec
let string_of_date t =
let year = 1900 + t.Unix.tm_year in
@ -35,7 +35,7 @@ let string_of_date t =
| 8 -> "Sep" | 9 -> "Oct" | 10 -> "Nov" | 11 -> "Dec"
| _ -> assert false
in
Printf.sprintf "%2d %3s %4d - %2.2d:%2.2d:%2.2d" mday month year hour min sec
Printf.sprintf "%2d %3s %4d - %2d:%2.2d:%2.2d" mday month year hour min sec
let string_of_now () =