#!/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);

}