| 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 |