package git-kv
A Mirage_kv implementation using git
Install
Dune Dependency
Authors
Maintainers
Sources
git-kv-0.2.0.tbz
sha256=40de3010d82dd8e9229e7df09c0a649e81efd47e991ef6eb31ee0c713dfe400d
sha512=fe70e3d1ad0f2a07dfd594ea87b4a4fcc1fe5633ced537206e61d566a2f97061dd0b348b1e93b8de1196af5878f307b7a3f595b1b51b25da89ee918328b977d9
doc/src/git-kv.mem/git_shallow.ml.html
Source file git_shallow.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
open Lwt.Infix module SHA1 = Digestif.SHA1 type t = { r: Lwt_mutex.t; mutable b: int; g: Lwt_mutex.t; mutable shallow: SHA1.t list; } (* XXX(dinosaure): simple Raynal's readers/writer lock. *) let safely_get ~f t = Lwt_mutex.lock t.r >>= fun () -> t.b <- succ t.b; (if t.b = 1 then Lwt_mutex.lock t.g else Lwt.return ()) >>= fun () -> Lwt_mutex.unlock t.r; let res = f t.shallow in Lwt_mutex.lock t.r >>= fun () -> t.b <- pred t.b; if t.b = 0 then Lwt_mutex.unlock t.g; Lwt_mutex.unlock t.r; Lwt.return res let identity x = x let exists t ~equal uid = safely_get ~f:(List.exists (equal uid)) t let get t = safely_get ~f:identity t let append t uid = Lwt_mutex.lock t.g >>= fun () -> t.shallow <- uid :: t.shallow; Lwt_mutex.unlock t.g; Lwt.return_unit let remove t ~equal uid = Lwt_mutex.lock t.g >>= fun () -> t.shallow <- List.filter (fun uid' -> not (equal uid uid')) t.shallow; Lwt_mutex.unlock t.g; Lwt.return_unit let make shallow = {r= Lwt_mutex.create (); b= 0; g= Lwt_mutex.create (); shallow}
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>