Return to gener.icn CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / book / f

researchv10 Dan Cross

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.