| 1 |
root |
1.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 |
