Return to t-shuffile.dat CVS log

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

Annotation of 43BSD/contrib/icon/libtest/t-shuffile.dat, revision 1.1

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

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