This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add the files from dist/meta to perl's repo
[metaconfig.git] / dist / U / d_scorfl.U
CommitLineData
d8875586
MBT
1?RCS: $Id: d_scorfl.U 1 2006-08-24 12:32:52Z rmanfredi $
2?RCS:
3?RCS: Copyright (c) 1991-1997, 2004-2006, 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 4.0.
10?RCS:
11?RCS: $Log: d_scorfl.U,v $
12?RCS: Revision 3.0 1993/08/18 12:07:01 ram
13?RCS: Baseline for dist 3.0 netwide release.
14?RCS:
15?MAKE:d_scorfl: cat Myread Oldconfig nametype Setvar
16?MAKE: -pick add $@ %<
17?S:d_scorfl:
18?S: This variable conditionally defines the SCOREFULL symbol, which
19?S: indicates to the C program that any scoreboard kept by the program
20?S: should be kept on the basis of the user's full name as opposed to
21?S: the user's login name.
22?S:.
23?C:SCOREFULL:
24?C: This symbol, if defined, indicates that any scoreboard kept by the
25?C: program should be kept on the basis of the user's full name as opposed
26?C: to the user's login name. If the user can change his full name he
27?C: can enter multiple scores if this is defined.
28?C:.
29?H:#$d_scorfl SCOREFULL /**/
30?H:.
31?LINT:set d_scorfl
32: see how they want the scoreboard kept
33case "$d_scorfl" in
34"$define") dflt=y ;;
35*) dflt=n ;;
36esac
37case "$nametype" in
38other) val="$undef" ;;
39*)
40 $cat <<'EOM'
41
42The scoreboard can be kept with one score per login name, or one score per full
43name. If users can change their full name, or if there is more than one person
44on your system with the same full name, you should keep the score by login name
45(the full name is still printed).
46
47EOM
48 rp='Do you want the scoreboard kept by full name?'
49 . ./myread
50 case "$ans" in
51 y*) val="$define" ;;
52 *) val="$undef" ;;
53 esac
54 ;;
55esac
56set d_scorfl
57eval $setvar
58