You are viewing a plain text version of this content. The canonical link for it is here.
Posted to apreq-cvs@httpd.apache.org by jo...@apache.org on 2005/05/16 20:39:19 UTC

svn commit: r170425 - in /httpd/apreq/trunk/glue/perl/xsbuilder: APR/Request/Request.pm APR/Request/Request.xs maps/apreq_types.map typemap

Author: joes
Date: Mon May 16 11:39:19 2005
New Revision: 170425

URL: http://svn.apache.org/viewcvs?rev=170425&view=rev
Log:
Expose APR::Request::Custom::handle.

Modified:
    httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Request.pm
    httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Request.xs
    httpd/apreq/trunk/glue/perl/xsbuilder/maps/apreq_types.map
    httpd/apreq/trunk/glue/perl/xsbuilder/typemap

Modified: httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Request.pm
URL: http://svn.apache.org/viewcvs/httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Request.pm?rev=170425&r1=170424&r2=170425&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Request.pm (original)
+++ httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Request.pm Mon May 16 11:39:19 2005
@@ -15,3 +15,6 @@
     return $req->args_status || $req->body_status if wantarray;
     return ($req->args_status, $req->body_status);
 }
+
+package APR::Request::Custom;
+our @ISA = qw/APR::Request/;

Modified: httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Request.xs
URL: http://svn.apache.org/viewcvs/httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Request.xs?rev=170425&r1=170424&r2=170425&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Request.xs (original)
+++ httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Request.xs Mon May 16 11:39:19 2005
@@ -266,7 +266,24 @@
   OUTPUT:
     RETVAL
 
+MODULE = APR::Request  PACKAGE = APR::Request::Custom
 
+APR::Request
+handle(class, pool, query_string, cookie, parser, read_limit, in)
+    apreq_xs_subclass_t class
+    APR::Pool pool
+    char *query_string
+    char *cookie
+    APR::Request::Parser parser
+    UV read_limit
+    APR::Brigade in
+  PREINIT:
+    SV *parent = SvRV(ST(1));
+  CODE:
+    RETVAL = apreq_handle_custom(pool, query_string, cookie,
+                                 parser, read_limit, in);
+  OUTPUT:
+    RETVAL
 
 
 BOOT:

Modified: httpd/apreq/trunk/glue/perl/xsbuilder/maps/apreq_types.map
URL: http://svn.apache.org/viewcvs/httpd/apreq/trunk/glue/perl/xsbuilder/maps/apreq_types.map?rev=170425&r1=170424&r2=170425&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/xsbuilder/maps/apreq_types.map (original)
+++ httpd/apreq/trunk/glue/perl/xsbuilder/maps/apreq_types.map Mon May 16 11:39:19 2005
@@ -28,4 +28,4 @@
 struct apreq_xs_cookie_table_t | APR::Request::Cookie::Table | T_HASHOBJ
 const apreq_xs_param_table_t * | APR::Request::Param::Table | T_HASHOBJ
 apreq_xs_subclass_t | SUBCLASS
-
+struct apreq_parser_t | APR::Request::Parser

Modified: httpd/apreq/trunk/glue/perl/xsbuilder/typemap
URL: http://svn.apache.org/viewcvs/httpd/apreq/trunk/glue/perl/xsbuilder/typemap?rev=170425&r1=170424&r2=170425&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/xsbuilder/typemap (original)
+++ httpd/apreq/trunk/glue/perl/xsbuilder/typemap Mon May 16 11:39:19 2005
@@ -11,6 +11,7 @@
 Apache2::RequestRec	T_APACHEOBJ
 APR::Request::Cookie::Table	T_HASHOBJ
 APR::Request	T_APREQ_HANDLE
+APR::Request::Parser T_PTROBJ
 apr_status_t	T_IV
 const void *	T_PTR
 const char *	T_PV