dougm 01/03/14 09:38:30
Modified: lib/ModPerl Code.pm
src/modules/perl modperl_callback.h
Log:
generate MP_HANDLER_TYPE_* defines
Revision Changes Path
1.43 +7 -0 modperl-2.0/lib/ModPerl/Code.pm
Index: Code.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/ModPerl/Code.pm,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -r1.42 -r1.43
--- Code.pm 2001/03/09 23:46:33 1.42
+++ Code.pm 2001/03/14 17:38:29 1.43
@@ -136,12 +136,19 @@
sub generate_handler_index {
my($self, $h_fh) = @_;
+ my $type = 1;
+
while (my($class, $handlers) = each %{ $self->{handlers} }) {
my $i = 0;
my $n = @$handlers;
print $h_fh "\n#define ",
canon_define($class, 'num_handlers'), " $n\n\n";
+
+ print $h_fh "#define ",
+ canon_define('HANDLER_TYPE', $class), " $type\n\n";
+
+ $type++;
for my $name (@$handlers) {
my $define = canon_define($name, 'handler');
1.14 +0 -6 modperl-2.0/src/modules/perl/modperl_callback.h
Index: modperl_callback.h
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_callback.h,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- modperl_callback.h 2001/03/14 17:28:07 1.13
+++ modperl_callback.h 2001/03/14 17:38:30 1.14
@@ -10,12 +10,6 @@
#define ap_hook_fixup ap_hook_fixups
#define ap_hook_log ap_hook_log_transaction
-#define MP_HANDLER_TYPE_PER_DIR 1
-#define MP_HANDLER_TYPE_PER_SRV 2
-#define MP_HANDLER_TYPE_CONNECTION 3
-#define MP_HANDLER_TYPE_PROCESS 4
-#define MP_HANDLER_TYPE_FILES 5
-
modperl_handler_t *modperl_handler_new(apr_pool_t *p, const char *name);
modperl_handler_t *modperl_handler_dup(apr_pool_t *p,
