| 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 |