Return to display.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / book / 10

Annotation of 43BSD/contrib/icon/book/10/display.icn, revision 1.1.1.1

1.1       root        1: procedure main()
                      2:    local intext
                      3:    if not (intext := open("shaw.txt"))
                      4:    then stop("cannot open input file")
                      5:    write(linecount(intext))
                      6: end
                      7: 
                      8: procedure linecount(file)
                      9:    local count, line
                     10:    count := 0
                     11:    while line := read(file) do
                     12:       if find("stop",line) then break
                     13:       else count +:= 1
                     14:    display()
                     15:    return count
                     16: end

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