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 / libpth.U
1 ?RCS: $Id: libpth.U,v 3.0.1.6 1997/02/28 16:08:49 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: libpth.U,v $
12 ?RCS: Revision 3.0.1.6  1997/02/28  16:08:49  ram
13 ?RCS: patch61: new loclibpth variable
14 ?RCS:
15 ?RCS: Revision 3.0.1.5  1995/01/11  15:31:30  ram
16 ?RCS: patch45: call ./mips instead of just mips (WED)
17 ?RCS:
18 ?RCS: Revision 3.0.1.4  1994/08/29  16:29:15  ram
19 ?RCS: patch32: added /lib/pa1.1 for HP-UX specially tuned PA-RISC libs (ADO)
20 ?RCS: patch32: fixed information message, making it clearer (ADO)
21 ?RCS:
22 ?RCS: Revision 3.0.1.3  1994/06/20  07:03:54  ram
23 ?RCS: patch30: added /usr/shlib to glibpth for shared-only libraries
24 ?RCS:
25 ?RCS: Revision 3.0.1.2  1994/05/13  15:26:57  ram
26 ?RCS: patch27: fixed a typo (libpth -> glibpth)
27 ?RCS:
28 ?RCS: Revision 3.0.1.1  1994/05/06  15:07:53  ram
29 ?RCS: patch23: now asks for library directories to be searched (ADO)
30 ?RCS:
31 ?RCS: Revision 3.0  1993/08/18  12:09:02  ram
32 ?RCS: Baseline for dist 3.0 netwide release.
33 ?RCS:
34 ?X:
35 ?X:     This unit initializes the path for C library lookup.
36 ?X:
37 ?MAKE:libpth glibpth xlibpth plibpth loclibpth: \
38         usrinc mips incpath test cat Myread Oldconfig
39 ?MAKE:  -pick add $@ %<
40 ?S:libpth:
41 ?S:     This variable holds the general path used to find libraries. It is
42 ?S:     intended to be used by other units.
43 ?S:.
44 ?S:loclibpth:
45 ?S:     This variable holds the paths used to find local libraries.  It is
46 ?S:     prepended to libpth, and is intended to be easily set from the
47 ?S:     command line.
48 ?S:.
49 ?S:plibpth:
50 ?S:     Holds the private path used by Configure to find out the libraries.
51 ?S:     Its value is prepend to libpth. This variable takes care of special
52 ?S:     machines, like the mips.  Usually, it should be empty.
53 ?S:.
54 ?T: xxx dlist
55 ?INIT:: change the next line if compiling for Xenix/286 on Xenix/386
56 ?INIT:xlibpth='/usr/lib/386 /lib/386'
57 ?INIT:
58 ?INIT:: Possible local library directories to search.
59 ?INIT:loclibpth="/usr/local/lib /opt/local/lib /usr/gnu/lib"
60 ?INIT:loclibpth="$loclibpth /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib"
61 ?INIT:
62 ?INIT:: general looking path for locating libraries
63 ?X:     /lib/pa1.1 is for HP-UX specially tuned PA-RISC libraries.
64 ?X:     /shlib is for Digital Unix 4.0
65 ?X:     /usr/shlib is for OSF/1 systems.
66 ?X:     I don't know why the large & small libraries are in this order.
67 ?INIT:glibpth="/shlib /usr/shlib /lib/pa1.1 /usr/lib/large"
68 ?INIT:glibpth="$glibpth /lib /usr/lib $xlibpth"
69 ?INIT:glibpth="$glibpth /lib/large /usr/lib/small /lib/small"
70 ?INIT:glibpth="$glibpth /usr/ccs/lib /usr/ucblib /usr/local/lib"
71 ?INIT:
72 ?INIT:: Private path used by Configure to find libraries.  Its value
73 ?INIT:: is prepended to libpth. This variable takes care of special
74 ?INIT:: machines, like the mips.  Usually, it should be empty.
75 ?INIT:plibpth=''
76 ?INIT:
77 ?LINT:describe xlibpth glibpth
78 ?LINT:use mips usrinc
79 : Set private lib path
80 case "$plibpth" in
81 '') if ./mips; then
82 ?X: on mips, we DO NOT want /lib, and we want $incpath/usr/lib
83                 plibpth="$incpath/usr/lib /usr/local/lib /usr/ccs/lib"
84         fi;;
85 esac
86 case "$libpth" in
87 ' ') dlist='';;
88 '') dlist="$loclibpth $plibpth $glibpth";;
89 *) dlist="$libpth";;
90 esac
91
92 : Now check and see which directories actually exist, avoiding duplicates
93 libpth=''
94 for xxx in $dlist
95 do
96     if $test -d $xxx; then
97                 case " $libpth " in
98                 *" $xxx "*) ;;
99                 *) libpth="$libpth $xxx";;
100                 esac
101     fi
102 done
103 $cat <<'EOM'
104
105 Some systems have incompatible or broken versions of libraries.  Among
106 the directories listed in the question below, please remove any you
107 know not to be holding relevant libraries, and add any that are needed.
108 Say "none" for none.
109
110 EOM
111 case "$libpth" in
112 '') dflt='none';;
113 *)
114 ?X: strip leading space
115         set X $libpth
116         shift
117         dflt=${1+"$@"}
118         ;;
119 esac
120 rp="Directories to use for library searches?"
121 . ./myread
122 case "$ans" in
123 none) libpth=' ';;
124 *) libpth="$ans";;
125 esac
126