This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
RE: [perl #26136] localtime(3) calls tzset(3), but localtime_r(3) may not.
[metaconfig.git] / U / modified / cppstdin.U
1 ?RCS: $Id: cppstdin.U,v 3.0.1.4 1994/10/29 16:08:34 ram Exp $
2 ?RCS:
3 ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
4 ?RCS: 
5 ?RCS: You may redistribute only under the terms of the Artistic Licence,
6 ?RCS: as specified in the README file that comes with the distribution.
7 ?RCS: You may reuse parts of this distribution only within the terms of
8 ?RCS: that same Artistic Licence; a copy of which may be found at the root
9 ?RCS: of the source tree for dist 3.0.
10 ?RCS:
11 ?RCS: $Log: cppstdin.U,v $
12 ?RCS: Revision 3.0.1.4  1994/10/29  16:08:34  ram
13 ?RCS: patch36: added ?F: line for metalint file checking
14 ?RCS:
15 ?RCS: Revision 3.0.1.3  1994/01/24  14:05:38  ram
16 ?RCS: patch16: comment for CPPLAST was missing
17 ?RCS:
18 ?RCS: Revision 3.0.1.2  1993/12/15  08:18:58  ram
19 ?RCS: patch15: new variables cpprun and cpplast, guaranteed wrapper-free
20 ?RCS: patch15: cppstdin now tries to use cc, even at the cost of a wrapper
21 ?RCS:
22 ?RCS: Revision 3.0.1.1  1993/08/25  14:00:53  ram
23 ?RCS: patch6: remove wrapper when not actually used
24 ?RCS:
25 ?RCS: Revision 3.0  1993/08/18  12:05:38  ram
26 ?RCS: Baseline for dist 3.0 netwide release.
27 ?RCS:
28 ?MAKE:cppstdin cppminus cpprun cpplast: contains test \
29         Myread Oldconfig Loc cpp +cc rm hint osname gccversion
30 ?MAKE:  -pick add $@ %<
31 ?S:cppstdin:
32 ?S:     This variable contains the command which will invoke the C
33 ?S:     preprocessor on standard input and put the output to stdout.
34 ?S:     It is primarily used by other Configure units that ask about
35 ?S:     preprocessor symbols.
36 ?S:.
37 ?S:cppminus:
38 ?S:     This variable contains the second part of the string which will invoke
39 ?S:     the C preprocessor on the standard input and produce to standard
40 ?S:     output.  This variable will have the value "-" if cppstdin needs
41 ?S:     a minus to specify standard input, otherwise the value is "".
42 ?S:.
43 ?S:cpprun:
44 ?S:     This variable contains the command which will invoke a C preprocessor
45 ?S:     on standard input and put the output to stdout. It is guaranteed not
46 ?S:     to be a wrapper and may be a null string if no preprocessor can be
47 ?S:     made directly available. This preprocessor might be different from the
48 ?S:     one used by the C compiler. Don't forget to append cpplast after the
49 ?S:     preprocessor options.
50 ?S:.
51 ?S:cpplast:
52 ?S:     This variable has the same functionality as cppminus, only it applies
53 ?S:     to cpprun and not cppstdin.
54 ?S:.
55 ?C:CPPSTDIN:
56 ?C:     This symbol contains the first part of the string which will invoke
57 ?C:     the C preprocessor on the standard input and produce to standard
58 ?C:     output.  Typical value of "cc -E" or "/lib/cpp", but it can also
59 ?C:     call a wrapper. See CPPRUN.
60 ?C:.
61 ?C:CPPMINUS:
62 ?C:     This symbol contains the second part of the string which will invoke
63 ?C:     the C preprocessor on the standard input and produce to standard
64 ?C:     output.  This symbol will have the value "-" if CPPSTDIN needs a minus
65 ?C:     to specify standard input, otherwise the value is "".
66 ?C:.
67 ?C:CPPRUN:
68 ?C:     This symbol contains the string which will invoke a C preprocessor on
69 ?C:     the standard input and produce to standard output. It needs to end
70 ?C:     with CPPLAST, after all other preprocessor flags have been specified.
71 ?C:     The main difference with CPPSTDIN is that this program will never be a
72 ?C:     pointer to a shell wrapper, i.e. it will be empty if no preprocessor is
73 ?C:     available directly to the user. Note that it may well be different from
74 ?C:     the preprocessor used to compile the C program.
75 ?C:.
76 ?C:CPPLAST:
77 ?C:     This symbol is intended to be used along with CPPRUN in the same manner
78 ?C:     symbol CPPMINUS is used with CPPSTDIN. It contains either "-" or "".
79 ?C:.
80 ?H:#define CPPSTDIN "$cppstdin"
81 ?H:#define CPPMINUS "$cppminus"
82 ?H:#define CPPRUN "$cpprun"
83 ?H:#define CPPLAST "$cpplast"
84 ?H:.
85 ?F:cppstdin
86 ?T:wrapper x_cpp x_minus ok
87 : see how we invoke the C preprocessor
88 echo " "
89 echo "Now, how can we feed standard input to your C preprocessor..." >&4
90 cat <<'EOT' >testcpp.c
91 #define ABC abc
92 #define XYZ xyz
93 ABC.XYZ
94 EOT
95 cd ..
96 if test ! -f cppstdin; then
97         if test "X$osname" = "Xaix" -a "X$gccversion" = X; then
98                 # AIX cc -E doesn't show the absolute headerfile
99                 # locations but we'll cheat by using the -M flag.
100                 echo 'cat >.$$.c; rm -f .$$.u; '"$cc"' ${1+"$@"} -M -c .$$.c 2>/dev/null; test -s .$$.u && awk '"'"'$2 ~ /\.h$/ { print "# 0 \""$2"\"" }'"'"' .$$.u; rm -f .$$.o .$$.u; '"$cc"' -E ${1+"$@"} .$$.c; rm .$$.c' > cppstdin
101         else
102                 echo 'cat >.$$.c; '"$cc"' -E ${1+"$@"} .$$.c; rm .$$.c' >cppstdin
103         fi
104 else
105         echo "Keeping your $hint cppstdin wrapper."
106 fi
107 chmod 755 cppstdin
108 wrapper=`pwd`/cppstdin
109 ok='false'
110 cd UU
111
112 ?X:
113 ?X: We'll run the cpp tests again if we don't have any valid C preprocessor
114 ?X: yet or don't know how to proceed without a wrapper (in which case cpprun
115 ?X: is empty and that's really annoying...)
116 ?X:
117 if $test "X$cppstdin" != "X" && \
118         $cppstdin $cppminus <testcpp.c >testcpp.out 2>&1 && \
119         $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1
120 then
121         echo "You used to use $cppstdin $cppminus so we'll use that again."
122         case "$cpprun" in
123         '') echo "But let's see if we can live without a wrapper..." ;;
124         *)
125                 if $cpprun $cpplast <testcpp.c >testcpp.out 2>&1 && \
126                         $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1
127                 then
128                         echo "(And we'll use $cpprun $cpplast to preprocess directly.)"
129                         ok='true'
130                 else
131                         echo "(However, $cpprun $cpplast does not work, let's see...)"
132                 fi
133                 ;;
134         esac
135 else
136         case "$cppstdin" in
137         '') ;;
138         *)
139                 echo "Good old $cppstdin $cppminus does not seem to be of any help..."
140                 ;;
141         esac
142 fi
143
144 if $ok; then
145         : nothing
146 elif echo 'Maybe "'"$cc"' -E" will work...'; \
147         $cc -E <testcpp.c >testcpp.out 2>&1; \
148         $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
149         echo "Yup, it does."
150         x_cpp="$cc -E"
151         x_minus='';
152 elif echo 'Nope...maybe "'"$cc"' -E -" will work...'; \
153         $cc -E - <testcpp.c >testcpp.out 2>&1; \
154         $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
155         echo "Yup, it does."
156         x_cpp="$cc -E"
157         x_minus='-';
158 elif echo 'Nope...maybe "'"$cc"' -P" will work...'; \
159         $cc -P <testcpp.c >testcpp.out 2>&1; \
160         $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
161         echo "Yipee, that works!"
162         x_cpp="$cc -P"
163         x_minus='';
164 elif echo 'Nope...maybe "'"$cc"' -P -" will work...'; \
165         $cc -P - <testcpp.c >testcpp.out 2>&1; \
166         $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
167         echo "At long last!"
168         x_cpp="$cc -P"
169         x_minus='-';
170 elif echo 'No such luck, maybe "'$cpp'" will work...'; \
171         $cpp <testcpp.c >testcpp.out 2>&1; \
172         $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
173         echo "It works!"
174         x_cpp="$cpp"
175         x_minus='';
176 elif echo 'Nixed again...maybe "'$cpp' -" will work...'; \
177         $cpp - <testcpp.c >testcpp.out 2>&1; \
178         $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
179         echo "Hooray, it works!  I was beginning to wonder."
180         x_cpp="$cpp"
181         x_minus='-';
182 elif echo 'Uh-uh.  Time to get fancy.  Trying a wrapper...'; \
183         $wrapper <testcpp.c >testcpp.out 2>&1; \
184         $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
185         x_cpp="$wrapper"
186         x_minus=''
187         echo "Eureka!"
188 else
189         dflt=''
190         rp="No dice.  I can't find a C preprocessor.  Name one:"
191         . ./myread
192         x_cpp="$ans"
193         x_minus=''
194         $x_cpp <testcpp.c >testcpp.out 2>&1
195         if $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
196                 echo "OK, that will do." >&4
197         else
198 echo "Sorry, I can't get that to work.  Go find one and rerun Configure." >&4
199                 exit 1
200         fi
201 fi
202
203 case "$ok" in
204 false)
205         cppstdin="$x_cpp"
206         cppminus="$x_minus"
207         cpprun="$x_cpp"
208         cpplast="$x_minus"
209 ?X:
210 ?X: If /lib/cpp is used, try using a wrapper to increase our chances to have
211 ?X: the C compiler and our $cppstdin agree on the same symbols... However,
212 ?X: since cpprun is guaranteed not to be a wrapper, we must clear it if the
213 ?X: only preprocessor we found was a wrapper, with all our luck...
214 ?X:
215         set X $x_cpp
216         shift
217         case "$1" in
218         "$cpp")
219                 echo "Perhaps can we force $cc -E using a wrapper..."
220                 if $wrapper <testcpp.c >testcpp.out 2>&1; \
221                         $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1
222                 then
223                         echo "Yup, we can."
224                         cppstdin="$wrapper"
225                         cppminus='';
226                 else
227                         echo "Nope, we'll have to live without it..."
228                 fi
229                 ;;
230         esac
231         case "$cpprun" in
232         "$wrapper")
233                 cpprun=''
234                 cpplast=''
235                 ;;
236         esac
237         ;;
238 esac
239
240 case "$cppstdin" in
241 "$wrapper"|'cppstdin') ;;
242 *) $rm -f $wrapper;;
243 esac
244 $rm -f testcpp.c testcpp.out
245