Return to t-patterns.icn CVS log

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

BSD 4.3

link "../ilib/patterns"

global literal

procedure main()
   Mode := Anchor
   while line := read() do
      if Apply(line,Hlit) then
          write(literal)
      else write("failed")
   Mode := Float
   if Apply(line,Hlit) then write(literal) else write("float failed")
end

procedure Hlit()
   local n
   suspend (n <- Span('0912345678')) || ="H" || (literal <- Len(n))
end

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