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