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=../../../..;
9 echo "Can't find config.sh."; exit 1
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.
17 */*) cd `expr X$0 : 'X\(.*\)/'` ;;
19 echo "Extracting makeaperl (with variable substitutions)"
20 $spitshell >makeaperl <<!GROK!THIS!
24 $spitshell >>makeaperl <<'!NO!SUBS!'
28 makeaperl - create a new perl binary from static extensions
32 C<makeaperl -l library -m makefile -o target -t tempdir [object_files] [static_extensions] [search_directories]>
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
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>.
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
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
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
66 Tim Bunce <Tim.Bunce@ig.co.uk>, Andreas Koenig
67 <koenig@franz.ww.TU-Berlin.DE>;
70 First version, written 5 Feb 1995, is considered alpha.
74 use ExtUtils::MakeMaker;
76 use strict qw(subs refs);
85 $0: [options] [object_files] [static_extensions ...] [directories to search through]
86 -l perllibrary perl library to link from (the first libperl.a found)
87 -m makefilename name of the makefile to be written (/tmp/Makefile.\$\$)
88 -o name name for perl executable (perl)
89 -t directory directory where intermediate files reside (/tmp)
100 $opt_m = "$opt_t/Makefile.$$";
103 $Getopt::Long::ignorecase=0;
105 GetOptions('t=s', 'l=s', 'm=s', 'o=s') || die &usage;
107 @dirs = grep -d $_, @ARGV;
108 @fils = grep -f $_, @ARGV;
110 @dirs = $INC[0] unless @dirs;
112 open MAKE, ">$opt_m";
115 print MAKE MM->makeaperl('MAKE' => $opt_m,
124 (system "make -f $opt_m") == 0 or die "$0 failed: Please check file $opt_m and run make -f $opt_m\n";