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/maps apache_functions.map
Date Sat, 05 May 2001 02:06:16 GMT
dougm       01/05/04 19:06:15

  Modified:    xs/Apache/Access Apache__Access.h
               xs/maps  apache_functions.map
  Log:
  implement ap_allow_methods
  
  Revision  Changes    Path
  1.3       +26 -0     modperl-2.0/xs/Apache/Access/Apache__Access.h
  
  Index: Apache__Access.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/Apache/Access/Apache__Access.h,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- Apache__Access.h	2001/04/12 04:57:19	1.2
  +++ Apache__Access.h	2001/05/05 02:06:11	1.3
  @@ -57,3 +57,29 @@
   
       return newRV_noinc((SV*)av); 
   }
  +
  +/* XXX: should be part of generation */
  +#undef mp_xs_sv2_r
  +#define mp_xs_sv2_r(sv) modperl_sv2request_rec(aTHX_ sv)
  +
  +static MP_INLINE
  +void mpxs_ap_allow_methods(pTHX_ I32 items, SV **MARK, SV **SP)
  +{
  +    request_rec *r;
  +    SV *reset;
  +
  +    mpxs_usage_va_2(r, reset, "$r->allow_methods(reset, ...)");
  +
  +    if (SvIV(reset)) {
  +        ap_clear_method_list(r->allowed_methods);
  +    }
  +
  +    while (MARK <= SP) {
  +        STRLEN n_a;
  +        char *method = SvPV(*MARK, n_a);
  +        ap_method_list_add(r->allowed_methods, method);
  +        MARK++;
  +    }
  +}
  +
  +                                            
  
  
  
  1.21      +1 -1      modperl-2.0/xs/maps/apache_functions.map
  
  Index: apache_functions.map
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/maps/apache_functions.map,v
  retrieving revision 1.20
  retrieving revision 1.21
  diff -u -r1.20 -r1.21
  --- apache_functions.map	2001/05/05 01:17:01	1.20
  +++ apache_functions.map	2001/05/05 02:06:14	1.21
  @@ -102,7 +102,7 @@
    ap_custom_response
   
   MODULE=Apache::Access   PACKAGE=guess
  - ap_allow_methods
  + ap_allow_methods | mpxs_ | ...
    ap_allow_options
    ap_allow_overrides
    ap_get_remote_logname
  
  
  

Mime
View raw message