← Back to branch summary

~ubuntu-branches/ubuntu/edgy/libapache2-mod-perl2/edgy-updates

« back to all changes in this revision

Viewing changes to xs/modperl_xs_sv_convert.h

  • Committer: Bazaar Package Importer
  • Author(s): Adam Conrad
  • Date: 2004-08-19 06:23:48 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20040819062348-jxl4koqbtvgm8v2t
Tags: 1.99.14-4
Remove the LFS CFLAGS, and build-dep against apache2-*-dev (>= 2.0.50-10)
as we're backing out of the apache2/apr ABI transition.

Show diffs side-by-side

added added

removed removed

Lines of Context:
xs/modperl_xs_sv_convert.h
 
1
 
 
2
/*
 
3
 * *********** WARNING **************
 
4
 * This file generated by ModPerl::WrapXS/0.01
 
5
 * Any changes made here will be lost
 
6
 * ***********************************
 
7
 * 01: lib/ModPerl/WrapXS.pm:610
 
8
 * 02: lib/ModPerl/WrapXS.pm:1039
 
9
 * 03: Makefile.PL:290
 
10
 * 04: Makefile.PL:238
 
11
 * 05: Makefile.PL:49
 
12
 */
 
13
 
 
14
 
 
15
#ifndef MODPERL_XS_SV_CONVERT_H
 
16
#define MODPERL_XS_SV_CONVERT_H
 
17
 
 
18
#define mp_xs_sv2_APR__Pool(sv) \
 
19
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
20
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::Pool derived object)"),0) ? \
 
21
(apr_pool_t *)SvIV((SV*)SvRV(sv)) : (apr_pool_t *)NULL)
 
22
 
 
23
#define mp_xs_APR__Pool_2obj(ptr) \
 
24
sv_setref_pv(sv_newmortal(), "APR::Pool", (void*)ptr)
 
25
 
 
26
#define mp_xs_sv2_APR__UUID(sv) \
 
27
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
28
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::UUID derived object)"),0) ? \
 
29
(apr_uuid_t *)SvIV((SV*)SvRV(sv)) : (apr_uuid_t *)NULL)
 
30
 
 
31
#define mp_xs_sv2_uuid mp_xs_sv2_APR__UUID
 
32
 
 
33
#define mp_xs_APR__UUID_2obj(ptr) \
 
34
sv_setref_pv(sv_newmortal(), "APR::UUID", (void*)ptr)
 
35
 
 
36
#define mp_xs_uuid_2obj mp_xs_APR__UUID_2obj
 
37
 
 
38
#define mp_xs_sv2_Apache__Module(sv) \
 
39
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
40
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache::Module derived object)"),0) ? \
 
41
(module_struct *)SvIV((SV*)SvRV(sv)) : (module_struct *)NULL)
 
42
 
 
43
#define mp_xs_Apache__Module_2obj(ptr) \
 
44
sv_setref_pv(sv_newmortal(), "Apache::Module", (void*)ptr)
 
45
 
 
46
#define mp_xs_sv2_unsigned(sv) (unsigned)SvUV(sv)
 
47
 
 
48
#define mp_xs_sv2_APR__Bucket(sv) \
 
49
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
50
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::Bucket derived object)"),0) ? \
 
51
(apr_bucket *)SvIV((SV*)SvRV(sv)) : (apr_bucket *)NULL)
 
52
 
 
53
#define mp_xs_APR__Bucket_2obj(ptr) \
 
54
sv_setref_pv(sv_newmortal(), "APR::Bucket", (void*)ptr)
 
55
 
 
56
#define mp_xs_sv2_Apache__Process(sv) \
 
57
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
58
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache::Process derived object)"),0) ? \
 
59
(process_rec *)SvIV((SV*)SvRV(sv)) : (process_rec *)NULL)
 
60
 
 
61
#define mp_xs_Apache__Process_2obj(ptr) \
 
62
sv_setref_pv(sv_newmortal(), "Apache::Process", (void*)ptr)
 
63
 
 
64
#define mp_xs_sv2_apr_time_t(sv) (apr_time_t)SvNV(sv)
 
