Return to dlist CVS log

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

Annotation of researchv10dc/cmd/oasd++/dlist, revision 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.