Return to gcomp.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / src / cmd

Annotation of 43BSD/contrib/icon/src/cmd/gcomp.icn, revision 1.1

1.1     ! root        1: #      GCOMP(1)
        !             2: #
        !             3: #      Produce complement of file specification
        !             4: #
        !             5: #      William H. Mitchell, revised by Thomas Hicks
        !             6: #
        !             7: #      Last modified 8/14/84
        !             8: #
        !             9: 
        !            10: procedure main(args)
        !            11:    local a, dir, ent, files
        !            12:    files := mkftbl()   
        !            13:    while a := get(args) do
        !            14:       files[a] := &null
        !            15:    every files["." | ".."] := &null
        !            16:    files := sort(files)
        !            17:    while a := get(files) do
        !            18:       write((\a[2],a[1]))              # a[1] written iff a[2] has value
        !            19: end
        !            20: 
        !            21: procedure mkftbl()                     # make a table of file names from
        !            22:    local line                          # the current directory
        !            23:    line := read(open("echo * .*","rp"))
        !            24:    return str2tbl(line,' ')
        !            25: end
        !            26: 
        !            27: procedure str2tbl(str,delim)           # convert a delmited string into
        !            28:     local tbl                          # a table
        !            29:     tbl := table(1)
        !            30:     str ? {
        !            31:        while tbl[(tab(upto(delim)))] := 1 do
        !            32:            move(1)
        !            33:        tbl["" ~== tab(0)] := 1
        !            34:        }
        !            35:     return tbl
        !            36: end

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