Return to delamc.icn CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / ipl / source

Annotation of researchv10dc/cmd/icon/ipl/source/delamc.icn, revision 1.1

1.1     ! root        1: #      DELAMC
        !             2: #
        !             3: #      Delaminate file using tab characters
        !             4: #
        !             5: #      Thomas R. Hicks
        !             6: #
        !             7: #      Last modified 2/9/86 by Ralph E. Griswold
        !             8: #
        !             9: 
        !            10: procedure main(a)
        !            11:    local tabset, fylist, nxtarg
        !            12:    if match("-t",a[1]) then            # tab char given
        !            13:       tabset := cset(a[1][3:0])
        !            14:     if 0 = *(fylist := doutfyls(a)) then Usage()
        !            15:     /tabset := cset(&ascii[10])                        # tab is default separator
        !            16:     delamrc(tabset,fylist)                     # call main routine
        !            17: end
        !            18: 
        !            19: # Usage - write usage message
        !            20: #
        !            21: procedure Usage()
        !            22:     stop("usage: delamc [-tc] {outputfile | -} ...")
        !            23: end
        !            24: 
        !            25: # delamrc - do actual division of input file using tab chars
        !            26: #
        !            27: procedure delamrc(tabset,fylist)
        !            28:     local i, flen, line
        !            29:     while line := read() do
        !            30:         {
        !            31:         i := 1
        !            32:         flen := *fylist
        !            33:         line ? while (i <= flen) do
        !            34:             {
        !            35:             if i = flen then
        !            36:                 write(fylist[i][2],tab(0) | "")
        !            37:             else
        !            38:                 write(fylist[i][2],tab(upto(tabset)) | tab(0) | "")
        !            39:             move(1)
        !            40:             i +:= 1
        !            41:             }
        !            42:         }
        !            43: end
        !            44: 
        !            45: # doutfyls - process output file arguments; return list
        !            46: #
        !            47: procedure doutfyls(a)
        !            48:    local lst, x, i
        !            49:    lst := []
        !            50:    i := 2
        !            51:    while \a[i] do {
        !            52:       if x := llu(a[i],lst) then               # already in list
        !            53:          lst |||:= [[a[i],lst[x][2]]]
        !            54:       else                                     # not in list
        !            55:          if a[i] == "-" then                   # standard out
        !            56:             lst |||:= [[a[i],&output]]
        !            57:          else                          # a new file
        !            58:             if not (x := open(a[i],"w")) then
        !            59:                stop("Cannot open ",a[i]," for output")
        !            60:             else lst |||:= [[a[i],x]]
        !            61:       i +:= 1
        !            62:       }
        !            63:    return lst
        !            64: end
        !            65: 
        !            66: # llu - lookup file name in output file list
        !            67: #
        !            68: procedure llu(str,lst)
        !            69:    local i
        !            70:    i := 1
        !            71:    while \lst[i] do {
        !            72:       if \lst[i][1] == str then return i
        !            73:       i +:= 1
        !            74:       }
        !            75: end

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