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