cvs commit: modperl-2.0/lib/ModPerl ParseSource.pm WrapXS.pm

[dougm]

dougm   01/10/07 15:39:09

  Modified:lib/ModPerl ParseSource.pm WrapXS.pm
  Log:
  include ModPerl:: in generated xs
  
  Revision  ChangesPath
  1.3   +1 -1  modperl-2.0/lib/ModPerl/ParseSource.pm
  
  Index: ParseSource.pm
  ===
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/ParseSource.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- ParseSource.pm2001/04/19 17:23:23 1.2
  +++ ParseSource.pm2001/10/07 22:39:09 1.3
  @@ -25,7 +25,7 @@
   #filter/sort
   my @wanted  = grep { /mod_perl\.h/ } @$includes;
   push @wanted, grep { m:xs/modperl_xs_: } @$includes;
  -push @wanted, grep { m:xs/A: } @$includes;
  +push @wanted, grep { m:xs/[AM]: } @$includes;
   \@wanted;
   }
   
  
  
  
  1.23  +1 -1  modperl-2.0/lib/ModPerl/WrapXS.pm
  
  Index: WrapXS.pm
  ===
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/WrapXS.pm,v
  retrieving revision 1.22
  retrieving revision 1.23
  diff -u -r1.22 -r1.23
  --- WrapXS.pm 2001/09/25 19:44:02 1.22
  +++ WrapXS.pm 2001/10/07 22:39:09 1.23
  @@ -553,7 +553,7 @@
   
   $self-prepare;
   
  -for (qw(ModPerl::WrapXS Apache APR)) {
  +for (qw(ModPerl::WrapXS Apache APR ModPerl)) {
   $self-write_makefilepl($_);
   }
   
  
  
  

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

[dougm]

dougm   01/04/19 10:23:27

  Modified:lib/ModPerl ParseSource.pm
  Log:
  re fixup
  
  Revision  ChangesPath
  1.2   +2 -2  modperl-2.0/lib/ModPerl/ParseSource.pm
  
  Index: ParseSource.pm
  ===
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/ParseSource.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- ParseSource.pm2001/03/04 23:26:53 1.1
  +++ ParseSource.pm2001/04/19 17:23:23 1.2
  @@ -29,8 +29,8 @@
   \@wanted;
   }
   
  -my $prefixes = join '|', qw(modperl_|mpxs_|mp_xs);
  -my $prefix_re = qr{^($prefixes)};
  +my $prefixes = join '|', qw(modperl mpxs mp_xs);
  +my $prefix_re = qr{^($prefixes)_};
   sub wanted_functions { $prefix_re }
   
   sub write_functions_pm {
  
  
  

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

[dougm]

dougm   01/03/04 15:26:53

  Added:   lib/ModPerl ParseSource.pm
  Log:
  subclass of Apache::ParseSource for building ModPerl::FunctionTable
  
  Revision  ChangesPath
  1.1  modperl-2.0/lib/ModPerl/ParseSource.pm
  
  Index: ParseSource.pm
  ===
  package ModPerl::ParseSource;
  
  use strict;
  use Config ();
  use Apache::ParseSource ();
  
  our @ISA = qw(Apache::ParseSource);
  our $VERSION = '0.01';
  
  sub includes {
  my $self = shift;
  my $dirs = $self-SUPER::includes;
  return [
  '.', qw(xs src/modules/perl),
  @$dirs,
  "$Config::Config{archlibexp}/CORE",
 ];
  }
  
  sub include_dirs { '.' }
  
  sub find_includes {
  my $self = shift;
  my $includes = $self-SUPER::find_includes;
  #filter/sort
  my @wanted  = grep { /mod_perl\.h/ } @$includes;
  push @wanted, grep { m:xs/modperl_xs_: } @$includes;
  push @wanted, grep { m:xs/A: } @$includes;
  \@wanted;
  }
  
  my $prefixes = join '|', qw(modperl_|mpxs_|mp_xs);
  my $prefix_re = qr{^($prefixes)};
  sub wanted_functions { $prefix_re }
  
  sub write_functions_pm {
  my $self = shift;
  my $file = shift || 'FunctionTable.pm';
  my $name = shift || 'ModPerl::FunctionTable';
  $self-SUPER::write_functions_pm($file, $name);
  }
  
  for my $method (qw(get_constants get_structs write_structs_pm get_structs)) {
  no strict 'refs';
  *$method = sub { die __PACKAGE__ . "-$method not implemented" };
  }
  
  1;
  __END__