Add a test for [perl #17753].
[p5sagit/p5-mst-13.2.git] / makeaperl.SH
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