Return to segment.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / src / lib

Annotation of 43BSD/contrib/icon/src/lib/segment.icn, revision 1.1

1.1     ! root        1: #      SEGMENT(2)
        !             2: #
        !             3: #      Segment string
        !             4: #
        !             5: #      William H. Mitchell
        !             6: #
        !             7: #      Last modified 8/11/84
        !             8: #
        !             9: 
        !            10: procedure segment(line,dlms)
        !            11:    dlms := (any(dlms,line[1]) & ~dlms)
        !            12:    ndlms := ~dlms
        !            13:    line ? repeat {
        !            14:       suspend tab(many(ndlms)) \ 1
        !            15:       suspend tab(many(dlms)) \ 1
        !            16:       pos(0) & break
        !            17:       }
        !            18: end

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