Viewing file:  modperl_interp.h (3.23 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.
*/
#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);
const char *modperl_interp_scope_desc(modperl_interp_scope_e scope);
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,
int cleanup);
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_SELECT(r, c, s) \
pTHX; \
modperl_interp_t *interp = NULL; \
interp = modperl_interp_select(r, c, s); \
aTHX = interp->perl
#define MP_INTERP_PUTBACK(interp) \
if (interp && MpInterpPUTBACK(interp)) { \
modperl_interp_unselect(interp); \
}
#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_SELECT(r, c, s) dNOOP
#define MP_INTERP_PUTBACK(interp) NOOP
#define MP_aTHX 0
#endif /* USE_ITHREADS */
#endif /* MODPERL_INTERP_H */
|