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

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.