Return to gener.icn CVS log

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

Annotation of 43BSD/contrib/icon/book/f/gener.icn, revision 1.1

1.1     ! root        1: procedure generate(line)
        !             2:    local goal, count
        !             3:    if line ? {
        !             4:       ="<" &
        !             5:       goal := tab(upto('>')) &
        !             6:       move(1) &
        !             7:       count := (0 <= integer(tab(0)))
        !             8:       }
        !             9:    then {
        !            10:       every write(gener(goal)) \ count
        !            11:       return
        !            12:       }
        !            13:    else fail
        !            14: end

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