Viewing file:  modperl_interp.h (6.11 KB) -rw-r--r--
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.
*/
#ifndef MODPERL_INTERP_H
#define MODPERL_INTERP_H
void modperl_interp_init(server_rec *s, apr_pool_t *p,
PerlInterpreter *perl);
apr_status_t modperl_interp_cleanup(void *data);
#ifdef USE_ITHREADS
modperl_interp_t *modperl_thx_interp_get(PerlInterpreter *thx);
void modperl_thx_interp_set(PerlInterpreter *thx, modperl_interp_t *interp);
void modperl_interp_clone_init(modperl_interp_t *interp);
modperl_interp_t *modperl_interp_new(modperl_interp_pool_t *mip,
PerlInterpreter *perl);
void modperl_interp_destroy(modperl_interp_t *interp);
modperl_interp_t *modperl_interp_get(server_rec *s);
apr_status_t modperl_interp_unselect(void *data);
modperl_interp_t *modperl_interp_pool_get(apr_pool_t *p);
void modperl_interp_pool_set(apr_pool_t *p,
modperl_interp_t *interp);
modperl_interp_t *modperl_interp_pool_select(apr_pool_t *p,
server_rec *s);
modperl_interp_t *modperl_interp_select(request_rec *r, conn_rec *c,
server_rec *s);
#define MP_dINTERP pTHX; modperl_interp_t *interp = NULL
#define MP_INTERPa(r, c, s) \
MP_TRACE_i(MP_FUNC, "selecting interp: r=%pp, c=%pp, s=%pp", \
(r), (c), (s)); \
interp = modperl_interp_select((r), (c), (s)); \
if (interp) { \
MP_TRACE_i(MP_FUNC, " --> got (0x%pp)->refcnt=%d, perl=%pp", \
interp, interp->refcnt, interp->perl); \
aTHX = interp->perl; \
} \
else { \
aTHX = NULL; \
MP_TRACE_i(MP_FUNC, " --> failed"); \
} \
NOOP
#define MP_dINTERPa(r, c, s) \
MP_dINTERP; \
MP_INTERPa((r), (c), (s))
#define MP_INTERP_POOLa(p, s) \
MP_TRACE_i(MP_FUNC, "selecting interp: p=%pp, s=%pp", (p), (s)); \
interp = modperl_interp_pool_select((p), (s)); \
if (interp) { \
MP_TRACE_i(MP_FUNC, " --> got (0x%pp)->refcnt=%d", \
interp, interp->refcnt); \
aTHX = interp->perl; \
} \
else { \
aTHX = NULL; \
MP_TRACE_i(MP_FUNC, " --> failed"); \
} \
NOOP
#define MP_dINTERP_POOLa(p, s) \
MP_dINTERP; \
MP_INTERP_POOLa((p), (s))
#ifdef MP_DEBUG
#define MP_INTERP_PUTBACK(interp, thx) \
MP_TRACE_i(MP_FUNC, "unselecting interp: (0x%pp)->refcnt=%ld", \
(interp), (interp)->refcnt); \
modperl_interp_unselect(interp); \
interp = NULL; \
if( thx ) thx = NULL
#else /* MP_DEBUG */
#define MP_INTERP_PUTBACK(interp, thx) \
modperl_interp_unselect(interp)
#endif
#define MP_INTERP_REFCNT_inc(interp) (interp)->refcnt++
#define MP_INTERP_REFCNT_dec(interp) MP_INTERP_PUTBACK(interp, NULL)
#define MP_HAS_INTERP(interp) (interp != NULL)
#define MP_aTHX aTHX
apr_status_t modperl_interp_pool_destroy(void *data);
typedef apr_status_t (*modperl_interp_mip_walker_t)(pTHX_
modperl_interp_pool_t *mip,
void *data);
void modperl_interp_mip_walk(PerlInterpreter *current_perl,
PerlInterpreter *parent_perl,
modperl_interp_pool_t *mip,
modperl_interp_mip_walker_t walker,
void *data);
void modperl_interp_mip_walk_servers(PerlInterpreter *current_perl,
server_rec *base_server,
modperl_interp_mip_walker_t walker,
void *data);
#else
#define MP_dINTERP dNOOP
#define MP_INTERPa(r, c, s) NOOP
#define MP_dINTERPa(r, c, s) NOOP
#define MP_INTERP_POOLa(p, s) NOOP
#define MP_dINTERP_POOLa(p, s) NOOP
#define MP_INTERP_PUTBACK(interp, thx) NOOP
#define MP_INTERP_REFCNT_inc(interp) NOOP
#define MP_INTERP_REFCNT_dec(interp) NOOP
#define MP_HAS_INTERP(interp) (1)
#define MP_aTHX 0
#endif /* USE_ITHREADS */
#endif /* MODPERL_INTERP_H */
/*
* Local Variables:
* c-basic-offset: 4
* indent-tabs-mode: nil
* End:
*/
|