30 lines
735 B
Awk
30 lines
735 B
Awk
#!/usr/bin/awk
|
|
BEGIN {
|
|
FS=":";
|
|
count=0;
|
|
}
|
|
{
|
|
for (i = 1; i <= NF; ++i) {
|
|
gsub (/\/*$/, "", $i);
|
|
dir[count++] = $i;
|
|
}
|
|
}
|
|
END {
|
|
for (i = 0; i < count; ++i) {
|
|
printf ("static struct r_search_path_elem rtld_search_dir%d =\n", i+1);
|
|
printf (" { \"%s/\", %d, unknown, 0, nonexisting, NULL, NULL, ",
|
|
dir[i], length (dir[i]) + 1);
|
|
if (i== 0)
|
|
printf ("NULL };\n");
|
|
else
|
|
printf ("&rtld_search_dir%d };\n", i);
|
|
}
|
|
printf ("\nstatic struct r_search_path_elem *rtld_search_dirs[] =\n{\n");
|
|
for (i = 0; i < count; ++i) {
|
|
printf (" &rtld_search_dir%d,\n", i + 1);
|
|
}
|
|
printf (" NULL\n};\n\n");
|
|
printf ("static struct r_search_path_elem *all_dirs = &rtld_search_dir%d;\n",
|
|
count);
|
|
}
|