* Copyright (c) 1993 Paul Kranenburg
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by Paul Kranenburg.
* 4. The name of the author may not be used to endorse or promote products
* derived from this software without specific prior written permission
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
* $Id: shlib.c,v 1.9 1994/01/29 02:03:15 jtc Exp $
* Standard directories to search for files specified by -l.
#ifndef STANDARD_SEARCH_DIRS
#define STANDARD_SEARCH_DIRS "/usr/lib", "/usr/X386/lib", "/usr/local/lib"
* Actual vector of library search directories,
* including `-L'ed and LD_LIBARAY_PATH spec'd ones.
char *standard_search_dirs
[] = {
search_dirs
= (char **)xrealloc(search_dirs
,
n_search_dirs
* sizeof(char *));
search_dirs
[n_search_dirs
- 1] = strdup(name
);
/* Add search directories from `paths' */
while ((cp
= strsep(&paths
, ":")) != NULL
) {
/* Append standard search directories */
n
= sizeof standard_search_dirs
/ sizeof standard_search_dirs
[0];
add_search_dir(standard_search_dirs
[i
]);
* Return true if CP points to a valid dewey number.
* Decode and leave the result in the array DEWEY.
* Return the number of decoded entries in DEWEY.
for (n
= 0, i
= 0; i
< MAXDEWEY
; i
++) {
dewey
[n
++] = strtol(cp
, &cp
, 10);
* Compare two dewey arrays.
* Return -1 if `d1' represents a smaller value than `d2'.
* Return 1 if `d1' represents a greater value than `d2'.
cmpndewey(d1
, n1
, d2
, n2
)
for (i
= 0; i
< n1
&& i
< n2
; i
++) {
* Search directories for a shared library matching the given
* major and minor version numbers.
* MAJOR == -1 && MINOR == -1 --> find highest version
* MAJOR != -1 && MINOR == -1 --> find highest minor version
* MAJOR == -1 && MINOR != -1 --> invalid
* MAJOR != -1 && MINOR != -1 --> find highest micro version
/* Not interested in devices right now... */
findshlib(name
, majorp
, minorp
, do_dot_a
)
char *lname
, *path
= NULL
;
int major
= *majorp
, minor
= *minorp
;
lname
= (char *)alloca(len
+ sizeof("lib"));
sprintf(lname
, "lib%s", name
);
for (i
= 0; i
< n_search_dirs
; i
++) {
DIR *dd
= opendir(search_dirs
[i
]);
while ((dp
= readdir(dd
)) != NULL
) {
int n
, j
, might_take_it
= 0;
if (do_dot_a
&& path
== NULL
&&
dp
->d_namlen
== len
+ 2 &&
strncmp(dp
->d_name
, lname
, len
) == 0 &&
(dp
->d_name
+len
)[0] == '.' &&
(dp
->d_name
+len
)[1] == 'a') {
path
= concat(search_dirs
[i
], "/", dp
->d_name
);
if (dp
->d_namlen
< len
+ 4)
if (strncmp(dp
->d_name
, lname
, len
) != 0)
if (strncmp(dp
->d_name
+len
, ".so.", 4) != 0)
if ((n
= getdewey(tmp
, dp
->d_name
+len
+4)) == 0)
if (major
!= -1 && found_dot_a
) { /* XXX */
if (major
== -1 && minor
== -1) {
} else if (major
!= -1 && minor
== -1) {
} else if (major
!= -1 && minor
!= -1) {
if (n
== 1 || tmp
[1] >= minor
)
if (cmpndewey(tmp
, n
, dewey
, ndewey
) <= 0)
/* We have a better version */
path
= concat(search_dirs
[i
], "/", dp
->d_name
);
bcopy(tmp
, dewey
, sizeof(dewey
));
* There's a .a archive here.