This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Populate metaconfig branch.
[metaconfig.git] / dist-3.0at70b / mcon / U / pager.U
1 ?RCS: $Id: pager.U,v 3.0.1.2 1995/01/30 14:41:26 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: pager.U,v $
12 ?RCS: Revision 3.0.1.2  1995/01/30  14:41:26  ram
13 ?RCS: patch49: ensure dflt gets initialized in case no pagers are found (WED)
14 ?RCS:
15 ?RCS: Revision 3.0.1.1  1994/10/29  16:27:45  ram
16 ?RCS: patch36: replaced Myread by Getfile in the dependency line
17 ?RCS:
18 ?RCS: Revision 3.0  1993/08/18  12:09:30  ram
19 ?RCS: Baseline for dist 3.0 netwide release.
20 ?RCS:
21 ?MAKE:pager: pg more less Getfile Oldconfig
22 ?MAKE:  -pick add $@ %<
23 ?S:pager:
24 ?S:     This variable contains the name of the preferred pager on the system.
25 ?S:     Usual values are (the full pathnames of) more, less, pg, or cat.
26 ?S:.
27 : locate the preferred pager for this system
28 case "$pager" in
29 '')
30         dflt=''
31         case "$pg" in
32         /*) dflt=$pg;;
33         esac
34         case "$more" in
35         /*) dflt=$more;;
36         esac
37         case "$less" in
38         /*) dflt=$less;;
39         esac
40         case "$dflt" in
41         '') dflt=/usr/ucb/more;;
42         esac
43         ;;
44 *) dflt="$pager";;
45 esac
46 echo " "
47 fn=f/
48 rp='What pager is used on your system?'
49 . ./getfile
50 pager="$ans"
51