MM_Unix.pm revision 7c478bd95313f5f23a4c958a745db2134aa03244
use Exporter ();
use Config;
use DirHandle;
use strict;
# $Id: MM_Unix.pm,v 1.126 1998/06/28 21:32:49 k Exp k $
$Is_OS2 = $^O eq 'os2';
$Is_Mac = $^O eq 'MacOS';
$Is_Win32 = $^O eq 'MSWin32';
$Is_Dos = $^O eq 'dos';
if ($Is_VMS = $^O eq 'VMS') {
}
=head1 NAME
ExtUtils::MM_Unix - methods used by ExtUtils::MakeMaker
=head1 SYNOPSIS
C<require ExtUtils::MM_Unix;>
=head1 DESCRIPTION
The methods provided by this package are designed to be used in
conjunction with ExtUtils::MakeMaker. When MakeMaker writes a
Makefile, it creates one or more objects that inherit their methods
from a package C<MM>. MM itself doesn't provide any methods, but it
ISA ExtUtils::MM_Unix class. The inheritance tree of MM lets operating
specific packages take the responsibility for all the methods provided
by MM_Unix. We are trying to reduce the number of the necessary
overrides by defining rather primitive operations within
ExtUtils::MM_Unix.
If you are going to write a platform specific MM package, please try
to limit the necessary overrides to primitive methods, and if it is not
possible to do so, let's work out how to achieve that gain.
If you are overriding any of these methods in your Makefile.PL (in the
MY class), please report that to the makemaker mailing list. We are
trying to minimize the necessary method overrides and switch to data
driven Makefile.PLs wherever possible. In the long run less methods
will be overridable via the MY class.
=head1 METHODS
The following description of methods is still under
development. Please refer to the code for not suitably documented
sections and complain loudly to the makemaker mailing list.
Not all of the methods below are overridable in a
Makefile.PL. Overridable methods are marked as (o). All methods are
overridable by a platform specific MM_*.pm file (See
L<ExtUtils::MM_VMS>) and L<ExtUtils::MM_OS2>).
=head2 Preloaded methods
=over 2
=item canonpath
No physical check on the filesystem, but a logical cleanup of a
path. On UNIX eliminated successive slashes and successive "/.".
=cut
sub canonpath {
my $node = '';
if ( $^O eq 'qnx' && $path =~ s|^(//\d+)/|/|s ) {
$node = $1;
}
$path =~ s|(?<=[^/])/\z|| ; # xx/ -> xx
"$node$path";
}
=item catdir
Concatenate two or more directory names to form a complete path ending
with a directory. But remove the trailing slash from the resulting
string, because it doesn't look good, isn't necessary and confuses
OS2. Of course, if this is the root directory, don't cut off the
trailing slash :-)
=cut
# ';
sub catdir {
my $self = shift @_;
my @args = @_;
for (@args) {
# append a slash to each argument unless it has one there
$_ .= "/" if $_ eq '' or substr($_,-1) ne "/";
}
}
=item catfile
Concatenate one or more directory names and a filename to form a
complete path ending with a filename
=cut
sub catfile {
my $self = shift @_;
my $file = pop @_;
for ($dir) {
$_ .= "/" unless substr($_,length($_)-1,1) eq "/";
}
}
=item curdir
Returns a string representing of the current directory. "." on UNIX.
=cut
sub curdir {
return "." ;
}
=item rootdir
Returns a string representing of the root directory. "/" on UNIX.
=cut
sub rootdir {
return "/";
}
=item updir
Returns a string representing of the parent directory. ".." on UNIX.
=cut
sub updir {
return "..";
}
use SelfLoader;
1;
=back
=head2 SelfLoaded methods
=over 2
=item c_o (o)
Defines the suffix rules to compile different flavors of C files to
object files.
=cut
sub c_o {
# --- Translation Sections ---
my($self) = shift;
my(@m);
push @m, '
.c$(OBJ_EXT):
';
push @m, '
.C$(OBJ_EXT):
push @m, '
';
join "", @m;
}
=item cflags (o)
Does very much the same as the cflags script in the perl
distribution. It doesn't return the whole compiler command line, but
initializes all of its parts. The const_cccmd method then actually
returns the definition of the CCCMD macro which uses these parts.
=cut
#'
sub cflags {
my($optdebug) = "";
my(%map) = (
D => '-DDEBUGGING',
E => '-DEMBED',
DE => '-DDEBUGGING -DEMBED',
M => '-DEMBED -DMULTIPLICITY',
DM => '-DDEBUGGING -DEMBED -DMULTIPLICITY',
);
$uc = uc($1);
} else {
}
if ($uc =~ /^D/) {
$optdebug = "-g";
}
my($name);
# Expand hints for this extension via the shell
my(@o)=`cc=\"$cflags{cc}\"
ccflags=\"$cflags{ccflags}\"
optimize=\"$cflags{optimize}\"
perltype=\"$cflags{perltype}\"
optdebug=\"$cflags{optdebug}\"
eval '$prog'
`;
my($line);
foreach $line (@o){
chomp $line;
if ($line =~ /(.*?)=\s*(.*)\s*$/){
} else {
print STDOUT "Unrecognised result from hint: '$line'\n";
}
}
}
if ($optdebug) {
}
$cflags{$_} =~ s/^\s+//;
$cflags{$_} =~ s/\s+/ /g;
$cflags{$_} =~ s/\s+$//;
}
if ($Is_PERL_OBJECT) {
if ($Is_Win32) {
# Turn off C++ mode of the MSC compiler
}
# Turn off C++ mode of the Borland compiler
}
# Turn off C++ mode of the GCC compiler
}
}
}
}
my $pollute = '';
and $self->{PERL_MALLOC_OK}) {
$pollute = '$(PERL_MALLOC_DEF)';
}
};
}
=item clean (o)
Defines the clean target.
=cut
sub clean {
# --- Cleanup and Distribution Sections ---
my(@m,$dir);
push(@m, '
# Delete temporary files but do not touch installed files. We don\'t delete
# the Makefile here so a later make realclean still has a makefile to use.
clean ::
');
# clean subdirectories first
push @m, <<EOT;
cd ..
}
else {
push @m, <<EOT;
}
}
$(BASEEXT).exp
]);
push @m, "\t-$self->{RM_RF} @otherfiles\n";
push(@m,
"\t-$self->{MV} $self->{MAKEFILE} $self->{MAKEFILE}.old \$(DEV_NULL)\n");
push(@m,
join("", @m);
}
=item const_cccmd (o)
Returns the full compiler call for C programs and stores the
definition in CONST_CCCMD.
=cut
sub const_cccmd {
return $self->{CONST_CCCMD} =
$(XS_DEFINE_VERSION)};
}
=item const_config (o)
Defines a couple of constants in the Makefile that are imported from
%Config.
=cut
sub const_config {
# --- Constants Sections ---
my($self) = shift;
my(@m,$m);
push(@m,"\n# These definitions are from config.sh (via $INC{'Config.pm'})\n");
push(@m,"\n# They may have been overridden via Makefile.PL or on the command line\n");
my(%once_only);
# SITE*EXP macros are defined in &constants; avoid duplicates here
$once_only{$m} = 1;
}
join('', @m);
}
=item const_loadlibs (o)
Defines EXTRALIBS, LDLOADLIBS, BSLOADLIBS, LD_RUN_PATH. See
L<ExtUtils::Liblist> for details.
=cut
sub const_loadlibs {
my($self) = shift;
my @m;
push @m, qq{
# $self->{NAME} might depend on some other libraries:
# See ExtUtils::Liblist for details
#
};
my($tmp);
for $tmp (qw/
/) {
push @m, "$tmp = $self->{$tmp}\n";
}
return join "", @m;
}
=item constants (o)
Initializes lots of constants and .SUFFIXES and .PHONY
=cut
sub constants {
my($self) = @_;
my(@m,$tmp);
for $tmp (qw/
/ ) {
push @m, "$tmp = $self->{$tmp}\n";
}
push @m, qq{
PERL_MALLOC_DEF = -DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc -Dfree=Perl_mfree -Drealloc=Perl_realloc -Dcalloc=Perl_calloc
};
push @m, qq{
};
push @m, q{
# BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT. (eg Oracle)
# ROOTEXT = Directory part of FULLEXT with leading slash (eg /DBD) !!! Deprecated from MM 5.32 !!!
# PARENT_NAME = NAME without BASEEXT and no trailing :: (eg Foo::Bar)
# DLBASE = Basename part of dynamic library. May be just equal BASEEXT.
};
for $tmp (qw/
/ ) {
push @m, "$tmp = $self->{$tmp}\n";
}
push @m, "
# Handy lists of source code files:
";
for $tmp (qw/
/) {
push @m, "$tmp = $self->{$tmp}\n";
}
for $tmp (qw(
)
) {
# warn "self[$self] method[$method]";
}
push @m, q{
} if $ENV{CLEARCASE_ROOT};
# why not q{} ? -- emacs
push @m, qq{
# work around a famous dec-osf make(1) feature(?):
# Nick wanted to get rid of .PRECIOUS. I don't remember why. I seem to recall, that
# some make implementations will delete the Makefile when we rebuild it. Because
# we call false(1) when we rebuild it. So make(1) is not completely wrong when it
# does so. Our milage may vary.
# .PRECIOUS: Makefile # seems to be not necessary anymore
};
push @m, q{
# Where to put things:
};
if ($self->has_link_code()) {
push @m, '
';
} else {
push @m, '
';
}
push @m, "
EXPORT_LIST = $tmp
";
push @m, "
PERL_ARCHIVE = $tmp
";
push @m, "
";
# push @m, q{
#INST_PM = }.join(" \\\n\t", sort values %{$self->{PM}}).q{
#
#PM_TO_BLIB = }.join(" \\\n\t", %{$self->{PM}}).q{
#};
push @m, q{
};
join('',@m);
}
=item depend (o)
Same as macro for the depend attribute.
=cut
sub depend {
last unless defined $key;
push @m, "$key: $val\n";
}
join "", @m;
}
=item dir_target (o)
Takes an array of directories that need to exist and returns a
Makefile entry for a .exists file in these directories. Returns
nothing, if the entry has already been processed. We're helpless
though, if the same directory comes as $(FOO) _and_ as "bar". Both of
them get an entry, that's why we use "::".
=cut
sub dir_target {
# --- Make-Directories section (internal method) ---
# dir_target(@array) returns a Makefile entry for the file .exists in each
# named directory. Returns nothing, if the entry has already been processed.
# We're helpless though, if the same directory comes as $(FOO) _and_ as "bar".
# Both of them get an entry, that's why we use "::". I chose '$(PERL)' as the
# prerequisite, because there has to be one, something that doesn't change
# too often :)
# catfile may have adapted syntax of $dir to target OS, so...
if ($Is_VMS) { # Just remove file name; dirspec is often in macro
}
else { # while elsewhere we expect to see the dir separator in $targ
}
push @m, qq{
};
push(@m, qq{
}) unless $Is_VMS;
}
join "", @m;
}
=item dist (o)
Defines a lot of macros for distribution support.
=cut
sub dist {
my(@m);
# VERSION should be sanitised before use as a file name
? "$self->{NOECHO}"
. '$(TEST_F) tmp.zip && $(RM) tmp.zip;'
. ' $(ZIP) -ll -mr tmp.zip $(DISTVNAME) && unzip -o tmp.zip && $(RM) tmp.zip'
: "$self->{NOECHO}\$(NOOP)");
push @m, "
";
join "", @m;
}
=item dist_basics (o)
Defines the targets distclean, distcheck, skipcheck, manifest, veryclean.
=cut
sub dist_basics {
my($self) = shift;
my @m;
push @m, q{
};
push @m, q{
-e fullcheck
};
push @m, q{
-e skipcheck
};
push @m, q{
manifest :
-e mkmanifest
};
push @m, q{
};
join "", @m;
}
=item dist_ci (o)
Defines a check in target for RCS.
=cut
sub dist_ci {
my($self) = shift;
my @m;
push @m, q{
ci :
-e "@all = keys %{ maniread() };" \\
-e 'print("Executing $(CI) @all\n"); system("$(CI) @all");' \\
-e 'print("Executing $(RCS_LABEL) ...\n"); system("$(RCS_LABEL) @all");'
};
join "", @m;
}
=item dist_core (o)
Defines the targets dist, tardist, zipdist, uutardist, shdist
=cut
sub dist_core {
my($self) = shift;
my @m;
push @m, q{
dist : $(DIST_DEFAULT)
-e '-e ($$vf="$(VERSION_FROM)") and -M $$vf < -M "}.$self->{MAKEFILE}.q{";'
$(PREOP)
$(TO_UNIX)
$(POSTOP)
$(PREOP)
$(POSTOP)
$(PREOP)
$(POSTOP)
};
join "", @m;
}
=item dist_dir (o)
Defines the scratch directory target that will hold the distribution
before tar-ing (or shar-ing).
=cut
sub dist_dir {
my($self) = shift;
my @m;
push @m, q{
distdir :
-e "manicopy(maniread(),'$(DISTVNAME)', '$(DIST_CP)');"
};
join "", @m;
}
=item dist_test (o)
Defines a target that produces the distribution in the
scratchdirectory, and runs 'perl Makefile.PL; make ;make test' in that
subdirectory.
=cut
sub dist_test {
my($self) = shift;
my @m;
push @m, q{
};
join "", @m;
}
=item dlsyms (o)
Used by AIX and VMS to define DL_FUNCS and DL_VARS and write the *.exp
files.
=cut
sub dlsyms {
my(@m);
push(@m,"
") unless $self->{SKIPHASH}{'dynamic'}; # dynamic and static are subs, so...
push(@m,"
") unless $self->{SKIPHASH}{'static'}; # we avoid a warning if we tick them
push(@m,"
');
join('',@m);
}
=item dynamic (o)
Defines the dynamic target.
=cut
sub dynamic {
# --- Dynamic Loading Sections ---
my($self) = shift;
'
## $(INST_PM) has been moved to the all: target.
## It remains here for awhile to allow for old usage: "make dynamic"
#dynamic :: '.$self->{MAKEFILE}.' $(INST_DYNAMIC) $(INST_BOOT) $(INST_PM)
'.$self->{NOECHO}.'$(NOOP)
';
}
=item dynamic_bs (o)
Defines targets for bootstrap files.
=cut
sub dynamic_bs {
return '
' unless $self->has_link_code();
return '
BOOTSTRAP = '."$self->{BASEEXT}.bs".'
# As Mkbootstrap might not write a file (if none is required)
# we use touch to prevent make continually trying to remake it.
# The DynaLoader only reads a non-empty file.
-MExtUtils::Mkbootstrap \
-e "Mkbootstrap(\'$(BASEEXT)\',\'$(BSLOADLIBS)\');"
'."$self->{NOECHO}$self->{RM_RF}".' $(INST_BOOT)
';
}
=item dynamic_lib (o)
Defines how to produce the *.so (or equivalent) files.
=cut
sub dynamic_lib {
my($ldfrom) = '$(LDFROM)';
my(@m);
push(@m,'
# This section creates the dynamically loadable $(INST_DYNAMIC)
# from $(OBJECT) and possibly $(MYEXTLIB).
ARMAYBE = '.$armaybe.'
OTHERLDFLAGS = '.$otherldflags.'
INST_DYNAMIC_DEP = '.$inst_dynamic_dep.'
$(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)/.exists $(EXPORT_LIST) $(PERL_ARCHIVE) $(PERL_ARCHIVE_AFTER) $(INST_DYNAMIC_DEP)
');
if ($armaybe ne ':'){
$ldfrom = 'tmp$(LIB_EXT)';
push(@m,' $(RANLIB) '."$ldfrom\n");
}
# The IRIX linker doesn't use LD_RUN_PATH
# linger quite a while in the shared dynalinker cache even when nobody
# is using them. This is painful if one for instance tries to restart
# a failed build because the link command will fail unnecessarily 'cos
push(@m,' $(RM_F) $@
');
' $(OTHERLDFLAGS) -o $@ $(MYEXTLIB) $(PERL_ARCHIVE) $(LDLOADLIBS) $(PERL_ARCHIVE_AFTER) $(EXPORT_LIST)');
push @m, '
';
join('',@m);
}
=item exescan
Deprecated method. Use libscan instead.
=cut
sub exescan {
$path;
}
=item extliblist
Called by init_others, and calls ext ExtUtils::Liblist. See
L<ExtUtils::Liblist> for details.
=cut
sub extliblist {
}
=item file_name_is_absolute
Takes as argument a path and returns true, if it is an absolute path.
=cut
sub file_name_is_absolute {
if ($Is_Dos){
}
else {
$file =~ m:^/:s ;
}
}
=item find_perl
Finds the executables PERL and FULLPERL
=cut
sub find_perl {
if ($trace >= 2){
print "Looking for perl $ver by these names:
@$names
@$dirs
";
}
next unless defined $dir; # $self->{PERL_SRC} may be undefined
}
print "Using PERL=$abs\n" if $trace;
return $abs;
} elsif ($trace >= 2) {
print "Result: `$val'\n";
}
}
}
print STDOUT "Unable to find a perl $ver (by these names: @$names, in these dirs: @$dirs)\n";
0; # false and not empty
}
=back
=head2 Methods to actually produce chunks of text for the Makefile
The methods here are called for each MakeMaker object in the order
specified by @ExtUtils::MakeMaker::MM_Sections.
=over 2
=item fixin
Inserts the sharpbang or equivalent magic number to a script
=cut
sub fixin { # stolen from the pink Camel book, more or less
my($file,$interpreter);
local(*FIXIN);
local(*FIXOUT);
local $/ = "\n";
next unless $line =~ s/^\s*\#!\s*//; # Not a shbang file.
# Now figure out the interpreter name.
$cmd =~ s!^.*/!!;
# Now look (in reverse) for interpreter in absolute PATH (unless perl).
if ($cmd eq "perl") {
$interpreter =~ s,^\#!,,;
} else {
}
} else {
$interpreter = '';
my($dir);
}
}
}
# Figure out how to invoke interpreter on this machine.
my($shb) = "";
if ($interpreter) {
# this is probably value-free on DOSISH platforms
if ($does_shbang) {
$shb .= "$Config{'sharpbang'}$interpreter";
$shb .= "\n";
}
$shb .= qq{
eval 'exec $interpreter $arg -S \$0 \${1+"\$\@"}'
if 0; # not running under some shell
} unless $Is_Win32; # this won't work on win32, so don't
} else {
warn "Can't find $cmd in PATH, $file unchanged"
if $Verbose;
next;
}
unless ( open(FIXOUT,">$file.new") ) {
warn "Can't create new $file: $!\n";
next;
}
# Print out the new #! line (or equivalent).
local $\;
undef $/;
close FIXIN;
close FIXOUT;
# If they override perm_rwx, we won't notice it during fixin,
# because fixin is run through a new instance of MakeMaker.
# That is why we must run another CHMOD later.
unless ( rename($file, "$file.bak") ) {
warn "Can't rename $file to $file.bak: $!";
next;
}
unless ( rename("$file.new", $file) ) {
warn "Can't rename $file.new to $file: $!";
unless ( rename("$file.bak", $file) ) {
warn "Can't rename $file.bak back to $file either: $!";
warn "Leaving $file renamed as $file.bak\n";
}
next;
}
unlink "$file.bak";
} continue {
die "Can't reset permissions for $file: $!\n";
}
}
=item force (o)
Just writes FORCE:
=cut
sub force {
my($self) = shift;
'# Phony target to force checking subdirectories.
'.$self->{NOECHO}.'$(NOOP)
';
}
=item guess_name
Guess the name of this package by examining the working directory's
name. MakeMaker calls this only if the developer has not supplied a
NAME attribute.
=cut
# ';
sub guess_name {
my($self) = @_;
use Cwd 'cwd';
$name =~ s|[\-_][\d\.\-]+\z||; # this is new with MM 5.00, we
# strip minus or underline
# followed by a float or some such
print "Warning: Guessing NAME [$name] from current directory name.\n";
$name;
}
=item has_link_code
Returns true if C, XS, MYEXTLIB or similar objects exist within this
object that need a compiler. Does not descend into subdirectories as
needs_linking() does.
=cut
sub has_link_code {
my($self) = shift;
return 1;
}
}
=item htmlifypods (o)
Defines targets and routines to translate the pods into HTML manpages
and put them into the INST_HTMLLIBDIR and INST_HTMLSCRIPTDIR
directories.
=cut
sub htmlifypods {
return "\nhtmlifypods : pure_all\n\t$self->{NOECHO}\$(NOOP)\n" unless
my($dist);
my($pod2html_exe);
} else {
}
# No pod2html but some HTMLxxxPODS to be installed
print <<END;
END
$pod2html_exe = "-S pod2html";
}
my(@m);
push @m,
qq[POD2HTML_EXE = $pod2html_exe\n],
qq[POD2HTML = \$(PERL) -we 'use File::Basename; use File::Path qw(mkpath); %m=\@ARGV;for (keys %m){' \\\n],
q[-e 'next if -e $$m{$$_} && -M $$m{$$_} < -M $$_ && -M $$m{$$_} < -M "],
-e 'print "Htmlifying $$m{$$_}\n";' \\
-e '$$dir = dirname($$m{$$_}); mkpath($$dir) unless -d $$dir;' \\
-e 'system(qq[$$^X ].q["-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" $(POD2HTML_EXE) ].qq[$$_>$$m{$$_}])==0 or warn "Couldn\\047t install $$m{$$_}\n";' \\
-e 'chmod(oct($(PERM_RW))), $$m{$$_} or warn "chmod $(PERM_RW) $$m{$$_}: $$!\n";}'
];
push @m, "\nhtmlifypods : pure_all ";
push(@m,"\n");
push @m, "\t$self->{NOECHO}\$(POD2HTML) \\\n\t";
}
join('', @m);
}
=item init_dirscan
Initializes DIR, XS, PM, C, O_FILES, H, PL_FILES, HTML*PODS, MAN*PODS, EXE_FILES.
=cut
sub init_dirscan { # --- File and Directory Lists (.xs .pm .pod etc)
my($self) = @_;
local(%pm); #the sub in find() has to see this hash
next if $name =~ /\#/;
if (-d $name){
next if -l $name; # We do not support symlinks at all
$c{$c} = 1;
$c{$name} = 1
} elsif ($name =~ /\.h\z/i){
$h{$name} = 1;
# case-insensitive filesystem, one dot per name, so foo.h.PL
# under Unix appears as foo.h_pl under VMS or fooh.pl on Dos
}
}
}
# files into the library in various locations.
# The attribute PMLIBDIRS holds an array reference which lists
# subdirectories which we should search for library files to
# install. PMLIBDIRS defaults to [ 'lib', $self->{BASEEXT} ]. We
# recursively search through the named directories (skipping any
# which don't exist or contain Makefile.PL files).
# For each *.pm or *.pl file found $self->libscan() is called with
# the default installation path in $_[1]. The return value of
# libscan defines the actual installation location. The default
# libscan function simply returns the path. The file is skipped
# if libscan returns false.
# The default installation location passed to libscan in $_[1] is:
#
# ./*.pm => $(INST_LIBDIR)/*.pm
# ./xyz/... => $(INST_LIBDIR)/xyz/...
# ./lib/... => $(INST_LIB)/...
#
# In this way the 'lib' directory is seen as the root of the actual
# perl library whereas the others are relative to INST_LIBDIR
# (which includes PARENT_NAME). This is a subtle distinction but one
# that's important for nested modules.
#only existing directories that aren't in $dir are allowed
# Avoid $_ wherever possible:
# @{$self->{PMLIBDIRS}} = grep -d && !$dir{$_}, @{$self->{PMLIBDIRS}};
my ($pmlibdir);
}
print "Searching PMLIBDIRS: @{$self->{PMLIBDIRS}}\n"
if ($Verbose >= 2);
if (-d $_){
if ($_ eq "CVS" || $_ eq "RCS"){
}
return;
}
return if /\#/;
my($striplibpath,$striplibname);
local($_) = $inst; # for backwards compatibility
return unless $inst;
}
# Set up names of manual pages to generate from pods
my %pods;
unless ($self->{"${man}PODS"}) {
$self->{"${man}PODS"} = {};
}
}
local *FH;
my($ispod)=0;
if (open(FH,"<$name")) {
while (<FH>) {
if (/^=head1\s+\w+/) {
$ispod=1;
last;
}
}
close FH;
} else {
# If it doesn't exist yet, we assume, it has pods in it
$ispod = 1;
}
next unless $ispod;
if ($pods{HTMLSCRIPT}) {
}
}
}
}
}
my %manifypods = (); # we collect the keys first, i.e. the files
# we have to convert to pod
local *FH;
my($ispod)=0;
if (open(FH,"<$name")) {
while (<FH>) {
if (/^=head1\s+\w+/) {
$ispod=1;
last;
}
}
close FH;
} else {
$ispod = 1;
}
if( $ispod ) {
}
}
}
# Remove "Configure.pm" and similar, if it's not the only pod listed
# To force inclusion, just name it "Configure.pod", or override MAN3PODS
foreach $name (keys %manifypods) {
delete $manifypods{$name};
next;
}
my($manpagename) = $name;
$manpagename =~ s/\.p(od|m|l)\z//;
}
unless ($manpagename =~ s!^\W*lib\W+!!s) { # everything below lib is ok
}
}
}
}
}
=item init_main
Initializes NAME, FULLEXT, BASEEXT, PARENT_NAME, DLBASE, PERL_SRC,
PERL_LIB, PERL_ARCHLIB, PERL_INC, INSTALLDIRS, INST_*, INSTALL*,
PREFIX, CONFIG, AR, AR_STATIC_ARGS, LD, OBJ_EXT, LIB_EXT, EXE_EXT, MAP_TARGET,
LIBPERL_A, VERSION_FROM, VERSION, DISTNAME, VERSION_SYM.
=cut
sub init_main {
my($self) = @_;
# --- Initialize Module Name and Paths
# NAME = Foo::Bar::Oracle
# BASEEXT = Oracle
# ROOTEXT = Directory part of FULLEXT with leading /. !!! Deprecated from MM 5.32 !!!
# PARENT_NAME = Foo::Bar
### Only UNIX:
### ($self->{FULLEXT} =
# Copied from DynaLoader:
# Some systems have restrictions on files names for DLL's etc.
# mod2fname returns appropriate file base name (typically truncated)
# It may also edit @modparts if required.
if (defined &DynaLoader::mod2fname) {
}
if (defined &DynaLoader::mod2fname) {
# As of 5.001m, dl_os2 appends '_'
} else {
}
### ROOTEXT deprecated from MM 5.32
### ($self->{ROOTEXT} =
### $self->{ROOTEXT} = ($Is_VMS ? '' : '/') . $self->{ROOTEXT} if $self->{ROOTEXT};
# --- Initialize PERL_LIB, INST_LIB, PERL_SRC
# *Real* information: where did we get these two from? ...
my($dir);
foreach $dir ($self->updir(),$self->catdir($self->updir(),$self->updir()),$self->catdir($self->updir(),$self->updir(),$self->updir()),$self->catdir($self->updir(),$self->updir(),$self->updir(),$self->updir())){
if (
&&
&&
) {
last;
}
}
}
# catch a situation that has occurred a few times in the past:
unless (
or
&&
or
or
){
warn qq{
};
}
} else {
# we should also consider $ENV{PERL5LIB} here
my $perl_h;
and not $old){
# Maybe somebody tries to build an extension with an
# uninstalled Perl outside of Perl build tree
my $found;
}
if ($found) {
}
}
}
die qq{
};
}
# print STDOUT "Using header files found in $self->{PERL_INC}\n"
# if $Verbose && $self->needs_linking();
}
# We get SITELIBEXP and SITEARCHEXP directly via
# Get_from_Config. When we are running standard modules, these
# won't matter, we will set INSTALLDIRS to "perl". Otherwise we
# set it to "site". I prefer that INSTALLDIRS be set from outside
# MakeMaker.
# INST_LIB typically pre-set if building an extension after
# perl has been built and installed. Setting INST_LIB allows
# you to build directly into, say $Config::Config{privlibexp}.
##### XXXXX We have to change this nonsense
} else {
}
}
# We need to set up INST_LIBDIR before init_libscan() for VMS
# INST_EXE is deprecated, should go away March '97
# The user who requests an installation directory explicitly
# should not have to tell us a architecture installation directory
# as well. We look if a directory exists that is named after the
# architecture. If not we take it as a sign that it should be the
# same as the requested installation directory. Otherwise we take
# the found one.
my($libpair);
my $lib = "install$libpair->{l}";
my $Arch = uc "install$libpair->{a}";
}
}
}
# we have to look at the relation between $Config{prefix} and the
# requested values. We're going to set the $Config{prefix} part of
# all the installation path variables to literally $(PREFIX), so
# the user can still say make PREFIX=foo
# If the prefix contains perl, Configure shapes the tree as follows:
# perlprefix/lib/ INSTALLPRIVLIB
# perlprefix/lib/pod/
# perlprefix/lib/site_perl/ INSTALLSITELIB
# perlprefix/bin/ INSTALLBIN
# perlprefix/man/ INSTALLMAN1DIR
# else
#
# The above results in various kinds of breakage on various
# of /prefix/{lib,man}
$replace_prefix = qq[\$\(PREFIX\)];
for $install_variable (qw/
/) {
}
}
else {
}
else {
}
for $install_variable (qw/
/)
{
}
}
}
else {
}
for $install_variable (qw/
/)
{
}
# Now we head at the manpages. Maybe they DO NOT want manpages
# installed
unless defined $self->{INSTALLMAN1DIR};
unless (defined $self->{INST_MAN1DIR}){
} else {
}
}
unless defined $self->{INSTALLMAN3DIR};
unless (defined $self->{INST_MAN3DIR}){
} else {
}
}
unless defined $self->{INSTALLHTMLPRIVLIBDIR};
unless defined $self->{INSTALLHTMLSITELIBDIR};
unless (defined $self->{INST_HTMLLIBDIR}){
} else {
}
}
unless defined $self->{INSTALLHTMLSCRIPTDIR};
unless (defined $self->{INST_HTMLSCRIPTDIR}){
} else {
}
}
# Get some stuff out of %Config if we haven't yet done so
print STDOUT "CONFIG must be an array ref\n"
my(%once_only,$m);
next if $once_only{$m};
$once_only{$m} = 1;
}
# This is too dangerous:
# if ($^O eq "next") {
# $self->{AR} = "libtool";
# $self->{AR_STATIC_ARGS} = "-o";
# }
# But I leave it as a placeholder
# These should never be needed
# make a simple check if we find Exporter
warn "Warning: PERL_LIB ($self->{PERL_LIB}) seems not to be a perl library directory
# Determine VERSION and VERSION_FROM
if ($self->{VERSION_FROM}){
Carp::carp "WARNING: Setting VERSION via file '$self->{VERSION_FROM}' failed\n"
}
# strip blanks
}
# Graham Barr and Paul Marquess had some ideas how to ensure
# version compatibility between the *.pm file and the
# corresponding *.xs file. The bottomline was, that we need an
# XS_VERSION macro that defaults to VERSION:
# --- Initialize Perl Binary Locations
# Find Perl 5. The only contract here is that both 'PERL' and 'FULLPERL'
# will be working versions of perl 5. miniperl has priority over perl
# for PERL to ensure that $(PERL) is usable while building ./ext/*
}
'perl','perl5',"perl$Config{version}" ],
# don't check if perl is executable, maybe they have decided to
# supply switches with perl
# Define 'FULLPERL' to be a non-miniperl (used in test: target)
}
=item init_others
Initializes EXTRALIBS, BSLOADLIBS, LDLOADLIBS, LIBS, LD_RUN_PATH,
OBJECT, BOOTDEP, PERLMAINCC, LDFROM, LINKTYPE, NOOP, FIRST_MAKEFILE,
MAKEFILE, NOECHO, RM_F, RM_RF, TEST_F, TOUCH, CP, MV, CHMOD, UMASK_NULL
=cut
sub init_others { # --- Initialize Other Attributes
my($self) = shift;
# Compute EXTRALIBS, BSLOADLIBS and LDLOADLIBS from $self->{LIBS}
# Lets look at $self->{LIBS} carefully: It may be an anon array, a string or
# undefined. In any case we turn it into an anon array:
# May check $Config{libs} too, thus not empty.
my($libs);
# LD_RUN_PATH now computed by ExtUtils::Liblist
last;
}
}
} else {
# init_dirscan should have found out, if we have C files
}
# Sanity check: don't define LINKTYPE = dynamic if we're skipping
# the 'dynamic' section of MM. We don't have this problem with
# 'static', since we either must use it (%Config says we can't
# use dynamic loading) or the caller asked for it explicitly.
? 'static'
};
# These get overridden for VMS and maybe some other systems
}
=item install (o)
Defines the install target.
=cut
sub install {
my(@m);
push @m, q{
$(INST_LIB) $(INSTALLPRIVLIB) \
$(INST_ARCHLIB) $(INSTALLARCHLIB) \
$(INST_BIN) $(INSTALLBIN) \
$(INST_SCRIPT) $(INSTALLSCRIPT) \
$(INST_HTMLLIBDIR) $(INSTALLHTMLPRIVLIBDIR) \
$(INST_MAN1DIR) $(INSTALLMAN1DIR) \
$(INST_MAN3DIR) $(INSTALLMAN3DIR)
$(INST_LIB) $(INSTALLSITELIB) \
$(INST_ARCHLIB) $(INSTALLSITEARCH) \
$(INST_BIN) $(INSTALLBIN) \
$(INST_SCRIPT) $(INSTALLSCRIPT) \
$(INST_HTMLLIBDIR) $(INSTALLHTMLSITELIBDIR) \
$(INST_MAN1DIR) $(INSTALLMAN1DIR) \
$(INST_MAN3DIR) $(INSTALLMAN3DIR)
"Module" "$(NAME)" \
"installed into" "$(INSTALLPRIVLIB)" \
LINKTYPE "$(LINKTYPE)" \
VERSION "$(VERSION)" \
EXE_FILES "$(EXE_FILES)" \
"Module" "$(NAME)" \
"installed into" "$(INSTALLSITELIB)" \
LINKTYPE "$(LINKTYPE)" \
VERSION "$(VERSION)" \
EXE_FILES "$(EXE_FILES)" \
};
push @m, q{
};
join("",@m);
}
=item installbin (o)
Defines targets to make and to install EXE_FILES.
=cut
sub installbin {
my($self) = shift;
local($_) = $path; # for backwards compatibility
}
push(@m, qq{
} . ($Is_Win32
-e "system qq[pl2bat.bat ].shift"
-e "MY->fixin(shift)"
}).qq{
realclean ::
});
last unless defined $from;
push @m, "
";
}
join "", @m;
}
=item libscan (o)
Takes a path to a file that is found by init_dirscan and returns false
if we don't want to include this file in the library. Mainly used to
exclude RCS, CVS, and SCCS directories from installation.
=cut
# ';
sub libscan {
$path;
}
=item linkext (o)
Defines the linkext target which in turn defines the LINKTYPE.
=cut
sub linkext {
# LINKTYPE => static or dynamic or ''
"
";
}
=item lsdir
Takes as arguments a directory name and a regular expression. Returns
all entries in the directory that match the regular expression.
=cut
sub lsdir {
my($self) = shift;
my(@ls);
$dh->close;
@ls;
}
=item macro (o)
Simple subroutine to insert the macros defined by the macro attribute
into the Makefile.
=cut
sub macro {
last unless defined $key;
push @m, "$key = $val\n";
}
join "", @m;
}
=item makeaperl (o)
Called by staticmake. Defines how to write the Makefile to produce a
static new perl.
By default the Makefile produced includes all the static extensions in
the perl library. (Purified versions of library files, e.g.,
DynaLoader_pure_p1_c0_032.a are automatically ignored to avoid link errors.)
=cut
sub makeaperl {
my(@m);
push @m, "
# --- MakeMaker makeaperl section ---
MAP_TARGET = $target
";
push @m, q{
$(MAKE) -f $(MAKE_APERL_FILE) $@
$(MAKE_APERL_FILE) : $(FIRST_MAKEFILE)
foreach (@ARGV){
if( /\s/ ){
s/=(.*)/='$1'/;
}
push @m, " \\\n\t\t$_";
}
# push @m, map( " \\\n\t\t$_", @ARGV );
push @m, "\n";
return join '', @m;
}
$cccmd .= " $Config::Config{cccdlflags}"
# The front matter of the linkcommand...
$linkcmd =~ s/\s+/ /g;
# Which *.a files could we make use of...
local(%static);
return if m/^libperl/;
# Skip purified versions of libraries (e.g., DynaLoader_pure_p1_c0_032.a)
return if m/_pure_\w+_\w+_\w+\.\w+$/ and -f "$File::Find::dir/.pure";
if( exists $self->{INCLUDE_EXT} ){
my $found = 0;
my $incl;
my $xx;
$xx =~ s,/?$_,,;
$xx =~ s,/,::,g;
# Throw away anything not explicitly marked for inclusion.
# DynaLoader is implied.
$found++;
last;
}
}
return unless $found;
}
elsif( exists $self->{EXCLUDE_EXT} ){
my $excl;
my $xx;
$xx =~ s,/?$_,,;
$xx =~ s,/,::,g;
# Throw away anything explicitly marked for exclusion
}
}
# don't include the installed version of this extension. I
# leave this line here, although it is not necessary anymore:
# I patched minimod.PL instead, so that Miniperl.pm won't
# enclude duplicates
# Once the patch to minimod.PL is in the distribution, I can
# drop it
use Cwd 'cwd';
}, grep( -d $_, @{$searchdirs || []}) );
# We trust that what has been handed in as argument, will be buildable
for (sort keys %static) {
$_ = dirname($_) . "/extralibs.ld";
push @$extra, $_;
}
grep(s/^/-I/, @{$perlinc || []});
# MAP_STATIC doesn't look into subdirs yet. Once "all" is made and we
# regenerate the Makefiles, MAP_STATIC and the dependencies for
# extralibs.all are computed correctly
push @m, "
MAP_PERLINC = @{$perlinc || []}
MAP_STATIC = ",
";
if (defined $libperl) {
}
$libperl ||= "libperl$self->{LIB_EXT}";
$libperl = "$dir/$libperl";
$lperl ||= "libperl$self->{LIB_EXT}";
$lperl = "$dir/$lperl";
# We did not find a static libperl. Maybe there is a shared one?
if ($^O eq 'solaris' or $^O eq 'sunos') {
# SUNOS ld does not take the full path to a shared library
}
}
print STDOUT "Warning: $libperl not found
}
push @m, "
";
push @m, "
";
my $catfile;
push @m, "\tcat $catfile >> \$\@\n";
}
# SUNOS ld does not take the full path to a shared library
push @m, "
\$(MAP_TARGET) :: $tmp/perlmain\$(OBJ_EXT) \$(MAP_LIBPERL) \$(MAP_STATIC) \$(INST_ARCHAUTODIR)/extralibs.all
\$(MAP_LINKCMD) -o \$\@ \$(OPTIMIZE) $tmp/perlmain\$(OBJ_EXT) \$(LDFROM) \$(MAP_STATIC) $llibperl `cat \$(INST_ARCHAUTODIR)/extralibs.all` \$(MAP_PRELIBS)
";
push @m, "\tcd $tmp && $cccmd -I\$(PERL_INC) perlmain.c\n";
push @m, qq{
-e "writemain(grep s#.*/auto/##s, split(q| |, q|$(MAP_STATIC)|))" > $@t && $(MV) $@t $@
};
push @m, q{
"Perl binary" "$(MAP_TARGET)" \
MAP_STATIC "$(MAP_STATIC)" \
MAP_EXTRA "`cat $(INST_ARCHAUTODIR)/extralibs.all`" \
MAP_LIBPERL "$(MAP_LIBPERL)" \
};
push @m, q{
}.$self->{RM_F}.qq{ $tmp/perlmain\$(OBJ_EXT) $tmp/perlmain.c \$(MAP_TARGET) $makefilename \$(INST_ARCHAUTODIR)/extralibs.all
};
join '', @m;
}
=item makefile (o)
Defines how to rewrite the Makefile.
=cut
sub makefile {
my($self) = shift;
my @m;
# We do not know what target was originally specified so we
# must force a manual rerun to be sure. But as it should only
# happen very rarely it is not a significant problem.
push @m, '
$(OBJECT) : $(FIRST_MAKEFILE)
' if $self->{OBJECT};
push @m, q{
# We take a very conservative approach here, but it\'s worth it.
# We move Makefile to Makefile.old here to avoid gnu make looping.
# To change behavior to :: would be nice, but would break Tk b9.02
# so you find such a warning below the dist target.
#}.$self->{MAKEFILE}.q{ :: $(VERSION_FROM)
# }.$self->{NOECHO}.q{echo "Warning: Makefile possibly out of date with $(VERSION_FROM)"
};
join "", @m;
}
=item manifypods (o)
Defines targets and routines to translate the pods into manpages and
put them into the INST_* directories.
=cut
sub manifypods {
return "\nmanifypods : pure_all\n\t$self->{NOECHO}\$(NOOP)\n" unless
my($dist);
my($pod2man_exe);
} else {
}
# Maybe a build by uninstalled Perl?
}
# No pod2man but some MAN3PODS to be installed
print <<END;
END
$pod2man_exe = "-S pod2man";
}
my(@m);
push @m,
qq[POD2MAN_EXE = $pod2man_exe\n],
q[-e 'next if -e $$m{$$_} && -M $$m{$$_} < -M $$_ && -M $$m{$$_} < -M "],
-e 'print "Manifying $$m{$$_}\n";' \\
-e 'system(qq[$$^X ].q["-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" $(POD2MAN_EXE) ].qq[$$_>$$m{$$_}])==0 or warn "Couldn\\047t install $$m{$$_}\n";' \\
-e 'chmod(oct($(PERM_RW))), $$m{$$_} or warn "chmod $(PERM_RW) $$m{$$_}: $$!\n";}'
];
push @m, "\nmanifypods : pure_all ";
push(@m,"\n");
push @m, "\t$self->{NOECHO}\$(POD2MAN) \\\n\t";
}
join('', @m);
}
=item maybe_command
Returns true, if the argument is likely to be a command.
=cut
sub maybe_command {
return;
}
=item maybe_command_in_dirs
method under development. Not yet used. Ask Ilya :-)
=cut
sub maybe_command_in_dirs { # $ver is optional argument if looking for perl
# Ilya's suggestion. Not yet used, want to understand it first, but at least the code is here
next unless defined $dir; # $self->{PERL_SRC} may be undefined
}
print "Substituting $tryabs instead of $abs\n"
if (defined $ver) {
print "Using PERL=$abs\n" if $trace;
return $abs;
}
} else { # Do not look for perl
return $abs;
}
}
}
}
=item needs_linking (o)
Does this module need linking? Looks into subdirectory objects (see
also has_link_code())
=cut
sub needs_linking {
my($self) = shift;
return 1;
}
return 1;
}
}
}
=item nicetext
misnamed method (will have to be changed). The MM_Unix method just
returns the argument without further processing.
On VMS used to insure that colons marking targets are preceded by
space - most Unix Makes don't need this, but it's necessary under VMS
to distinguish the target delimiter from a colon appearing as part of
a filespec.
=cut
sub nicetext {
$text;
}
=item parse_version
parse a file and return what you think is $VERSION in this file set to.
It will return the string "undef" if it can't figure out what $VERSION
is.
=cut
sub parse_version {
my $result;
local *FH;
local $/ = "\n";
my $inpod = 0;
while (<FH>) {
next if $inpod;
chop;
# next unless /\$(([\w\:\']*)\bVERSION)\b.*\=/;
next unless /([\$*])(([\w\:\']*)\bVERSION)\b.*\=/;
my $eval = qq{
no strict;
local $1$2;
\$$2=undef; do {
$_
}; \$$2
};
no warnings;
warn "Could not eval '$eval' in $parsefile: $@" if $@;
last;
}
close FH;
return $result;
}
=item parse_abstract
parse a file and return what you think is the ABSTRACT
=cut
sub parse_abstract {
my $result;
local *FH;
local $/ = "\n";
my $inpod = 0;
$package =~ s/-/::/g;
while (<FH>) {
next if !$inpod;
chop;
next unless /^($package\s-\s)(.*)/;
$result = $2;
last;
}
close FH;
return $result;
}
=item pasthru (o)
Defines the string that is passed to recursive make calls in
subdirectories.
=cut
sub pasthru {
my($self) = shift;
my(@m,$key);
my(@pasthru);
$sep .= "\\\n\t";
push @pasthru, "$key=\"\$($key)\"";
}
join "", @m;
}
=item path
Takes no argument, returns the environment variable PATH as an array.
=cut
sub path {
my($self) = @_;
@path;
}
=item perl_script
Takes one argument, a file name, and returns the file name, if the
argument is likely to be a perl script. On MM_Unix this is true for
any ordinary, readable file.
=cut
sub perl_script {
return;
}
=item perldepend (o)
Defines the dependency from all *.h files that come with the perl
distribution.
=cut
sub perldepend {
my($self) = shift;
my(@m);
push @m, q{
# Check for unpropogated config.sh changes. Should never happen.
# We do NOT just update config.h because that is not sufficient.
# An out of date config.h is not fatal but complains loudly!
-}.$self->{NOECHO}.q{echo "Warning: $(PERL_INC)/config.h out of date with $(PERL_SRC)/config.sh"; false
}.$self->{NOECHO}.q{echo "Warning: $(PERL_ARCHLIB)/Config.pm may be out of date with $(PERL_SRC)/config.sh"
push @m, q{
PERL_HDRS = \
$(PERL_INC)/cc_runtime.h \
$(PERL_INC)/patchlevel.h \
$(PERL_INC)/utf8.h \
$(PERL_INC)/warnings.h
join "\n", @m;
}
=item ppd
Defines target that creates a PPD (Perl Package Description) file
for a binary distribution.
=cut
sub ppd {
my($self) = @_;
my(@m);
if ($self->{ABSTRACT_FROM}){
Carp::carp "WARNING: Setting ABSTRACT via file '$self->{ABSTRACT_FROM}' failed\n";
}
push(@m, "# Creates a PPD (Perl Package Description) for a binary distribution.\n");
push(@m, "ppd:\n");
push(@m, "\t\@\$(PERL) -e \"print qq{<SOFTPKG NAME=\\\"$self->{DISTNAME}\\\" VERSION=\\\"$pack_ver\\\">\\n}");
push(@m, ". qq{\\t<TITLE>$self->{DISTNAME}</TITLE>\\n}");
push(@m, ". qq{\\t<ABSTRACT>$abstract</ABSTRACT>\\n}");
$author =~ s/@/\\@/g;
push(@m, ". qq{\\t<AUTHOR>$author</AUTHOR>\\n}");
push(@m, ". qq{\\t<IMPLEMENTATION>\\n}");
my ($prereq);
$pre_req =~ s/::/-/g;
push(@m, ". qq{\\t\\t<DEPENDENCY NAME=\\\"$pre_req\\\" VERSION=\\\"$dep_ver\\\" />\\n}");
}
push(@m, ". qq{\\t\\t<OS NAME=\\\"\$(OSNAME)\\\" />\\n}");
push(@m, ". qq{\\t\\t<ARCHITECTURE NAME=\\\"$Config{'archname'}\\\" />\\n}");
$bin_location =~ s/\\/\\\\/g;
if ($self->{PPM_INSTALL_SCRIPT}) {
if ($self->{PPM_INSTALL_EXEC}) {
push(@m, " . qq{\\t\\t<INSTALL EXEC=\\\"$self->{PPM_INSTALL_EXEC}\\\">$self->{PPM_INSTALL_SCRIPT}</INSTALL>\\n}");
}
else {
push(@m, " . qq{\\t\\t<INSTALL>$self->{PPM_INSTALL_SCRIPT}</INSTALL>\\n}");
}
}
push(@m, ". qq{\\t\\t<CODEBASE HREF=\\\"$bin_location\\\" />\\n}");
push(@m, ". qq{\\t</IMPLEMENTATION>\\n}");
push(@m, ". qq{</SOFTPKG>\\n}\" > $self->{DISTNAME}.ppd");
join("", @m);
}
=item perm_rw (o)
Returns the attribute C<PERM_RW> or the string C<644>.
Used as the string that is passed
MakeMaker chooses C<644> because it has turned out in the past that
relying on the umask provokes hard-to-track bug reports.
When the return value is used by the perl function C<chmod>, it is
interpreted as an octal value.
=cut
sub perm_rw {
shift->{PERM_RW} || "644";
}
=item perm_rwx (o)
Returns the attribute C<PERM_RWX> or the string C<755>,
i.e. the string that is passed
to the C<chmod> command to set the permissions for executable files.
See also perl_rw.
=cut
sub perm_rwx {
shift->{PERM_RWX} || "755";
}
=item pm_to_blib
Defines target that copies all files in the hash PM to their
destination and autosplits them. See L<ExtUtils::Install/DESCRIPTION>
=cut
sub pm_to_blib {
my $self = shift;
return q{
pm_to_blib: $(TO_INST_PM)
-e "pm_to_blib({qw{$(PM_TO_BLIB)}},'}.$autodir.q{','$(PM_FILTER)')"
};
}
=item post_constants (o)
Returns an empty string per default. Dedicated to overrides from
within Makefile.PL after all constants have been defined.
=cut
sub post_constants{
my($self) = shift;
"";
}
=item post_initialize (o)
Returns an empty string per default. Used in Makefile.PLs to add some
chunk of text to the Makefile after the object is initialized.
=cut
sub post_initialize {
my($self) = shift;
"";
}
=item postamble (o)
Returns an empty string. Can be used in Makefile.PLs to write some
text to the Makefile at the end.
=cut
sub postamble {
my($self) = shift;
"";
}
=item prefixify
Check a path variable in $self from %Config, if it contains a prefix,
and replace it with another one.
Takes as arguments an attribute name, a search prefix and a
replacement prefix. Changes the attribute in the object.
=cut
sub prefixify {
}
=item processPL (o)
Defines targets to run *.PL files.
=cut
sub processPL {
my($self) = shift;
my(@m, $plfile);
my $target;
push @m, "
";
}
}
join "", @m;
}
=item realclean (o)
Defines the realclean target.
=cut
sub realclean {
my(@m);
push(@m,'
# Delete temporary files (via clean) and also delete installed files
');
# realclean subdirectories first (already cleaned)
"\tcd %s\n\t\$(TEST_F) %s\n\t\$(MAKE) %s realclean\n\tcd ..\n" :
"\t-cd %s && \$(TEST_F) %s && \$(MAKE) %s realclean\n";
}
push(@m, " $self->{RM_RF} \$(INST_AUTODIR) \$(INST_ARCHAUTODIR)\n");
if( $self->has_link_code ){
push(@m, " $self->{RM_F} \$(INST_DYNAMIC) \$(INST_BOOT)\n");
push(@m, " $self->{RM_F} \$(INST_STATIC)\n");
}
# Issue a several little RM_F commands rather than risk creating a
# very long command line (useful for extensions such as Encode
# that have many files).
my $line = "";
if (length($line) + length($_) > 80) {
push @m, "\t$self->{RM_F} $line\n";
$line = $_;
}
else {
$line .= " $_";
}
}
push @m, "\t$self->{RM_F} $line\n" if $line;
}
"$self->{MAKEFILE}.old"); # Makefiles last
push(@m, " $self->{RM_RF} @otherfiles\n") if @otherfiles;
join("", @m);
}
=item replace_manpage_separator
Takes the name of a package, which may be a nested package, in the
=cut
if ($^O eq 'uwin') {
$man =~ s,/+,.,g;
} elsif ($Is_Dos) {
} else {
$man =~ s,/+,::,g;
}
$man;
}
=item static (o)
Defines the static target.
=cut
sub static {
# --- Static Loading Sections ---
my($self) = shift;
'
## $(INST_PM) has been moved to the all: target.
## It remains here for awhile to allow for old usage: "make static"
#static :: '.$self->{MAKEFILE}.' $(INST_STATIC) $(INST_PM)
'.$self->{NOECHO}.'$(NOOP)
';
}
=item static_lib (o)
Defines how to produce the *.a (or equivalent) files.
=cut
sub static_lib {
my($self) = @_;
# Come to think of it, if there are subdirs with linkcode, we still have no INST_STATIC
# return '' unless $self->needs_linking(); #might be because of a subdir
my(@m);
push(@m, <<'END');
$(RM_RF) $@
END
# If this extension has it's own library (eg SDBM_File)
# then copy that to $(INST_STATIC) and add $(OBJECT) into it.
my $ar;
# Prefer the absolute pathed ar if available so that PATH
# doesn't confuse us. Perl itself is built with the full_ar.
$ar = 'FULL_AR';
} else {
$ar = 'AR';
}
push @m,
"\t\$($ar) ".'$(AR_STATIC_ARGS) $@ $(OBJECT) && $(RANLIB) $@'."\n";
push @m,
};
# Old mechanism - still available:
push @m,
push @m, "\n";
join('', "\n",@m);
}
=item staticmake (o)
Calls makeaperl.
=cut
sub staticmake {
my(@static);
# And as it's not yet built, we add the current extension
# but only if it has some C code (or XS code, which implies C code)
if (@{$self->{C}}) {
"auto",
"$self->{BASEEXT}$self->{LIB_EXT}"
);
}
# Either we determine now, which libraries we will produce in the
# subdirectories or we do it at runtime of the make.
# We could ask all subdir objects, but I cannot imagine, why it
# would be necessary.
# Instead we determine all libraries for the new perl at
# runtime.
my(@perlinc) = ($self->{INST_ARCHLIB}, $self->{INST_LIB}, $self->{PERL_ARCHLIB}, $self->{PERL_LIB});
DIRS => \@searchdirs,
TMP => "",
);
}
=item subdir_x (o)
Helper subroutine for subdirs
=cut
sub subdir_x {
my(@m);
# XXX: dmake-specific, like rest of Win95 port
return <<EOT;
subdirs ::
@[
cd ..
]
}
else {
return <<EOT;
subdirs ::
}
}
=item subdirs (o)
Defines targets to process subdirectories.
=cut
sub subdirs {
# --- Sub-directory Sections ---
my($self) = shift;
my(@m,$dir);
# This method provides a mechanism to automatically deal with
# subdirectories containing further Makefile.PL scripts.
# It calls the subdir_x() method for each subdirectory.
#### print "Including $dir subdirectory\n";
}
if (@m){
unshift(@m, "
# The default clean, realclean and test targets in this Makefile
# have automatically been given entries for each subdir.
");
} else {
push(@m, "\n# none")
}
join('',@m);
}
=item test (o)
Defines the test targets.
=cut
sub test {
# --- Test and Installation Sections ---
if (!$tests && -d 't') {
}
# note: 'test.pl' name is also hardcoded in init_dirscan()
my(@m);
push(@m,"
TEST_FILES = $tests
TESTDB_SW = -d
");
push(@m, map("\t$self->{NOECHO}cd $_ && \$(TEST_F) $self->{MAKEFILE} && \$(MAKE) test \$(PASTHRU)\n",
push(@m, "\t$self->{NOECHO}echo 'No tests defined for \$(NAME) extension.'\n")
push(@m, "\n");
push(@m, "test_dynamic :: pure_all\n");
push(@m, "\n");
push(@m, "testdb_dynamic :: pure_all\n");
push(@m, "\n");
# Occasionally we may face this degenerate target:
push @m, "test_ : test_dynamic\n\n";
if ($self->needs_linking()) {
push(@m, "test_static :: pure_all \$(MAP_TARGET)\n");
push(@m, "\n");
push(@m, "testdb_static :: pure_all \$(MAP_TARGET)\n");
push(@m, "\n");
} else {
push @m, "test_static :: test_dynamic\n";
push @m, "testdb_static :: testdb_dynamic\n";
}
join("", @m);
}
=item test_via_harness (o)
Helper method to write the test targets
=cut
sub test_via_harness {
"\t$perl".q! -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -e 'use Test::Harness qw(&runtests $$verbose); $$verbose=$(TEST_VERBOSE); runtests @ARGV;' !."$tests\n";
}
=item test_via_script (o)
Other helper method for test.
=cut
sub test_via_script {
};
}
=item tool_autosplit (o)
Defines a simple perl call that runs autosplit. May be deprecated by
pm_to_blib soon.
=cut
sub tool_autosplit {
# --- Tool Sections ---
my($asl) = "";
q{
# Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto
AUTOSPLITFILE = $(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -e 'use AutoSplit;}.$asl.q{autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1) ;'
};
}
=item tools_other (o)
Defines SHELL, LD, TOUCH, CP, MV, RM_F, RM_RF, CHMOD, UMASK_NULL in
the Makefile. Also defines the perl programs MKPATH,
WARN_IF_OLD_PACKLIST, MOD_INSTALL. DOC_INSTALL, and UNINSTALL.
=cut
sub tools_other {
my($self) = shift;
my @m;
push @m, qq{
};
push @m, "$_ = $self->{$_}\n";
}
push @m, q{
# The following is a portable way to say mkdir -p
# To see which directories are created, change the if 0 to if 1
# This helps us to minimize the effect of the .exists files A yet
# better solution would be to have a stable file in the perl
# distribution with a timestamp of zero. But this solution doesn't
# need any changes to the core distribution and works with older perls
};
push @m, q{
# Here we warn users that an old packlist file was found somewhere,
# and that they should call some uninstall routine
-e 'print "WARNING: I have found an old package in\n";' \\
-e 'print "\t$$ARGV[0].\n";' \\
-e 'print "Please make sure the two installations are not conflicting\n";'
UNINST=0
VERBINST=0
-e "install({@ARGV},'$(VERBINST)',0,'$(UNINST)');"
-e 'print "=head2 ", scalar(localtime), ": C<", shift, ">", " L<", $$arg=shift, "|", $$arg, ">";' \
-e 'print "=over 4";' \
-e 'while (defined($$key = shift) and defined($$val = shift)){print "=item *";print "C<$$key: $$val>";}' \
-e 'print "=back";'
-e 'uninstall($$ARGV[0],1,1); print "\nUninstall is deprecated. Please check the";' \
-e 'print " packlist above carefully.\n There may be errors. Remove the";' \
-e 'print " appropriate files manually.\n Sorry for the inconveniences.\n"'
};
return join "", @m;
}
=item tool_xsubpp (o)
Determines typemaps, xsubpp version, prototype behaviour.
=cut
sub tool_xsubpp {
my($self) = shift;
my $typemap;
if( ! -f $typemap ){
warn "Typemap $typemap not found.\n";
}
else{
}
}
}
}
# What are the correct thresholds for version 1 && 2 Paul?
if ( $xsubpp_version > 1.923 ){
} else {
};
} else {
}
}
my $xsubpp = "xsubpp";
return qq{
XSUBPPARGS = @tmargs
};
};
sub xsubpp_version
{
my ($version) ;
# try to figure out the version number of the xsubpp on the system
# first try the -v flag, introduced in 1.921 & 2.000a2
my $command = "$self->{PERL} -I$self->{PERL_LIB} $xsubpp -v 2>&1";
warn "Running '$command' exits with status " . ($?>>8) if $?;
chop $version ;
# nope, then try something else
my $counter = '000';
my ($file) = 'temp' ;
open(F, ">$file") or die "Cannot open file '$file': $!\n" ;
print F <<EOM ;
int
fred(a)
int a;
close F ;
$command = "$self->{PERL} $xsubpp $file 2>&1";
warn "Running '$command' exits with status " . ($?>>8) if $?;
unlink $file ;
# gets 1.2 -> 1.92 and 2.000a1
# it is either 1.0 or 1.1
# none of the above, so 1.0
return $Xsubpp_Version = "1.0" ;
}
=item top_targets (o)
Defines the targets all, subdirs, config, and O_FILES
=cut
sub top_targets {
# --- Target Sections ---
my($self) = shift;
my(@m);
push @m, '
#all :: config $(INST_PM) subdirs linkext manifypods
';
push @m, '
'.$self->{NOECHO}.'$(NOOP)
'
push @m, '
'.$self->{NOECHO}.'$(NOOP)
'.$self->{NOECHO}.'$(NOOP)
'.$self->{NOECHO}.'$(NOOP)
config :: $(INST_ARCHAUTODIR)/.exists
'.$self->{NOECHO}.'$(NOOP)
config :: $(INST_AUTODIR)/.exists
'.$self->{NOECHO}.'$(NOOP)
';
if (%{$self->{HTMLLIBPODS}}) {
push @m, qq[
config :: \$(INST_HTMLLIBDIR)/.exists
];
}
if (%{$self->{HTMLSCRIPTPODS}}) {
push @m, qq[
config :: \$(INST_HTMLSCRIPTDIR)/.exists
];
}
push @m, qq[
config :: \$(INST_MAN1DIR)/.exists
];
}
push @m, qq[
config :: \$(INST_MAN3DIR)/.exists
];
}
push @m, '
' if @{$self->{O_FILES} || []} && @{$self->{H} || []};
push @m, q{
help:
};
push @m, q{
-e "Version_check('$(MM_VERSION)')"
};
join('',@m);
}
=item writedoc
Obsolete, deprecated method. Not used since Version 5.21.
=cut
sub writedoc {
# --- perllocal.pod section ---
my $time = localtime;
print "=head2 $time: $what C<$name>\n\n=over 4\n\n=item *\n\n";
print "\n\n=back\n\n";
}
=item xs_c (o)
Defines the suffix rules to compile XS files to C.
=cut
sub xs_c {
my($self) = shift;
'
.xs.c:
$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.c
';
}
=item xs_cpp (o)
Defines the suffix rules to compile XS files to C++.
=cut
sub xs_cpp {
my($self) = shift;
'
$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.cpp
';
}
=item xs_o (o)
Defines suffix rules to go from XS to object files directly. This is
only intended for broken make implementations.
=cut
sub xs_o { # many makes are too dumb to use xs_c then c_o
my($self) = shift;
'
$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.c
';
}
=item perl_archive
This is internal method that returns path to libperl.a equivalent
to be linked to dynamic extensions. UNIX does not have one but OS2
and Win32 do.
=cut
sub perl_archive
{
return '$(PERL_INC)' . "/$Config{libperl}" if $^O eq "beos";
return "";
}
=item perl_archive_after
This is an internal method that returns path to a library which
should be put on the linker command line I<after> the external libraries
to be linked to dynamic extensions. This may be needed if the linker
is one-pass, and Perl includes some overrides for C RTL functions,
such as malloc().
=cut
{
return "";
}
=item export_list
This is internal method that returns name of a file that is
passed to linker to define symbols to be exported.
UNIX does not have one but OS2 and Win32 do.
=cut
sub export_list
{
return "";
}
1;
=back
=head1 SEE ALSO
L<ExtUtils::MakeMaker>
=cut