1 /* Copyright (C) 1999-2008, 2009, 2010, 2011 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Contributed by Andreas Jaeger <aj@suse.de>, 1999.
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published
7 by the Free Software Foundation; version 2 of the License, or
8 (at your option) any later version.
10 This program 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
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software Foundation,
17 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
19 #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 /* Should we ignore an old auxiliary cache file? */
116 static int opt_ignore_aux_cache
;
118 /* Cache file to use. */
119 static char *cache_file
;
121 /* Configuration file. */
122 static const char *config_file
;
124 /* Mask to use for important hardware capabilities. */
125 static unsigned long int hwcap_mask
= HWCAP_IMPORTANT
;
127 /* Configuration-defined capabilities defined in kernel vDSOs. */
128 static const char *hwcap_extra
[64 - _DL_FIRST_EXTRA
];
130 /* Name and version of program. */
131 static void print_version (FILE *stream
, struct argp_state
*state
);
132 void (*argp_program_version_hook
) (FILE *, struct argp_state
*)
135 /* Function to print some extra text in the help message. */
136 static char *more_help (int key
, const char *text
, void *input
);
138 /* Definitions of arguments for argp functions. */
139 static const struct argp_option options
[] =
141 { "print-cache", 'p', NULL
, 0, N_("Print cache"), 0},
142 { "verbose", 'v', NULL
, 0, N_("Generate verbose messages"), 0},
143 { NULL
, 'N', NULL
, 0, N_("Don't build cache"), 0},
144 { NULL
, 'X', NULL
, 0, N_("Don't generate links"), 0},
145 { NULL
, 'r', N_("ROOT"), 0, N_("Change to and use ROOT as root directory"), 0},
146 { NULL
, 'C', N_("CACHE"), 0, N_("Use CACHE as cache file"), 0},
147 { NULL
, 'f', N_("CONF"), 0, N_("Use CONF as configuration file"), 0},
148 { NULL
, 'n', NULL
, 0, N_("Only process directories specified on the command line. Don't build cache."), 0},
149 { NULL
, 'l', NULL
, 0, N_("Manually link individual libraries."), 0},
150 { "format", 'c', N_("FORMAT"), 0, N_("Format to use: new, old or compat (default)"), 0},
151 { "ignore-aux-cache", 'i', NULL
, 0, N_("Ignore auxiliary cache file"), 0},
152 { NULL
, 0, NULL
, 0, NULL
, 0 }
155 #define PROCINFO_CLASS static
156 #include <dl-procinfo.c>
158 /* Short description of program. */
159 static const char doc
[] = N_("Configure Dynamic Linker Run Time Bindings.");
161 /* Prototype for option handler. */
162 static error_t
parse_opt (int key
, char *arg
, struct argp_state
*state
);
164 /* Data structure to communicate with argp functions. */
165 static struct argp argp
=
167 options
, parse_opt
, NULL
, doc
, NULL
, more_help
, NULL
170 /* Check if string corresponds to an important hardware capability or
173 is_hwcap_platform (const char *name
)
175 int hwcap_idx
= _dl_string_hwcap (name
);
177 if (hwcap_idx
!= -1 && ((1 << hwcap_idx
) & hwcap_mask
))
180 hwcap_idx
= _dl_string_platform (name
);
184 for (hwcap_idx
= _DL_FIRST_EXTRA
; hwcap_idx
< 64; ++hwcap_idx
)
185 if (hwcap_extra
[hwcap_idx
- _DL_FIRST_EXTRA
] != NULL
186 && !strcmp (name
, hwcap_extra
[hwcap_idx
- _DL_FIRST_EXTRA
]))
192 /* Get hwcap (including platform) encoding of path. */
194 path_hwcap (const char *path
)
196 char *str
= xstrdup (path
);
207 /* Search pathname from the end and check for hwcap strings. */
210 ptr
= strrchr (str
, '/');
215 h
= _dl_string_hwcap (ptr
+ 1);
217 if (h
== (uint64_t) -1)
219 h
= _dl_string_platform (ptr
+ 1);
220 if (h
== (uint64_t) -1)
222 for (h
= _DL_FIRST_EXTRA
; h
< 64; ++h
)
223 if (hwcap_extra
[h
- _DL_FIRST_EXTRA
] != NULL
224 && !strcmp (ptr
+ 1, hwcap_extra
[h
- _DL_FIRST_EXTRA
]))
232 /* Search the next part of the path. */
240 /* Handle program arguments. */
242 parse_opt (int key
, char *arg
, struct argp_state
*state
)
248 /* Ignore auxiliary cache since we use non-standard cache. */
249 opt_ignore_aux_cache
= 1;
255 opt_ignore_aux_cache
= 1;
280 if (strcmp (arg
, "old") == 0)
282 else if (strcmp (arg
, "compat") == 0)
284 else if (strcmp (arg
, "new") == 0)
288 return ARGP_ERR_UNKNOWN
;
294 /* Print bug-reporting information in the help message. */
296 more_help (int key
, const char *text
, void *input
)
300 case ARGP_KEY_HELP_EXTRA
:
301 /* We print some extra information. */
302 return strdup (gettext ("\
303 For bug reporting instructions, please see:\n\
304 <http://www.gnu.org/software/libc/bugs.html>.\n"));
308 return (char *) text
;
311 /* Print the version information. */
313 print_version (FILE *stream
, struct argp_state
*state
)
315 fprintf (stream
, "ldconfig (GNU %s) %s\n", PACKAGE
, VERSION
);
316 fprintf (stream
, gettext ("\
317 Copyright (C) %s Free Software Foundation, Inc.\n\
318 This is free software; see the source for copying conditions. There is NO\n\
319 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n\
321 fprintf (stream
, gettext ("Written by %s.\n"),
325 /* Add a single directory entry. */
327 add_single_dir (struct dir_entry
*entry
, int verbose
)
329 struct dir_entry
*ptr
, *prev
;
335 /* Check for duplicates. */
336 if (ptr
->ino
== entry
->ino
&& ptr
->dev
== entry
->dev
)
338 if (opt_verbose
&& verbose
)
339 error (0, 0, _("Path `%s' given more than once"), entry
->path
);
340 /* Use the newer information. */
341 ptr
->flag
= entry
->flag
;
349 /* Is this the first entry? */
350 if (ptr
== NULL
&& dir_entries
== NULL
)
352 else if (ptr
== NULL
)
356 /* Add one directory to the list of directories to process. */
358 add_dir (const char *line
)
361 struct dir_entry
*entry
= xmalloc (sizeof (struct dir_entry
));
364 /* Search for an '=' sign. */
365 entry
->path
= xstrdup (line
);
366 char *equal_sign
= strchr (entry
->path
, '=');
371 entry
->flag
= FLAG_ANY
;
372 for (i
= 0; i
< sizeof (lib_types
) / sizeof (lib_types
[0]); ++i
)
373 if (strcmp (equal_sign
, lib_types
[i
].name
) == 0)
375 entry
->flag
= lib_types
[i
].flag
;
378 if (entry
->flag
== FLAG_ANY
)
379 error (0, 0, _("%s is not a known library type"), equal_sign
);
383 entry
->flag
= FLAG_ANY
;
386 /* Canonify path: for now only remove leading and trailing
387 whitespace and the trailing slashes slashes. */
388 i
= strlen (entry
->path
) - 1;
390 while (isspace (entry
->path
[i
]) && i
> 0)
391 entry
->path
[i
--] = '\0';
393 while (entry
->path
[i
] == '/' && i
> 0)
394 entry
->path
[i
--] = '\0';
396 char *path
= entry
->path
;
398 path
= chroot_canon (opt_chroot
, path
);
400 struct stat64 stat_buf
;
401 if (path
== NULL
|| stat64 (path
, &stat_buf
))
404 error (0, errno
, _("Can't stat %s"), entry
->path
);
410 entry
->ino
= stat_buf
.st_ino
;
411 entry
->dev
= stat_buf
.st_dev
;
413 add_single_dir (entry
, 1);
422 chroot_stat (const char *real_path
, const char *path
, struct stat64
*st
)
428 return stat64 (real_path
, st
);
430 ret
= lstat64 (real_path
, st
);
431 if (ret
|| !S_ISLNK (st
->st_mode
))
434 canon_path
= chroot_canon (opt_chroot
, path
);
435 if (canon_path
== NULL
)
438 ret
= stat64 (canon_path
, st
);
443 /* Create a symbolic link from soname to libname in directory path. */
445 create_links (const char *real_path
, const char *path
, const char *libname
,
448 char *full_libname
, *full_soname
;
449 char *real_full_libname
, *real_full_soname
;
450 struct stat64 stat_lib
, stat_so
, lstat_so
;
453 /* XXX: The logics in this function should be simplified. */
455 /* Get complete path. */
456 full_libname
= alloca (strlen (path
) + strlen (libname
) + 2);
457 full_soname
= alloca (strlen (path
) + strlen (soname
) + 2);
458 sprintf (full_libname
, "%s/%s", path
, libname
);
459 sprintf (full_soname
, "%s/%s", path
, soname
);
462 real_full_libname
= alloca (strlen (real_path
) + strlen (libname
) + 2);
463 real_full_soname
= alloca (strlen (real_path
) + strlen (soname
) + 2);
464 sprintf (real_full_libname
, "%s/%s", real_path
, libname
);
465 sprintf (real_full_soname
, "%s/%s", real_path
, soname
);
469 real_full_libname
= full_libname
;
470 real_full_soname
= full_soname
;
473 /* Does soname already exist and point to the right library? */
474 if (chroot_stat (real_full_soname
, full_soname
, &stat_so
) == 0)
476 if (chroot_stat (real_full_libname
, full_libname
, &stat_lib
))
478 error (0, 0, _("Can't stat %s\n"), full_libname
);
481 if (stat_lib
.st_dev
== stat_so
.st_dev
482 && stat_lib
.st_ino
== stat_so
.st_ino
)
483 /* Link is already correct. */
485 else if (lstat64 (full_soname
, &lstat_so
) == 0
486 && !S_ISLNK (lstat_so
.st_mode
))
488 error (0, 0, _("%s is not a symbolic link\n"), full_soname
);
493 else if (lstat64 (real_full_soname
, &lstat_so
) != 0
494 || !S_ISLNK (lstat_so
.st_mode
))
495 /* Unless it is a stale symlink, there is no need to remove. */
499 printf ("\t%s -> %s", soname
, libname
);
501 if (do_link
&& opt_link
)
503 /* Remove old link. */
505 if (unlink (real_full_soname
))
507 error (0, 0, _("Can't unlink %s"), full_soname
);
510 /* Create symbolic link. */
511 if (do_link
&& symlink (libname
, real_full_soname
))
513 error (0, 0, _("Can't link %s to %s"), full_soname
, libname
);
519 fputs (_(" (changed)\n"), stdout
);
521 fputs (_(" (SKIPPED)\n"), stdout
);
524 else if (opt_verbose
)
525 fputs ("\n", stdout
);
528 /* Manually link the given library. */
530 manual_link (char *library
)
537 struct stat64 stat_buf
;
539 unsigned int osversion
;
541 /* Prepare arguments for create_links call. Split library name in
542 directory and filename first. Since path is allocated, we've got
543 to be careful to free at the end. */
544 path
= xstrdup (library
);
545 libname
= strrchr (path
, '/');
549 /* Successfully split names. Check if path is just "/" to avoid
553 libname
= library
+ 1;
554 path
= xrealloc (path
, 2);
565 /* There's no path, construct one. */
567 path
= xrealloc (path
, 2);
573 real_path
= chroot_canon (opt_chroot
, path
);
574 if (real_path
== NULL
)
576 error (0, errno
, _("Can't find %s"), path
);
580 real_library
= alloca (strlen (real_path
) + strlen (libname
) + 2);
581 sprintf (real_library
, "%s/%s", real_path
, libname
);
586 real_library
= library
;
589 /* Do some sanity checks first. */
590 if (lstat64 (real_library
, &stat_buf
))
592 error (0, errno
, _("Cannot lstat %s"), library
);
596 /* We don't want links here! */
597 else if (!S_ISREG (stat_buf
.st_mode
))
599 error (0, 0, _("Ignored file %s since it is not a regular file."),
605 if (process_file (real_library
, library
, libname
, &flag
, &osversion
,
606 &soname
, 0, &stat_buf
))
608 error (0, 0, _("No link created since soname could not be found for %s"),
614 soname
= implicit_soname (libname
, flag
);
615 create_links (real_path
, path
, libname
, soname
);
621 /* Read a whole directory and search for libraries.
622 The purpose is two-fold:
623 - search for libraries which will be added to the cache
624 - create symbolic links to the soname for each library
626 This has to be done separatly for each directory.
628 To keep track of which libraries to add to the cache and which
629 links to create, we save a list of all libraries.
631 The algorithm is basically:
632 for all libraries in the directory do
633 get soname of library
634 if soname is already in list
635 if new library is newer, replace entry
636 otherwise ignore this library
637 otherwise add library to list
639 For example, if the two libraries libxy.so.1.1 and libxy.so.1.2
640 exist and both have the same soname, e.g. libxy.so, a symbolic link
641 is created from libxy.so.1.2 (the newer one) to libxy.so.
642 libxy.so.1.2 and libxy.so are added to the cache - but not
645 /* Information for one library. */
652 unsigned int osversion
;
653 struct dlib_entry
*next
;
658 search_dir (const struct dir_entry
*entry
)
660 uint64_t hwcap
= path_hwcap (entry
->path
);
664 printf ("%s: (hwcap: %#.16" PRIx64
")\n", entry
->path
, hwcap
);
666 printf ("%s:\n", entry
->path
);
670 char *real_file_name
;
671 size_t real_file_name_len
;
672 size_t file_name_len
= PATH_MAX
;
673 char *file_name
= alloca (file_name_len
);
676 dir_name
= chroot_canon (opt_chroot
, entry
->path
);
677 real_file_name_len
= PATH_MAX
;
678 real_file_name
= alloca (real_file_name_len
);
682 dir_name
= entry
->path
;
683 real_file_name_len
= 0;
684 real_file_name
= file_name
;
688 if (dir_name
== NULL
|| (dir
= opendir (dir_name
)) == NULL
)
691 error (0, errno
, _("Can't open directory %s"), entry
->path
);
692 if (opt_chroot
&& dir_name
)
697 struct dirent64
*direntry
;
698 struct dlib_entry
*dlibs
= NULL
;
699 while ((direntry
= readdir64 (dir
)) != NULL
)
702 #ifdef _DIRENT_HAVE_D_TYPE
703 /* We only look at links and regular files. */
704 if (direntry
->d_type
!= DT_UNKNOWN
705 && direntry
->d_type
!= DT_LNK
706 && direntry
->d_type
!= DT_REG
707 && direntry
->d_type
!= DT_DIR
)
709 #endif /* _DIRENT_HAVE_D_TYPE */
710 /* Does this file look like a shared library or is it a hwcap
711 subdirectory? The dynamic linker is also considered as
713 if (((strncmp (direntry
->d_name
, "lib", 3) != 0
714 && strncmp (direntry
->d_name
, "ld-", 3) != 0)
715 || strstr (direntry
->d_name
, ".so") == NULL
)
717 #ifdef _DIRENT_HAVE_D_TYPE
718 direntry
->d_type
== DT_REG
||
720 !is_hwcap_platform (direntry
->d_name
)))
723 size_t len
= strlen (direntry
->d_name
);
724 /* Skip temporary files created by the prelink program. Files with
725 names like these are never really DSOs we want to look at. */
726 if (len
>= sizeof (".#prelink#") - 1)
728 if (strcmp (direntry
->d_name
+ len
- sizeof (".#prelink#") + 1,
731 if (len
>= sizeof (".#prelink#.XXXXXX") - 1
732 && memcmp (direntry
->d_name
+ len
- sizeof (".#prelink#.XXXXXX")
733 + 1, ".#prelink#.", sizeof (".#prelink#.") - 1) == 0)
736 len
+= strlen (entry
->path
) + 2;
737 if (len
> file_name_len
)
740 file_name
= alloca (file_name_len
);
742 real_file_name
= file_name
;
744 sprintf (file_name
, "%s/%s", entry
->path
, direntry
->d_name
);
747 len
= strlen (dir_name
) + strlen (direntry
->d_name
) + 2;
748 if (len
> real_file_name_len
)
750 real_file_name_len
= len
;
751 real_file_name
= alloca (real_file_name_len
);
753 sprintf (real_file_name
, "%s/%s", dir_name
, direntry
->d_name
);
756 struct stat64 lstat_buf
;
757 #ifdef _DIRENT_HAVE_D_TYPE
758 /* We optimize and try to do the lstat call only if needed. */
759 if (direntry
->d_type
!= DT_UNKNOWN
)
760 lstat_buf
.st_mode
= DTTOIF (direntry
->d_type
);
763 if (__builtin_expect (lstat64 (real_file_name
, &lstat_buf
), 0))
765 error (0, errno
, _("Cannot lstat %s"), file_name
);
769 struct stat64 stat_buf
;
771 int is_link
= S_ISLNK (lstat_buf
.st_mode
);
774 /* In case of symlink, we check if the symlink refers to
776 char *target_name
= real_file_name
;
779 target_name
= chroot_canon (opt_chroot
, file_name
);
780 if (target_name
== NULL
)
782 if (strstr (file_name
, ".so") == NULL
)
783 error (0, 0, _("Input file %s not found.\n"), file_name
);
787 if (__builtin_expect (stat64 (target_name
, &stat_buf
), 0))
790 error (0, errno
, _("Cannot stat %s"), file_name
);
792 /* Remove stale symlinks. */
793 if (strstr (direntry
->d_name
, ".so."))
794 unlink (real_file_name
);
797 is_dir
= S_ISDIR (stat_buf
.st_mode
);
799 /* lstat_buf is later stored, update contents. */
800 lstat_buf
.st_dev
= stat_buf
.st_dev
;
801 lstat_buf
.st_ino
= stat_buf
.st_ino
;
802 lstat_buf
.st_size
= stat_buf
.st_size
;
803 lstat_buf
.st_ctime
= stat_buf
.st_ctime
;
806 is_dir
= S_ISDIR (lstat_buf
.st_mode
);
808 if (is_dir
&& is_hwcap_platform (direntry
->d_name
))
810 /* Handle subdirectory later. */
811 struct dir_entry
*new_entry
;
813 new_entry
= xmalloc (sizeof (struct dir_entry
));
814 new_entry
->path
= xstrdup (file_name
);
815 new_entry
->flag
= entry
->flag
;
816 new_entry
->next
= NULL
;
817 #ifdef _DIRENT_HAVE_D_TYPE
818 /* We have filled in lstat only #ifndef
819 _DIRENT_HAVE_D_TYPE. Fill it in if needed. */
821 && direntry
->d_type
!= DT_UNKNOWN
822 && __builtin_expect (lstat64 (real_file_name
, &lstat_buf
), 0))
824 error (0, errno
, _("Cannot lstat %s"), file_name
);
825 free (new_entry
->path
);
830 new_entry
->ino
= lstat_buf
.st_ino
;
831 new_entry
->dev
= lstat_buf
.st_dev
;
832 add_single_dir (new_entry
, 0);
835 else if (!S_ISREG (lstat_buf
.st_mode
) && !is_link
)
839 if (opt_chroot
&& is_link
)
841 real_name
= chroot_canon (opt_chroot
, file_name
);
842 if (real_name
== NULL
)
844 if (strstr (file_name
, ".so") == NULL
)
845 error (0, 0, _("Input file %s not found.\n"), file_name
);
850 real_name
= real_file_name
;
852 #ifdef _DIRENT_HAVE_D_TYPE
853 /* Call lstat64 if not done yet. */
855 && direntry
->d_type
!= DT_UNKNOWN
856 && __builtin_expect (lstat64 (real_file_name
, &lstat_buf
), 0))
858 error (0, errno
, _("Cannot lstat %s"), file_name
);
863 /* First search whether the auxiliary cache contains this
864 library already and it's not changed. */
866 unsigned int osversion
;
867 if (!search_aux_cache (&lstat_buf
, &flag
, &osversion
, &soname
))
869 if (process_file (real_name
, file_name
, direntry
->d_name
, &flag
,
870 &osversion
, &soname
, is_link
, &lstat_buf
))
872 if (real_name
!= real_file_name
)
876 else if (opt_build_cache
)
877 add_to_aux_cache (&lstat_buf
, flag
, osversion
, soname
);
881 soname
= implicit_soname (direntry
->d_name
, flag
);
883 /* A link may just point to itself. */
886 /* If the path the link points to isn't its soname and it is not
887 .so symlink for ld(1) only, we treat it as a normal file. */
888 const char *real_base_name
= basename (real_file_name
);
890 if (strcmp (real_base_name
, soname
) != 0)
892 len
= strlen (real_base_name
);
893 if (len
< strlen (".so")
894 || strcmp (real_base_name
+ len
- strlen (".so"), ".so") != 0
895 || strncmp (real_base_name
, soname
, len
) != 0)
900 if (real_name
!= real_file_name
)
906 soname
= xstrdup (direntry
->d_name
);
910 && (entry
->flag
== FLAG_ELF_LIBC5
911 || entry
->flag
== FLAG_ELF_LIBC6
))
914 /* Some sanity checks to print warnings. */
917 if (flag
== FLAG_ELF_LIBC5
&& entry
->flag
!= FLAG_ELF_LIBC5
918 && entry
->flag
!= FLAG_ANY
)
919 error (0, 0, _("libc5 library %s in wrong directory"), file_name
);
920 if (flag
== FLAG_ELF_LIBC6
&& entry
->flag
!= FLAG_ELF_LIBC6
921 && entry
->flag
!= FLAG_ANY
)
922 error (0, 0, _("libc6 library %s in wrong directory"), file_name
);
923 if (flag
== FLAG_LIBC4
&& entry
->flag
!= FLAG_LIBC4
924 && entry
->flag
!= FLAG_ANY
)
925 error (0, 0, _("libc4 library %s in wrong directory"), file_name
);
928 /* Add library to list. */
929 struct dlib_entry
*dlib_ptr
;
930 for (dlib_ptr
= dlibs
; dlib_ptr
!= NULL
; dlib_ptr
= dlib_ptr
->next
)
932 /* Is soname already in list? */
933 if (strcmp (dlib_ptr
->soname
, soname
) == 0)
935 /* Prefer a file to a link, otherwise check which one
937 if ((!is_link
&& dlib_ptr
->is_link
)
938 || (is_link
== dlib_ptr
->is_link
939 && _dl_cache_libcmp (dlib_ptr
->name
, direntry
->d_name
) < 0))
941 /* It's newer - add it. */
942 /* Flag should be the same - sanity check. */
943 if (dlib_ptr
->flag
!= flag
)
945 if (dlib_ptr
->flag
== FLAG_ELF
946 && (flag
== FLAG_ELF_LIBC5
|| flag
== FLAG_ELF_LIBC6
))
947 dlib_ptr
->flag
= flag
;
948 else if ((dlib_ptr
->flag
== FLAG_ELF_LIBC5
949 || dlib_ptr
->flag
== FLAG_ELF_LIBC6
)
951 dlib_ptr
->flag
= flag
;
953 error (0, 0, _("libraries %s and %s in directory %s have same soname but different type."),
954 dlib_ptr
->name
, direntry
->d_name
,
957 free (dlib_ptr
->name
);
958 dlib_ptr
->name
= xstrdup (direntry
->d_name
);
959 dlib_ptr
->is_link
= is_link
;
960 dlib_ptr
->osversion
= osversion
;
962 /* Don't add this library, abort loop. */
963 /* Also free soname, since it's dynamically allocated. */
968 /* Add the library if it's not already in. */
969 if (dlib_ptr
== NULL
)
971 dlib_ptr
= (struct dlib_entry
*)xmalloc (sizeof (struct dlib_entry
));
972 dlib_ptr
->name
= xstrdup (direntry
->d_name
);
973 dlib_ptr
->soname
= soname
;
974 dlib_ptr
->flag
= flag
;
975 dlib_ptr
->is_link
= is_link
;
976 dlib_ptr
->osversion
= osversion
;
977 /* Add at head of list. */
978 dlib_ptr
->next
= dlibs
;
985 /* Now dlibs contains a list of all libs - add those to the cache
986 and created all symbolic links. */
987 struct dlib_entry
*dlib_ptr
;
988 for (dlib_ptr
= dlibs
; dlib_ptr
!= NULL
; dlib_ptr
= dlib_ptr
->next
)
990 /* Don't create links to links. */
991 if (dlib_ptr
->is_link
== 0)
992 create_links (dir_name
, entry
->path
, dlib_ptr
->name
,
995 add_to_cache (entry
->path
, dlib_ptr
->soname
, dlib_ptr
->flag
,
996 dlib_ptr
->osversion
, hwcap
);
999 /* Free all resources. */
1003 free (dlib_ptr
->soname
);
1004 free (dlib_ptr
->name
);
1005 dlibs
= dlibs
->next
;
1009 if (opt_chroot
&& dir_name
)
1013 /* Search through all libraries. */
1017 struct dir_entry
*entry
;
1019 for (entry
= dir_entries
; entry
!= NULL
; entry
= entry
->next
)
1022 /* Free all allocated memory. */
1025 entry
= dir_entries
;
1026 dir_entries
= dir_entries
->next
;
1033 static void parse_conf_include (const char *config_file
, unsigned int lineno
,
1034 const char *prefix
, bool do_chroot
,
1035 const char *pattern
);
1037 /* Parse configuration file. */
1039 parse_conf (const char *filename
, const char *prefix
, bool do_chroot
)
1045 unsigned int lineno
;
1046 size_t prefix_len
= prefix
? strlen (prefix
) : 0;
1048 if (do_chroot
&& opt_chroot
)
1050 canon
= chroot_canon (opt_chroot
, filename
);
1052 file
= fopen (canon
, "r");
1059 file
= fopen (filename
, "r");
1064 error (0, errno
, _("Can't open configuration file %s"), canon
);
1065 if (canon
!= filename
)
1066 free ((char *) canon
);
1070 /* No threads use this stream. */
1071 __fsetlocking (file
, FSETLOCKING_BYCALLER
);
1073 if (canon
!= filename
)
1074 free ((char *) canon
);
1079 ssize_t n
= getline (&line
, &len
, file
);
1084 if (line
[n
- 1] == '\n')
1087 /* Because the file format does not know any form of quoting we
1088 can search forward for the next '#' character and if found
1089 make it terminating the line. */
1090 *strchrnul (line
, '#') = '\0';
1092 /* Remove leading whitespace. NUL is no whitespace character. */
1094 while (isspace (*cp
))
1097 /* If the line is blank it is ignored. */
1101 if (!strncmp (cp
, "include", 7) && isblank (cp
[7]))
1105 while ((dir
= strsep (&cp
, " \t")) != NULL
)
1107 parse_conf_include (filename
, lineno
, prefix
, do_chroot
, dir
);
1109 else if (prefix
!= NULL
)
1111 size_t cp_len
= strlen (cp
);
1112 char new_cp
[prefix_len
+ cp_len
+ 1];
1113 memcpy (mempcpy (new_cp
, prefix
, prefix_len
), cp
, cp_len
+ 1);
1116 else if (!strncasecmp (cp
, "hwcap", 5) && isblank (cp
[5]))
1119 char *p
, *name
= NULL
;
1120 unsigned long int n
= strtoul (cp
, &cp
, 0);
1121 if (cp
!= NULL
&& isblank (*cp
))
1122 while ((p
= strsep (&cp
, " \t")) != NULL
)
1135 error (EXIT_FAILURE
, 0, _("%s:%u: bad syntax in hwcap line"),
1139 if (n
>= (64 - _DL_FIRST_EXTRA
))
1140 error (EXIT_FAILURE
, 0,
1141 _("%s:%u: hwcap index %lu above maximum %u"),
1142 filename
, lineno
, n
, 64 - _DL_FIRST_EXTRA
- 1);
1143 if (hwcap_extra
[n
] == NULL
)
1145 for (unsigned long int h
= 0; h
< (64 - _DL_FIRST_EXTRA
); ++h
)
1146 if (hwcap_extra
[h
] != NULL
&& !strcmp (name
, hwcap_extra
[h
]))
1147 error (EXIT_FAILURE
, 0,
1148 _("%s:%u: hwcap index %lu already defined as %s"),
1149 filename
, lineno
, h
, name
);
1150 hwcap_extra
[n
] = xstrdup (name
);
1154 if (strcmp (name
, hwcap_extra
[n
]))
1155 error (EXIT_FAILURE
, 0,
1156 _("%s:%u: hwcap index %lu already defined as %s"),
1157 filename
, lineno
, n
, hwcap_extra
[n
]);
1159 error (0, 0, _("%s:%u: duplicate hwcap %lu %s"),
1160 filename
, lineno
, n
, name
);
1166 while (!feof_unlocked (file
));
1168 /* Free buffer and close file. */
1173 /* Handle one word in an `include' line, a glob pattern of additional
1174 config files to read. */
1176 parse_conf_include (const char *config_file
, unsigned int lineno
,
1177 const char *prefix
, bool do_chroot
, const char *pattern
)
1179 if (opt_chroot
&& pattern
[0] != '/')
1180 error (EXIT_FAILURE
, 0,
1181 _("need absolute file name for configuration file when using -r"));
1184 if (pattern
[0] != '/' && strchr (config_file
, '/') != NULL
)
1186 if (asprintf (©
, "%s/%s", dirname (strdupa (config_file
)),
1188 error (EXIT_FAILURE
, 0, _("memory exhausted"));
1194 if (do_chroot
&& opt_chroot
)
1196 char *canon
= chroot_canon (opt_chroot
, pattern
);
1199 result
= glob64 (canon
, 0, NULL
, &gl
);
1203 result
= glob64 (pattern
, 0, NULL
, &gl
);
1208 for (size_t i
= 0; i
< gl
.gl_pathc
; ++i
)
1209 parse_conf (gl
.gl_pathv
[i
], prefix
, false);
1220 error (0, errno
, _("%s:%u: cannot read directory %s"),
1221 config_file
, lineno
, pattern
);
1232 /* Honour LD_HWCAP_MASK. */
1236 char *mask
= getenv ("LD_HWCAP_MASK");
1239 hwcap_mask
= strtoul (mask
, NULL
, 0);
1244 main (int argc
, char **argv
)
1246 /* Set locale via LC_ALL. */
1247 setlocale (LC_ALL
, "");
1249 /* Set the text message domain. */
1250 textdomain (_libc_intl_domainname
);
1252 arch_startup (argc
, argv
);
1254 /* Parse and process arguments. */
1256 argp_parse (&argp
, argc
, argv
, 0, &remaining
, NULL
);
1258 /* Remaining arguments are additional directories if opt_manual_link
1260 if (remaining
!= argc
&& !opt_manual_link
)
1263 for (i
= remaining
; i
< argc
; ++i
)
1264 if (opt_build_cache
&& argv
[i
][0] != '/')
1265 error (EXIT_FAILURE
, 0,
1266 _("relative path `%s' used to build cache"),
1272 hwcap_extra
[63 - _DL_FIRST_EXTRA
] = "tls";
1278 /* Normalize the path a bit, we might need it for printing later. */
1279 char *endp
= rawmemchr (opt_chroot
, '\0');
1280 while (endp
> opt_chroot
&& endp
[-1] == '/')
1283 if (endp
== opt_chroot
)
1288 /* It is faster to use chroot if we can. */
1289 if (!chroot (opt_chroot
))
1292 error (EXIT_FAILURE
, errno
, _("Can't chdir to /"));
1298 if (cache_file
== NULL
)
1300 cache_file
= alloca (strlen (LD_SO_CACHE
) + 1);
1301 strcpy (cache_file
, LD_SO_CACHE
);
1304 if (config_file
== NULL
)
1305 config_file
= LD_SO_CONF
;
1307 if (opt_print_cache
)
1311 char *p
= chroot_canon (opt_chroot
, cache_file
);
1313 error (EXIT_FAILURE
, errno
, _("Can't open cache file %s\n"),
1317 print_cache (cache_file
);
1325 /* Canonicalize the directory name of cache_file, not cache_file,
1326 because we'll rename a temporary cache file to it. */
1327 char *p
= strrchr (cache_file
, '/');
1328 char *canon
= chroot_canon (opt_chroot
,
1329 p
? (*p
= '\0', cache_file
) : "/");
1332 error (EXIT_FAILURE
, errno
,
1333 _("Can't open cache file directory %s\n"),
1334 p
? cache_file
: "/");
1341 cache_file
= alloca (strlen (canon
) + strlen (p
) + 2);
1342 sprintf (cache_file
, "%s/%s", canon
, p
);
1346 if (opt_manual_link
)
1348 /* Link all given libraries manually. */
1351 for (i
= remaining
; i
< argc
; ++i
)
1352 manual_link (argv
[i
]);
1358 if (opt_build_cache
)
1361 if (!opt_only_cline
)
1363 parse_conf (config_file
, NULL
, true);
1365 /* Always add the standard search paths. */
1366 add_system_dir (SLIBDIR
);
1367 if (strcmp (SLIBDIR
, LIBDIR
))
1368 add_system_dir (LIBDIR
);
1370 add_arch_dirs (config_file
);
1373 const char *aux_cache_file
= _PATH_LDCONFIG_AUX_CACHE
;
1375 aux_cache_file
= chroot_canon (opt_chroot
, aux_cache_file
);
1377 if (! opt_ignore_aux_cache
&& aux_cache_file
)
1378 load_aux_cache (aux_cache_file
);
1384 if (opt_build_cache
)
1386 save_cache (cache_file
);
1388 save_aux_cache (aux_cache_file
);