1
(******************************************************************************
4
* Copyright (C) 2005- Jane Street Holding, LLC *
5
* Contact: opensource@janestreet.com *
6
* WWW: http://www.janestreet.com/ocaml *
7
* Author: Markus Mottl *
9
* This library is free software; you can redistribute it and/or *
10
* modify it under the terms of the GNU Lesser General Public *
11
* License as published by the Free Software Foundation; either *
12
* version 2 of the License, or (at your option) any later version. *
14
* This library is distributed in the hope that it will be useful, *
15
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
16
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
17
* Lesser General Public License for more details. *
19
* You should have received a copy of the GNU Lesser General Public *
20
* License along with this library; if not, write to the Free Software *
21
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
23
******************************************************************************)
25
1
module Hashtbl = struct
67
43
let sexp_of_unit = Conv.sexp_of_unit
68
44
let unit_of_sexp = Conv.unit_of_sexp
46
let sexp_of_bool = Conv.sexp_of_bool
70
47
let bool_of_sexp = Conv.bool_of_sexp
71
let sexp_of_bool = Conv.sexp_of_bool
49
let sexp_of_string = Conv.sexp_of_string
73
50
let string_of_sexp = Conv.string_of_sexp
74
let sexp_of_string = Conv.sexp_of_string
52
let sexp_of_char = Conv.sexp_of_char
76
53
let char_of_sexp = Conv.char_of_sexp
77
let sexp_of_char = Conv.sexp_of_char
55
let sexp_of_int = Conv.sexp_of_int
79
56
let int_of_sexp = Conv.int_of_sexp
80
let sexp_of_int = Conv.sexp_of_int
58
let sexp_of_float = Conv.sexp_of_float
82
59
let float_of_sexp = Conv.float_of_sexp
83
let sexp_of_float = Conv.sexp_of_float
61
let sexp_of_int32 = Conv.sexp_of_int32
85
62
let int32_of_sexp = Conv.int32_of_sexp
86
let sexp_of_int32 = Conv.sexp_of_int32
64
let sexp_of_int64 = Conv.sexp_of_int64
88
65
let int64_of_sexp = Conv.int64_of_sexp
89
let sexp_of_int64 = Conv.sexp_of_int64
67
let sexp_of_nativeint = Conv.sexp_of_nativeint
91
68
let nativeint_of_sexp = Conv.nativeint_of_sexp
92
let sexp_of_nativeint = Conv.sexp_of_nativeint
94
70
let sexp_of_ref = Conv.sexp_of_ref
95
71
let ref_of_sexp = Conv.ref_of_sexp
97
73
let sexp_of_lazy_t = Conv.sexp_of_lazy_t
98
74
let lazy_t_of_sexp = Conv.lazy_t_of_sexp
76
let sexp_of_option = Conv.sexp_of_option
100
77
let option_of_sexp = Conv.option_of_sexp
101
let sexp_of_option = Conv.sexp_of_option
79
let sexp_of_list = Conv.sexp_of_list
103
80
let list_of_sexp = Conv.list_of_sexp
104
let sexp_of_list = Conv.sexp_of_list
82
let sexp_of_array = Conv.sexp_of_array
106
83
let array_of_sexp = Conv.array_of_sexp
107
let sexp_of_array = Conv.sexp_of_array
109
85
let sexp_of_exn = Conv.sexp_of_exn