| 1 |
case $PERL_CONFIG_SH in |
| 2 |
'') |
| 3 |
if test -f config.sh; then TOP=.; |
| 4 |
elif test -f ../config.sh; then TOP=..; |
| 5 |
elif test -f ../../config.sh; then TOP=../..; |
| 6 |
elif test -f ../../../config.sh; then TOP=../../..; |
| 7 |
elif test -f ../../../../config.sh; then TOP=../../../..; |
| 8 |
else |
| 9 |
echo "Can't find config.sh."; exit 1 |
| 10 |
fi |
| 11 |
. $TOP/config.sh |
| 12 |
;; |
| 13 |
esac |
| 14 |
: This forces SH files to create target in same directory as SH file. |
| 15 |
: This is so that make depend always knows where to find SH derivatives. |
| 16 |
case "$0" in |
| 17 |
*/*) cd `expr X$0 : 'X\(.*\)/'` ;; |
| 18 |
esac |
| 19 |
echo "Extracting makeaperl (with variable substitutions)" |
| 20 |
rm -f makeaperl |
| 21 |
$spitshell >makeaperl <<!GROK!THIS! |
| 22 |
$startperl |
| 23 |
eval 'exec $perlpath -S \$0 \${1+"\$@"}' |
| 24 |
if \$running_under_some_shell; |
| 25 |
!GROK!THIS! |
| 26 |
|
| 27 |
$spitshell >>makeaperl <<'!NO!SUBS!' |
| 28 |
|
| 29 |
=head1 NAME |
| 30 |
|
| 31 |
makeaperl - create a new perl binary from static extensions |
| 32 |
|
| 33 |
=head1 SYNOPSIS |
| 34 |
|
| 35 |
C<makeaperl -l library -m makefile -o target -t tempdir [object_files] [static_extensions] [search_directories]> |
| 36 |
|
| 37 |
=head1 DESCRIPTION |
| 38 |
|
| 39 |
This utility is designed to build new perl binaries from existing |
| 40 |
extensions on the fly. Called without any arguments it produces a new |
| 41 |
binary with the name C<perl> in the current directory. Intermediate |
| 42 |
files are produced in C</tmp>, if that is writeable, else in the |
| 43 |
current directory. The most important intermediate file is a Makefile, |
| 44 |
that is used internally to call C<make>. The new perl binary will consist |
| 45 |
|
| 46 |
The C<-l> switch lets you specify the name of a perl library to be |
| 47 |
linked into the new binary. If you do not specify a library, makeaperl |
| 48 |
writes targets for any C<libperl*.a> it finds in the search path. The |
| 49 |
topmost target will be the one related to C<libperl.a>. |
| 50 |
|
| 51 |
With the C<-m> switch you can provide a name for the Makefile that |
| 52 |
will be written (default C</tmp/Makefile.$$>). Likewise specifies the |
| 53 |
C<-o> switch a name for the perl binary (default C<perl>). The C<-t> |
| 54 |
switch lets you determine, in which directory the intermediate files |
| 55 |
should be stored. |
| 56 |
|
| 57 |
All object files and static extensions following on the command line |
| 58 |
will be linked into the target file. If there are any directories |
| 59 |
specified on the command line, these directories are searched for |
| 60 |
C<*.a> files, and all of the found ones will be linked in, too. If |
| 61 |
there is no directory named, then the contents of $INC[0] are |
| 62 |
searched. |
| 63 |
|
| 64 |
If the command fails, there is currently no other mechanism to adjust |
| 65 |
the behaviour of the program than to alter the generated Makefile and |
| 66 |
run C<make> by hand. |
| 67 |
|
| 68 |
=head1 AUTHORS |
| 69 |
Tim Bunce <Tim.Bunce@ig.co.uk>, Andreas Koenig |
| 70 |
<koenig@franz.ww.TU-Berlin.DE>; |
| 71 |
|
| 72 |
=head2 STATUS |
| 73 |
First version, written 5 Feb 1995, is considered alpha. |
| 74 |
|
| 75 |
=cut |
| 76 |
|
| 77 |
use ExtUtils::MakeMaker; |
| 78 |
use Getopt::Long; |
| 79 |
use strict qw(subs refs); |
| 80 |
|
| 81 |
$Version = 1.0; |
| 82 |
$Verbose = 0; |
| 83 |
|
| 84 |
sub usage{ |
| 85 |
warn <<END; |
| 86 |
$0 version $Version |
| 87 |
|
| 88 |
$0: [options] [object_files] [static_extensions ...] [directories to search through] |
| 89 |
-l perllibrary perl library to link from (the first libperl.a found) |
| 90 |
-m makefilename name of the makefile to be written (/tmp/Makefile.\$\$) |
| 91 |
-o name name for perl executable (perl) |
| 92 |
-t directory directory where intermediate files reside (/tmp) |
| 93 |
END |
| 94 |
exit 1; |
| 95 |
} |
| 96 |
|
| 97 |
if (-w "/tmp") { |
| 98 |
$opt_t = "/tmp"; |
| 99 |
} else { |
| 100 |
$opt_t = "."; |
| 101 |
} |
| 102 |
$opt_l = ''; |
| 103 |
$opt_m = "$opt_t/Makefile.$$"; |
| 104 |
$opt_o = 'perl'; |
| 105 |
|
| 106 |
$Getopt::Long::ignorecase=0; |
| 107 |
|
| 108 |
GetOptions('t=s', 'l=s', 'm=s', 'o=s') || die &usage; |
| 109 |
|
| 110 |
@dirs = grep -d $_, @ARGV; |
| 111 |
@fils = grep -f $_, @ARGV; |
| 112 |
|
| 113 |
@dirs = $INC[0] unless @dirs; |
| 114 |
|
| 115 |
open MAKE, ">$opt_m"; |
| 116 |
MM->init_main(); |
| 117 |
MM->init_others(); |
| 118 |
print MAKE MM->makeaperl('MAKE' => $opt_m, |
| 119 |
'TARGET' => $opt_o, |
| 120 |
'TMP' => $opt_t, |
| 121 |
'LIBPERL' => $opt_l, |
| 122 |
'DIRS' => [@dirs], |
| 123 |
'STAT' => [@fils], |
| 124 |
'INCL' => [@dirs] |
| 125 |
); |
| 126 |
close MAKE; |
| 127 |
(system "make -f $opt_m") == 0 or die "$0 failed: Please check file $opt_m and run make -f $opt_m\n"; |
| 128 |
!NO!SUBS! |
| 129 |
chmod 755 makeaperl |
| 130 |
$eunicefix makeaperl |
