1#!/usr/bin/awk
2BEGIN {
3  FS=":";
4  count=0;
5}
6{
7  for (i = 1; i <= NF; ++i) {
8    gsub (/\/*$/, "", $i);
9    dir[count++] = $i;
10  }
11}
12END {
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}
30