perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/xs/tables/current/ModPerl FunctionTable.pm
Date Wed, 07 Nov 2001 04:03:07 GMT
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'
         }
       ]
     },
  
  
  

Mime
View raw message