This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #42886] Perl fails to build due to ' in uname output
[metaconfig.git] / U / modified / Options.U
CommitLineData
959f3c4c
JH
1?RCS: $Id: Options.U,v 3.0.1.7 1997/02/28 15:08:15 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: Options.U,v $
12?RCS: Revision 3.0.1.7 1997/02/28 15:08:15 ram
13?RCS: patch61: optdef.sh now starts with a "startsh"
14?RCS: patch61: moved some code from Head.U
15?RCS:
16?RCS: Revision 3.0.1.6 1995/09/25 09:14:46 ram
17?RCS: patch59: protected option parsing code against 'echo -*' option failure
18?RCS:
19?RCS: Revision 3.0.1.5 1995/05/12 12:04:52 ram
20?RCS: patch54: added -K option for experts
21?RCS:
22?RCS: Revision 3.0.1.4 1995/01/30 14:27:52 ram
23?RCS: patch49: this unit now exports file optdef.sh, not a variable
24?RCS:
25?RCS: Revision 3.0.1.3 1995/01/11 15:19:00 ram
26?RCS: patch45: new -O option allowing -D and -U to override config.sh setttings
27?RCS: patch45: file optdef.sh is no longer removed after sourcing
28?RCS:
29?RCS: Revision 3.0.1.2 1994/10/29 15:58:06 ram
30?RCS: patch36: ensure option definition file is removed before appending
31?RCS: patch36: protect variable definitions with spaces in them
32?RCS:
33?RCS: Revision 3.0.1.1 1994/06/20 06:55:44 ram
34?RCS: patch30: now uses new me symbol to tag error messages
35?RCS: patch30: new -D and -U options to define/undef symbols (JHI)
36?RCS:
37?RCS: Revision 3.0 1993/08/18 12:05:14 ram
38?RCS: Baseline for dist 3.0 netwide release.
39?RCS:
40?X:
41?X: Command line parsing. It is really important that the variables used here
42?X: be not listed in the MAKE line, or they will be saved in config.sh and
43?X: loading this file to fetch default answers would clobber the values set
44?X: herein.
45?X:
46?MAKE:Options: startsh
47?MAKE: -pick wipe $@ %<
48?V:reuseval alldone error realsilent silent extractsh fastread \
49 override knowitall: config_sh
c71449a6 50?T:arg argn symbol config_arg0 config_args config_argc xxx yyy zzz uuu
875282d6
JH
51?T:args_exp args_sep arg_exp
52?F:./optdef.sh ./cmdline.opt ./posthint.sh ./cmdl.opt
959f3c4c
JH
53
54: Save command line options in file UU/cmdline.opt for later use in
55: generating config.sh.
56?X: This temporary file will be read by Oldsym.U. I used a temporary
57?X: file to preserve all sorts of potential command line quotes and
58?X: also because we don't know in advance how many variables we'll
59?X: need, so I can't actually declare them on the MAKE line.
60?X: The config_args variable won't be quite correct if Configure is
61?X: fed something like ./Configure -Dcc="gcc -B/usr/ccs/bin/"
62?X: since the quotes are gone by the time we see them. You'd have to
63?X: reconstruct the command line from the config_arg? lines, but since
64?X: I don't imagine anyone actually having to do that, I'm not going
65?X: to worry too much.
66cat > cmdline.opt <<EOSH
67# Configure command line arguments.
68config_arg0='$0'
69config_args='$*'
70config_argc=$#
71EOSH
72argn=1
875282d6
JH
73args_exp=''
74args_sep=''
959f3c4c
JH
75for arg in "$@"; do
76 cat >>cmdline.opt <<EOSH
77config_arg$argn='$arg'
78EOSH
875282d6
JH
79 # Extreme backslashitis: replace each ' by '"'"'
80 cat <<EOC | sed -e "s/'/'"'"'"'"'"'"'/g" > cmdl.opt
81$arg
82EOC
83 arg_exp=`cat cmdl.opt`
84 args_exp="$args_exp$args_sep'$arg_exp'"
959f3c4c 85 argn=`expr $argn + 1`
875282d6 86 args_sep=' '
959f3c4c 87done
875282d6
JH
88# args_exp is good for restarting self: eval "set X $args_exp"; shift; $0 "$@"
89# used by ./hints/os2.sh
90rm -f cmdl.opt
959f3c4c
JH
91
92: produce awk script to parse command line options
93cat >options.awk <<'EOF'
94BEGIN {
c71449a6 95 optstr = "A:dD:eEf:hKOrsSU:V"; # getopt-style specification
959f3c4c
JH
96
97 len = length(optstr);
98 for (i = 1; i <= len; i++) {
99 c = substr(optstr, i, 1);
100?X: some older awk's do not have the C ?: construct
101 if (i < len) a = substr(optstr, i + 1, 1); else a = "";
102 if (a == ":") {
103 arg[c] = 1;
104 i++;
105 }
106 opt[c] = 1;
107 }
108}
109{
110 expect = 0;
111 str = $0;
112 if (substr(str, 1, 1) != "-") {
113 printf("'%s'\n", str);
114 next;
115 }
116 len = length($0);
117 for (i = 2; i <= len; i++) {
118 c = substr(str, i, 1);
119 if (!opt[c]) {
120 printf("-%s\n", substr(str, i));
121 next;
122 }
123 printf("-%s\n", c);
124 if (arg[c]) {
125 if (i < len)
126 printf("'%s'\n", substr(str, i + 1));
127 else
128 expect = 1;
129 next;
130 }
131 }
132}
133END {
134 if (expect)
135 print "?";
136}
137EOF
138
139: process the command line options
140?X: Use "$@" to keep arguments with spaces in them from being split apart.
141?X: For the same reason, awk will output quoted arguments and the final eval
142?X: removes them and sets a proper $* array. An 'X' is prependend to each
143?X: argument before being fed to echo to guard against 'echo -x', where -x
144?X: would be understood as an echo option! It is removed before feeding awk.
145set X `for arg in "$@"; do echo "X$arg"; done |
146 sed -e s/X// | awk -f options.awk`
147eval "set $*"
148shift
149rm -f options.awk
150
151: set up default values
152fastread=''
153reuseval=false
154config_sh=''
155alldone=''
156error=''
157silent=''
158extractsh=''
159override=''
160knowitall=''
c71449a6 161rm -f optdef.sh posthint.sh
959f3c4c
JH
162cat >optdef.sh <<EOS
163$startsh
164EOS
165
166?X:
167?X: Given that we now have the possibility to execute Configure remotely
168?X: thanks to the new src.U support, we have to face the possibility
169?X: of having to ask where the source lie, which means we need the Myread.U
170?X: stuff and possibly other things that might echo something on the
171?X: screen...
172?X:
173?X: That's not pretty, and might be confusing in 99% of the time. So...
174?X: We introduce a new realsilent variable which is set when -s is given,
175?X: and we force silent=true if -S is supplied. The Extractall.U unit
176?X: will then undo the >&4 redirection based on the value of the
177?X: realsilent variable... -- RAM, 18/93/96
178?X:
179
180: option parsing
181while test $# -gt 0; do
182 case "$1" in
183 -d) shift; fastread=yes;;
184 -e) shift; alldone=cont;;
185 -f)
186 shift
187 cd ..
188 if test -r "$1"; then
189 config_sh="$1"
190 else
191 echo "$me: cannot read config file $1." >&2
192 error=true
193 fi
194 cd UU
195 shift;;
196 -h) shift; error=true;;
197 -r) shift; reuseval=true;;
198 -s) shift; silent=true; realsilent=true;;
199 -E) shift; alldone=exit;;
200 -K) shift; knowitall=true;;
201 -O) shift; override=true;;
202 -S) shift; silent=true; extractsh=true;;
203 -D)
204 shift
205 case "$1" in
206 *=)
207 echo "$me: use '-U symbol=', not '-D symbol='." >&2
208 echo "$me: ignoring -D $1" >&2
209 ;;
210 *=*) echo "$1" | \
211 sed -e "s/'/'\"'\"'/g" -e "s/=\(.*\)/='\1'/" >> optdef.sh;;
212 *) echo "$1='define'" >> optdef.sh;;
213 esac
214 shift
215 ;;
216 -U)
217 shift
218 case "$1" in
219 *=) echo "$1" >> optdef.sh;;
220 *=*)
221 echo "$me: use '-D symbol=val', not '-U symbol=val'." >&2
222 echo "$me: ignoring -U $1" >&2
223 ;;
224 *) echo "$1='undef'" >> optdef.sh;;
225 esac
226 shift
227 ;;
c71449a6
JH
228 -A)
229 shift
230 xxx=''
231 yyy="$1"
c71449a6 232 zzz=''
2256e445 233 uuu=undef
c71449a6 234 case "$yyy" in
e36eeeff 235 *=*) zzz=`echo "$yyy"|sed 's!=.*!!'`
2256e445
JH
236 case "$zzz" in
237 *:*) zzz='' ;;
238 *) xxx=append
e36eeeff
JH
239 zzz=" "`echo "$yyy"|sed 's!^[^=]*=!!'`
240 yyy=`echo "$yyy"|sed 's!=.*!!'` ;;
2256e445
JH
241 esac
242 ;;
243 esac
244 case "$xxx" in
245 '') case "$yyy" in
e36eeeff
JH
246 *:*) xxx=`echo "$yyy"|sed 's!:.*!!'`
247 yyy=`echo "$yyy"|sed 's!^[^:]*:!!'`
248 zzz=`echo "$yyy"|sed 's!^[^=]*=!!'`
249 yyy=`echo "$yyy"|sed 's!=.*!!'` ;;
250 *) xxx=`echo "$yyy"|sed 's!:.*!!'`
251 yyy=`echo "$yyy"|sed 's!^[^:]*:!!'` ;;
2256e445
JH
252 esac
253 ;;
254 esac
c71449a6
JH
255 case "$xxx" in
256 append)
2256e445 257 echo "$yyy=\"\${$yyy}$zzz\"" >> posthint.sh ;;
c71449a6 258 clear)
2256e445 259 echo "$yyy=''" >> posthint.sh ;;
c71449a6
JH
260 define)
261 case "$zzz" in
262 '') zzz=define ;;
263 esac
2256e445 264 echo "$yyy='$zzz'" >> posthint.sh ;;
c71449a6 265 eval)
2256e445 266 echo "eval \"$yyy=$zzz\"" >> posthint.sh ;;
c71449a6 267 prepend)
2256e445 268 echo "$yyy=\"$zzz\${$yyy}\"" >> posthint.sh ;;
c71449a6
JH
269 undef)
270 case "$zzz" in
271 '') zzz="$uuu" ;;
272 esac
2256e445
JH
273 echo "$yyy=$zzz" >> posthint.sh ;;
274 *) echo "$me: unknown -A command '$xxx', ignoring -A $1" >&2 ;;
c71449a6 275 esac
91985011 276 shift
c71449a6 277 ;;
959f3c4c 278 -V) echo "$me generated by metaconfig <VERSION> PL<PATCHLEVEL>." >&2
2256e445 279 exit 0;;
959f3c4c
JH
280 --) break;;
281 -*) echo "$me: unknown option $1" >&2; shift; error=true;;
282 *) break;;
283 esac
284done
285
286case "$error" in
287true)
288 cat >&2 <<EOM
289Usage: $me [-dehrsEKOSV] [-f config.sh] [-D symbol] [-D symbol=value]
c71449a6 290 [-U symbol] [-U symbol=] [-A command:symbol...]
959f3c4c
JH
291 -d : use defaults for all answers.
292 -e : go on without questioning past the production of config.sh.
293 -f : specify an alternate default configuration file.
294 -h : print this help message and exit (with an error status).
295 -r : reuse C symbols value if possible (skips costly nm extraction).
296 -s : silent mode, only echoes questions and essential information.
297 -D : define symbol to have some value:
298 -D symbol symbol gets the value 'define'
299 -D symbol=value symbol gets the value 'value'
300 -E : stop at the end of questions, after having produced config.sh.
301 -K : do not use unless you know what you are doing.
302 -O : let -D and -U override definitions from loaded configuration file.
303 -S : perform variable substitutions on all .SH files (can mix with -f)
304 -U : undefine symbol:
305 -U symbol symbol gets the value 'undef'
306 -U symbol= symbol gets completely empty
c71449a6 307 -A : manipulate symbol after the platform specific hints have been applied:
2256e445 308 -A symbol=value append " "value to symbol
c71449a6
JH
309 -A append:symbol=value append value to symbol
310 -A define:symbol=value define symbol to have value
c71449a6
JH
311 -A clear:symbol define symbol to be ''
312 -A define:symbol define symbol to be 'define'
313 -A eval:symbol=value define symbol to be eval of value
314 -A prepend:symbol=value prepend value to symbol
315 -A undef:symbol define symbol to be 'undef'
316 -A undef:symbol= define symbol to be ''
959f3c4c
JH
317 -V : print version number and exit (with a zero status).
318EOM
319 exit 1
320 ;;
321esac
322
323?X:
e02148a3
GS
324?X: Unless they specified either -S or both -d and -e/E, make sure we're
325?X: running interactively, i.e. attached to a terminal. Moved from Head.U to
326?X: be able to handle batch configurations...
959f3c4c
JH
327?X:
328?X: We have to hardwire the Configure name and cannot use $me, since if they
329?X: said 'sh <Configure', then $me is 'sh'...
330?X:
331: Sanity checks
332case "$fastread$alldone" in
333yescont|yesexit) ;;
334*)
e02148a3
GS
335 case "$extractsh" in
336 true) ;;
337 *)
338 if test ! -t 0; then
339 echo "Say 'sh Configure', not 'sh <Configure'"
340 exit 1
341 fi
342 ;;
343 esac
959f3c4c
JH
344 ;;
345esac
346
347?X: In silent mode, the standard output is closed. Questions are asked by
348?X: outputing on file descriptor #4, which is the original stdout descriptor.
349?X: This filters out all the "junk", since all the needed information is written
350?X: on #4. Note that ksh will not let us redirect output if the file descriptor
351?X: has not be defined yet, unlike sh, hence the following line...--RAM.
352exec 4>&1
353case "$silent" in
354true) exec 1>/dev/null;;
355esac
356
357: run the defines and the undefines, if any, but leave the file out there...
358touch optdef.sh
359. ./optdef.sh
c71449a6
JH
360: create the posthint manipulation script and leave the file out there...
361touch posthint.sh
959f3c4c 362