Source file process.ml

open Js_of_ocaml
open Js


class type process =
  object
    method argv: (js_string t) js_array t readonly_prop
    method cwd: js_string t meth
    method exit: int -> 'a meth
    method nextTick: (unit -> unit) callback -> unit meth
  end

let process: process t = Unsafe.eval_string "require('process')"

let next_tick (k:unit -> unit): unit =
  process##nextTick
    (wrap_callback k)

let exit (code:int): 'a  =
  Printf.printf "exiting with code %d\n" code;
  process##exit code

let command_line: string array =
  let arr = to_array process##.argv in
  let len = Array.length arr in
  assert (0 < len);
  Array.map to_string (Array.sub arr 1 (len - 1))

let current_working_directory (_:unit): string =
  to_string process##cwd