1 /* Copyright (C) 1999-2004, 2005 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Contributed by Andreas Jaeger <aj@suse.de>, 1999.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, write to the Free
17 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
20 #define PROCINFO_CLASS static
31 #include <stdio_ext.h>
35 #include <sys/fcntl.h>
38 #include <sys/types.h>
45 #include "dl-procinfo.h"
47 #ifdef _DL_FIRST_PLATFORM
48 # define _DL_FIRST_EXTRA (_DL_FIRST_PLATFORM + _DL_PLATFORMS_COUNT)
50 # define _DL_FIRST_EXTRA _DL_HWCAP_COUNT
54 # define LD_SO_CONF SYSCONFDIR "/ld.so.conf"
57 /* Get libc version number. */
60 #define PACKAGE _libc_intl_domainname
68 {"libc4", FLAG_LIBC4
},
69 {"libc5", FLAG_ELF_LIBC5
},
70 {"libc6", FLAG_ELF_LIBC6
},
71 {"glibc2", FLAG_ELF_LIBC6
}
75 /* List of directories to handle. */
82 struct dir_entry
*next
;
85 /* The list is unsorted, contains no duplicates. Entries are added at
87 static struct dir_entry
*dir_entries
;
89 /* Flags for different options. */
91 static int opt_print_cache
;
96 /* Format to support. */
97 /* 0: only libc5/glibc2; 1: both; 2: only glibc 2.2. */
101 static int opt_build_cache
= 1;
103 /* Generate links. */
104 static int opt_link
= 1;
106 /* Only process directories specified on the command line. */
107 static int opt_only_cline
;
109 /* Path to root for chroot. */
110 static char *opt_chroot
;
112 /* Manually link given shared libraries. */
113 static int opt_manual_link
;
115 /* Cache file to use. */
116 static char *cache_file
;
118 /* Configuration file. */
119 static const char *config_file
;
121 /* Mask to use for important hardware capabilities. */
122 static unsigned long int hwcap_mask
= HWCAP_IMPORTANT
;
124 /* Configuration-defined capabilities defined in kernel vDSOs. */
125 static const char *hwcap_extra
[64 - _DL_FIRST_EXTRA
];
127 /* Name and version of program. */
128 static void print_version (FILE *stream
, struct argp_state
*state
);
129 void (*argp_program_version_hook
) (FILE *, struct argp_state
*)
132 /* Definitions of arguments for argp functions. */
133 static const struct argp_option options
[] =
135 { "print-cache", 'p', NULL
, 0, N_("Print cache"), 0},
136 { "verbose", 'v', NULL
, 0, N_("Generate verbose messages"), 0},
137 { NULL
, 'N', NULL
, 0, N_("Don't build cache"), 0},
138 { NULL
, 'X', NULL
, 0, N_("Don't generate links"), 0},
139 { NULL
, 'r', N_("ROOT"), 0, N_("Change to and use ROOT as root directory"), 0},
140 { NULL
, 'C', N_("CACHE"), 0, N_("Use CACHE as cache file"), 0},
141 { NULL
, 'f', N_("CONF"), 0, N_("Use CONF as configuration file"), 0},
142 { NULL
, 'n', NULL
, 0, N_("Only process directories specified on the command line. Don't build cache."), 0},
143 { NULL
, 'l', NULL
, 0, N_("Manually link individual libraries."), 0},
144 { "format", 'c', N_("FORMAT"), 0, N_("Format to use: new, old or compat (default)"), 0},
145 { NULL
, 0, NULL
, 0, NULL
, 0 }
148 #define PROCINFO_CLASS static
149 #include <dl-procinfo.c>
151 /* Short description of program. */
152 static const char doc
[] = N_("Configure Dynamic Linker Run Time Bindings.");
154 /* Prototype for option handler. */
155 static error_t
parse_opt (int key
, char *arg
, struct argp_state
*state
);
157 /* Data structure to communicate with argp functions. */
158 static struct argp argp
=
160 options
, parse_opt
, NULL
, doc
, NULL
, NULL
, NULL
163 /* Check if string corresponds to an important hardware capability or
166 is_hwcap_platform (const char *name
)
168 int hwcap_idx
= _dl_string_hwcap (name
);
170 if (hwcap_idx
!= -1 && ((1 << hwcap_idx
) & hwcap_mask
))
173 hwcap_idx
= _dl_string_platform (name
);
177 for (hwcap_idx
= _DL_FIRST_EXTRA
; hwcap_idx
< 64; ++hwcap_idx
)
178 if (hwcap_extra
[hwcap_idx
- _DL_FIRST_EXTRA
] != NULL
179 && !strcmp (name
, hwcap_extra
[hwcap_idx
- _DL_FIRST_EXTRA
]))
185 /* Get hwcap (including platform) encoding of path. */
187 path_hwcap (const char *path
)
189 char *str
= xstrdup (path
);
200 /* Search pathname from the end and check for hwcap strings. */
203 ptr
= strrchr (str
, '/');
208 h
= _dl_string_hwcap (ptr
+ 1);
210 if (h
== (uint64_t) -1)
212 h
= _dl_string_platform (ptr
+ 1);
213 if (h
== (uint64_t) -1)
215 for (h
= _DL_FIRST_EXTRA
; h
< 64; ++h
)
216 if (hwcap_extra
[h
- _DL_FIRST_EXTRA
] != NULL
217 && !strcmp (ptr
+ 1, hwcap_extra
[h
- _DL_FIRST_EXTRA
]))
225 /* Search the next part of the path. */
233 /* Handle program arguments. */
235 parse_opt (int key
, char *arg
, struct argp_state
*state
)
268 if (strcmp (arg
, "old") == 0)
270 else if (strcmp (arg
, "compat") == 0)
272 else if (strcmp (arg
, "new") == 0)
276 return ARGP_ERR_UNKNOWN
;
282 /* Print the version information. */
284 print_version (FILE *stream
, struct argp_state
*state
)
286 fprintf (stream
, "ldconfig (GNU %s) %s\n", PACKAGE
, VERSION
);
287 fprintf (stream
, gettext ("\
288 Copyright (C) %s Free Software Foundation, Inc.\n\
289 This is free software; see the source for copying conditions. There is NO\n\
290 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n\
292 fprintf (stream
, gettext ("Written by %s.\n"),
296 /* Add a single directory entry. */
298 add_single_dir (struct dir_entry
*entry
, int verbose
)
300 struct dir_entry
*ptr
, *prev
;
306 /* Check for duplicates. */
307 if (ptr
->ino
== entry
->ino
&& ptr
->dev
== entry
->dev
)
309 if (opt_verbose
&& verbose
)
310 error (0, 0, _("Path `%s' given more than once"), entry
->path
);
311 /* Use the newer information. */
312 ptr
->flag
= entry
->flag
;
320 /* Is this the first entry? */
321 if (ptr
== NULL
&& dir_entries
== NULL
)
323 else if (ptr
== NULL
)
327 /* Add one directory to the list of directories to process. */
329 add_dir (const char *line
)
332 struct dir_entry
*entry
= xmalloc (sizeof (struct dir_entry
));
335 /* Search for an '=' sign. */
336 entry
->path
= xstrdup (line
);
337 char *equal_sign
= strchr (entry
->path
, '=');
342 entry
->flag
= FLAG_ANY
;
343 for (i
= 0; i
< sizeof (lib_types
) / sizeof (lib_types
[0]); ++i
)
344 if (strcmp (equal_sign
, lib_types
[i
].name
) == 0)
346 entry
->flag
= lib_types
[i
].flag
;
349 if (entry
->flag
== FLAG_ANY
)
350 error (0, 0, _("%s is not a known library type"), equal_sign
);
354 entry
->flag
= FLAG_ANY
;
357 /* Canonify path: for now only remove leading and trailing
358 whitespace and the trailing slashes slashes. */
359 i
= strlen (entry
->path
) - 1;
361 while (isspace (entry
->path
[i
]) && i
> 0)
362 entry
->path
[i
--] = '\0';
364 while (entry
->path
[i
] == '/' && i
> 0)
365 entry
->path
[i
--] = '\0';
367 char *path
= entry
->path
;
369 path
= chroot_canon (opt_chroot
, path
);
371 struct stat64 stat_buf
;
372 if (path
== NULL
|| stat64 (path
, &stat_buf
))
375 error (0, errno
, _("Can't stat %s"), entry
->path
);
381 entry
->ino
= stat_buf
.st_ino
;
382 entry
->dev
= stat_buf
.st_dev
;
384 add_single_dir (entry
, 1);
393 chroot_stat (const char *real_path
, const char *path
, struct stat64
*st
)
399 return stat64 (real_path
, st
);
401 ret
= lstat64 (real_path
, st
);
402 if (ret
|| !S_ISLNK (st
->st_mode
))
405 canon_path
= chroot_canon (opt_chroot
, path
);
406 if (canon_path
== NULL
)
409 ret
= stat64 (canon_path
, st
);
414 /* Create a symbolic link from soname to libname in directory path. */
416 create_links (const char *real_path
, const char *path
, const char *libname
,
419 char *full_libname
, *full_soname
;
420 char *real_full_libname
, *real_full_soname
;
421 struct stat64 stat_lib
, stat_so
, lstat_so
;
424 /* XXX: The logics in this function should be simplified. */
426 /* Get complete path. */
427 full_libname
= alloca (strlen (path
) + strlen (libname
) + 2);
428 full_soname
= alloca (strlen (path
) + strlen (soname
) + 2);
429 sprintf (full_libname
, "%s/%s", path
, libname
);
430 sprintf (full_soname
, "%s/%s", path
, soname
);
433 real_full_libname
= alloca (strlen (real_path
) + strlen (libname
) + 2);
434 real_full_soname
= alloca (strlen (real_path
) + strlen (soname
) + 2);
435 sprintf (real_full_libname
, "%s/%s", real_path
, libname
);
436 sprintf (real_full_soname
, "%s/%s", real_path
, soname
);
440 real_full_libname
= full_libname
;
441 real_full_soname
= full_soname
;
444 /* Does soname already exist and point to the right library? */
445 if (chroot_stat (real_full_soname
, full_soname
, &stat_so
) == 0)
447 if (chroot_stat (real_full_libname
, full_libname
, &stat_lib
))
449 error (0, 0, _("Can't stat %s\n"), full_libname
);
452 if (stat_lib
.st_dev
== stat_so
.st_dev
453 && stat_lib
.st_ino
== stat_so
.st_ino
)
454 /* Link is already correct. */
456 else if (lstat64 (full_soname
, &lstat_so
) == 0
457 && !S_ISLNK (lstat_so
.st_mode
))
459 error (0, 0, _("%s is not a symbolic link\n"), full_soname
);
464 else if (lstat64 (real_full_soname
, &lstat_so
) != 0
465 || !S_ISLNK (lstat_so
.st_mode
))
466 /* Unless it is a stale symlink, there is no need to remove. */
470 printf ("\t%s -> %s", soname
, libname
);
472 if (do_link
&& opt_link
)
474 /* Remove old link. */
476 if (unlink (real_full_soname
))
478 error (0, 0, _("Can't unlink %s"), full_soname
);
481 /* Create symbolic link. */
482 if (do_link
&& symlink (libname
, real_full_soname
))
484 error (0, 0, _("Can't link %s to %s"), full_soname
, libname
);
490 fputs (_(" (changed)\n"), stdout
);
492 fputs (_(" (SKIPPED)\n"), stdout
);
495 else if (opt_verbose
)
496 fputs ("\n", stdout
);
499 /* Manually link the given library. */
501 manual_link (char *library
)
508 struct stat64 stat_buf
;
510 unsigned int osversion
;
512 /* Prepare arguments for create_links call. Split library name in
513 directory and filename first. Since path is allocated, we've got
514 to be careful to free at the end. */
515 path
= xstrdup (library
);
516 libname
= strrchr (path
, '/');
520 /* Successfully split names. Check if path is just "/" to avoid
524 libname
= library
+ 1;
525 path
= xrealloc (path
, 2);
536 /* There's no path, construct one. */
538 path
= xrealloc (path
, 2);
544 real_path
= chroot_canon (opt_chroot
, path
);
545 if (real_path
== NULL
)
547 error (0, errno
, _("Can't find %s"), path
);
551 real_library
= alloca (strlen (real_path
) + strlen (libname
) + 2);
552 sprintf (real_library
, "%s/%s", real_path
, libname
);
557 real_library
= library
;
560 /* Do some sanity checks first. */
561 if (lstat64 (real_library
, &stat_buf
))
563 error (0, errno
, _("Can't lstat %s"), library
);
567 /* We don't want links here! */
568 else if (!S_ISREG (stat_buf
.st_mode
))
570 error (0, 0, _("Ignored file %s since it is not a regular file."),
575 if (process_file (real_library
, library
, libname
, &flag
, &osversion
,
578 error (0, 0, _("No link created since soname could not be found for %s"),
583 create_links (real_path
, path
, libname
, soname
);
589 /* Read a whole directory and search for libraries.
590 The purpose is two-fold:
591 - search for libraries which will be added to the cache
592 - create symbolic links to the soname for each library
594 This has to be done separatly for each directory.
596 To keep track of which libraries to add to the cache and which
597 links to create, we save a list of all libraries.
599 The algorithm is basically:
600 for all libraries in the directory do
601 get soname of library
602 if soname is already in list
603 if new library is newer, replace entry
604 otherwise ignore this library
605 otherwise add library to list
607 For example, if the two libraries libxy.so.1.1 and libxy.so.1.2
608 exist and both have the same soname, e.g. libxy.so, a symbolic link
609 is created from libxy.so.1.2 (the newer one) to libxy.so.
610 libxy.so.1.2 and libxy.so are added to the cache - but not
613 /* Information for one library. */
620 unsigned int osversion
;
621 struct dlib_entry
*next
;
626 search_dir (const struct dir_entry
*entry
)
629 struct dirent64
*direntry
;
630 char *file_name
, *dir_name
, *real_file_name
, *real_name
;
631 int file_name_len
, real_file_name_len
, len
;
633 struct dlib_entry
*dlibs
;
634 struct dlib_entry
*dlib_ptr
;
635 struct stat64 lstat_buf
, stat_buf
;
637 uint64_t hwcap
= path_hwcap (entry
->path
);
638 unsigned int osversion
;
640 file_name_len
= PATH_MAX
;
641 file_name
= alloca (file_name_len
);
648 printf ("%s: (hwcap: %#.16" PRIx64
")\n", entry
->path
, hwcap
);
650 printf ("%s:\n", entry
->path
);
655 dir_name
= chroot_canon (opt_chroot
, entry
->path
);
656 real_file_name_len
= PATH_MAX
;
657 real_file_name
= alloca (real_file_name_len
);
661 dir_name
= entry
->path
;
662 real_file_name_len
= 0;
663 real_file_name
= file_name
;
666 if (dir_name
== NULL
|| (dir
= opendir (dir_name
)) == NULL
)
669 error (0, errno
, _("Can't open directory %s"), entry
->path
);
670 if (opt_chroot
&& dir_name
)
675 while ((direntry
= readdir64 (dir
)) != NULL
)
678 #ifdef _DIRENT_HAVE_D_TYPE
679 /* We only look at links and regular files. */
680 if (direntry
->d_type
!= DT_UNKNOWN
681 && direntry
->d_type
!= DT_LNK
682 && direntry
->d_type
!= DT_REG
683 && direntry
->d_type
!= DT_DIR
)
685 #endif /* _DIRENT_HAVE_D_TYPE */
686 /* Does this file look like a shared library or is it a hwcap
687 subdirectory? The dynamic linker is also considered as
689 if (((strncmp (direntry
->d_name
, "lib", 3) != 0
690 && strncmp (direntry
->d_name
, "ld-", 3) != 0)
691 || strstr (direntry
->d_name
, ".so") == NULL
)
693 #ifdef _DIRENT_HAVE_D_TYPE
694 direntry
->d_type
== DT_REG
||
696 !is_hwcap_platform (direntry
->d_name
)))
698 len
= strlen (entry
->path
) + strlen (direntry
->d_name
);
699 if (len
> file_name_len
)
701 file_name_len
= len
+ 1;
702 file_name
= alloca (file_name_len
);
704 real_file_name
= file_name
;
706 sprintf (file_name
, "%s/%s", entry
->path
, direntry
->d_name
);
709 len
= strlen (dir_name
) + strlen (direntry
->d_name
);
710 if (len
> real_file_name_len
)
712 real_file_name_len
= len
+ 1;
713 real_file_name
= alloca (real_file_name_len
);
715 sprintf (real_file_name
, "%s/%s", dir_name
, direntry
->d_name
);
717 #ifdef _DIRENT_HAVE_D_TYPE
718 if (direntry
->d_type
!= DT_UNKNOWN
)
719 lstat_buf
.st_mode
= DTTOIF (direntry
->d_type
);
722 if (__builtin_expect (lstat64 (real_file_name
, &lstat_buf
), 0))
724 error (0, errno
, _("Cannot lstat %s"), file_name
);
728 is_link
= S_ISLNK (lstat_buf
.st_mode
);
731 /* In case of symlink, we check if the symlink refers to
733 if (__builtin_expect (stat64 (real_file_name
, &stat_buf
), 0))
736 error (0, errno
, _("Cannot stat %s"), file_name
);
738 /* Remove stale symlinks. */
739 if (strstr (direntry
->d_name
, ".so."))
740 unlink (real_file_name
);
743 is_dir
= S_ISDIR (stat_buf
.st_mode
);
746 is_dir
= S_ISDIR (lstat_buf
.st_mode
);
748 if (is_dir
&& is_hwcap_platform (direntry
->d_name
))
750 /* Handle subdirectory later. */
751 struct dir_entry
*new_entry
;
753 new_entry
= xmalloc (sizeof (struct dir_entry
));
754 new_entry
->path
= xstrdup (file_name
);
755 new_entry
->flag
= entry
->flag
;
756 new_entry
->next
= NULL
;
759 new_entry
->ino
= stat_buf
.st_ino
;
760 new_entry
->dev
= stat_buf
.st_dev
;
764 #ifdef _DIRENT_HAVE_D_TYPE
765 /* We have filled in lstat only #ifndef
766 _DIRENT_HAVE_D_TYPE. Fill it in if needed. */
767 if (direntry
->d_type
!= DT_UNKNOWN
768 && __builtin_expect (lstat64 (real_file_name
, &lstat_buf
),
771 error (0, errno
, _("Cannot lstat %s"), file_name
);
772 free (new_entry
->path
);
778 new_entry
->ino
= lstat_buf
.st_ino
;
779 new_entry
->dev
= lstat_buf
.st_dev
;
781 add_single_dir (new_entry
, 0);
784 else if (!S_ISREG (lstat_buf
.st_mode
) && !is_link
)
787 if (opt_chroot
&& is_link
)
789 real_name
= chroot_canon (opt_chroot
, file_name
);
790 if (real_name
== NULL
)
792 if (strstr (file_name
, ".so") == NULL
)
793 error (0, 0, _("Input file %s not found.\n"), file_name
);
798 real_name
= real_file_name
;
800 if (process_file (real_name
, file_name
, direntry
->d_name
, &flag
,
801 &osversion
, &soname
, is_link
))
803 if (real_name
!= real_file_name
)
809 /* A link may just point to itself. */
812 /* If the path the link points to isn't its soname and it is not
813 .so symlink for ld(1) only, we treat it as a normal file. */
814 const char *real_base_name
= basename (real_file_name
);
816 if (strcmp (real_base_name
, soname
) != 0)
818 len
= strlen (real_base_name
);
819 if (len
< strlen (".so")
820 || strcmp (real_base_name
+ len
- strlen (".so"), ".so") != 0
821 || strncmp (real_base_name
, soname
, len
) != 0)
826 if (real_name
!= real_file_name
)
832 soname
= xstrdup (direntry
->d_name
);
836 && (entry
->flag
== FLAG_ELF_LIBC5
837 || entry
->flag
== FLAG_ELF_LIBC6
))
839 /* Some sanity checks to print warnings. */
842 if (flag
== FLAG_ELF_LIBC5
&& entry
->flag
!= FLAG_ELF_LIBC5
843 && entry
->flag
!= FLAG_ANY
)
844 error (0, 0, _("libc5 library %s in wrong directory"), file_name
);
845 if (flag
== FLAG_ELF_LIBC6
&& entry
->flag
!= FLAG_ELF_LIBC6
846 && entry
->flag
!= FLAG_ANY
)
847 error (0, 0, _("libc6 library %s in wrong directory"), file_name
);
848 if (flag
== FLAG_LIBC4
&& entry
->flag
!= FLAG_LIBC4
849 && entry
->flag
!= FLAG_ANY
)
850 error (0, 0, _("libc4 library %s in wrong directory"), file_name
);
853 /* Add library to list. */
854 for (dlib_ptr
= dlibs
; dlib_ptr
!= NULL
; dlib_ptr
= dlib_ptr
->next
)
856 /* Is soname already in list? */
857 if (strcmp (dlib_ptr
->soname
, soname
) == 0)
859 /* Prefer a file to a link, otherwise check which one
861 if ((!is_link
&& dlib_ptr
->is_link
)
862 || (is_link
== dlib_ptr
->is_link
863 && _dl_cache_libcmp (dlib_ptr
->name
, direntry
->d_name
) < 0))
865 /* It's newer - add it. */
866 /* Flag should be the same - sanity check. */
867 if (dlib_ptr
->flag
!= flag
)
869 if (dlib_ptr
->flag
== FLAG_ELF
870 && (flag
== FLAG_ELF_LIBC5
|| flag
== FLAG_ELF_LIBC6
))
871 dlib_ptr
->flag
= flag
;
872 else if ((dlib_ptr
->flag
== FLAG_ELF_LIBC5
873 || dlib_ptr
->flag
== FLAG_ELF_LIBC6
)
875 dlib_ptr
->flag
= flag
;
877 error (0, 0, _("libraries %s and %s in directory %s have same soname but different type."),
878 dlib_ptr
->name
, direntry
->d_name
, entry
->path
);
880 free (dlib_ptr
->name
);
881 dlib_ptr
->osversion
= osversion
;
882 dlib_ptr
->name
= xstrdup (direntry
->d_name
);
883 dlib_ptr
->is_link
= is_link
;
885 /* Don't add this library, abort loop. */
886 /* Also free soname, since it's dynamically allocated. */
891 /* Add the library if it's not already in. */
892 if (dlib_ptr
== NULL
)
894 dlib_ptr
= (struct dlib_entry
*)xmalloc (sizeof (struct dlib_entry
));
895 dlib_ptr
->name
= xstrdup (direntry
->d_name
);
896 dlib_ptr
->flag
= flag
;
897 dlib_ptr
->osversion
= osversion
;
898 dlib_ptr
->soname
= soname
;
899 dlib_ptr
->is_link
= is_link
;
900 /* Add at head of list. */
901 dlib_ptr
->next
= dlibs
;
908 /* Now dlibs contains a list of all libs - add those to the cache
909 and created all symbolic links. */
910 for (dlib_ptr
= dlibs
; dlib_ptr
!= NULL
; dlib_ptr
= dlib_ptr
->next
)
912 /* Don't create links to links. */
913 if (dlib_ptr
->is_link
== 0)
914 create_links (dir_name
, entry
->path
, dlib_ptr
->name
,
917 add_to_cache (entry
->path
, dlib_ptr
->soname
, dlib_ptr
->flag
,
918 dlib_ptr
->osversion
, hwcap
);
921 /* Free all resources. */
925 free (dlib_ptr
->soname
);
926 free (dlib_ptr
->name
);
931 if (opt_chroot
&& dir_name
)
935 /* Search through all libraries. */
939 struct dir_entry
*entry
;
941 for (entry
= dir_entries
; entry
!= NULL
; entry
= entry
->next
)
944 /* Free all allocated memory. */
948 dir_entries
= dir_entries
->next
;
955 static void parse_conf_include (const char *config_file
, unsigned int lineno
,
956 const char *prefix
, bool do_chroot
,
957 const char *pattern
);
959 /* Parse configuration file. */
961 parse_conf (const char *filename
, const char *prefix
, bool do_chroot
)
968 size_t prefix_len
= prefix
? strlen (prefix
) : 0;
970 if (do_chroot
&& opt_chroot
)
972 canon
= chroot_canon (opt_chroot
, filename
);
974 file
= fopen (canon
, "r");
981 file
= fopen (filename
, "r");
986 error (0, errno
, _("Can't open configuration file %s"), canon
);
987 if (canon
!= filename
)
988 free ((char *) canon
);
992 /* No threads use this stream. */
993 __fsetlocking (file
, FSETLOCKING_BYCALLER
);
995 if (canon
!= filename
)
996 free ((char *) canon
);
1001 ssize_t n
= getline (&line
, &len
, file
);
1006 if (line
[n
- 1] == '\n')
1009 /* Because the file format does not know any form of quoting we
1010 can search forward for the next '#' character and if found
1011 make it terminating the line. */
1012 *strchrnul (line
, '#') = '\0';
1014 /* Remove leading whitespace. NUL is no whitespace character. */
1016 while (isspace (*cp
))
1019 /* If the line is blank it is ignored. */
1023 if (!strncmp (cp
, "include", 7) && isblank (cp
[7]))
1027 while ((dir
= strsep (&cp
, " \t")) != NULL
)
1029 parse_conf_include (filename
, lineno
, prefix
, do_chroot
, dir
);
1031 else if (prefix
!= NULL
)
1033 size_t cp_len
= strlen (cp
);
1034 char new_cp
[prefix_len
+ cp_len
+ 1];
1035 memcpy (mempcpy (new_cp
, prefix
, prefix_len
), cp
, cp_len
+ 1);
1038 else if (!strncasecmp (cp
, "hwcap", 5) && isblank (cp
[5]))
1041 char *p
, *name
= NULL
;
1042 unsigned long int n
= strtoul (cp
, &cp
, 0);
1043 if (cp
!= NULL
&& isblank (*cp
))
1044 while ((p
= strsep (&cp
, " \t")) != NULL
)
1057 error (EXIT_FAILURE
, 0, _("%s:%u: bad syntax in hwcap line"),
1061 if (n
>= (64 - _DL_FIRST_EXTRA
))
1062 error (EXIT_FAILURE
, 0,
1063 _("%s:%u: hwcap index %lu above maximum %u"),
1064 filename
, lineno
, n
, 64 - _DL_FIRST_EXTRA
- 1);
1065 if (hwcap_extra
[n
] == NULL
)
1067 for (unsigned long int h
= 0; h
< (64 - _DL_FIRST_EXTRA
); ++h
)
1068 if (hwcap_extra
[h
] != NULL
&& !strcmp (name
, hwcap_extra
[h
]))
1069 error (EXIT_FAILURE
, 0,
1070 _("%s:%u: hwcap index %lu already defined as %s"),
1071 filename
, lineno
, h
, name
);
1072 hwcap_extra
[n
] = xstrdup (name
);
1076 if (strcmp (name
, hwcap_extra
[n
]))
1077 error (EXIT_FAILURE
, 0,
1078 _("%s:%u: hwcap index %lu already defined as %s"),
1079 filename
, lineno
, n
, hwcap_extra
[n
]);
1081 error (0, 0, _("%s:%u: duplicate hwcap %lu %s"),
1082 filename
, lineno
, n
, name
);
1088 while (!feof_unlocked (file
));
1090 /* Free buffer and close file. */
1095 /* Handle one word in an `include' line, a glob pattern of additional
1096 config files to read. */
1098 parse_conf_include (const char *config_file
, unsigned int lineno
,
1099 const char *prefix
, bool do_chroot
, const char *pattern
)
1101 if (opt_chroot
&& pattern
[0] != '/')
1102 error (EXIT_FAILURE
, 0,
1103 _("need absolute file name for configuration file when using -r"));
1106 if (pattern
[0] != '/' && strchr (config_file
, '/') != NULL
)
1108 if (asprintf (©
, "%s/%s", dirname (strdupa (config_file
)),
1110 error (EXIT_FAILURE
, 0, _("memory exhausted"));
1116 if (do_chroot
&& opt_chroot
)
1118 char *canon
= chroot_canon (opt_chroot
, pattern
);
1119 result
= glob64 (canon
?: pattern
, 0, NULL
, &gl
);
1123 result
= glob64 (pattern
, 0, NULL
, &gl
);
1128 for (size_t i
= 0; i
< gl
.gl_pathc
; ++i
)
1129 parse_conf (gl
.gl_pathv
[i
], prefix
, false);
1140 error (0, errno
, _("%s:%u: cannot read directory %s"),
1141 config_file
, lineno
, pattern
);
1153 /* Honour LD_HWCAP_MASK. */
1157 char *mask
= getenv ("LD_HWCAP_MASK");
1160 hwcap_mask
= strtoul (mask
, NULL
, 0);
1165 main (int argc
, char **argv
)
1169 arch_startup (argc
, argv
);
1171 /* Parse and process arguments. */
1172 argp_parse (&argp
, argc
, argv
, 0, &remaining
, NULL
);
1174 /* Remaining arguments are additional directories if opt_manual_link
1176 if (remaining
!= argc
&& !opt_manual_link
)
1179 for (i
= remaining
; i
< argc
; ++i
)
1180 if (opt_build_cache
&& argv
[i
][0] != '/')
1181 error (EXIT_FAILURE
, 0,
1182 _("relative path `%s' used to build cache"),
1189 hwcap_extra
[63 - _DL_FIRST_EXTRA
] = "tls";
1196 /* Normalize the path a bit, we might need it for printing later. */
1197 char *endp
= strchr (opt_chroot
, '\0');
1198 while (endp
> opt_chroot
&& endp
[-1] == '/')
1201 if (endp
== opt_chroot
)
1206 /* It is faster to use chroot if we can. */
1207 if (!chroot (opt_chroot
))
1210 error (EXIT_FAILURE
, errno
, _("Can't chdir to /"));
1216 if (cache_file
== NULL
)
1218 cache_file
= alloca (strlen (LD_SO_CACHE
) + 1);
1219 strcpy (cache_file
, LD_SO_CACHE
);
1222 if (config_file
== NULL
)
1223 config_file
= LD_SO_CONF
;
1225 if (opt_print_cache
)
1229 char *p
= chroot_canon (opt_chroot
, cache_file
);
1231 error (EXIT_FAILURE
, errno
, _("Can't open cache file %s\n"),
1235 print_cache (cache_file
);
1243 /* Canonicalize the directory name of cache_file, not cache_file,
1244 because we'll rename a temporary cache file to it. */
1245 char *p
= strrchr (cache_file
, '/');
1246 char *canon
= chroot_canon (opt_chroot
,
1247 p
? (*p
= '\0', cache_file
) : "/");
1251 error (EXIT_FAILURE
, errno
,
1252 _("Can't open cache file directory %s\n"),
1253 p
? cache_file
: "/");
1261 cache_file
= alloca (strlen (canon
) + strlen (p
) + 2);
1262 sprintf (cache_file
, "%s/%s", canon
, p
);
1266 if (opt_manual_link
)
1268 /* Link all given libraries manually. */
1271 for (i
= remaining
; i
< argc
; ++i
)
1272 manual_link (argv
[i
]);
1278 if (opt_build_cache
)
1281 if (!opt_only_cline
)
1283 parse_conf (config_file
, NULL
, true);
1285 /* Always add the standard search paths. */
1286 add_system_dir (SLIBDIR
);
1287 if (strcmp (SLIBDIR
, LIBDIR
))
1288 add_system_dir (LIBDIR
);
1290 add_arch_dirs (config_file
);
1295 if (opt_build_cache
)
1296 save_cache (cache_file
);