Return to t-patterns.icn CVS log

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

Annotation of 43BSD/contrib/icon/libtest/t-patterns.icn, revision 1.1.1.1

1.1       root        1: link "../ilib/patterns"
                      2: 
                      3: global literal
                      4: 
                      5: procedure main()
                      6:    Mode := Anchor
                      7:    while line := read() do
                      8:       if Apply(line,Hlit) then
                      9:           write(literal)
                     10:       else write("failed")
                     11:    Mode := Float
                     12:    if Apply(line,Hlit) then write(literal) else write("float failed")
                     13: end
                     14: 
                     15: procedure Hlit()
                     16:    local n
                     17:    suspend (n <- Span('0912345678')) || ="H" || (literal <- Len(n))
                     18: end

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