65
 
 
66
#define mp_xs_sv2_apr_uint64_t(sv) (apr_uint64_t)SvNV(sv)
 
67
 
 
68
#define mp_xs_sv2_apr_port_t(sv) (apr_port_t)SvIV(sv)
 
69
 
 
70
#define mp_xs_sv2_Apache__ConfVector(sv) \
 
71
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
72
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache::ConfVector derived object)"),0) ? \
 
73
(ap_conf_vector_t *)SvIV((SV*)SvRV(sv)) : (ap_conf_vector_t *)NULL)
 
74
 
 
75
#define mp_xs_Apache__ConfVector_2obj(ptr) \
 
76
sv_setref_pv(sv_newmortal(), "Apache::ConfVector", (void*)ptr)
 
77
 
 
78
#define mp_xs_sv2_Apache__Filter(sv) \
 
79
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
80
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache::Filter derived object)"),0) ? \
 
81
(ap_filter_t *)SvIV((SV*)SvRV(sv)) : (ap_filter_t *)NULL)
 
82
 
 
83
#define mp_xs_Apache__Filter_2obj(ptr) \
 
84
sv_setref_pv(sv_newmortal(), "Apache::Filter", (void*)ptr)
 
85
 
 
86
#define mp_xs_sv2_apr_uid_t(sv) (apr_uid_t)SvIV(sv)
 
87
 
 
88
#define mp_xs_sv2_gid_t(sv) (gid_t)SvIV(sv)
 
89
 
 
90
#define mp_xs_sv2_apr_read_type_e(sv) (apr_read_type_e)SvIV(sv)
 
91
 
 
92
#define mp_xs_sv2_apr_off_t(sv) (apr_off_t)SvIV(sv)
 
93
 
 
94
#define mp_xs_sv2_Apache__FilterRec(sv) \
 
95
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
96
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache::FilterRec derived object)"),0) ? \
 
97
(ap_filter_rec_t *)SvIV((SV*)SvRV(sv)) : (ap_filter_rec_t *)NULL)
 
98
 
 
99
#define mp_xs_Apache__FilterRec_2obj(ptr) \
 
100
sv_setref_pv(sv_newmortal(), "Apache::FilterRec", (void*)ptr)
 
101
 
 
102
#define mp_xs_sv2_Apache__SubRequest(sv) \
 
103
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
104
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache::SubRequest derived object)"),0) ? \
 
105
(subrequest_rec *)SvIV((SV*)SvRV(sv)) : (subrequest_rec *)NULL)
 
106
 
 
107
#define mp_xs_Apache__SubRequest_2obj(ptr) \
 
108
sv_setref_pv(sv_newmortal(), "Apache::SubRequest", (void*)ptr)
 
109
 
 
110
#define mp_xs_sv2_int(sv) (int)SvIV(sv)
 
111
 
 
112
#define mp_xs_sv2_APR__MD5(sv) \
 
113
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
114
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::MD5 derived object)"),0) ? \
 
115
(apr_md5_ctx_t *)SvIV((SV*)SvRV(sv)) : (apr_md5_ctx_t *)NULL)
 
116
 
 
117
#define mp_xs_APR__MD5_2obj(ptr) \
 
118
sv_setref_pv(sv_newmortal(), "APR::MD5", (void*)ptr)
 
119
 
 
120
#define mp_xs_sv2_apr_int64_t(sv) (apr_int64_t)SvNV(sv)
 
121
 
 
122
#define mp_xs_sv2_Apache__PipedLog(sv) \
 
123
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
124
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache::PipedLog derived object)"),0) ? \
 
125
(piped_log *)SvIV((SV*)SvRV(sv)) : (piped_log *)NULL)
 
126
 
 
127
#define mp_xs_Apache__PipedLog_2obj(ptr) \
 
128
sv_setref_pv(sv_newmortal(), "Apache::PipedLog", (void*)ptr)
 
129
 
 
130
#define mp_xs_sv2_APR__TableEntry(sv) \
 
131
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
132
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::TableEntry derived object)"),0) ? \
 
133
(apr_table_entry_t *)SvIV((SV*)SvRV(sv)) : (apr_table_entry_t *)NULL)
 
