Return to gener.icn CVS log

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

Initial revision

procedure generate(line)
   local goal, count
   if line ? {
      ="<" &
      goal := tab(upto('>')) &
      move(1) &
      count := (0 <= integer(tab(0)))
      }
   then {
      every write(gener(goal)) \ count
      return
      }
   else fail
end

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