Lines Matching refs:let
37 let rec invoke obj =
42 let _ = Callback.register "swig_runmethod" invoke
44 let fnhelper arg =
47 let rec get_int x =
65 let rec get_float x =
81 let rec get_char x =
84 let rec get_string x =
89 let rec get_bool x =
96 let disown_object obj =
100 let _ = Callback.register "caml_obj_disown" disown_object
101 let addr_of obj =
107 let _ = Callback.register "caml_obj_ptr" addr_of
109 let make_float f = C_float f
110 let make_double f = C_double f
111 let make_string s = C_string s
112 let make_bool b = C_bool b
113 let make_char c = C_char c
114 let make_char_i c = C_char (char_of_int c)
115 let make_uchar c = C_uchar c
116 let make_uchar_i c = C_uchar (char_of_int c)
117 let make_short i = C_short i
118 let make_ushort i = C_ushort i
119 let make_int i = C_int i
120 let make_uint i = C_uint (Int32.of_int i)
121 let make_int32 i = C_int32 (Int32.of_int i)
122 let make_int64 i = C_int64 (Int64.of_int i)
124 let new_derived_object cfun x_class args =
126 let get_object ob =
131 let ob_ref = ref None in
132 let class_fun class_f ob_r =
134 let new_class = class_fun x_class ob_ref in
135 let dircore = C_director_core (C_obj new_class,ob_ref) in
136 let obj =
145 let swig_current_type_info = ref C_void
146 let find_type_info obj = !swig_current_type_info
147 let _ = Callback.register "swig_find_type_info" find_type_info
148 let set_type_info obj =
153 let _ = Callback.register "swig_set_type_info" set_type_info
155 let class_master_list = Hashtbl.create 20
156 let register_class_byname nm co =
158 let create_class nm arg =