software-archive/logarion-2016
2
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

versioned filespace

Browse Source
This commit is contained in:
Stavros Polymenis 2016-11-05 20:09:53 +00:00
parent ae73085088
commit a3cd61e5fb
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/logarion.ml
View File

@ -41,9 +41,14 @@ let file_meta_pairs () =
let t y = (y, (of_file ("ymd/" ^ y)).Ymd.meta) in
List.map t ymds
let rec next_filepath ?(version=0) ymd =
let candidate = "ymd/" ^ (Ymd.filename ymd) ^ "." ^ (string_of_int version) ^ ".ymd" in
if Sys.file_exists candidate then next_filepath ~version:(version+1) ymd
else candidate
let to_file ymd =
let fmp = file_meta_pairs () in
let path = ("ymd/" ^ (Ymd.filename ymd) ^ ".ymd") in
let path = next_filepath ymd in
let write_ymd out = Lwt_io.write out (Ymd.to_string ymd) in
let open Ymd in
(try