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     ! 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.