dougm 01/11/06 20:03:07
Modified: todo api.txt
xs/Apache/RequestIO Apache__RequestIO.h
xs/maps modperl_functions.map
xs/tables/current/ModPerl FunctionTable.pm
Log:
add Apache::RequestRec::GETC method
Revision Changes Path
1.14 +1 -1 modperl-2.0/todo/api.txt
Index: api.txt
===================================================================
RCS file: /home/cvs/modperl-2.0/todo/api.txt,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- api.txt 2001/11/06 18:41:46 1.13
+++ api.txt 2001/11/07 04:03:07 1.14
@@ -3,7 +3,7 @@
------------------------------------------
tied filehandle interface:
- -CLOSE, GETC, READLINE
+ -CLOSE, READLINE
$r->finfo:
need apr_finfo_t <-> struct stat conversion (might already be there,
1.22 +16 -0 modperl-2.0/xs/Apache/RequestIO/Apache__RequestIO.h
Index: Apache__RequestIO.h
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/Apache/RequestIO/Apache__RequestIO.h,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -r1.21 -r1.22
--- Apache__RequestIO.h 2001/11/07 03:39:08 1.21
+++ Apache__RequestIO.h 2001/11/07 04:03:07 1.22
@@ -189,6 +189,22 @@
}
static MP_INLINE
+SV *mpxs_Apache__RequestRec_GETC(pTHX_ request_rec *r)
+{
+ char c[1] = "\0";
+
+ if (mpxs_setup_client_block(r) == APR_SUCCESS) {
+ if (mpxs_should_client_block(r)) {
+ if (ap_get_client_block(r, c, 1) == 1) {
+ return newSVpvn((char *)&c, 1);
+ }
+ }
+ }
+
+ return &PL_sv_undef;
+}
+
+static MP_INLINE
apr_status_t mpxs_Apache__RequestRec_sendfile(request_rec *r,
const char *filename,
apr_off_t offset,
1.27 +1 -0 modperl-2.0/xs/maps/modperl_functions.map
Index: modperl_functions.map
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/maps/modperl_functions.map,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- modperl_functions.map 2001/11/06 18:41:46 1.26
+++ modperl_functions.map 2001/11/07 04:03:07 1.27
@@ -35,6 +35,7 @@
mpxs_Apache__RequestRec_print | | ...
apr_ssize_t:DEFINE_WRITE | | \
request_rec *:r, SV *:buffer, apr_ssize_t:bufsiz=-1, int:offset=0
+ mpxs_Apache__RequestRec_GETC
MODULE=Apache::Response PACKAGE=Apache::RequestRec
DEFINE_send_cgi_header | | request_rec *:r, SV *:buffer
1.46 +19 -1 modperl-2.0/xs/tables/current/ModPerl/FunctionTable.pm
Index: FunctionTable.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/tables/current/ModPerl/FunctionTable.pm,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -r1.45 -r1.46
--- FunctionTable.pm 2001/11/07 03:39:09 1.45
+++ FunctionTable.pm 2001/11/07 04:03:07 1.46
@@ -2,7 +2,7 @@
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
# ! WARNING: generated by ModPerl::ParseSource/0.01
-# ! Tue Nov 6 19:34:31 2001
+# ! Tue Nov 6 19:57:54 2001
# ! do NOT edit, any changes will be lost !
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -3955,6 +3955,10 @@
],
'args' => [
{
+ 'type' => 'PerlInterpreter *',
+ 'name' => 'my_perl'
+ },
+ {
'type' => 'SV *',
'name' => 'tsv'
}
@@ -4101,6 +4105,20 @@
{
'type' => 'char *',
'name' => 'name'
+ }
+ ]
+ },
+ {
+ 'return_type' => 'SV *',
+ 'name' => 'mpxs_Apache__RequestRec_GETC',
+ 'args' => [
+ {
+ 'type' => 'PerlInterpreter *',
+ 'name' => 'my_perl'
+ },
+ {
+ 'type' => 'request_rec *',
+ 'name' => 'r'
}
]
},