134
 
 
135
#define mp_xs_APR__TableEntry_2obj(ptr) \
 
136
sv_setref_pv(sv_newmortal(), "APR::TableEntry", (void*)ptr)
 
137
 
 
138
#define mp_xs_sv2_Apache__ServerAddr(sv) \
 
139
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
140
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache::ServerAddr derived object)"),0) ? \
 
141
(server_addr_rec *)SvIV((SV*)SvRV(sv)) : (server_addr_rec *)NULL)
 
142
 
 
143
#define mp_xs_Apache__ServerAddr_2obj(ptr) \
 
144
sv_setref_pv(sv_newmortal(), "Apache::ServerAddr", (void*)ptr)
 
145
 
 
146
#define mp_xs_sv2_APR__Table(sv) \
 
147
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
148
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::Table derived object)"),0) ? \
 
149
(apr_table_t *)SvIV((SV*)SvRV(sv)) : (apr_table_t *)NULL)
 
150
 
 
151
#define mp_xs_sv2_table mp_xs_sv2_APR__Table
 
152
 
 
153
#define mp_xs_APR__Table_2obj(ptr) \
 
154
sv_setref_pv(sv_newmortal(), "APR::Table", (void*)ptr)
 
155
 
 
156
#define mp_xs_table_2obj mp_xs_APR__Table_2obj
 
157
 
 
158
#define mp_xs_sv2_U32(sv) (U32)SvUV(sv)
 
159
 
 
160
#define mp_xs_sv2_APR__URI(sv) \
 
161
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
162
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::URI derived object)"),0) ? \
 
163
(apr_uri_t *)SvIV((SV*)SvRV(sv)) : (apr_uri_t *)NULL)
 
164
 
 
165
#define mp_xs_APR__URI_2obj(ptr) \
 
166
sv_setref_pv(sv_newmortal(), "APR::URI", (void*)ptr)
 
167
 
 
168
#define mp_xs_sv2_Apache__ConfigFile(sv) \
 
169
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
170
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache::ConfigFile derived object)"),0) ? \
 
171
(ap_configfile_t *)SvIV((SV*)SvRV(sv)) : (ap_configfile_t *)NULL)
 
172
 
 
173
#define mp_xs_Apache__ConfigFile_2obj(ptr) \
 
174
sv_setref_pv(sv_newmortal(), "Apache::ConfigFile", (void*)ptr)
 
175
 
 
176
#define mp_xs_sv2_Apache__Command(sv) \
 
177
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
178
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache::Command derived object)"),0) ? \
 
179
(command_rec *)SvIV((SV*)SvRV(sv)) : (command_rec *)NULL)
 
180
 
 
181
#define mp_xs_Apache__Command_2obj(ptr) \
 
182
sv_setref_pv(sv_newmortal(), "Apache::Command", (void*)ptr)
 
183
 
 
184
#define mp_xs_sv2_APR__SockInfo(sv) \
 
185
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
186
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::SockInfo derived object)"),0) ? \
 
187
(apr_os_sock_info_t *)SvIV((SV*)SvRV(sv)) : (apr_os_sock_info_t *)NULL)
 
188
 
 
189
#define mp_xs_APR__SockInfo_2obj(ptr) \
 
190
sv_setref_pv(sv_newmortal(), "APR::SockInfo", (void*)ptr)
 
191
 
 
192
#define mp_xs_sv2_APR__ArrayHeader(sv) \
 
193
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
194
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::ArrayHeader derived object)"),0) ? \
 
195
(apr_array_header_t *)SvIV((SV*)SvRV(sv)) : (apr_array_header_t *)NULL)
 
196
 
 
197
#define mp_xs_APR__ArrayHeader_2obj(ptr) \
 
198
sv_setref_pv(sv_newmortal(), "APR::ArrayHeader", (void*)ptr)
 
199
 
 
200
#define mp_xs_sv2_apr_status_t(sv) (apr_status_t)SvIV(sv)
 
201
 
 
202
#define mp_xs_sv2_status mp_xs_sv2_apr_status_t
 
