script.it/worker.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

open Js_of_ocaml

let post_message
  : Worker_messages.from_worker -> unit
  = Worker.post_message

let execute (command: [> Worker_messages.to_worker]) =
  match command with
  | `Complete path ->
    begin match Path.Fixed.rebuild path with
      | Some path -> Worker.post_message (`Complete path)
      | None -> ()
    end
  | `DeletePoint (point, path) ->
    begin match Path.Fixed.remove_point path point with
      | Some path ->  Worker.post_message (`Complete path)
      | None -> ()
    end
  | _ ->
    post_message (`Other (Js.string "Unknown message received"))

let () =
  Worker.set_onmessage execute