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 03:39:09 GMT
dougm       01/11/06 19:39:09

  Modified:    xs/APR/Bucket APR__Bucket.h
               xs/APR/Table APR__Table.h
               xs/APR/URI APR__URI.h
               xs/Apache/Module Apache__Module.h
               xs/Apache/RequestIO Apache__RequestIO.h
               xs/Apache/RequestUtil Apache__RequestUtil.h
               xs/Apache/ServerUtil Apache__ServerUtil.h
               xs/ModPerl/Global ModPerl__Global.h
               xs/tables/current/ModPerl FunctionTable.pm
  Log:
  rid dTHX; usage
  
  Revision  Changes    Path
  1.3       +1 -3      modperl-2.0/xs/APR/Bucket/APR__Bucket.h
  
  Index: APR__Bucket.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/APR/Bucket/APR__Bucket.h,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- APR__Bucket.h	2001/04/19 17:38:12	1.2
  +++ APR__Bucket.h	2001/11/07 03:39:08	1.3
  @@ -1,10 +1,8 @@
   #include "modperl_bucket.h"
   
  -static apr_bucket *mpxs_APR__Bucket_new(SV *classname, SV *sv,
  +static apr_bucket *mpxs_APR__Bucket_new(pTHX_ SV *classname, SV *sv,
                                           int offset, int len)
   {
  -    dTHX; /*XXX*/
  -
       if (!len) {
           (void)SvPV(sv, len);
       }
  
  
  
  1.6       +3 -4      modperl-2.0/xs/APR/Table/APR__Table.h
  
  Index: APR__Table.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/APR/Table/APR__Table.h,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- APR__Table.h	2001/09/28 17:20:32	1.5
  +++ APR__Table.h	2001/11/07 03:39:08	1.6
  @@ -104,9 +104,8 @@
      ((apr_table_entry_t *) \
        apr_table_elts(t)->elts)[mpxs_apr_table_iterix(sv)++].key
   
  -static MP_INLINE const char *mpxs_APR__Table_NEXTKEY(SV *tsv, SV *key)
  +static MP_INLINE const char *mpxs_APR__Table_NEXTKEY(pTHX_ SV *tsv, SV *key)
   {
  -    dTHX;
       apr_table_t *t = mp_xs_sv2_APR__Table(tsv); 
   
       if (apr_is_empty_table(t)) {
  @@ -120,11 +119,11 @@
       return NULL;
   }
   
  -static MP_INLINE const char *mpxs_APR__Table_FIRSTKEY(SV *tsv)
  +static MP_INLINE const char *mpxs_APR__Table_FIRSTKEY(pTHX_ SV *tsv)
   {
       mpxs_apr_table_iterix(tsv) = 0; /* reset iterator index */
   
  -    return mpxs_APR__Table_NEXTKEY(tsv, Nullsv);
  +    return mpxs_APR__Table_NEXTKEY(aTHX_ tsv, Nullsv);
   }
   
   static XS(MPXS_apr_table_get)
  
  
  
  1.3       +1 -2      modperl-2.0/xs/APR/URI/APR__URI.h
  
  Index: APR__URI.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/APR/URI/APR__URI.h,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- APR__URI.h	2001/08/19 17:33:32	1.2
  +++ APR__URI.h	2001/11/07 03:39:08	1.3
  @@ -36,9 +36,8 @@
   }
   
   static MP_INLINE
  -char *mpxs_APR__URI_port(apr_uri_t *uri, SV *portsv)
  +char *mpxs_APR__URI_port(pTHX_ apr_uri_t *uri, SV *portsv)
   {
  -    dTHX; /*XXX*/
       char *port_str = uri->port_str;
   
       if (portsv) {
  
  
  
  1.4       +1 -2      modperl-2.0/xs/Apache/Module/Apache__Module.h
  
  Index: Apache__Module.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/Apache/Module/Apache__Module.h,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- Apache__Module.h	2001/10/06 01:03:27	1.3
  +++ Apache__Module.h	2001/11/07 03:39:08	1.4
  @@ -1,7 +1,7 @@
   #define mpxs_Apache__Module_top_module(CLASS) \
   (CLASS ? ap_top_module : ap_top_module)
   
  -static MP_INLINE int mpxs_Apache__Module_loaded(char *name)
  +static MP_INLINE int mpxs_Apache__Module_loaded(pTHX_ char *name)
   {
       char nameptr[256];
       char *base;
  @@ -34,7 +34,6 @@
           return 0;
       }
       else {
  -        dTHX; /*XXX*/ 
           return modperl_perl_module_loaded(aTHX_ name);
       }
   }
  
  
  
  1.21      +6 -6      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.20
  retrieving revision 1.21
  diff -u -r1.20 -r1.21
  --- Apache__RequestIO.h	2001/11/07 03:12:50	1.20
  +++ Apache__RequestIO.h	2001/11/07 03:39:08	1.21
  @@ -88,14 +88,14 @@
   }  
   
   /* alias */
  -#define mpxs_Apache__RequestRec_WRITE mpxs_Apache__RequestRec_write
  +#define mpxs_Apache__RequestRec_WRITE(r, buffer, bufsiz, offset) \
  +    mpxs_Apache__RequestRec_write(aTHX_ r, buffer, bufsiz, offset)
   
   static MP_INLINE
  -apr_ssize_t mpxs_Apache__RequestRec_write(request_rec *r,
  +apr_ssize_t mpxs_Apache__RequestRec_write(pTHX_ request_rec *r,
                                             SV *buffer, apr_ssize_t bufsiz,
                                             int offset)
   {
  -    dTHX; /*XXX*/
       apr_ssize_t wlen = bufsiz;
       const char *buf;
       STRLEN svlen;
  @@ -157,13 +157,13 @@
       (r->read_length || ap_should_client_block(r))
   
   /* alias */
  -#define mpxs_Apache__RequestRec_READ mpxs_Apache__RequestRec_read
  +#define mpxs_Apache__RequestRec_READ(r, buffer, bufsiz, offset) \
  +    mpxs_Apache__RequestRec_read(aTHX_ r, buffer, bufsiz, offset)
   
  -static long mpxs_Apache__RequestRec_read(request_rec *r,
  +static long mpxs_Apache__RequestRec_read(pTHX_ request_rec *r,
                                            SV *buffer, int bufsiz,
                                            int offset)
   {
  -    dTHX; /*XXX*/
       long nrd = 0;
       int rc;
   
  
  
  
  1.10      +5 -10     modperl-2.0/xs/Apache/RequestUtil/Apache__RequestUtil.h
  
  Index: Apache__RequestUtil.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/Apache/RequestUtil/Apache__RequestUtil.h,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -r1.9 -r1.10
  --- Apache__RequestUtil.h	2001/11/01 22:18:25	1.9
  +++ Apache__RequestUtil.h	2001/11/07 03:39:08	1.10
  @@ -1,9 +1,8 @@
   static MP_INLINE
  -int mpxs_Apache__RequestRec_push_handlers(request_rec *r,
  +int mpxs_Apache__RequestRec_push_handlers(pTHX_ request_rec *r,
                                             const char *name,
                                             SV *sv)
   {
  -    dTHX; /*XXX*/
       return modperl_handler_perl_add_handlers(aTHX_
                                                r, NULL, r->server, r->pool,
                                                name, sv,
  @@ -12,11 +11,10 @@
   }
   
   static MP_INLINE
  -int mpxs_Apache__RequestRec_set_handlers(request_rec *r,
  +int mpxs_Apache__RequestRec_set_handlers(pTHX_ request_rec *r,
                                            const char *name,
                                            SV *sv)
   {
  -    dTHX; /*XXX*/
       return modperl_handler_perl_add_handlers(aTHX_
                                                r, NULL, r->server, r->pool,
                                                name, sv,
  @@ -24,10 +22,9 @@
   }
   
   static MP_INLINE
  -SV *mpxs_Apache__RequestRec_get_handlers(request_rec *r,
  +SV *mpxs_Apache__RequestRec_get_handlers(pTHX_ request_rec *r,
                                            const char *name)
   {
  -    dTHX; /*XXX*/
       MpAV **handp =
           modperl_handler_get_handlers(r, NULL, r->server,
                                        r->pool, name,
  @@ -86,7 +83,7 @@
   }
   
   static MP_INLINE
  -request_rec *mpxs_Apache_request(SV *classname, SV *svr)
  +request_rec *mpxs_Apache_request(pTHX_ SV *classname, SV *svr)
   {
       request_rec *cur;
       apr_status_t status = modperl_tls_get_request_rec(&cur);
  @@ -96,7 +93,6 @@
       }
   
       if (svr) {
  -        dTHX; /*XXX*/
           modperl_global_request_obj_set(aTHX_ svr);
       }
   
  @@ -156,9 +152,8 @@
   
   
   static MP_INLINE
  -int mpxs_Apache__RequestRec_no_cache(request_rec *r, SV *flag)
  +int mpxs_Apache__RequestRec_no_cache(pTHX_ request_rec *r, SV *flag)
   {
  -    dTHX; /* XXX */
       int retval = r->no_cache;
   
       if (flag) {
  
  
  
  1.4       +3 -6      modperl-2.0/xs/Apache/ServerUtil/Apache__ServerUtil.h
  
  Index: Apache__ServerUtil.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/Apache/ServerUtil/Apache__ServerUtil.h,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- Apache__ServerUtil.h	2001/10/09 18:01:21	1.3
  +++ Apache__ServerUtil.h	2001/11/07 03:39:08	1.4
  @@ -1,9 +1,8 @@
   static MP_INLINE
  -int mpxs_Apache__Server_push_handlers(server_rec *s,
  +int mpxs_Apache__Server_push_handlers(pTHX_ server_rec *s,
                                         const char *name,
                                         SV *sv)
   {
  -    dTHX; /*XXX*/
       return modperl_handler_perl_add_handlers(aTHX_
                                                NULL, NULL, s,
                                                s->process->pconf,
  @@ -13,11 +12,10 @@
   }
   
   static MP_INLINE
  -int mpxs_Apache__Server_set_handlers(server_rec *s,
  +int mpxs_Apache__Server_set_handlers(pTHX_ server_rec *s,
                                        const char *name,
                                        SV *sv)
   {
  -    dTHX; /*XXX*/
       return modperl_handler_perl_add_handlers(aTHX_
                                                NULL, NULL, s,
                                                s->process->pconf,
  @@ -26,10 +24,9 @@
   }
   
   static MP_INLINE
  -SV *mpxs_Apache__Server_get_handlers(server_rec *s,
  +SV *mpxs_Apache__Server_get_handlers(pTHX_ server_rec *s,
                                        const char *name)
   {
  -    dTHX; /*XXX*/
       MpAV **handp =
           modperl_handler_get_handlers(NULL, NULL, s,
                                        s->process->pconf, name,
  
  
  
  1.3       +2 -4      modperl-2.0/xs/ModPerl/Global/ModPerl__Global.h
  
  Index: ModPerl__Global.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/ModPerl/Global/ModPerl__Global.h,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- ModPerl__Global.h	2001/10/08 16:57:08	1.2
  +++ ModPerl__Global.h	2001/11/07 03:39:08	1.3
  @@ -21,19 +21,17 @@
   }
   
   static
  -MP_INLINE int mpxs_ModPerl__Global_special_list_call(const char *name,
  +MP_INLINE int mpxs_ModPerl__Global_special_list_call(pTHX_ const char *name,
                                                        SV *package)
   {
  -    dTHX; /* XXX */
       return mpxs_special_list_do(aTHX_ name, package,
                                   modperl_perl_global_avcv_call);
   }
   
   static
  -MP_INLINE int mpxs_ModPerl__Global_special_list_clear(const char *name,
  +MP_INLINE int mpxs_ModPerl__Global_special_list_clear(pTHX_ const char *name,
                                                         SV *package)
   {
  -    dTHX; /* XXX */
       return mpxs_special_list_do(aTHX_ name, package,
                                   modperl_perl_global_avcv_clear);
   }
  
  
  
  1.45      +65 -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.44
  retrieving revision 1.45
  diff -u -r1.44 -r1.45
  --- FunctionTable.pm	2001/11/07 03:13:21	1.44
  +++ FunctionTable.pm	2001/11/07 03:39:09	1.45
  @@ -2,7 +2,7 @@
   
   # !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   # ! WARNING: generated by ModPerl::ParseSource/0.01
  -# !          Tue Nov  6 19:24:25 2001
  +# !          Tue Nov  6 19:34:31 2001
   # !          do NOT edit, any changes will be lost !
   # !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   
  @@ -3893,6 +3893,10 @@
       ],
       'args' => [
         {
  +        'type' => 'PerlInterpreter *',
  +        'name' => 'my_perl'
  +      },
  +      {
           'type' => 'SV *',
           'name' => 'classname'
         },
  @@ -3965,6 +3969,10 @@
       ],
       'args' => [
         {
  +        'type' => 'PerlInterpreter *',
  +        'name' => 'my_perl'
  +      },
  +      {
           'type' => 'SV *',
           'name' => 'tsv'
         },
  @@ -3979,6 +3987,10 @@
       'name' => 'mpxs_APR__URI_port',
       'args' => [
         {
  +        'type' => 'PerlInterpreter *',
  +        'name' => 'my_perl'
  +      },
  +      {
           'type' => 'apr_uri_t *',
           'name' => 'uri'
         },
  @@ -4083,6 +4095,10 @@
       ],
       'args' => [
         {
  +        'type' => 'PerlInterpreter *',
  +        'name' => 'my_perl'
  +      },
  +      {
           'type' => 'char *',
           'name' => 'name'
         }
  @@ -4093,6 +4109,10 @@
       'name' => 'mpxs_Apache__RequestRec_get_handlers',
       'args' => [
         {
  +        'type' => 'PerlInterpreter *',
  +        'name' => 'my_perl'
  +      },
  +      {
           'type' => 'request_rec *',
           'name' => 'r'
         },
  @@ -4149,6 +4169,10 @@
       'name' => 'mpxs_Apache__RequestRec_no_cache',
       'args' => [
         {
  +        'type' => 'PerlInterpreter *',
  +        'name' => 'my_perl'
  +      },
  +      {
           'type' => 'request_rec *',
           'name' => 'r'
         },
  @@ -4195,6 +4219,10 @@
       'name' => 'mpxs_Apache__RequestRec_push_handlers',
       'args' => [
         {
  +        'type' => 'PerlInterpreter *',
  +        'name' => 'my_perl'
  +      },
  +      {
           'type' => 'request_rec *',
           'name' => 'r'
         },
  @@ -4216,6 +4244,10 @@
       ],
       'args' => [
         {
  +        'type' => 'PerlInterpreter *',
  +        'name' => 'my_perl'
  +      },
  +      {
           'type' => 'request_rec *',
           'name' => 'r'
         },
  @@ -4292,6 +4324,10 @@
       'name' => 'mpxs_Apache__RequestRec_set_handlers',
       'args' => [
         {
  +        'type' => 'PerlInterpreter *',
  +        'name' => 'my_perl'
  +      },
  +      {
           'type' => 'request_rec *',
           'name' => 'r'
         },
  @@ -4310,6 +4346,10 @@
       'name' => 'mpxs_Apache__RequestRec_write',
       'args' => [
         {
  +        'type' => 'PerlInterpreter *',
  +        'name' => 'my_perl'
  +      },
  +      {
           'type' => 'request_rec *',
           'name' => 'r'
         },
  @@ -4332,6 +4372,10 @@
       'name' => 'mpxs_Apache__Server_get_handlers',
       'args' => [
         {
  +        'type' => 'PerlInterpreter *',
  +        'name' => 'my_perl'
  +      },
  +      {
           'type' => 'server_rec *',
           'name' => 's'
         },
  @@ -4346,6 +4390,10 @@
       'name' => 'mpxs_Apache__Server_push_handlers',
       'args' => [
         {
  +        'type' => 'PerlInterpreter *',
  +        'name' => 'my_perl'
  +      },
  +      {
           'type' => 'server_rec *',
           'name' => 's'
         },
  @@ -4364,6 +4412,10 @@
       'name' => 'mpxs_Apache__Server_set_handlers',
       'args' => [
         {
  +        'type' => 'PerlInterpreter *',
  +        'name' => 'my_perl'
  +      },
  +      {
           'type' => 'server_rec *',
           'name' => 's'
         },
  @@ -4382,6 +4434,10 @@
       'name' => 'mpxs_Apache_request',
       'args' => [
         {
  +        'type' => 'PerlInterpreter *',
  +        'name' => 'my_perl'
  +      },
  +      {
           'type' => 'SV *',
           'name' => 'classname'
         },
  @@ -4399,6 +4455,10 @@
       ],
       'args' => [
         {
  +        'type' => 'PerlInterpreter *',
  +        'name' => 'my_perl'
  +      },
  +      {
           'type' => 'const char *',
           'name' => 'name'
         },
  @@ -4415,6 +4475,10 @@
         '__inline__'
       ],
       'args' => [
  +      {
  +        'type' => 'PerlInterpreter *',
  +        'name' => 'my_perl'
  +      },
         {
           'type' => 'const char *',
           'name' => 'name'
  
  
  

Mime
View raw message