Return to t-segment.icn CVS log

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

Annotation of 43BSD/contrib/icon/libtest/t-segment.icn, revision 1.1

1.1     ! root        1: link "../ilib/segment"
        !             2: 
        !             3: procedure main()
        !             4:    local line
        !             5:    while line := read() do {
        !             6:       every write(segment(line,&lcase ++ &ucase))
        !             7:       write("---")
        !             8:       every write(segment(line,' '))
        !             9:       write("===")
        !            10:       }
        !            11: end

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