* $Id: shlib.c,v 1.2 1993/11/09 04:19:03 paul Exp $
* Standard directories to search for files specified by -l.
#ifndef STANDARD_SEARCH_DIRS
#define STANDARD_SEARCH_DIRS "/usr/lib", "/usr/local/lib"
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.