[svn:mod_parrot] r521 - in mod_parrot/trunk: include src
[email protected] Fri, 5 Dec 2008 10:18:00 -0800 (PST)
| Newsgroups | perl.cvs.mod_parrot |
|---|---|
| Message-ID | <[email protected]> |
Author: jhorwitz
Date: Fri Dec 5 10:18:00 2008
New Revision: 521
Modified:
mod_parrot/trunk/include/mod_parrot.h
mod_parrot/trunk/src/context.c
mod_parrot/trunk/src/mod_parrot.c
Log:
move context binding functions to context.c
Modified: mod_parrot/trunk/include/mod_parrot.h
==============================================================================
--- mod_parrot/trunk/include/mod_parrot.h (original)
+++ mod_parrot/trunk/include/mod_parrot.h Fri Dec 5 10:18:00 2008
@@ -88,5 +88,7 @@
void modparrot_load_file(Parrot_Interp, server_rec *, const char *);
module *modparrot_add_module(Parrot_Interp, apr_pool_t *, const char *, char *,
Parrot_PMC, Parrot_PMC);
+modparrot_context *modparrot_get_current_ctx(apr_pool_t *);
+void modparrot_set_current_ctx(apr_pool_t *, modparrot_context *);
#endif /* _MODPARROT_H */
Modified: mod_parrot/trunk/src/context.c
==============================================================================
--- mod_parrot/trunk/src/context.c (original)
+++ mod_parrot/trunk/src/context.c Fri Dec 5 10:18:00 2008
@@ -174,3 +174,22 @@
return ctx;
}
+
+modparrot_context *modparrot_get_current_ctx(apr_pool_t *p)
+{
+ modparrot_context *ctxp;
+ assert(p);
+ apr_pool_userdata_get((void **)&ctxp, MP_KEY_CTX, p);
+ return(ctxp);
+}
+
+static apr_status_t modparrot_ctx_cleanup(void *data)
+{
+ modparrot_context *ctxp = (modparrot_context *)data;
+ release_ctx(ctxp);
+}
+
+void modparrot_set_current_ctx(apr_pool_t *p, modparrot_context *ctxp)
+{
+ apr_pool_userdata_set(ctxp, MP_KEY_CTX, modparrot_ctx_cleanup, p);
+}
Modified: mod_parrot/trunk/src/mod_parrot.c
==============================================================================
--- mod_parrot/trunk/src/mod_parrot.c (original)
+++ mod_parrot/trunk/src/mod_parrot.c Fri Dec 5 10:18:00 2008
@@ -134,25 +134,6 @@
return(interp);
}
-static modparrot_context *modparrot_get_current_ctx(apr_pool_t *p)
-{
- modparrot_context *ctxp;
- assert(p);
- apr_pool_userdata_get((void **)&ctxp, MP_KEY_CTX, p);
- return(ctxp);
-}
-
-static apr_status_t modparrot_ctx_cleanup(void *data)
-{
- modparrot_context *ctxp = (modparrot_context *)data;
- release_ctx(ctxp);
-}
-
-static void modparrot_set_current_ctx(apr_pool_t *p, modparrot_context *ctxp)
-{
- apr_pool_userdata_set(ctxp, MP_KEY_CTX, modparrot_ctx_cleanup, p);
-}
-
static modparrot_context *init_ctx(server_rec *s, apr_pool_t *p)
{
Parrot_Interp interp;