Where Online Learning is simpler!
The C and C++ Include Header Files
/usr/include/apache2/modperl_xs_sv_convert.h
$ cat -n /usr/include/apache2/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:708 8 * 02: lib/ModPerl/WrapXS.pm:1170 9 * 03: Makefile.PL:435 10 * 04: Makefile.PL:333 11 * 05: Makefile.PL:59 12 */ 13 14 15 #ifndef MODPERL_XS_SV_CONVERT_H 16 #define MODPERL_XS_SV_CONVERT_H 17 18 #define mp_xs_sv2_I32(sv) (I32)SvIV(sv) 19 20 #define mp_xs_sv2_U16(sv) (U16)SvUV(sv) 21 22 #define mp_xs_sv2_U32(sv) (U32)SvUV(sv) 23 24 #define mp_xs_sv2_Apache2__ConfVector(sv) \ 25 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 26 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache2::ConfVector derived object)"),0) ? \ 27 INT2PTR(ap_conf_vector_t *, SvIV((SV*)SvRV(sv))) : (ap_conf_vector_t *)NULL) 28 29 #define mp_xs_Apache2__ConfVector_2obj(ptr) \ 30 sv_setref_pv(sv_newmortal(), "Apache2::ConfVector", (void*)ptr) 31 32 #define mp_xs_sv2_Apache2__ConfigFile(sv) \ 33 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 34 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache2::ConfigFile derived object)"),0) ? \ 35 INT2PTR(ap_configfile_t *, SvIV((SV*)SvRV(sv))) : (ap_configfile_t *)NULL) 36 37 #define mp_xs_Apache2__ConfigFile_2obj(ptr) \ 38 sv_setref_pv(sv_newmortal(), "Apache2::ConfigFile", (void*)ptr) 39 40 #define mp_xs_sv2_ap_conn_keepalive_e(sv) (ap_conn_keepalive_e)SvIV(sv) 41 42 #define mp_xs_sv2_Apache2__Directive(sv) \ 43 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 44 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache2::Directive derived object)"),0) ? \ 45 INT2PTR(ap_directive_t *, SvIV((SV*)SvRV(sv))) : (ap_directive_t *)NULL) 46 47 #define mp_xs_Apache2__Directive_2obj(ptr) \ 48 sv_setref_pv(sv_newmortal(), "Apache2::Directive", (void*)ptr) 49 50 #define mp_xs_sv2_Apache2__FilterRec(sv) \ 51 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 52 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache2::FilterRec derived object)"),0) ? \ 53 INT2PTR(ap_filter_rec_t *, SvIV((SV*)SvRV(sv))) : (ap_filter_rec_t *)NULL) 54 55 #define mp_xs_Apache2__FilterRec_2obj(ptr) \ 56 sv_setref_pv(sv_newmortal(), "Apache2::FilterRec", (void*)ptr) 57 58 #define mp_xs_sv2_Apache2__Filter(sv) \ 59 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 60 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache2::Filter derived object)"),0) ? \ 61 INT2PTR(ap_filter_t *, SvIV((SV*)SvRV(sv))) : (ap_filter_t *)NULL) 62 63 #define mp_xs_Apache2__Filter_2obj(ptr) \ 64 sv_setref_pv(sv_newmortal(), "Apache2::Filter", (void*)ptr) 65 66 #define mp_xs_sv2_Apache2__FilterType(sv) \ 67 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 68 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache2::FilterType derived object)"),0) ? \ 69 INT2PTR(ap_filter_type *, SvIV((SV*)SvRV(sv))) : (ap_filter_type *)NULL) 70 71 #define mp_xs_Apache2__FilterType_2obj(ptr) \ 72 sv_setref_pv(sv_newmortal(), "Apache2::FilterType", (void*)ptr) 73 74 #define mp_xs_sv2_ap_input_mode_t(sv) (ap_input_mode_t)SvIV(sv) 75 76 #define mp_xs_sv2_Apache2__MethodList(sv) \ 77 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 78 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache2::MethodList derived object)"),0) ? \ 79 INT2PTR(ap_method_list_t *, SvIV((SV*)SvRV(sv))) : (ap_method_list_t *)NULL) 80 81 #define mp_xs_Apache2__MethodList_2obj(ptr) \ 82 sv_setref_pv(sv_newmortal(), "Apache2::MethodList", (void*)ptr) 83 84 #define mp_xs_sv2_ap_mgmt_type_e(sv) (ap_mgmt_type_e)SvIV(sv) 85 86 #define mp_xs_sv2_ap_scoreboard_e(sv) (ap_scoreboard_e)SvIV(sv) 87 88 #define mp_xs_sv2_APR__ArrayHeader(sv) \ 89 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 90 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::ArrayHeader derived object)"),0) ? \ 91 INT2PTR(apr_array_header_t *, SvIV((SV*)SvRV(sv))) : (apr_array_header_t *)NULL) 92 93 #define mp_xs_APR__ArrayHeader_2obj(ptr) \ 94 sv_setref_pv(sv_newmortal(), "APR::ArrayHeader", (void*)ptr) 95 96 #define mp_xs_sv2_APR__Bucket(sv) \ 97 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 98 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::Bucket derived object)"),0) ? \ 99 INT2PTR(apr_bucket *, SvIV((SV*)SvRV(sv))) : (apr_bucket *)NULL) 100 101 #define mp_xs_APR__Bucket_2obj(ptr) \ 102 sv_setref_pv(sv_newmortal(), "APR::Bucket", (void*)ptr) 103 104 #define mp_xs_sv2_APR__BucketAlloc(sv) \ 105 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 106 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::BucketAlloc derived object)"),0) ? \ 107 INT2PTR(apr_bucket_alloc_t *, SvIV((SV*)SvRV(sv))) : (apr_bucket_alloc_t *)NULL) 108 109 #define mp_xs_APR__BucketAlloc_2obj(ptr) \ 110 sv_setref_pv(sv_newmortal(), "APR::BucketAlloc", (void*)ptr) 111 112 #define mp_xs_sv2_APR__Brigade(sv) \ 113 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 114 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::Brigade derived object)"),0) ? \ 115 INT2PTR(apr_bucket_brigade *, SvIV((SV*)SvRV(sv))) : (apr_bucket_brigade *)NULL) 116 117 #define mp_xs_APR__Brigade_2obj(ptr) \ 118 sv_setref_pv(sv_newmortal(), "APR::Brigade", (void*)ptr) 119 120 #define mp_xs_sv2_APR__BucketType(sv) \ 121 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 122 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::BucketType derived object)"),0) ? \ 123 INT2PTR(apr_bucket_type_t *, SvIV((SV*)SvRV(sv))) : (apr_bucket_type_t *)NULL) 124 125 #define mp_xs_APR__BucketType_2obj(ptr) \ 126 sv_setref_pv(sv_newmortal(), "APR::BucketType", (void*)ptr) 127 128 #define mp_xs_sv2_apr_dev_t(sv) (apr_dev_t)SvNV(sv) 129 130 #define mp_xs_sv2_apr_fileperms_t(sv) (apr_fileperms_t)SvIV(sv) 131 132 #define mp_xs_sv2_apr_filetype_e(sv) (apr_filetype_e)SvIV(sv) 133 134 #define mp_xs_sv2_APR__Finfo(sv) \ 135 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 136 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::Finfo derived object)"),0) ? \ 137 INT2PTR(apr_finfo_t *, SvIV((SV*)SvRV(sv))) : (apr_finfo_t *)NULL) 138 139 #define mp_xs_APR__Finfo_2obj(ptr) \ 140 sv_setref_pv(sv_newmortal(), "APR::Finfo", (void*)ptr) 141 142 #define mp_xs_sv2_APR__GetoptOption(sv) \ 143 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 144 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::GetoptOption derived object)"),0) ? \ 145 INT2PTR(apr_getopt_option_t *, SvIV((SV*)SvRV(sv))) : (apr_getopt_option_t *)NULL) 146 147 #define mp_xs_APR__GetoptOption_2obj(ptr) \ 148 sv_setref_pv(sv_newmortal(), "APR::GetoptOption", (void*)ptr) 149 150 #define mp_xs_sv2_APR__Getopt(sv) \ 151 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 152 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::Getopt derived object)"),0) ? \ 153 INT2PTR(apr_getopt_t *, SvIV((SV*)SvRV(sv))) : (apr_getopt_t *)NULL) 154 155 #define mp_xs_APR__Getopt_2obj(ptr) \ 156 sv_setref_pv(sv_newmortal(), "APR::Getopt", (void*)ptr) 157 158 #define mp_xs_sv2_apr_gid_t(sv) (apr_gid_t)SvIV(sv) 159 160 #define mp_xs_sv2_APR__HashIndex(sv) \ 161 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 162 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::HashIndex derived object)"),0) ? \ 163 INT2PTR(apr_hash_index_t *, SvIV((SV*)SvRV(sv))) : (apr_hash_index_t *)NULL) 164 165 #define mp_xs_APR__HashIndex_2obj(ptr) \ 166 sv_setref_pv(sv_newmortal(), "APR::HashIndex", (void*)ptr) 167 168 #define mp_xs_sv2_APR__Hash(sv) \ 169 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 170 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::Hash derived object)"),0) ? \ 171 INT2PTR(apr_hash_t *, SvIV((SV*)SvRV(sv))) : (apr_hash_t *)NULL) 172 173 #define mp_xs_APR__Hash_2obj(ptr) \ 174 sv_setref_pv(sv_newmortal(), "APR::Hash", (void*)ptr) 175 176 #define mp_xs_sv2_APR__InAddr(sv) \ 177 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 178 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::InAddr derived object)"),0) ? \ 179 INT2PTR(apr_in_addr_t *, SvIV((SV*)SvRV(sv))) : (apr_in_addr_t *)NULL) 180 181 #define mp_xs_APR__InAddr_2obj(ptr) \ 182 sv_setref_pv(sv_newmortal(), "APR::InAddr", (void*)ptr) 183 184 #define mp_xs_sv2_apr_ino_t(sv) (apr_ino_t)SvIV(sv) 185 186 #define mp_xs_sv2_apr_int16_t(sv) (apr_int16_t)SvIV(sv) 187 188 #define mp_xs_sv2_apr_int32_t(sv) (apr_int32_t)SvIV(sv) 189 190 #define mp_xs_sv2_apr_int64_t(sv) (apr_int64_t)SvNV(sv) 191 192 #define mp_xs_sv2_apr_interval_time_t(sv) (apr_interval_time_t)SvNV(sv) 193 194 #define mp_xs_sv2_APR__IpSubnet(sv) \ 195 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 196 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::IpSubnet derived object)"),0) ? \ 197 INT2PTR(apr_ipsubnet_t *, SvIV((SV*)SvRV(sv))) : (apr_ipsubnet_t *)NULL) 198 199 #define mp_xs_APR__IpSubnet_2obj(ptr) \ 200 sv_setref_pv(sv_newmortal(), "APR::IpSubnet", (void*)ptr) 201 202 #define mp_xs_sv2_apr_lockmech_e(sv) (apr_lockmech_e)SvIV(sv) 203 204 #define mp_xs_sv2_apr_locktype_e(sv) (apr_locktype_e)SvIV(sv) 205 206 #define mp_xs_sv2_APR__MD5(sv) \ 207 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 208 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::MD5 derived object)"),0) ? \ 209 INT2PTR(apr_md5_ctx_t *, SvIV((SV*)SvRV(sv))) : (apr_md5_ctx_t *)NULL) 210 211 #define mp_xs_APR__MD5_2obj(ptr) \ 212 sv_setref_pv(sv_newmortal(), "APR::MD5", (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 INT2PTR(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_off_t(sv) (apr_off_t)SvIV(sv) 223 224 #define mp_xs_sv2_APR__SockInfo(sv) \ 225 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 226 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::SockInfo derived object)"),0) ? \ 227 INT2PTR(apr_os_sock_info_t *, SvIV((SV*)SvRV(sv))) : (apr_os_sock_info_t *)NULL) 228 229 #define mp_xs_APR__SockInfo_2obj(ptr) \ 230 sv_setref_pv(sv_newmortal(), "APR::SockInfo", (void*)ptr) 231 232 #define mp_xs_sv2_APR__Pool(sv) \ 233 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 234 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::Pool derived object)"),0) ? \ 235 INT2PTR(apr_pool_t *, SvIV((SV*)SvRV(sv))) : (apr_pool_t *)NULL) 236 237 #define mp_xs_APR__Pool_2obj(ptr) \ 238 sv_setref_pv(sv_newmortal(), "APR::Pool", (void*)ptr) 239 240 #define mp_xs_sv2_apr_port_t(sv) (apr_port_t)SvIV(sv) 241 242 #define mp_xs_sv2_APR__Process(sv) \ 243 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 244 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::Process derived object)"),0) ? \ 245 INT2PTR(apr_proc_t *, SvIV((SV*)SvRV(sv))) : (apr_proc_t *)NULL) 246 247 #define mp_xs_APR__Process_2obj(ptr) \ 248 sv_setref_pv(sv_newmortal(), "APR::Process", (void*)ptr) 249 250 #define mp_xs_sv2_apr_read_type_e(sv) (apr_read_type_e)SvIV(sv) 251 252 #define mp_xs_sv2_APR__SHA1(sv) \ 253 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 254 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::SHA1 derived object)"),0) ? \ 255 INT2PTR(apr_sha1_ctx_t *, SvIV((SV*)SvRV(sv))) : (apr_sha1_ctx_t *)NULL) 256 257 #define mp_xs_APR__SHA1_2obj(ptr) \ 258 sv_setref_pv(sv_newmortal(), "APR::SHA1", (void*)ptr) 259 260 #define mp_xs_sv2_apr_size_t(sv) (apr_size_t)SvUV(sv) 261 262 #define mp_xs_sv2_APR__SockAddr(sv) \ 263 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 264 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::SockAddr derived object)"),0) ? \ 265 INT2PTR(apr_sockaddr_t *, SvIV((SV*)SvRV(sv))) : (apr_sockaddr_t *)NULL) 266 267 #define mp_xs_APR__SockAddr_2obj(ptr) \ 268 sv_setref_pv(sv_newmortal(), "APR::SockAddr", (void*)ptr) 269 270 #define mp_xs_sv2_APR__Socket(sv) \ 271 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 272 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::Socket derived object)"),0) ? \ 273 INT2PTR(apr_socket_t *, SvIV((SV*)SvRV(sv))) : (apr_socket_t *)NULL) 274 275 #define mp_xs_APR__Socket_2obj(ptr) \ 276 sv_setref_pv(sv_newmortal(), "APR::Socket", (void*)ptr) 277 278 #define mp_xs_sv2_apr_socklen_t(sv) (apr_socklen_t)SvIV(sv) 279 280 #define mp_xs_sv2_apr_ssize_t(sv) (apr_ssize_t)SvIV(sv) 281 282 #define mp_xs_sv2_apr_status_t(sv) (apr_status_t)SvIV(sv) 283 284 #define mp_xs_sv2_status mp_xs_sv2_apr_status_t 285 286 #define mp_xs_sv2_APR__TableEntry(sv) \ 287 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 288 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::TableEntry derived object)"),0) ? \ 289 INT2PTR(apr_table_entry_t *, SvIV((SV*)SvRV(sv))) : (apr_table_entry_t *)NULL) 290 291 #define mp_xs_APR__TableEntry_2obj(ptr) \ 292 sv_setref_pv(sv_newmortal(), "APR::TableEntry", (void*)ptr) 293 294 #define mp_xs_sv2_APR__Table(sv) \ 295 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 296 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::Table derived object)"),0) ? \ 297 INT2PTR(apr_table_t *, SvIV((SV*)SvRV(sv))) : (apr_table_t *)NULL) 298 299 #define mp_xs_sv2_table mp_xs_sv2_APR__Table 300 301 #define mp_xs_APR__Table_2obj(ptr) \ 302 sv_setref_pv(sv_newmortal(), "APR::Table", (void*)ptr) 303 304 #define mp_xs_table_2obj mp_xs_APR__Table_2obj 305 306 #define mp_xs_sv2_APR__ThreadMutex(sv) \ 307 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 308 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::ThreadMutex derived object)"),0) ? \ 309 INT2PTR(apr_thread_mutex_t *, SvIV((SV*)SvRV(sv))) : (apr_thread_mutex_t *)NULL) 310 311 #define mp_xs_APR__ThreadMutex_2obj(ptr) \ 312 sv_setref_pv(sv_newmortal(), "APR::ThreadMutex", (void*)ptr) 313 314 #define mp_xs_sv2_APR__ThreadRWLock(sv) \ 315 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 316 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::ThreadRWLock derived object)"),0) ? \ 317 INT2PTR(apr_thread_rwlock_t *, SvIV((SV*)SvRV(sv))) : (apr_thread_rwlock_t *)NULL) 318 319 #define mp_xs_APR__ThreadRWLock_2obj(ptr) \ 320 sv_setref_pv(sv_newmortal(), "APR::ThreadRWLock", (void*)ptr) 321 322 #define mp_xs_sv2_APR__ExplodedTime(sv) \ 323 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 324 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::ExplodedTime derived object)"),0) ? \ 325 INT2PTR(apr_time_exp_t *, SvIV((SV*)SvRV(sv))) : (apr_time_exp_t *)NULL) 326 327 #define mp_xs_APR__ExplodedTime_2obj(ptr) \ 328 sv_setref_pv(sv_newmortal(), "APR::ExplodedTime", (void*)ptr) 329 330 #define mp_xs_sv2_apr_time_t(sv) (apr_time_t)SvNV(sv) 331 332 #define mp_xs_sv2_apr_uid_t(sv) (apr_uid_t)SvIV(sv) 333 334 #define mp_xs_sv2_apr_uint16_t(sv) (apr_uint16_t)SvIV(sv) 335 336 #define mp_xs_sv2_apr_uint32_t(sv) (apr_uint32_t)SvIV(sv) 337 338 #define mp_xs_sv2_apr_uint64_t(sv) (apr_uint64_t)SvNV(sv) 339 340 #define mp_xs_sv2_APR__URI(sv) \ 341 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 342 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::URI derived object)"),0) ? \ 343 INT2PTR(apr_uri_t *, SvIV((SV*)SvRV(sv))) : (apr_uri_t *)NULL) 344 345 #define mp_xs_APR__URI_2obj(ptr) \ 346 sv_setref_pv(sv_newmortal(), "APR::URI", (void*)ptr) 347 348 #define mp_xs_sv2_APR__UUID(sv) \ 349 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 350 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an APR::UUID derived object)"),0) ? \ 351 INT2PTR(apr_uuid_t *, SvIV((SV*)SvRV(sv))) : (apr_uuid_t *)NULL) 352 353 #define mp_xs_sv2_uuid mp_xs_sv2_APR__UUID 354 355 #define mp_xs_APR__UUID_2obj(ptr) \ 356 sv_setref_pv(sv_newmortal(), "APR::UUID", (void*)ptr) 357 358 #define mp_xs_uuid_2obj mp_xs_APR__UUID_2obj 359 360 #define mp_xs_sv2_Apache2__CmdParms(sv) \ 361 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 362 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache2::CmdParms derived object)"),0) ? \ 363 INT2PTR(cmd_parms *, SvIV((SV*)SvRV(sv))) : (cmd_parms *)NULL) 364 365 #define mp_xs_Apache2__CmdParms_2obj(ptr) \ 366 sv_setref_pv(sv_newmortal(), "Apache2::CmdParms", (void*)ptr) 367 368 #define mp_xs_sv2_Apache2__Command(sv) \ 369 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 370 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache2::Command derived object)"),0) ? \ 371 INT2PTR(command_rec *, SvIV((SV*)SvRV(sv))) : (command_rec *)NULL) 372 373 #define mp_xs_Apache2__Command_2obj(ptr) \ 374 sv_setref_pv(sv_newmortal(), "Apache2::Command", (void*)ptr) 375 376 #define mp_xs_sv2_Apache2__Connection(sv) \ 377 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 378 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache2::Connection derived object)"),0) ? \ 379 INT2PTR(conn_rec *, SvIV((SV*)SvRV(sv))) : (conn_rec *)NULL) 380 381 #define mp_xs_sv2_connection mp_xs_sv2_Apache2__Connection 382 383 #define mp_xs_Apache2__Connection_2obj(ptr) \ 384 sv_setref_pv(sv_newmortal(), "Apache2::Connection", (void*)ptr) 385 386 #define mp_xs_connection_2obj mp_xs_Apache2__Connection_2obj 387 388 #define mp_xs_sv2_double(sv) (double)SvNV(sv) 389 390 #define mp_xs_sv2_gid_t(sv) (gid_t)SvIV(sv) 391 392 #define mp_xs_sv2_int(sv) (int)SvIV(sv) 393 394 #define mp_xs_sv2_long(sv) (long)SvIV(sv) 395 396 #define mp_xs_sv2_Apache2__OutputFilter(sv) \ 397 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 398 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache2::OutputFilter derived object)"),0) ? \ 399 INT2PTR(modperl_filter_t *, SvIV((SV*)SvRV(sv))) : (modperl_filter_t *)NULL) 400 401 #define mp_xs_Apache2__OutputFilter_2obj(ptr) \ 402 sv_setref_pv(sv_newmortal(), "Apache2::OutputFilter", (void*)ptr) 403 404 #define mp_xs_sv2_ModPerl__InterpPool(sv) \ 405 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 406 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an ModPerl::InterpPool derived object)"),0) ? \ 407 INT2PTR(modperl_interp_pool_t *, SvIV((SV*)SvRV(sv))) : (modperl_interp_pool_t *)NULL) 408 409 #define mp_xs_ModPerl__InterpPool_2obj(ptr) \ 410 sv_setref_pv(sv_newmortal(), "ModPerl::InterpPool", (void*)ptr) 411 412 #define mp_xs_sv2_ModPerl__Interpreter(sv) \ 413 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 414 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an ModPerl::Interpreter derived object)"),0) ? \ 415 INT2PTR(modperl_interp_t *, SvIV((SV*)SvRV(sv))) : (modperl_interp_t *)NULL) 416 417 #define mp_xs_ModPerl__Interpreter_2obj(ptr) \ 418 sv_setref_pv(sv_newmortal(), "ModPerl::Interpreter", (void*)ptr) 419 420 #define mp_xs_sv2_ModPerl__TiPoolConfig(sv) \ 421 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 422 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an ModPerl::TiPoolConfig derived object)"),0) ? \ 423 INT2PTR(modperl_tipool_config_t *, SvIV((SV*)SvRV(sv))) : (modperl_tipool_config_t *)NULL) 424 425 #define mp_xs_ModPerl__TiPoolConfig_2obj(ptr) \ 426 sv_setref_pv(sv_newmortal(), "ModPerl::TiPoolConfig", (void*)ptr) 427 428 #define mp_xs_sv2_ModPerl__TiPool(sv) \ 429 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 430 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an ModPerl::TiPool derived object)"),0) ? \ 431 INT2PTR(modperl_tipool_t *, SvIV((SV*)SvRV(sv))) : (modperl_tipool_t *)NULL) 432 433 #define mp_xs_ModPerl__TiPool_2obj(ptr) \ 434 sv_setref_pv(sv_newmortal(), "ModPerl::TiPool", (void*)ptr) 435 436 #define mp_xs_sv2_Apache2__Module(sv) \ 437 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 438 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache2::Module derived object)"),0) ? \ 439 INT2PTR(module *, SvIV((SV*)SvRV(sv))) : (module *)NULL) 440 441 #define mp_xs_Apache2__Module_2obj(ptr) \ 442 sv_setref_pv(sv_newmortal(), "Apache2::Module", (void*)ptr) 443 444 #define mp_xs_sv2_pid_t(sv) (pid_t)SvIV(sv) 445 446 #define mp_xs_sv2_Apache2__PipedLog(sv) \ 447 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 448 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache2::PipedLog derived object)"),0) ? \ 449 INT2PTR(piped_log *, SvIV((SV*)SvRV(sv))) : (piped_log *)NULL) 450 451 #define mp_xs_Apache2__PipedLog_2obj(ptr) \ 452 sv_setref_pv(sv_newmortal(), "Apache2::PipedLog", (void*)ptr) 453 454 #define mp_xs_sv2_Apache2__Process(sv) \ 455 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 456 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache2::Process derived object)"),0) ? \ 457 INT2PTR(process_rec *, SvIV((SV*)SvRV(sv))) : (process_rec *)NULL) 458 459 #define mp_xs_Apache2__Process_2obj(ptr) \ 460 sv_setref_pv(sv_newmortal(), "Apache2::Process", (void*)ptr) 461 462 #define mp_xs_sv2_Apache2__RequestRec(sv) \ 463 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 464 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache2::RequestRec derived object)"),0) ? \ 465 INT2PTR(request_rec *, SvIV((SV*)SvRV(sv))) : (request_rec *)NULL) 466 467 #define mp_xs_sv2_r mp_xs_sv2_Apache2__RequestRec 468 469 #define mp_xs_Apache2__RequestRec_2obj(ptr) \ 470 sv_setref_pv(sv_newmortal(), "Apache2::RequestRec", (void*)ptr) 471 472 #define mp_xs_r_2obj mp_xs_Apache2__RequestRec_2obj 473 474 #define mp_xs_sv2_Apache2__ServerAddr(sv) \ 475 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 476 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache2::ServerAddr derived object)"),0) ? \ 477 INT2PTR(server_addr_rec *, SvIV((SV*)SvRV(sv))) : (server_addr_rec *)NULL) 478 479 #define mp_xs_Apache2__ServerAddr_2obj(ptr) \ 480 sv_setref_pv(sv_newmortal(), "Apache2::ServerAddr", (void*)ptr) 481 482 #define mp_xs_sv2_Apache2__ServerRec(sv) \ 483 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 484 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache2::ServerRec derived object)"),0) ? \ 485 INT2PTR(server_rec *, SvIV((SV*)SvRV(sv))) : (server_rec *)NULL) 486 487 #define mp_xs_Apache2__ServerRec_2obj(ptr) \ 488 sv_setref_pv(sv_newmortal(), "Apache2::ServerRec", (void*)ptr) 489 490 #define mp_xs_sv2_size_t(sv) (size_t)SvIV(sv) 491 492 #define mp_xs_sv2_Apache2__SubRequest(sv) \ 493 ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ 494 || (Perl_croak(aTHX_ "argument is not a blessed reference (expecting an Apache2::SubRequest derived object)"),0) ? \ 495 INT2PTR(subrequest_rec *, SvIV((SV*)SvRV(sv))) : (subrequest_rec *)NULL) 496 497 #define mp_xs_Apache2__SubRequest_2obj(ptr) \ 498 sv_setref_pv(sv_newmortal(), "Apache2::SubRequest", (void*)ptr) 499 500 #define mp_xs_sv2_time_t(sv) (time_t)SvNV(sv) 501 502 #define mp_xs_sv2_uid_t(sv) (uid_t)SvIV(sv) 503 504 #define mp_xs_sv2_unsigned(sv) (unsigned)SvUV(sv) 505 506 507 #endif /* MODPERL_XS_SV_CONVERT_H */
Contact us
|
About us
|
Term of use
|
Copyright © 2000-2025 MyWebUniversity.com ™