203
 
 
204
#define mp_xs_sv2_apr_ino_t(sv) (apr_ino_t)SvIV(sv)
 
205
 
 
206
#define mp_xs_sv2_Apache__MethodList(sv) \
 
207
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
208
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache::MethodList derived object)"),0) ? \
 
209
(ap_method_list_t *)SvIV((SV*)SvRV(sv)) : (ap_method_list_t *)NULL)
 
210
 
 
211
#define mp_xs_Apache__MethodList_2obj(ptr) \
 
212
sv_setref_pv(sv_newmortal(), "Apache::MethodList", (void*)ptr)
 
213
 
 
214
#define mp_xs_sv2_APR__Mmap(sv) \
 
215
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
216
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::Mmap derived object)"),0) ? \
 
217
(apr_mmap_t *)SvIV((SV*)SvRV(sv)) : (apr_mmap_t *)NULL)
 
218
 
 
219
#define mp_xs_APR__Mmap_2obj(ptr) \
 
220
sv_setref_pv(sv_newmortal(), "APR::Mmap", (void*)ptr)
 
221
 
 
222
#define mp_xs_sv2_APR__ThreadMutex(sv) \
 
223
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
224
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::ThreadMutex derived object)"),0) ? \
 
225
(apr_thread_mutex_t *)SvIV((SV*)SvRV(sv)) : (apr_thread_mutex_t *)NULL)
 
226
 
 
227
#define mp_xs_APR__ThreadMutex_2obj(ptr) \
 
228
sv_setref_pv(sv_newmortal(), "APR::ThreadMutex", (void*)ptr)
 
229
 
 
230
#define mp_xs_sv2_apr_uint16_t(sv) (apr_uint16_t)SvIV(sv)
 
231
 
 
232
#define mp_xs_sv2_APR__Socket(sv) \
 
233
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
234
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::Socket derived object)"),0) ? \
 
235
(apr_socket_t *)SvIV((SV*)SvRV(sv)) : (apr_socket_t *)NULL)
 
236
 
 
237
#define mp_xs_APR__Socket_2obj(ptr) \
 
238
sv_setref_pv(sv_newmortal(), "APR::Socket", (void*)ptr)
 
239
 
 
240
#define mp_xs_sv2_apr_int32_t(sv) (apr_int32_t)SvIV(sv)
 
241
 
 
242
#define mp_xs_sv2_size_t(sv) (size_t)SvIV(sv)
 
243
 
 
244
#define mp_xs_sv2_APR__BucketAlloc(sv) \
 
245
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
246
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::BucketAlloc derived object)"),0) ? \
 
247
(apr_bucket_alloc_t *)SvIV((SV*)SvRV(sv)) : (apr_bucket_alloc_t *)NULL)
 
248
 
 
249
#define mp_xs_APR__BucketAlloc_2obj(ptr) \
 
250
sv_setref_pv(sv_newmortal(), "APR::BucketAlloc", (void*)ptr)
 
251
 
 
252
#define mp_xs_sv2_apr_interval_time_t(sv) (apr_interval_time_t)SvNV(sv)
 
253
 
 
254
#define mp_xs_sv2_apr_ssize_t(sv) (apr_ssize_t)SvIV(sv)
 
255
 
 
256
#define mp_xs_sv2_APR__GetoptOption(sv) \
 
257
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
258
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::GetoptOption derived object)"),0) ? \
 
259
(apr_getopt_option_t *)SvIV((SV*)SvRV(sv)) : (apr_getopt_option_t *)NULL)
 
260
 
 
261
#define mp_xs_APR__GetoptOption_2obj(ptr) \
 
262
sv_setref_pv(sv_newmortal(), "APR::GetoptOption", (void*)ptr)
 
263
 
 
264
#define mp_xs_sv2_long(sv) (long)SvIV(sv)
 
265
 
 
266
#define mp_xs_sv2_ap_conn_keepalive_e(sv) (ap_conn_keepalive_e)SvIV(sv)
 
267
 
 
268
#define mp_xs_sv2_ap_scoreboard_e(sv) (ap_scoreboard_e)SvIV(sv)
 
