glibc/elf/genrtldtbl.awk

#! /usr/bin/awk
BEGIN {
  FS=":";
  count=0;
}
{
  for (i = 1; i <= NF; ++i) {
    dir[count++] = gensub(/((.*)[^/])?[/]*/, "\\1", "", $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, unknown, ",
	    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);
}