stas 2003/01/11 18:31:55
Modified: xs/Apache/Filter Apache__Filter.h
xs/maps apache_structures.map modperl_functions.map
xs/tables/current/ModPerl FunctionTable.pm
Log:
add support for filter context variable
Revision Changes Path
1.20 +13 -0 modperl-2.0/xs/Apache/Filter/Apache__Filter.h
Index: Apache__Filter.h
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/Apache/Filter/Apache__Filter.h,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -r1.19 -r1.20
--- Apache__Filter.h 1 Jul 2002 07:08:45 -0000 1.19
+++ Apache__Filter.h 12 Jan 2003 02:31:54 -0000 1.20
@@ -112,3 +112,16 @@
XSRETURN_EMPTY;
}
+
+static MP_INLINE SV *mpxs_Apache__Filter_ctx(pTHX_
+ ap_filter_t *filter,
+ SV *data)
+{
+ modperl_filter_ctx_t *ctx = (modperl_filter_ctx_t *)(filter->ctx);
+
+ if (data != Nullsv) {
+ ctx->data = SvREFCNT_inc(data);
+ }
+
+ return ctx->data ? SvREFCNT_inc(ctx->data) : &PL_sv_undef;
+}
1.18 +1 -1 modperl-2.0/xs/maps/apache_structures.map
Index: apache_structures.map
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/maps/apache_structures.map,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- apache_structures.map 21 May 2002 02:50:16 -0000 1.17
+++ apache_structures.map 12 Jan 2003 02:31:54 -0000 1.18
@@ -170,7 +170,7 @@
<ap_filter_t>
frec
- ctx
+- ctx
next
r
c
1.47 +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.46
retrieving revision 1.47
diff -u -r1.46 -r1.47
--- modperl_functions.map 6 Dec 2002 16:19:36 -0000 1.46
+++ modperl_functions.map 12 Jan 2003 02:31:54 -0000 1.47
@@ -74,6 +74,7 @@
mpxs_Apache__Filter_print | | ...
mpxs_Apache__Filter_read | | ...
+ mpxs_Apache__Filter_ctx | | filter, data=Nullsv
SV *:DEFINE_TIEHANDLE | | SV *:stashsv, SV *:sv=Nullsv
int:DEFINE_PRINT | | ...
1.92 +22 -0 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.91
retrieving revision 1.92
diff -u -r1.91 -r1.92
--- FunctionTable.pm 12 Jan 2003 02:15:58 -0000 1.91
+++ FunctionTable.pm 12 Jan 2003 02:31:55 -0000 1.92
@@ -4870,6 +4870,28 @@
]
},
{
+ 'return_type' => 'SV *',
+ 'name' => 'mpxs_Apache__Filter_ctx',
+ 'attr' => [
+ 'static',
+ '__inline__'
+ ],
+ 'args' => [
+ {
+ 'type' => 'PerlInterpreter *',
+ 'name' => 'my_perl'
+ },
+ {
+ 'type' => 'ap_filter_t *',
+ 'name' => 'filter'
+ },
+ {
+ 'type' => 'SV *',
+ 'name' => 'data'
+ },
+ ]
+ },
+ {
'return_type' => 'void',
'name' => 'mpxs_Apache__Log_BOOT',
'attr' => [