perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/lib/Apache ParseSource.pm
Date Sun, 07 Jan 2001 23:42:07 GMT
dougm       01/01/07 15:42:07

  Modified:    lib/Apache ParseSource.pm
  Log:
  pickup cmd_parms, command_rec and module structures
  
  Revision  Changes    Path
  1.2       +11 -2     modperl-2.0/lib/Apache/ParseSource.pm
  
  Index: ParseSource.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/Apache/ParseSource.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- ParseSource.pm	2001/01/07 23:18:58	1.1
  +++ ParseSource.pm	2001/01/07 23:42:07	1.2
  @@ -75,7 +75,7 @@
       }
   
       my @includes;
  -    my $unwanted = join '|', qw(ap_listen);
  +    my $unwanted = join '|', qw(ap_listen internal);
       File::Find::finddepth({
                              wanted => sub {
                                  return unless /\.h$/;
  @@ -143,11 +143,12 @@
   
       my %seen;
       my $prefix = join '|', qw(ap_ apr_ apu_);
  +    my $other  = join '|', qw(_rec module);
   
       my @structures;
   
       while (my($type, $elts) = each %$typedef_structs) {
  -        next unless $type =~ /^($prefix)/o or $type =~ /_rec$/;
  +        next unless $type =~ /^($prefix)/o or $type =~ /($other)$/o;
   
           next if $seen{$type}++;
   
  @@ -225,10 +226,18 @@
       my %typedef;
   
       my $apache_file = 0;
  +    my %typedef_aliases =
  +      (cmd_parms_struct => 'cmd_parms',
  +       command_struct => 'command_rec',
  +       module_struct => 'module');
   
  +    my $alias_re = join '|', keys %typedef_aliases;
  +
       while (<$cmd>) {
           #C::Scan cannot parse this
           s/const\s+char\s*\*\s+const\s*\*/const char **/g;
  +
  +        s/\b($alias_re)\b/$typedef_aliases{$1}/o;
   
           if (m(^\s*\#\s*	        # Leading hash
                 (line\s*)?	# 1: Optional line
  
  
  

Mime
View raw message