This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
76b6f7586fa8d8e7554fe7bbed0181d592ef1a51
[metaconfig.git] / U / modified / 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 (space-separated) used to find
42 ?S:     libraries. It is intended to be used by other units.
43 ?S:.
44 ?S:glibpth:
45 ?S:     This variable holds the general path (space-separated) used to
46 ?S:     find libraries.  It may contain directories that do not exist on
47 ?S:     this platform, libpth is the cleaned-up version.
48 ?S:.
49 ?S:xlibpth:
50 ?S:     This variable holds extra path (space-separated) used to find
51 ?S:     libraries on this platform, for example CPU-specific libraries
52 ?S:     (on multi-CPU platforms) may be listed here.
53 ?S:.
54 ?S:loclibpth:
55 ?S:     This variable holds the paths (space-separated) used to find local
56 ?S:     libraries.  It is prepended to libpth, and is intended to be easily
57 ?S:     set from the command line.
58 ?S:.
59 ?S:plibpth:
60 ?S:     Holds the private path used by Configure to find out the libraries.
61 ?S:     Its value is prepend to libpth. This variable takes care of special
62 ?S:     machines, like the mips.  Usually, it should be empty.
63 ?S:.
64 ?T: xxx dlist
65 ?INIT:: change the next line if compiling for Xenix/286 on Xenix/386
66 ?INIT:xlibpth='/usr/lib/386 /lib/386'
67 ?INIT:
68 ?INIT:: Possible local library directories to search.
69 ?INIT:loclibpth="/usr/local/lib /opt/local/lib /usr/gnu/lib"
70 ?INIT:loclibpth="$loclibpth /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib"
71 ?INIT:
72 ?INIT:: general looking path for locating libraries
73 ?X:     /lib/pa1.1 is for HP-UX specially tuned PA-RISC libraries.
74 ?X:     /shlib is for Digital Unix 4.0
75 ?X:     /usr/shlib is for OSF/1 systems.
76 ?X:     I don't know why the large & small libraries are in this order.
77 ?INIT:glibpth="/shlib /usr/shlib /lib/pa1.1 /usr/lib/large"
78 ?INIT:glibpth="$glibpth /lib /usr/lib $xlibpth"
79 ?INIT:glibpth="$glibpth /lib/large /usr/lib/small /lib/small"
80 ?INIT:glibpth="$glibpth /usr/ccs/lib /usr/ucblib /usr/local/lib"
81 ?INIT:
82 ?INIT:: Private path used by Configure to find libraries.  Its value
83 ?INIT:: is prepended to libpth. This variable takes care of special
84 ?INIT:: machines, like the mips.  Usually, it should be empty.
85 ?INIT:plibpth=''
86 ?INIT:
87 ?LINT:describe xlibpth glibpth
88 ?LINT:extern mips
89 ?LINT:use mips usrinc
90 : Set private lib path
91 case "$plibpth" in
92 '') if ./mips; then
93 ?X: on mips, we DO NOT want /lib, and we want $incpath/usr/lib
94                 plibpth="$incpath/usr/lib /usr/local/lib /usr/ccs/lib"
95         fi;;
96 esac
97 case "$libpth" in
98 ' ') dlist='';;
99 '') dlist="$loclibpth $plibpth $glibpth";;
100 *) dlist="$libpth";;
101 esac
102
103 : Now check and see which directories actually exist, avoiding duplicates
104 libpth=''
105 for xxx in $dlist
106 do
107     if $test -d $xxx; then
108                 case " $libpth " in
109                 *" $xxx "*) ;;
110                 *) libpth="$libpth $xxx";;
111                 esac
112     fi
113 done
114 $cat <<'EOM'
115
116 Some systems have incompatible or broken versions of libraries.  Among
117 the directories listed in the question below, please remove any you
118 know not to be holding relevant libraries, and add any that are needed.
119 Say "none" for none.
120
121 EOM
122 case "$libpth" in
123 '') dflt='none';;
124 *)
125 ?X: strip leading space
126         set X $libpth
127         shift
128         dflt=${1+"$@"}
129         ;;
130 esac
131 rp="Directories to use for library searches?"
132 . ./myread
133 case "$ans" in
134 none) libpth=' ';;
135 *) libpth="$ans";;
136 esac
137