Return to delamc.icn CVS log

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

Annotation of 43BSD/contrib/icon/src/cmd/delamc.icn, revision 1.1.1.1

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

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