- count = 0;
- for (h = 0; h < HSHSIZE; h++)
- for (igp = retain[h]; igp != 0; igp = igp->i_link)
- count++;
- if (count == 0) {
- printf("No fields currently being retained.\n");
- return(0);
- }
- ring = (char **) salloc((count + 1) * sizeof (char *));
- ap = ring;
- for (h = 0; h < HSHSIZE; h++)
- for (igp = retain[h]; igp != 0; igp = igp->i_link)
- *ap++ = igp->i_field;
- *ap = 0;
- qsort(ring, count, sizeof (char *), igcomp);
- for (ap = ring; *ap != 0; ap++)
- printf("%s\n", *ap);
- return(0);