Return to block.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / X / doc / Xlib

Annotation of 43BSD/contrib/X/doc/Xlib/block.icn, revision 1.1

1.1     ! root        1: #
        !             2: #   Seperate index entries where the first letter of the entry
        !             3: #      changes.  Produce a ".LB" at the break point.  Provide
        !             4: #      the macro with the new letter
        !             5: #      
        !             6: 
        !             7: procedure main()
        !             8:        local doubleQuote,
        !             9:              line,
        !            10:              oldFirstChar,
        !            11:              firstChar
        !            12: 
        !            13:        doubleQuote := cset("\"")
        !            14:        oldFirstChar := ""
        !            15: 
        !            16:        # read until end of file
        !            17:        while line := read() do  {
        !            18:                line ? {
        !            19:                        tab(upto(doubleQuote)) | write("can't find double q")
        !            20:                        move(1)
        !            21:                        firstChar :=  &subject[&pos] }
        !            22:        
        !            23:                # are the first two letters different?
        !            24:                if firstChar ~== oldFirstChar then {
        !            25:                        write(".LB ", firstChar) }
        !            26: 
        !            27:                oldFirstChar := firstChar
        !            28:                write(line) }
        !            29:        end

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