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
43
44
45
46
|
(***********************************************************************)
(* *)
(* Objective Caml *)
(* *)
(* Luc Maranget, projet Moscova, INRIA Rocquencourt *)
(* *)
(* Copyright 2004 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *)
(* under the terms of the Q Public License version 1.0. *)
(* *)
(***********************************************************************)
(* $Id: join.ml 12959 2012-09-27 13:12:51Z maranget $ *)
open Join_types
type 'a chan = 'a async
exception Exit = Join_misc.JoinExit
def exception Exit
def exception Not_found (* Name service *)
def exception Match_failure
def exception Assert_failure
def exception Invalid_argument
def exception Failure
def exception Out_of_memory
def exception Stack_overflow
def exception Sys_error
def exception End_of_file
def exception Division_by_zero
def exception Sys_blocked_io
def exception Undefined_recursive_module
let exit_hook = Join_scheduler.exit_hook
(* Debug from users programs *)
type 'a debug = string -> (('a, unit, string, unit) format4 -> 'a)
let debug = Join_debug.debug
module Site = Site
module Ns = Ns
|