269
 
 
270
#define mp_xs_sv2_ap_mgmt_type_e(sv) (ap_mgmt_type_e)SvIV(sv)
 
271
 
 
272
#define mp_xs_sv2_APR__Process(sv) \
 
273
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
274
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::Process derived object)"),0) ? \
 
275
(apr_proc_t *)SvIV((SV*)SvRV(sv)) : (apr_proc_t *)NULL)
 
276
 
 
277
#define mp_xs_APR__Process_2obj(ptr) \
 
278
sv_setref_pv(sv_newmortal(), "APR::Process", (void*)ptr)
 
279
 
 
280
#define mp_xs_sv2_Apache__Server(sv) \
 
281
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
282
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache::Server derived object)"),0) ? \
 
283
(server_rec *)SvIV((SV*)SvRV(sv)) : (server_rec *)NULL)
 
284
 
 
285
#define mp_xs_sv2_server mp_xs_sv2_Apache__Server
 
286
 
 
287
#define mp_xs_Apache__Server_2obj(ptr) \
 
288
sv_setref_pv(sv_newmortal(), "Apache::Server", (void*)ptr)
 
289
 
 
290
#define mp_xs_server_2obj mp_xs_Apache__Server_2obj
 
291
 
 
292
#define mp_xs_sv2_Apache__FilterType(sv) \
 
293
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
294
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache::FilterType derived object)"),0) ? \
 
295
(ap_filter_type *)SvIV((SV*)SvRV(sv)) : (ap_filter_type *)NULL)
 
296
 
 
297
#define mp_xs_Apache__FilterType_2obj(ptr) \
 
298
sv_setref_pv(sv_newmortal(), "Apache::FilterType", (void*)ptr)
 
299
 
 
300
#define mp_xs_sv2_Apache__OutputFilter(sv) \
 
301
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
302
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache::OutputFilter derived object)"),0) ? \
 
303
(modperl_filter_t *)SvIV((SV*)SvRV(sv)) : (modperl_filter_t *)NULL)
 
304
 
 
305
#define mp_xs_Apache__OutputFilter_2obj(ptr) \
 
306
sv_setref_pv(sv_newmortal(), "Apache::OutputFilter", (void*)ptr)
 
307
 
 
308
#define mp_xs_sv2_Apache__Directive(sv) \
 
309
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
310
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache::Directive derived object)"),0) ? \
 
311
(ap_directive_t *)SvIV((SV*)SvRV(sv)) : (ap_directive_t *)NULL)
 
312
 
 
313
#define mp_xs_Apache__Directive_2obj(ptr) \
 
314
sv_setref_pv(sv_newmortal(), "Apache::Directive", (void*)ptr)
 
315
 
 
316
#define mp_xs_sv2_Apache__RequestRec(sv) \
 
317
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
318
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache::RequestRec derived object)"),0) ? \
 
319
(request_rec *)SvIV((SV*)SvRV(sv)) : (request_rec *)NULL)
 
320
 
 
321
#define mp_xs_sv2_r mp_xs_sv2_Apache__RequestRec
 
322
 
 
323
#define mp_xs_Apache__RequestRec_2obj(ptr) \
 
324
sv_setref_pv(sv_newmortal(), "Apache::RequestRec", (void*)ptr)
 
325
 
 
326
#define mp_xs_r_2obj mp_xs_Apache__RequestRec_2obj
 
327
 
 
328
#define mp_xs_sv2_apr_gid_t(sv) (apr_gid_t)SvIV(sv)
 
329
 
 
330
#define mp_xs_sv2_ap_input_mode_t(sv) (ap_input_mode_t)SvIV(sv)
 
331
 
 
332
#define mp_xs_sv2_APR__Finfo(sv) \
 
333
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
334
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::Finfo derived object)"),0) ? \
 
335
(apr_finfo_t *)SvIV((SV*)SvRV(sv)) : (apr_finfo_t *)NULL)
 
336
 
 
337
#define mp_xs_APR__Finfo_2obj(ptr) \
 
338
sv_setref_pv(sv_newmortal(), "APR::Finfo", (void*)ptr)
 
339
 
 
340
#define mp_xs_sv2_APR__SHA1(sv) \
 
