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
