Return to shuffile.out CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / libtest / distr

Annotation of 43BSD/contrib/icon/libtest/distr/shuffile.out, revision 1.1

1.1     ! root        1:       doll(&input,"standard input")
        !             2:             inpt := &input
        !             3: 
        !             4: #      Last modified 6/16/83
        !             5: #
        !             6:          }
        !             7:    tab := "\t"
        !             8:                }
        !             9:       every arg := !a do
        !            10: procedure doll(ifd,name)
        !            11:             {
        !            12:          {
        !            13:                {
        !            14:          doll(inpt,arg)
        !            15:             arg := "standard input"
        !            16: end
        !            17:             }
        !            18:             if not (inpt := open(arg)) then
        !            19: end
        !            20:    if *a = 0 then
        !            21: #
        !            22:       {
        !            23:    while line := read(ifd) do
        !            24: procedure main(a)
        !            25: #      LL(1)
        !            26: 
        !            27:          else
        !            28:       long <:= x
        !            29:          if arg == "-" then
        !            30:    write(right(\short,6),tab,right(\long,6),tab,\name)
        !            31: #      Line length
        !            32:                next
        !            33:    
        !            34: #
        !            35:    local arg, inpt
        !            36:       }
        !            37: #      Thomas R. Hicks
        !            38:       /short := x
        !            39:    else
        !            40:       short >:=  x
        !            41:                write(&errout,"Cannot open ",arg)
        !            42:       x := *line
        !            43:    long := 0
        !            44:    local line, long, short, tab, x
        !            45: #

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