| Commit | Line | Data |
|---|
| 2304df62 |
1 | ?X: These units are based on the ones supplied with dist-3.0 |
| 2 | ?X: patchlevel 22. They have been changed or enhanced to work with |
| 3 | ?X: perl5alpha. I would appreciate hearing about any changes, |
| 4 | ?X: corrections, or enhancements. |
| 5 | ?X: Andy Dougherty doughera@lafcol.lafayette.edu |
| 6 | ?X: Dept. of Physics |
| 7 | ?X: Lafayette College |
| 8 | ?X: Easton, PA 18042-1782 |
| 9 | ?X: Sat Apr 2 15:45:17 EST 1994 |
| 10 | ?RCS: $Id: libpth.U,v 3.0 1993/08/18 12:09:02 ram Exp $ |
| 11 | ?RCS: |
| 12 | ?RCS: Copyright (c) 1991-1993, Raphael Manfredi |
| 13 | ?RCS: |
| 14 | ?RCS: You may redistribute only under the terms of the Artistic Licence, |
| 15 | ?RCS: as specified in the README file that comes with the distribution. |
| 16 | ?RCS: You may reuse parts of this distribution only within the terms of |
| 17 | ?RCS: that same Artistic Licence; a copy of which may be found at the root |
| 18 | ?RCS: of the source tree for dist 3.0. |
| 19 | ?RCS: |
| 20 | ?RCS: $Log: libpth.U,v $ |
| 21 | ?RCS: Revision 3.0 1993/08/18 12:09:02 ram |
| 22 | ?RCS: Baseline for dist 3.0 netwide release. |
| 23 | ?RCS: |
| 24 | ?X: |
| 25 | ?X: This unit initializes the path for C library lookup. |
| 26 | ?X: |
| 27 | ?MAKE:libpth xlibpth plibpth: mips incpath test cat Myread |
| 28 | ?MAKE: -pick add $@ %< |
| 29 | ?S:libpth: |
| 30 | ?S: This variable holds the general path used to find libraries. It is |
| 31 | ?S: intended to be used by other units. |
| 32 | ?S:. |
| 33 | ?S:plibpth: |
| 34 | ?S: Holds the private path used by Configure to find out the libraries. |
| 35 | ?S: Its value is prepend to libpth. This variable takes care of special |
| 36 | ?S: machines, like the mips. Usually, it should be empty. |
| 37 | ?S:. |
| 38 | ?T: xxx yyy |
| 39 | ?INIT:: change the next line if compiling for Xenix/286 on Xenix/386 |
| 40 | ?INIT:xlibpth='/usr/lib/386 /lib/386' |
| 41 | ?INIT: |
| 42 | ?INIT:: general looking path for locating libraries |
| 43 | ?INIT:libpth="/usr/lib/large /lib /usr/lib $xlibpth /lib/large" |
| 44 | ?INIT:libpth="$libpth /usr/lib/small /lib/small" |
| 45 | ?INIT:libpth="$libpth /usr/ccs/lib /usr/ucblib /usr/local/lib" |
| 46 | ?INIT: |
| 47 | ?INIT:: Private path used by Configure to find libraries. Its value |
| 48 | ?INIT:: is prepend to libpth. This variable takes care of special |
| 49 | ?INIT:: machines, like the mips. Usually, it should be empty. |
| 50 | ?INIT:plibpth='' |
| 51 | ?INIT: |
| 52 | ?LINT:describe xlibpth |
| 53 | ?LINT:use mips |
| 54 | : Set private lib path |
| 55 | case "$plibpth" in |
| 56 | '') if mips; then |
| 57 | ?X: on mips, we DO NOT want /lib, and we want $incpath/usr/lib |
| 58 | plibpth="$incpath/usr/lib /usr/local/lib /usr/ccs/lib" |
| 59 | fi;; |
| 60 | esac |
| 61 | libpth="$plibpth $libpth" |
| 62 | : Now check and see which directories actually exist. |
| 63 | xxx='' |
| 64 | for yyy in $libpth |
| 65 | do |
| 66 | if $test -d $yyy; then |
| 67 | xxx="$xxx $yyy" |
| 68 | fi |
| 69 | done |
| 70 | libpth="$xxx" |
| 71 | $cat <<EOM |
| 72 | Some systems have incompatible or broken versions of libraries. Where |
| 73 | should I look for libraries? |
| 74 | EOM |
| 75 | |
| 76 | dflt="$libpth" |
| 77 | echo " " |
| 78 | rp="Directories to use for library searches?" |
| 79 | . ./myread |
| 80 | case "$ans" in |
| 81 | none) libpth=' ';; |
| 82 | *) libpth="$ans";; |
| 83 | esac |
projects / p5sagit/p5-mst-13.2.git / blame