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 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:     /shlib is for Digital Unix 4.0
  74 ?X:     /usr/shlib is for OSF/1 systems.
  75 ?X:     I don't know why the large & small libraries are in this order.
  76 ?INIT:glibpth="/usr/lib/large /lib/pa1.1 /lib /usr/lib $xlibpth"
  77 ?INIT:glibpth="$glibpth /lib/large /usr/lib/small /lib/small"
  78 ?INIT:glibpth="$glibpth /usr/ccs/lib /usr/ucblib /usr/local/lib"
  79 ?INIT:test -f /usr/shlib/libc.so && glibpth="/usr/shlib $glibpth"
  80 ?INIT:test -f /shlib/libc.so     && glibpth="/shlib $glibpth"
  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 : Set private lib path
  89 case "$plibpth" in
  90 '') if ./mips; then
  91 ?X: on mips, we DO NOT want /lib, and we want $incpath/usr/lib
  92                 plibpth="$incpath/usr/lib /usr/local/lib /usr/ccs/lib"
  93         fi;;
  94 esac
  95 case "$libpth" in
  96 ' ') dlist='';;
  97 '') dlist="$loclibpth $plibpth $glibpth";;
  98 *) dlist="$libpth";;
  99 esac
 100
 101 : Now check and see which directories actually exist, avoiding duplicates
 102 libpth=''
 103 for xxx in $dlist
 104 do
 105     if $test -d $xxx; then
 106                 case " $libpth " in
 107                 *" $xxx "*) ;;
 108                 *) libpth="$libpth $xxx";;
 109                 esac
 110     fi
 111 done
 112 $cat <<'EOM'
 113
 114 Some systems have incompatible or broken versions of libraries.  Among
 115 the directories listed in the question below, please remove any you
 116 know not to be holding relevant libraries, and add any that are needed.
 117 Say "none" for none.
 118
 119 EOM
 120 case "$libpth" in
 121 '') dflt='none';;
 122 *)
 123 ?X: strip leading space
 124         set X $libpth
 125         shift
 126         dflt=${1+"$@"}
 127         ;;
 128 esac
 129 rp="Directories to use for library searches?"
 130 . ./myread
 131 case "$ans" in
 132 none) libpth=' ';;
 133 *) libpth="$ans";;
 134 esac
 135