341
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
342
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::SHA1 derived object)"),0) ? \
 
343
(apr_sha1_ctx_t *)SvIV((SV*)SvRV(sv)) : (apr_sha1_ctx_t *)NULL)
 
344
 
 
345
#define mp_xs_APR__SHA1_2obj(ptr) \
 
346
sv_setref_pv(sv_newmortal(), "APR::SHA1", (void*)ptr)
 
347
 
 
348
#define mp_xs_sv2_apr_filetype_e(sv) (apr_filetype_e)SvIV(sv)
 
349
 
 
350
#define mp_xs_sv2_apr_fileperms_t(sv) (apr_fileperms_t)SvIV(sv)
 
351
 
 
352
#define mp_xs_sv2_APR__IpSubnet(sv) \
 
353
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
354
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::IpSubnet derived object)"),0) ? \
 
355
(apr_ipsubnet_t *)SvIV((SV*)SvRV(sv)) : (apr_ipsubnet_t *)NULL)
 
356
 
 
357
#define mp_xs_APR__IpSubnet_2obj(ptr) \
 
358
sv_setref_pv(sv_newmortal(), "APR::IpSubnet", (void*)ptr)
 
359
 
 
360
#define mp_xs_sv2_I32(sv) (I32)SvIV(sv)
 
361
 
 
362
#define mp_xs_sv2_apr_size_t(sv) (apr_size_t)SvUV(sv)
 
363
 
 
364
#define mp_xs_sv2_Apache__Connection(sv) \
 
365
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
366
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache::Connection derived object)"),0) ? \
 
367
(conn_rec *)SvIV((SV*)SvRV(sv)) : (conn_rec *)NULL)
 
368
 
 
369
#define mp_xs_sv2_connection mp_xs_sv2_Apache__Connection
 
370
 
 
371
#define mp_xs_Apache__Connection_2obj(ptr) \
 
372
sv_setref_pv(sv_newmortal(), "Apache::Connection", (void*)ptr)
 
373
 
 
374
#define mp_xs_connection_2obj mp_xs_Apache__Connection_2obj
 
375
 
 
376
#define mp_xs_sv2_time_t(sv) (time_t)SvNV(sv)
 
377
 
 
378
#define mp_xs_sv2_apr_lockmech_e(sv) (apr_lockmech_e)SvIV(sv)
 
379
 
 
380
#define mp_xs_sv2_APR__Getopt(sv) \
 
381
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
382
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::Getopt derived object)"),0) ? \
 
383
(apr_getopt_t *)SvIV((SV*)SvRV(sv)) : (apr_getopt_t *)NULL)
 
384
 
 
385
#define mp_xs_APR__Getopt_2obj(ptr) \
 
386
sv_setref_pv(sv_newmortal(), "APR::Getopt", (void*)ptr)
 
387
 
 
388
#define mp_xs_sv2_apr_dev_t(sv) (apr_dev_t)SvNV(sv)
 
389
 
 
390
#define mp_xs_sv2_uid_t(sv) (uid_t)SvIV(sv)
 
391
 
 
392
#define mp_xs_sv2_APR__BucketType(sv) \
 
393
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
394
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::BucketType derived object)"),0) ? \
 
395
(apr_bucket_type_t *)SvIV((SV*)SvRV(sv)) : (apr_bucket_type_t *)NULL)
 
396
 
 
397
#define mp_xs_APR__BucketType_2obj(ptr) \
 
398
sv_setref_pv(sv_newmortal(), "APR::BucketType", (void*)ptr)
 
399
 
 
400
#define mp_xs_sv2_apr_int16_t(sv) (apr_int16_t)SvIV(sv)
 
401
 
 
402
#define mp_xs_sv2_APR__ExplodedTime(sv) \
 
403
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
404
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::ExplodedTime derived object)"),0) ? \
 
405
(apr_time_exp_t *)SvIV((SV*)SvRV(sv)) : (apr_time_exp_t *)NULL)
 
406
 
 
407
#define mp_xs_APR__ExplodedTime_2obj(ptr) \
 
408
sv_setref_pv(sv_newmortal(), "APR::ExplodedTime", (void*)ptr)
 
