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

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.