Author: joes
Date: Tue Feb 15 00:35:10 2005
New Revision: 153919

URL: http://svn.apache.org/viewcvs?view=rev&rev=153919
Log:

Dump APR_INLINE and static from ParseSource input.
Add name/value methods for APR::Request::Cookie and APR::Request::Param.
Overload "" to value() for those as well.

Added:
    
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Cookie/Cookie.xs
    
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Param/Param.xs
    
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Request.pm
Modified:
    httpd/apreq/branches/multi-env-unstable/build/xsbuilder.pl
    
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/maps/apreq_functions.map
    
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/maps/apreq_types.map

Modified: httpd/apreq/branches/multi-env-unstable/build/xsbuilder.pl
URL: 
http://svn.apache.org/viewcvs/httpd/apreq/branches/multi-env-unstable/build/xsbuilder.pl?view=diff&r1=153918&r2=153919
==============================================================================
--- httpd/apreq/branches/multi-env-unstable/build/xsbuilder.pl (original)
+++ httpd/apreq/branches/multi-env-unstable/build/xsbuilder.pl Tue Feb 15 
00:35:10 2005
@@ -120,6 +120,8 @@
         ::c_macro("APREQ_DECLARE_PARSER", "apreq_parser.h")->();
         ::c_macro("APR_DECLARE")->();
         ::c_macro("XS")-> ();
+        s/APR_INLINE//g;
+        s/static//g;
     }
 }
 

Added: 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Cookie/Cookie.xs
URL: 
http://svn.apache.org/viewcvs/httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Cookie/Cookie.xs?view=auto&rev=153919
==============================================================================
--- 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Cookie/Cookie.xs
 (added)
+++ 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Cookie/Cookie.xs
 Tue Feb 15 00:35:10 2005
@@ -0,0 +1,38 @@
+static XS(XS_APR__Request__Cookie_nil)
+{
+    dXSARGS;
+    (void)items;
+    XSRETURN_EMPTY;
+}
+
+
+MODULE = APR::Request::Cookie      PACKAGE = APR::Request::Cookie
+
+SV *
+value(obj, p1=NULL, p2=NULL)
+    APR::Request::Cookie obj
+    SV *p1
+    SV *p2
+  PREINIT:
+    /*nada*/
+
+  CODE:
+    RETVAL = newSVpvn(obj->v.data, obj->v.size);
+
+  OUTPUT:
+    RETVAL
+
+
+
+BOOT:
+    /* register the overloading (type 'A') magic */
+    PL_amagic_generation++;
+    /* The magic for overload gets a GV* via gv_fetchmeth as */
+    /* mentioned above, and looks in the SV* slot of it for */
+    /* the "fallback" status. */
+    sv_setsv(
+        get_sv( "APR::Request::Cookie::()", TRUE ),
+        &PL_sv_undef
+    );
+    newXS("APR::Request::Cookie::()", XS_APR__Request__Cookie_nil, file);
+    newXS("APR::Request::Cookie::(\"\"", XS_APR__Request__Cookie_value, file);

Added: 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Param/Param.xs
URL: 
http://svn.apache.org/viewcvs/httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Param/Param.xs?view=auto&rev=153919
==============================================================================
--- 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Param/Param.xs
 (added)
+++ 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Param/Param.xs
 Tue Feb 15 00:35:10 2005
@@ -0,0 +1,38 @@
+static XS(XS_APR__Request__Param_nil)
+{
+    dXSARGS;
+    (void)items;
+    XSRETURN_EMPTY;
+}
+
+
+MODULE = APR::Request::Param      PACKAGE = APR::Request::Param
+
+SV *
+value(obj, p1=NULL, p2=NULL)
+    APR::Request::Param obj
+    SV *p1
+    SV *p2
+  PREINIT:
+    /*nada*/
+
+  CODE:
+    RETVAL = newSVpvn(obj->v.data, obj->v.size);
+
+  OUTPUT:
+    RETVAL
+
+
+
+BOOT:
+    /* register the overloading (type 'A') magic */
+    PL_amagic_generation++;
+    /* The magic for overload gets a GV* via gv_fetchmeth as */
+    /* mentioned above, and looks in the SV* slot of it for */
+    /* the "fallback" status. */
+    sv_setsv(
+        get_sv( "APR::Request::Param::()", TRUE ),
+        &PL_sv_undef
+    );
+    newXS("APR::Request::Param::()", XS_APR__Request__Param_nil, file);
+    newXS("APR::Request::Param::(\"\"", XS_APR__Request__Param_value, file);

Added: 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Request.pm
URL: 
http://svn.apache.org/viewcvs/httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Request.pm?view=auto&rev=153919
==============================================================================
--- 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Request.pm
 (added)
+++ 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Request.pm
 Tue Feb 15 00:35:10 2005
@@ -0,0 +1,2 @@
+require APR::Request::Cookie;
+require APR::Request::Param;

Modified: 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/maps/apreq_functions.map
URL: 
http://svn.apache.org/viewcvs/httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/maps/apreq_functions.map?view=diff&r1=153918&r2=153919
==============================================================================
--- 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/maps/apreq_functions.map
 (original)
+++ 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/maps/apreq_functions.map
 Tue Feb 15 00:35:10 2005
@@ -121,3 +121,8 @@
 MODULE=APR::Request::CGI PACKAGE=APR::Request::CGI
 apreq_handle_cgi_t *:DEFINE_new | apreq_handle_cgi (p) | const char *:class, 
apr_pool_t *:p
 
+MODULE=APR::Request::Cookie PACKAGE=APR::Request::Cookie PREFIX=apreq_cookie_
+apreq_cookie_name
+
+MODULE=APR::Request::Param PACKAGE=APR::Request::Param PREFIX=apreq_param_
+apreq_param_name

Modified: 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/maps/apreq_types.map
URL: 
http://svn.apache.org/viewcvs/httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/maps/apreq_types.map?view=diff&r1=153918&r2=153919
==============================================================================
--- 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/maps/apreq_types.map
 (original)
+++ 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/maps/apreq_types.map
 Tue Feb 15 00:35:10 2005
@@ -28,9 +28,3 @@
 struct apreq_handle_apache2_t | APR::Request::Apache2 | T_APREQ_HANDLE_APACHE2
 struct apreq_handle_cgi_t     | APR::Request::CGI     | T_APREQ_HANDLE
 
-static APR_INLINE apreq_param_t * | APR::Request::Param
-static APR_INLINE apreq_param_t * | APR::Request::Param
-static APR_INLINE apreq_cookie_t * | APR::Request::Cookie
-static APR_INLINE apreq_cookie_t * | APR::Request::Cookie
-APR_INLINE apr_status_t | IV
-


Reply via email to