This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Part 4 of a big cleanup action based on the upcoming dist-4.0
[metaconfig.git] / U / modified / Oldsym.U
CommitLineData
959f3c4c
JH
1?RCS: $Id: Oldsym.U,v 3.0.1.1 1997/02/28 15:06:58 ram Exp $
2?RCS:
3?RCS: Copyright (c) 1991-1993, Raphael Manfredi
41322e17 4?RCS:
959f3c4c
JH
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: Oldsym.U,v $
12?RCS: Revision 3.0.1.1 1997/02/28 15:06:58 ram
13?RCS: patch61: added support for src.U
14?RCS:
15?RCS: Revision 3.0 1993/08/18 12:05:13 ram
16?RCS: Baseline for dist 3.0 netwide release.
17?RCS:
41322e17 18?X:
959f3c4c 19?X: This unit follows the creation of the config.sh file. It adds some
ff429c2d 20?X: special symbols: defines from patchlevel.h file if any and PERL_CONFIG_SH,
959f3c4c
JH
21?X: which is set to true. Then, we try to keep all the new symbols that
22?X: may come from a hint file or a previous config.sh file.
41322e17 23?X:
2d9d8774 24?MAKE:Oldsym: Config_sh cat test hint src sort uniq perl_patchlevel
959f3c4c 25?MAKE: -pick add $@ %<
2d9d8774 26?T:PERL_CONFIG_SH PERL_PATCHLEVEL sym tmp s
41322e17 27?F:!UU
959f3c4c
JH
28?X: Command line options can be saved by the Options.U unit in the
29?X: temporary file UU/cmdline.opt.
30: Add in command line options if available
31$test -f UU/cmdline.opt && $cat UU/cmdline.opt >> config.sh
32
33: add special variables
34$test -f $src/patchlevel.h && \
35awk '/^#define[ ]+PERL_/ {printf "%s=%s\n",$2,$3}' $src/patchlevel.h >>config.sh
2d9d8774 36echo "PERL_PATCHLEVEL=$perl_patchlevel" >>config.sh
ff429c2d 37echo "PERL_CONFIG_SH=true" >>config.sh
959f3c4c
JH
38
39: propagate old symbols
40if $test -f UU/config.sh; then
41?X: Make sure each symbol is unique in oldconfig.sh
a3e4b67c 42 <UU/config.sh $sort | $uniq >UU/oldconfig.sh
959f3c4c
JH
43?X:
44?X: All the symbols that appear twice come only from config.sh (hence the
45?X: two config.sh in the command line). These symbols will be removed by
46?X: the uniq -u command. The oldsyms file thus contains all the symbols
47?X: that did not appear in the produced config.sh (Larry Wall).
48?X:
41322e17 49?X: Do not touch the -u flag of uniq. This means you too, Jarkko.
959f3c4c 50 sed -n 's/^\([a-zA-Z_0-9]*\)=.*/\1/p' config.sh config.sh UU/oldconfig.sh |\
02fb3c6e 51 $sort | $uniq -u >UU/oldsyms
959f3c4c
JH
52 set X `cat UU/oldsyms`
53 shift
54 case $# in
55 0) ;;
56 *)
57 cat <<EOM
58Hmm...You had some extra variables I don't know about...I'll try to keep 'em...
59EOM
60 echo "# Variables propagated from previous config.sh file." >>config.sh
61 for sym in `cat UU/oldsyms`; do
62 echo " Propagating $hint variable "'$'"$sym..."
63 eval 'tmp="$'"${sym}"'"'
64 echo "$tmp" | \
65 sed -e "s/'/'\"'\"'/g" -e "s/^/$sym='/" -e "s/$/'/" >>config.sh
66 done
67 ;;
68 esac
69fi
70