1/* -----------------------------------------------------------------------------
2 * See the LICENSE file for information on copyright, usage and redistribution
3 * of SWIG, and the README file for authors - http://www.swig.org/release.html.
4 *
5 * ocamldec.swg
6 *
7 * Ocaml runtime code -- declarations
8 * ----------------------------------------------------------------------------- */
9
10#include <stdio.h>
11#include <string.h>
12#include <stdlib.h>
13
14#ifdef __cplusplus
15#define SWIGEXT extern "C"
16SWIGEXT {
17#else
18#define SWIGEXT
19#endif
20#define value caml_value_t
21#define CAML_VALUE caml_value_t
22#include <caml/alloc.h>
23#include <caml/custom.h>
24#include <caml/mlvalues.h>
25#include <caml/memory.h>
26#include <caml/callback.h>
27#include <caml/fail.h>
28#include <caml/misc.h>
29
30#define caml_array_set swig_caml_array_set
31
32// Adapted from memory.h and mlvalues.h
33
34#define SWIG_CAMLlocal1(x) \
35  caml_value_t x = 0; \
36  CAMLxparam1 (x)
37
38#define SWIG_CAMLlocal2(x, y) \
39  caml_value_t x = 0, y = 0; \
40  CAMLxparam2 (x, y)
41
42#define SWIG_CAMLlocal3(x, y, z) \
43  caml_value_t x = 0, y = 0, z = 0; \
44  CAMLxparam3 (x, y, z)
45
46#define SWIG_CAMLlocal4(x, y, z, t) \
47  caml_value_t x = 0, y = 0, z = 0, t = 0; \
48  CAMLxparam4 (x, y, z, t)
49
50#define SWIG_CAMLlocal5(x, y, z, t, u) \
51  caml_value_t x = 0, y = 0, z = 0, t = 0, u = 0; \
52  CAMLxparam5 (x, y, z, t, u)
53
54#define SWIG_CAMLlocalN(x, size) \
55  caml_value_t x [(size)] = { 0, /* 0, 0, ... */ }; \
56  CAMLxparamN (x, (size))
57
58#define SWIG_Field(x, i) (((caml_value_t *)(x)) [i])           /* Also an l-value. */
59#define SWIG_Store_field(block, offset, val) do{ \
60  mlsize_t caml__temp_offset = (offset); \
61  caml_value_t caml__temp_val = (val); \
62  modify (&SWIG_Field ((block), caml__temp_offset), caml__temp_val); \
63}while(0)
64
65#define SWIG_Data_custom_val(v) ((void *) &SWIG_Field((v), 1))
66#ifdef ARCH_BIG_ENDIAN
67#define SWIG_Tag_val(val) (((unsigned char *) (val)) [-1])
68                                                 /* Also an l-value. */
69#define SWIG_Tag_hp(hp) (((unsigned char *) (hp)) [sizeof(caml_value_t)-1])
70                                                 /* Also an l-value. */
71#else
72#define SWIG_Tag_val(val) (((unsigned char *) (val)) [-sizeof(caml_value_t)])
73                                                 /* Also an l-value. */
74#define SWIG_Tag_hp(hp) (((unsigned char *) (hp)) [0])
75                                                 /* Also an l-value. */
76#endif
77
78#ifdef CAMLreturn0
79#undef CAMLreturn0
80#endif
81#define CAMLreturn0 do{ \
82  caml_local_roots = caml__frame; \
83  return; \
84}while (0)
85
86#ifdef CAMLreturn
87#undef CAMLreturn
88#endif
89#define CAMLreturn(result) do{ \
90  caml_value_t caml__temp_result = (result); \
91  caml_local_roots = caml__frame; \
92  return (caml__temp_result); \
93}while(0)
94
95#define CAMLreturn_type(result) do{ \
96  caml_local_roots = caml__frame; \
97  return result; \
98}while(0)
99
100#ifdef CAMLnoreturn
101#undef CAMLnoreturn
102#endif
103#define CAMLnoreturn ((void) caml__frame)
104
105
106#ifndef ARCH_ALIGN_INT64
107#define SWIG_Int64_val(v) (*((int64 *) SWIG_Data_custom_val(v)))
108#else
109CAMLextern int64 Int64_val(caml_value_t v);
110#define SWIG_Int64_val(v) Int64_val(v)
111#endif
112
113#define SWIG_NewPointerObj(p,type,flags) caml_val_ptr(p,type)
114#define SWIG_GetModule(clientdata) SWIG_Ocaml_GetModule()
115#define SWIG_SetModule(clientdata, pointer) SWIG_Ocaml_SetModule(pointer)
116
117#define SWIG_contract_assert(expr, msg) if(!(expr)) {failwith(msg);} else
118
119    SWIGSTATIC int
120    SWIG_GetPtr(void *source, void **result, swig_type_info *type, swig_type_info *result_type);
121
122    SWIGSTATIC void *
123    SWIG_MustGetPtr (CAML_VALUE v,  swig_type_info *type);
124
125    SWIGSTATIC CAML_VALUE _wrap_delete_void( CAML_VALUE );
126
127    SWIGSTATIC int enum_to_int( char *name, CAML_VALUE v );
128    SWIGSTATIC CAML_VALUE int_to_enum( char *name, int v );
129
130    SWIGSTATIC CAML_VALUE caml_list_nth( CAML_VALUE lst, int n );
131    SWIGSTATIC CAML_VALUE caml_list_append( CAML_VALUE lst, CAML_VALUE elt );
132    SWIGSTATIC int caml_list_length( CAML_VALUE lst );
133    SWIGSTATIC CAML_VALUE caml_array_new( int n );
134    SWIGSTATIC void caml_array_set( CAML_VALUE arr, int n, CAML_VALUE item );
135    SWIGSTATIC CAML_VALUE caml_array_nth( CAML_VALUE arr, int n );
136    SWIGSTATIC int caml_array_length( CAML_VALUE arr );
137
138    SWIGSTATIC CAML_VALUE caml_val_char( char c );
139    SWIGSTATIC CAML_VALUE caml_val_uchar( unsigned char c );
140
141    SWIGSTATIC CAML_VALUE caml_val_short( short s );
142    SWIGSTATIC CAML_VALUE caml_val_ushort( unsigned short s );
143
144    SWIGSTATIC CAML_VALUE caml_val_int( int x );
145    SWIGSTATIC CAML_VALUE caml_val_uint( unsigned int x );
146
147    SWIGSTATIC CAML_VALUE caml_val_long( long x );
148    SWIGSTATIC CAML_VALUE caml_val_ulong( unsigned long x );
149
150    SWIGSTATIC CAML_VALUE caml_val_float( float f );
151    SWIGSTATIC CAML_VALUE caml_val_double( double d );
152
153    SWIGSTATIC CAML_VALUE caml_val_ptr( void *p, swig_type_info *descriptor );
154
155    SWIGSTATIC CAML_VALUE caml_val_string( const char *str );
156    SWIGSTATIC CAML_VALUE caml_val_string_len( const char *str, int len );
157
158    SWIGSTATIC long caml_long_val( CAML_VALUE v );
159    SWIGSTATIC double caml_double_val( CAML_VALUE v );
160
161    SWIGSTATIC int caml_ptr_val_internal( CAML_VALUE v, void **out,
162				      swig_type_info *descriptor );
163    SWIGSTATIC void *caml_ptr_val( CAML_VALUE v, swig_type_info *descriptor );
164
165    SWIGSTATIC char *caml_string_val( CAML_VALUE v );
166    SWIGSTATIC int caml_string_len( CAML_VALUE v );
167
168#ifdef __cplusplus
169}
170#endif
171
172/* mzschemedec.swg ends here */
173