| |
| /* Copyright 2000-2005 The Apache Software Foundation |
| * |
| * Licensed under the Apache License, Version 2.0 (the "License"); |
| * you may not use this file except in compliance with the License. |
| * You may obtain a copy of the License at |
| * |
| * http://www.apache.org/licenses/LICENSE-2.0 |
| * |
| * Unless required by applicable law or agreed to in writing, software |
| * distributed under the License is distributed on an "AS IS" BASIS, |
| * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. |
| * See the License for the specific language governing permissions and |
| * limitations under the License. |
| */ |
| |
| #include "modperl_common_includes.h" |
| |
| #ifndef MODPERL_COMMON_UTIL_H |
| #define MODPERL_COMMON_UTIL_H |
| |
| #ifdef MP_DEBUG |
| #define MP_INLINE |
| #else |
| #define MP_INLINE APR_INLINE |
| #endif |
| |
| #ifdef CYGWIN |
| #define MP_STATIC |
| #else |
| #define MP_STATIC static |
| #endif |
| |
| #ifdef WIN32 |
| # define MP_FUNC_T(name) (_stdcall *name) |
| # define MP_FUNC_NONSTD_T(name) (*name) |
| /* XXX: not all functions get inlined |
| * so its unclear what to and not to include in the .def files |
| */ |
| # undef MP_INLINE |
| # define MP_INLINE |
| #else |
| # define MP_FUNC_T(name) (*name) |
| # define MP_FUNC_NONSTD_T(name) (*name) |
| #endif |
| |
| |
| #define MP_SSTRLEN(string) (sizeof(string)-1) |
| |
| #ifndef strcaseEQ |
| # define strcaseEQ(s1,s2) (!strcasecmp(s1,s2)) |
| #endif |
| #ifndef strncaseEQ |
| # define strncaseEQ(s1,s2,l) (!strncasecmp(s1,s2,l)) |
| #endif |
| |
| #ifndef SvCLASS |
| #define SvCLASS(o) HvNAME(SvSTASH(SvRV(o))) |
| #endif |
| |
| #define SvObjIV(o) SvIV((SV*)SvRV(o)) |
| #define MgObjIV(m) SvIV((SV*)SvRV(m->mg_obj)) |
| |
| #define MP_SvGROW(sv, len) \ |
| (void)SvUPGRADE(sv, SVt_PV); \ |
| SvGROW(sv, len+1) |
| |
| #define MP_SvCUR_set(sv, len) \ |
| SvCUR_set(sv, len); \ |
| *SvEND(sv) = '\0'; \ |
| SvPOK_only(sv) |
| |
| #define MP_magical_untie(sv, mg_flags) \ |
| mg_flags = SvMAGICAL((SV*)sv); \ |
| SvMAGICAL_off((SV*)sv) |
| |
| #define MP_magical_tie(sv, mg_flags) \ |
| SvFLAGS((SV*)sv) |= mg_flags |
| |
| |
| /* tie %hash */ |
| MP_INLINE SV *modperl_hash_tie(pTHX_ const char *classname, |
| SV *tsv, void *p); |
| |
| /* tied %hash */ |
| MP_INLINE SV *modperl_hash_tied_object_rv(pTHX_ |
| const char *classname, |
| SV *tsv); |
| /* tied %hash */ |
| MP_INLINE void *modperl_hash_tied_object(pTHX_ const char *classname, |
| SV *tsv); |
| |
| MP_INLINE SV *modperl_perl_sv_setref_uv(pTHX_ SV *rv, |
| const char *classname, UV uv); |
| |
| MP_INLINE modperl_uri_t *modperl_uri_new(apr_pool_t *p); |
| |
| SV *modperl_perl_gensym(pTHX_ char *pack); |
| |
| #endif /* MODPERL_COMMON_UTIL_H */ |
| |