cvs commit: modperl-2.0/xs .cvsignore

[dougm]

dougm       01/10/09 11:19:36

  Modified:    lib/ModPerl WrapXS.pm
               xs       .cvsignore
  Log:
  generate {apache,modperl}.exp files for aix
  
  Revision  Changes    Path
  1.25      +23 -0     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.24
  retrieving revision 1.25
  diff -u -r1.24 -r1.25
  --- WrapXS.pm 2001/10/08 17:04:46     1.24
  +++ WrapXS.pm 2001/10/09 18:19:35     1.25
  @@ -568,6 +568,7 @@
   
       $self->get_functions;
       $self->get_structures;
  +    $self->write_exp; #XXX if $^O eq 'aix'
   
       while (my($module, $functions) = each %{ $self->{XS} }) {
   #        my($root, $sub) = split '::', $module;
  @@ -577,6 +578,28 @@
           $self->write_makefilepl($module);
           $self->write_xs($module, $functions);
           $self->write_pm($module);
  +    }
  +}
  +
  +sub write_exp {
  +    my $self = shift;
  +
  +    my %files = (
  +        modperl => $ModPerl::FunctionTable,
  +        apache  => $Apache::FunctionTable,
  +    );
  +
  +    while (my($name, $table) = each %files) {
  +        my $file = join '/', $self->{XS_DIR}, "$name.exp";
  +        open my $fh, '>', $file or die "open $file: $!";
  +
  +        print $fh "#!\n";
  +
  +        for my $entry (@$table) {
  +            print $fh "$entry->{name}\n";
  +        }
  +
  +        close $fh or die "close $file: $!";
       }
   }
   
  
  
  
  1.2       +2 -0      modperl-2.0/xs/.cvsignore
  
  Index: .cvsignore
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/.cvsignore,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- .cvsignore        2001/03/05 04:06:54     1.1
  +++ .cvsignore        2001/10/09 18:19:36     1.2
  @@ -2,3 +2,5 @@
   Makefile
   modperl_xs_typedefs.h
   modperl_xs_sv_convert.h
  +apache.exp
  +modperl.exp