| 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 cflags (with variable substitutions)" |
| 20 |
: This section of the file will have variable substitutions done on it. |
| 21 |
: Move anything that needs config subs from !NO!SUBS! section to !GROK!THIS!. |
| 22 |
: Protect any dollar signs and backticks that you do not want interpreted |
| 23 |
: by putting a backslash in front. You may delete these comments. |
| 24 |
rm -f cflags |
| 25 |
$spitshell >cflags <<!GROK!THIS! |
| 26 |
$startsh |
| 27 |
!GROK!THIS! |
| 28 |
|
| 29 |
: In the following dollars and backticks do not need the extra backslash. |
| 30 |
$spitshell >>cflags <<'!NO!SUBS!' |
| 31 |
case $PERL_CONFIG_SH in |
| 32 |
'') |
| 33 |
if test -f config.sh; then TOP=.; |
| 34 |
elif test -f ../config.sh; then TOP=..; |
| 35 |
elif test -f ../../config.sh; then TOP=../..; |
| 36 |
elif test -f ../../../config.sh; then TOP=../../..; |
| 37 |
elif test -f ../../../../config.sh; then TOP=../../../..; |
| 38 |
else |
| 39 |
echo "Can't find config.sh."; exit 1 |
| 40 |
fi |
| 41 |
. $TOP/config.sh |
| 42 |
;; |
| 43 |
esac |
| 44 |
|
| 45 |
: syntax: cflags [optimize=XXX] [file[.suffix]] |
| 46 |
: displays the compiler command line for file |
| 47 |
|
| 48 |
case "X$1" in |
| 49 |
Xoptimize=*|X"optimize=*") |
| 50 |
eval "$1" |
| 51 |
shift |
| 52 |
;; |
| 53 |
esac |
| 54 |
|
| 55 |
also=': ' |
| 56 |
case $# in |
| 57 |
1) also='echo 1>&2 " CCCMD = "' |
| 58 |
esac |
| 59 |
|
| 60 |
case $# in |
| 61 |
0) set *.c; echo "The current C flags are:" ;; |
| 62 |
esac |
| 63 |
|
| 64 |
set `echo "$* " | sed -e 's/\.[oc] / /g' -e 's/\.obj / /g' -e "s/\\$obj_ext / /g"` |
| 65 |
|
| 66 |
for file do |
| 67 |
|
| 68 |
case "$#" in |
| 69 |
1) ;; |
| 70 |
*) echo $n " $file.c $c" ;; |
| 71 |
esac |
| 72 |
|
| 73 |
: allow variables like toke_cflags to be evaluated |
| 74 |
|
| 75 |
if echo $file | grep -v / >/dev/null |
| 76 |
then |
| 77 |
eval 'eval ${'"${file}_cflags"'-""}' |
| 78 |
fi |
| 79 |
|
| 80 |
: or customize here |
| 81 |
|
| 82 |
case "$file" in |
| 83 |
DB_File) ;; |
| 84 |
GDBM_File) ;; |
| 85 |
NDBM_File) ;; |
| 86 |
ODBM_File) ;; |
| 87 |
POSIX) ;; |
| 88 |
SDBM_File) ;; |
| 89 |
av) ;; |
| 90 |
byterun) ;; |
| 91 |
deb) ;; |
| 92 |
dl) ;; |
| 93 |
doio) ;; |
| 94 |
doop) ;; |
| 95 |
dump) ;; |
| 96 |
gv) ;; |
| 97 |
hv) ;; |
| 98 |
locale) ;; |
| 99 |
main) ;; |
| 100 |
malloc) ;; |
| 101 |
mg) ;; |
| 102 |
miniperlmain) ;; |
| 103 |
numeric) ;; |
| 104 |
op) ;; |
| 105 |
perl) ;; |
| 106 |
perlapi) ;; |
| 107 |
perlmain) ;; |
| 108 |
perly) ;; |
| 109 |
pp) ;; |
| 110 |
pp_ctl) ;; |
| 111 |
pp_hot) ;; |
| 112 |
pp_pack) ;; |
| 113 |
pp_sys) ;; |
| 114 |
regcomp) ;; |
| 115 |
regexec) ;; |
| 116 |
run) ;; |
| 117 |
scope) ;; |
| 118 |
sv) ;; |
| 119 |
taint) ;; |
| 120 |
toke) ;; |
| 121 |
usersub) ;; |
| 122 |
util) ;; |
| 123 |
*) ;; |
| 124 |
esac |
| 125 |
|
| 126 |
# Add -Wall for the core modules iff gcc and not already -Wall |
| 127 |
warn='' |
| 128 |
case "$gccversion" in |
| 129 |
'') ;; |
| 130 |
*) case "$ccflags" in |
| 131 |
*-Wall*) ;; |
| 132 |
*) warn="$warn -Wall" ;; |
| 133 |
esac |
| 134 |
case "$gccansipedantic" in |
| 135 |
define) |
| 136 |
case "$gccversion" in |
| 137 |
[12]*) ;; # gcc versions 1 (gasp!) and 2 are not good for this. |
| 138 |
*) case "$osname" in |
| 139 |
# Add -ansi -pedantic only for known platforms. |
| 140 |
aix|dec_osf|freebsd|hpux|irix|linux) |
| 141 |
ansipedantic="-ansi -pedantic" ;; |
| 142 |
solaris) |
| 143 |
# Can't add -ansi for Solaris. |
| 144 |
# Off_t/off_t is a struct in Solaris with largefiles, and with -ansi |
| 145 |
# that struct cannot be compared with a flat integer, such as a STRLEN. |
| 146 |
# The -ansi will also cause a lot of noise in Solaris because of: |
| 147 |
# /usr/include/sys/resource.h:148: warning: `struct rlimit64' declared inside parameter list |
| 148 |
ansipedantic="-pedantic" ;; |
| 149 |
esac |
| 150 |
for i in $ansipedantic |
| 151 |
do |
| 152 |
case "$ccflags" in |
| 153 |
*$i*) ;; |
| 154 |
*) warn="$warn $i" ;; |
| 155 |
esac |
| 156 |
done |
| 157 |
case "$warn$ccflags" in |
| 158 |
*-pedantic*) warn="$warn -DPERL_GCC_PEDANTIC" ;; |
| 159 |
esac |
| 160 |
;; |
| 161 |
esac |
| 162 |
;; |
| 163 |
esac |
| 164 |
;; |
| 165 |
esac |
| 166 |
|
| 167 |
: Can we perhaps use $ansi2knr here |
| 168 |
echo "$cc -c -DPERL_CORE $ccflags $optimize $warn" |
| 169 |
eval "$also "'"$cc -DPERL_CORE -c $ccflags $optimize $warn"' |
| 170 |
|
| 171 |
. $TOP/config.sh |
| 172 |
|
| 173 |
done |
| 174 |
!NO!SUBS! |
| 175 |
chmod 755 cflags |
| 176 |
$eunicefix cflags |
