Commit | Line | Data |
---|---|---|
a02608de | 1 | case $PERL_CONFIG_SH in |
40000a8c AD |
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)" | |
63eb108b | 20 | rm -f makeaperl |
40000a8c | 21 | $spitshell >makeaperl <<!GROK!THIS! |
d5166725 | 22 | $startperl |
5f05dabc | 23 | eval 'exec $perlpath -S \$0 \${1+"\$@"}' |
24 | if \$running_under_some_shell; | |
40000a8c AD |
25 | !GROK!THIS! |
26 | ||
27 | $spitshell >>makeaperl <<'!NO!SUBS!' | |
fed7345c AD |
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) | |
40000a8c | 90 | -m makefilename name of the makefile to be written (/tmp/Makefile.\$\$) |
fed7345c AD |
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"; | |
40000a8c AD |
128 | !NO!SUBS! |
129 | chmod 755 makeaperl | |
130 | $eunicefix makeaperl |