| | 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 |
https://perl5.git.perl.org / perl5.git / blame_incremental