ocaml-core / base / core / extended / lib / update_queue.ml

The branch 'bash' does not exist.
open Core.Std

type ('perm, 'state) t = {
  mutable state : 'state option;
  updates : ('state -> 'state) Queue.t;
  mutable watchers : ('state -> unit) list;
  executing : Mutex.t;

let create ?init () = {
  state = init;
  updates = Queue.create ();
  watchers = [];
  executing = Mutex.create ();

let try_lock mtx =
  try Mutex.try_lock mtx with _ -> false

let clear_queue t =
  if try_lock t.executing
  then begin
    let rec loop () =
      match t.state with
      | None -> ()
      | Some state ->
        match Queue.dequeue t.updates with
        | None -> ()
        | Some f ->
          let new_state = f state in
          List.iter t.watchers ~f:(fun f -> f new_state);
          t.state <- Some new_state;
          loop ()
    Exn.protect ~f:loop ~finally:(fun () -> Mutex.unlock t.executing; Queue.clear t.updates)

let init t state =
  if Option.is_some t.state
  then failwith "Update_queue.init: Cannot call init twice"
  else begin
    t.state <- Some state;
    clear_queue t

let enqueue t f =
  Queue.enqueue t.updates f;
  clear_queue t

let watch t ~f = t.watchers <- f :: t.watchers

let map t ~f =
  let new_t = create ?init:(Option.map t.state ~f) () in
  watch t ~f:(fun x -> enqueue new_t (fun _ -> f x));

let read_only t =
  let new_t = create ?init:t.state () in
  watch t ~f:(fun x -> enqueue new_t (fun _ -> x));
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.