elf/genrtldtbl.awk

   1 #! /usr/bin/awk
   2 BEGIN {
   3   FS=":";
   4   count=0;
   5 }
   6 {
   7   for (i = 1; i <= NF; ++i) {
   8     gsub (/\/*$/, "", $i);
   9     dir[count++] = $i;
  10   }
  11 }
  12 END {
  13   for (i = 0; i < count; ++i) {
  14     printf ("static struct r_search_path_elem rtld_search_dir%d =\n", i+1);
  15     printf ("  { \"%s/\", %d, unknown, 0, nonexisting, NULL, NULL, ",
  16             dir[i], length (dir[i]) + 1);
  17     if (i== 0)
  18       printf ("NULL };\n");
  19     else
  20       printf ("&rtld_search_dir%d };\n", i);
  21   }
  22   printf ("\nstatic struct r_search_path_elem *rtld_search_dirs[] =\n{\n");
  23   for (i = 0; i < count; ++i) {
  24     printf ("  &rtld_search_dir%d,\n", i + 1);
  25   }
  26   printf ("  NULL\n};\n\n");
  27   printf ("static struct r_search_path_elem *all_dirs = &rtld_search_dir%d;\n",
  28           count);
  29 }