cflags.SH: scan the gcc warning flags only once, during .SH expansion
[p5sagit/p5-mst-13.2.git] / 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*) ;;
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 Intel*) ;;
74 *)  for opt in '' extra declaration-after-statement endif-labels
75     do
76        case " $ccflags " in
77        *"-W$opt "*) ;;
78        *) case "`echo >_cflags.c | $cc -W$opt -c _cflags.c -o _cflags.o 2>&1`" in
79           *"unrecognized"*) ;;
80           *"Invalid"*) ;;
81           *) warn="$warn -W$opt" ;;
82           esac
83           ;;
84        esac
85        rm -f _cflags.c cflags.o
86     done
87     ;;
88 esac
89
90 echo "Extracting cflags (with variable substitutions)"
91 : This section of the file will have variable substitutions done on it.
92 : Move anything that needs config subs from !NO!SUBS! section to !GROK!THIS!.
93 : Protect any dollar signs and backticks that you do not want interpreted
94 : by putting a backslash in front.  You may delete these comments.
95 rm -f cflags
96 $spitshell >cflags <<!GROK!THIS!
97 $startsh
98
99 # Used for gcc.
100 warn="$warn"
101
102 !GROK!THIS!
103
104 : In the following dollars and backticks do not need the extra backslash.
105 $spitshell >>cflags <<'!NO!SUBS!'
106 case $PERL_CONFIG_SH in
107 '')
108         if test -f config.sh; then TOP=.;
109         elif test -f ../config.sh; then TOP=..;
110         elif test -f ../../config.sh; then TOP=../..;
111         elif test -f ../../../config.sh; then TOP=../../..;
112         elif test -f ../../../../config.sh; then TOP=../../../..;
113         else
114                 echo "Can't find config.sh."; exit 1
115         fi
116         . $TOP/config.sh
117         ;;
118 esac
119
120 : syntax: cflags [optimize=XXX] [file[.suffix]]
121 : displays the compiler command line for file
122
123 case "X$1" in
124 Xoptimize=*|X"optimize=*")
125         eval "$1"
126         shift
127         ;;
128 esac
129
130 also=': '
131 case $# in
132 1) also='echo 1>&2 "      CCCMD = "'
133 esac
134
135 case $# in
136 0) set *.c; echo "The current C flags are:" ;;
137 esac
138
139 set `echo "$* " | sed -e 's/\.[oc] / /g' -e 's/\.obj / /g' -e "s/\\$obj_ext / /g"`
140
141 for file do
142
143     case "$#" in
144     1) ;;
145     *) echo $n "    $file.c     $c" ;;
146     esac
147
148     : allow variables like toke_cflags to be evaluated
149
150     if echo $file | grep -v / >/dev/null
151     then
152       eval 'eval ${'"${file}_cflags"'-""}'
153     fi
154
155     : or customize here
156
157     case "$file" in
158     DB_File) ;;
159     GDBM_File) ;;
160     NDBM_File) ;;
161     ODBM_File) ;;
162     POSIX) ;;
163     SDBM_File) ;;
164     av) ;;
165     byterun) ;;
166     deb) ;;
167     dl) ;;
168     doio) ;;
169     doop) ;;
170     dump) ;;
171     gv) ;;
172     hv) ;;
173     locale) ;;
174     main) ;;
175     malloc) ;;
176     mg) ;;
177     miniperlmain) ;;
178     numeric) ;;
179     op) ;;
180     perl) ;;
181     perlapi) ;;
182     perlmain) ;;
183     perly) ;;
184     pp) ;;
185     pp_ctl) ;;
186     pp_hot) ;;
187     pp_pack) ;;
188     pp_sys) ;;
189     regcomp) ;;
190     regexec) ;;
191     run) ;;
192     scope) ;;
193     sv) ;;
194     taint) ;;
195     toke) ;;
196     usersub) ;;
197     util) ;;
198     *) ;;
199     esac
200
201 if test -f .patch; then
202   ccflags="-DPERL_PATCHNUM=`cat .patch` $ccflags"
203 fi
204
205     : Can we perhaps use $ansi2knr here
206     echo "$cc -c -DPERL_CORE $ccflags $optimize $warn"
207     eval "$also "'"$cc -DPERL_CORE -c $ccflags $optimize $warn"'
208
209     . $TOP/config.sh
210
211 done
212 !NO!SUBS!
213 chmod 755 cflags
214 $eunicefix cflags