Viewing file:  modperl_common_util.h (3.43 KB) -rw-rw-rw-
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
/* Licensed to the Apache Software Foundation (ASF) under one or more
* contributor license agreements. See the NOTICE file distributed with
* this work for additional information regarding copyright ownership.
* The ASF licenses this file to You 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
/* some wrapper macros to detect perl versions
* and prevent code clutter */
#define MP_PERL_VERSION_AT_LEAST(r, v, s) \
(PERL_REVISION == r && \
((PERL_VERSION == v && PERL_SUBVERSION > s-1) || PERL_VERSION > v))
#define MP_PERL_VERSION_AT_MOST(r, v, s) \
(PERL_REVISION == r && \
(PERL_VERSION < v || (PERL_VERSION == v && PERL_SUBVERSION < s+1)))
#define MP_PERL_VERSION(r, v, s) \
(PERL_REVISION == r && PERL_VERSION == v && PERL_SUBVERSION == s)
/* 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 */
|