Return to close.icn CVS log

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

Annotation of 43BSD/contrib/icon/book/17/close.icn, revision 1.1.1.1

1.1       root        1: procedure successors(graph,nodes)
                      2:    local snodes
                      3:    snodes := ''        # start with none
                      4:    graph ? repeat {
                      5:       if tab(any(nodes)) then snodes ++:= move(1)
                      6:       else move(2) | break     # exit at end of string
                      7:       }
                      8:    return snodes
                      9: end
                     10: 
                     11: procedure closure(graph,nodes)
                     12:    local snodes
                     13:    snodes := nodes     # start with given nodes
                     14:    while snodes ~===
                     15:       (nodes ++:= successors(graph,nodes)) do
                     16:          snodes := nodes       # update if change
                     17:    return nodes
                     18: end

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