[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;