Commit | Line | Data |
---|---|---|
feec80c3 C |
1 | (****************************************************************************** |
2 | * Sexplib * | |
3 | * * | |
4 | * Copyright (C) 2005- Jane Street Holding, LLC * | |
5 | * Contact: opensource@janestreet.com * | |
6 | * WWW: http://www.janestreet.com/ocaml * | |
7 | * Author: Markus Mottl * | |
8 | * * | |
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. * | |
13 | * * | |
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. * | |
18 | * * | |
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 * | |
22 | * * | |
23 | ******************************************************************************) | |
24 | ||
25 | module Hashtbl = struct | |
26 | include Hashtbl | |
27 | ||
28 | let sexp_of_t = Conv.sexp_of_hashtbl | |
29 | let t_of_sexp = Conv.hashtbl_of_sexp | |
30 | end | |
31 | ||
32 | module Big_int = struct | |
33 | include Big_int | |
34 | ||
35 | let sexp_of_big_int = Conv.sexp_of_big_int | |
36 | let big_int_of_sexp = Conv.big_int_of_sexp | |
37 | end | |
38 | ||
39 | module Nat = struct | |
40 | include Nat | |
41 | ||
42 | let sexp_of_nat = Conv.sexp_of_nat | |
43 | let nat_of_sexp = Conv.nat_of_sexp | |
44 | end | |
45 | ||
46 | module Num = struct | |
47 | include Num | |
48 | ||
49 | let sexp_of_num = Conv.sexp_of_num | |
50 | let num_of_sexp = Conv.num_of_sexp | |
51 | end | |
52 | ||
53 | module Ratio = struct | |
54 | include Ratio | |
55 | ||
56 | let sexp_of_ratio = Conv.sexp_of_ratio | |
57 | let ratio_of_sexp = Conv.ratio_of_sexp | |
58 | end | |
59 | ||
60 | module Lazy = struct | |
61 | include Lazy | |
62 | ||
63 | let t_of_sexp = Conv.lazy_t_of_sexp | |
64 | let sexp_of_t = Conv.sexp_of_lazy_t | |
65 | end | |
66 | ||
67 | let sexp_of_unit = Conv.sexp_of_unit | |
68 | let unit_of_sexp = Conv.unit_of_sexp | |
69 | ||
70 | let bool_of_sexp = Conv.bool_of_sexp | |
71 | let sexp_of_bool = Conv.sexp_of_bool | |
72 | ||
73 | let string_of_sexp = Conv.string_of_sexp | |
74 | let sexp_of_string = Conv.sexp_of_string | |
75 | ||
76 | let char_of_sexp = Conv.char_of_sexp | |
77 | let sexp_of_char = Conv.sexp_of_char | |
78 | ||
79 | let int_of_sexp = Conv.int_of_sexp | |
80 | let sexp_of_int = Conv.sexp_of_int | |
81 | ||
82 | let float_of_sexp = Conv.float_of_sexp | |
83 | let sexp_of_float = Conv.sexp_of_float | |
84 | ||
85 | let int32_of_sexp = Conv.int32_of_sexp | |
86 | let sexp_of_int32 = Conv.sexp_of_int32 | |
87 | ||
88 | let int64_of_sexp = Conv.int64_of_sexp | |
89 | let sexp_of_int64 = Conv.sexp_of_int64 | |
90 | ||
91 | let nativeint_of_sexp = Conv.nativeint_of_sexp | |
92 | let sexp_of_nativeint = Conv.sexp_of_nativeint | |
93 | ||
94 | let sexp_of_ref = Conv.sexp_of_ref | |
95 | let ref_of_sexp = Conv.ref_of_sexp | |
96 | ||
97 | let sexp_of_lazy_t = Conv.sexp_of_lazy_t | |
98 | let lazy_t_of_sexp = Conv.lazy_t_of_sexp | |
99 | ||
100 | let option_of_sexp = Conv.option_of_sexp | |
101 | let sexp_of_option = Conv.sexp_of_option | |
102 | ||
103 | let list_of_sexp = Conv.list_of_sexp | |
104 | let sexp_of_list = Conv.sexp_of_list | |
105 | ||
106 | let array_of_sexp = Conv.array_of_sexp | |
107 | let sexp_of_array = Conv.sexp_of_array | |
108 | ||
109 | let sexp_of_exn = Conv.sexp_of_exn |