cflags.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
  20 warn=''
  21
  22 # Add -Wall for the core modules iff gcc and not already -Wall
  23 case "$gccversion" in
  24 '') ;;
  25 Intel*) ;; # The Intel C++ plays gcc on TV but is not really it.
  26 *)  case "$ccflags" in
  27     *-Wall*) ;;
  28     *) warn="$warn -Wall" ;;
  29     esac
  30     ;;
  31 esac
  32
  33 # The gcc -ansi -pedantic require their own dance, too.
  34 case "$gccversion" in
  35 '') ;;
  36 Intel*) ;; # Is that you, Intel C++?
  37 *)  case "$gccansipedantic" in
  38     define)
  39         case "$gccversion" in
  40         [12]*) ;; # gcc versions 1 (gasp!) and 2 are not good for this.
  41         *)  case "$osname" in
  42             # Add -ansi -pedantic only for known platforms.
  43             aix|dec_osf|freebsd|hpux|irix|linux)
  44                 ansipedantic="-ansi -pedantic" ;;
  45             solaris)
  46 # Can't add -ansi for Solaris.
  47 # Off_t/off_t is a struct in Solaris with largefiles, and with -ansi
  48 # that struct cannot be compared with a flat integer, such as a STRLEN.
  49 # The -ansi will also cause a lot of noise in Solaris because of:
  50 # /usr/include/sys/resource.h:148: warning: `struct rlimit64' declared inside parameter list
  51                 ansipedantic="-pedantic" ;;
  52             esac
  53             for i in $ansipedantic
  54             do
  55                 case "$ccflags" in
  56                 *$i*) ;;
  57                 *) warn="$warn $i" ;;
  58                 esac
  59             done
  60             case "$warn$ccflags" in
  61             *-pedantic*) warn="$warn -DPERL_GCC_PEDANTIC" ;;
  62             esac
  63             ;;
  64         esac
  65         ;;
  66     esac
  67     ;;
  68 esac
  69
  70 # Further gcc warning options.
  71 case "$gccversion" in
  72 '') ;;
  73 [12]*) ;;
  74 Intel*) ;; # Haven't we been through this already?
  75 *)  for opt in '' extra declaration-after-statement endif-labels
  76     do
  77        case " $ccflags " in
  78        *"-W$opt "*) ;;
  79        *) case "`echo >_cflags.c | $cc -W$opt -c _cflags.c -o _cflags.o 2>&1`" in
  80           *"unrecognized"*) ;;
  81           *"Invalid"*) ;;
  82           *) warn="$warn -W$opt" ;;
  83           esac
  84           ;;
  85        esac
  86        rm -f _cflags.c cflags.o
  87     done
  88     ;;
  89 esac
  90
  91 # If we have g++, we cannot have the -Wdeclaration-after-statement.
  92 # Some g++s accept it but then whine about it with every file.
  93 case "$cc" in
  94 *g++*) warn="`echo $warn|sed 's/-Wdeclaration-after-statement/ /'`" ;;
  95 esac
  96
  97 extra=''
  98
  99 # C and C++ have different rules for const strings;
 100 # without the -fno-const-strings g++ cannot handle our habit
 101 # of mixing char literals and char pointers.
 102 case "$cc" in
 103 *g++*) extra="$extra -fno-const-strings" ;;
 104 esac
 105
 106 stdflags=''
 107
 108 echo "Extracting cflags (with variable substitutions)"
 109 : This section of the file will have variable substitutions done on it.
 110 : Move anything that needs config subs from !NO!SUBS! section to !GROK!THIS!.
 111 : Protect any dollar signs and backticks that you do not want interpreted
 112 : by putting a backslash in front.  You may delete these comments.
 113 rm -f cflags
 114 $spitshell >cflags <<!GROK!THIS!
 115 $startsh
 116
 117 # Extra warnings, used e.g. for gcc.
 118 warn="$warn"
 119 # Extra standardness.
 120 stdflags="$stdflags"
 121 # Extra extra.
 122 extra="$extra"
 123
 124 !GROK!THIS!
 125
 126 : In the following dollars and backticks do not need the extra backslash.
 127 $spitshell >>cflags <<'!NO!SUBS!'
 128 case $PERL_CONFIG_SH in
 129 '')
 130         if test -f config.sh; then TOP=.;
 131         elif test -f ../config.sh; then TOP=..;
 132         elif test -f ../../config.sh; then TOP=../..;
 133         elif test -f ../../../config.sh; then TOP=../../..;
 134         elif test -f ../../../../config.sh; then TOP=../../../..;
 135         else
 136                 echo "Can't find config.sh."; exit 1
 137         fi
 138         . $TOP/config.sh
 139         ;;
 140 esac
 141
 142 : syntax: cflags [optimize=XXX] [file[.suffix]]
 143 : displays the compiler command line for file
 144
 145 case "X$1" in
 146 Xoptimize=*|X"optimize=*")
 147         eval "$1"
 148         shift
 149         ;;
 150 esac
 151
 152 also=': '
 153 case $# in
 154 1) also='echo 1>&2 "      CCCMD = "'
 155 esac
 156
 157 case $# in
 158 0) set *.c; echo "The current C flags are:" ;;
 159 esac
 160
 161 set `echo "$* " | sed -e 's/\.[oc] / /g' -e 's/\.obj / /g' -e "s/\\$obj_ext / /g"`
 162
 163 for file do
 164
 165     case "$#" in
 166     1) ;;
 167     *) echo $n "    $file.c     $c" ;;
 168     esac
 169
 170     : allow variables like toke_cflags to be evaluated
 171
 172     if echo $file | grep -v / >/dev/null
 173     then
 174       eval 'eval ${'"${file}_cflags"'-""}'
 175     fi
 176
 177     : or customize here
 178
 179     case "$file" in
 180     DB_File) ;;
 181     GDBM_File) ;;
 182     NDBM_File) ;;
 183     ODBM_File) ;;
 184     POSIX) ;;
 185     SDBM_File) ;;
 186     av) ;;
 187     byterun) ;;
 188     deb) ;;
 189     dl) ;;
 190     doio) ;;
 191     doop) ;;
 192     dump) ;;
 193     globals) ;;
 194     gv) ;;
 195     hv) ;;
 196     locale) ;;
 197     madly) ;;
 198     main) ;;
 199     malloc) ;;
 200     mg) ;;
 201     miniperlmain) ;;
 202     numeric) ;;
 203     op) ;;
 204     opmini) ;;
 205     pad) ;;
 206     perl) ;;
 207     perlapi) ;;
 208     perlmain) ;;
 209     perly) ;;
 210     pp) ;;
 211     pp_ctl) ;;
 212     pp_hot) ;;
 213     pp_pack) ;;
 214     pp_sort) ;;
 215     pp_sys) ;;
 216     regcomp) ;;
 217     regexec) ;;
 218     run) ;;
 219     scope) ;;
 220     sv) ;;
 221     taint) ;;
 222     toke) ;;
 223     universal) ;;
 224     usersub) ;;
 225     utf8) ;;
 226     util) ;;
 227     xsutils) ;;
 228     *) ;;
 229     esac
 230
 231 if test -f .patch; then
 232   ccflags="-DPERL_PATCHNUM=`cat .patch` $ccflags"
 233 fi
 234
 235     : Can we perhaps use $ansi2knr here
 236     echo "$cc -c -DPERL_CORE $ccflags $stdflags $optimize $warn $extra"
 237     eval "$also "'"$cc -DPERL_CORE -c $ccflags $stdflags $optimize $warn $extra"'
 238
 239     . $TOP/config.sh
 240
 241 done
 242 !NO!SUBS!
 243 chmod 755 cflags
 244 $eunicefix cflags