cvs commit: modperl-2.0/lib/ModPerl Code.pm
stas2003/02/02 17:18:15 Modified:lib/ModPerl Code.pm Log: fix the indentation for the autogenerated files Revision ChangesPath 1.90 +1 -1 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.89 retrieving revision 1.90 diff -u -r1.89 -r1.90 --- Code.pm 11 Jan 2003 03:20:54 - 1.89 +++ Code.pm 3 Feb 2003 01:18:15 - 1.90 @@ -62,7 +62,7 @@ my $scfg_get = 'MP_dSCFG(parms-server)'; my $dcfg_get = $scfg_get;\n . - 'modperl_config_dir_t *dcfg = (modperl_config_dir_t *)dummy'; + 'modperl_config_dir_t *dcfg = (modperl_config_dir_t *)dummy'; my %directive_proto = ( PerSrv = {
cvs commit: modperl-2.0/lib/ModPerl Code.pm
dougm 2002/06/29 12:43:51 Modified:lib/ModPerl Code.pm Log: provide mechanism to #ifdef constants add APLOG_TOCLIENT to the list of #ifdef constants Revision ChangesPath 1.84 +20 -2 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.83 retrieving revision 1.84 diff -u -r1.83 -r1.84 --- Code.pm 21 Jun 2002 00:05:49 - 1.83 +++ Code.pm 29 Jun 2002 19:43:51 - 1.84 -718,6 +718,18 REDIRECT = 'HTTP_MOVED_TEMPORARILY', ); +my %ifdef = map { $_, 1 } qw(APLOG_TOCLIENT); + +sub constants_ifdef { +my $name = shift; + +if ($ifdef{$name}) { +return (#ifdef $name\n, #endif /* $name */\n); +} + +(, ); +} + sub constants_lookup_code { my($h_fh, $c_fh, $constants, $class) = _; -761,10 +773,13 print $c_fh case '$key':\n; for my $name ($names) { +my ifdef = constants_ifdef($alias{$name}); print $c_fh EOF; +$ifdef[0] if (strEQ(name, $name)) { return $alias{$name}; } +$ifdef[1] EOF } print $c_fh break;\n; -806,8 +821,11 push tags, $group; my $name = join '_', 'MP_constants', $class, $group; print $c_fh \nstatic const char *$name [] = { \n, - (map { s/^($constant_prefixes)_?//o; - qq( $_,\n) } $constants),NULL,\n};\n; + (map { + my ifdef = constants_ifdef($_); + s/^($constant_prefixes)_?//o; + qq($ifdef[0] $_,\n$ifdef[1]) + } $constants),NULL,\n};\n; } my %switch;
cvs commit: modperl-2.0/lib/ModPerl Code.pm
dougm 2002/06/15 18:09:46 Modified:lib/ModPerl Code.pm Log: integrate modperl_perl_pp module Revision ChangesPath 1.82 +1 -1 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.81 retrieving revision 1.82 diff -u -r1.81 -r1.82 --- Code.pm 21 May 2002 00:33:33 - 1.81 +++ Code.pm 16 Jun 2002 01:09:46 - 1.82 -563,7 +563,7 my c_src_names = qw(interp tipool log config cmd options callback handler gtop util io filter bucket mgv pcw global env cgi - perl perl_global); + perl perl_global perl_pp); my g_c_names = map { modperl_$_ } qw(hooks directives flags xsinit); my c_names = ('mod_perl', (map modperl_$_, c_src_names)); sub c_files { [map { $_.c } c_names, g_c_names] }