409
 
 
410
#define mp_xs_sv2_double(sv) (double)SvNV(sv)
 
411
 
 
412
#define mp_xs_sv2_apr_socklen_t(sv) (apr_socklen_t)SvIV(sv)
 
413
 
 
414
#define mp_xs_sv2_APR__InAddr(sv) \
 
415
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
416
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::InAddr derived object)"),0) ? \
 
417
(apr_in_addr_t *)SvIV((SV*)SvRV(sv)) : (apr_in_addr_t *)NULL)
 
418
 
 
419
#define mp_xs_APR__InAddr_2obj(ptr) \
 
420
sv_setref_pv(sv_newmortal(), "APR::InAddr", (void*)ptr)
 
421
 
 
422
#define mp_xs_sv2_apr_locktype_e(sv) (apr_locktype_e)SvIV(sv)
 
423
 
 
424
#define mp_xs_sv2_APR__Brigade(sv) \
 
425
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
426
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::Brigade derived object)"),0) ? \
 
427
(apr_bucket_brigade *)SvIV((SV*)SvRV(sv)) : (apr_bucket_brigade *)NULL)
 
428
 
 
429
#define mp_xs_APR__Brigade_2obj(ptr) \
 
430
sv_setref_pv(sv_newmortal(), "APR::Brigade", (void*)ptr)
 
431
 
 
432
#define mp_xs_sv2_APR__OS__Thread(sv) \
 
433
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
434
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::OS::Thread derived object)"),0) ? \
 
435
(apr_os_thread_t *)SvIV((SV*)SvRV(sv)) : (apr_os_thread_t *)NULL)
 
436
 
 
437
#define mp_xs_APR__OS__Thread_2obj(ptr) \
 
438
sv_setref_pv(sv_newmortal(), "APR::OS::Thread", (void*)ptr)
 
439
 
 
440
#define mp_xs_sv2_APR__SockAddr(sv) \
 
441
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
442
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::SockAddr derived object)"),0) ? \
 
443
(apr_sockaddr_t *)SvIV((SV*)SvRV(sv)) : (apr_sockaddr_t *)NULL)
 
444
 
 
445
#define mp_xs_APR__SockAddr_2obj(ptr) \
 
446
sv_setref_pv(sv_newmortal(), "APR::SockAddr", (void*)ptr)
 
447
 
 
448
#define mp_xs_sv2_APR__Hash(sv) \
 
449
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
450
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::Hash derived object)"),0) ? \
 
451
(apr_hash_t *)SvIV((SV*)SvRV(sv)) : (apr_hash_t *)NULL)
 
452
 
 
453
#define mp_xs_APR__Hash_2obj(ptr) \
 
454
sv_setref_pv(sv_newmortal(), "APR::Hash", (void*)ptr)
 
455
 
 
456
#define mp_xs_sv2_Apache__CmdParms(sv) \
 
457
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
458
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache::CmdParms derived object)"),0) ? \
 
459
(cmd_parms *)SvIV((SV*)SvRV(sv)) : (cmd_parms *)NULL)
 
460
 
 
461
#define mp_xs_Apache__CmdParms_2obj(ptr) \
 
462
sv_setref_pv(sv_newmortal(), "Apache::CmdParms", (void*)ptr)
 
463
 
 
464
#define mp_xs_sv2_APR__HashIndex(sv) \
 
465
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
 
466
|| (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::HashIndex derived object)"),0) ? \
 
467
(apr_hash_index_t *)SvIV((SV*)SvRV(sv)) : (apr_hash_index_t *)NULL)
 
468
 
 
469
#define mp_xs_APR__HashIndex_2obj(ptr) \
 
470
sv_setref_pv(sv_newmortal(), "APR::HashIndex", (void*)ptr)
 
471
 
 
472
#define mp_xs_sv2_pid_t(sv) (pid_t)SvIV(sv)
 
473
 
 
474
#define mp_xs_sv2_apr_uint32_t(sv) (apr_uint32_t)SvIV(sv)
 
475
 
 
476
 
 
477
#endif /* MODPERL_XS_SV_CONVERT_H */