Return to dlist CVS log

Up to [Research Unix] / researchv10dc / cmd / oasd++

Annotation of researchv10dc/cmd/oasd++/dlist, revision 1.1.1.1

1.1       root        1: #!/usr/bin/awk -f
                      2: function list(arr, alen,       newf, newarr, i, j) {
                      3:        for (i = 0; i < alen; i++) {
                      4:                newf = path arr[i]
                      5:                if ((getline < newf) <= 0)
                      6:                        print arr[i]
                      7:                else {
                      8:                        j = 0;
                      9:                        do {
                     10:                                newarr[j++] = $0;
                     11:                        } while ((getline < newf) > 0)
                     12:                        close(newf)
                     13:                        list(newarr, j)
                     14:                }
                     15:        }
                     16: }
                     17: BEGIN {
                     18:        path = "/usr/lib/asd/dest/"
                     19:        if (ARGC <= 1) {
                     20:                boot[0] = "default";
                     21:                len = 1;
                     22:        } else {
                     23:                for (i = 1; i < ARGC; i++)
                     24:                        boot[i-1] = ARGV[i];
                     25:                len = ARGC - 1;
                     26:        }
                     27:        list(boot, len)
                     28:        exit
                     29: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.