cvs commit: modperl-2.0/lib/ModPerl Code.pm

2003-02-02 Thread stas 
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

2002-06-29 Thread dougm 

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

2002-06-15 Thread dougm 

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] }