Return to printcomm.sc CVS log

Up to [Research Unix] / researchv10no / cmd / spitbol / 4.3

Annotation of researchv10no/cmd/spitbol/4.3/printcomm.sc, revision 1.1

1.1     ! root        1: input (.in, 0, "spitv43.cmt")
        !             2: lineno = 100
        !             3: pageno = 0
        !             4: 
        !             5: while (line = in) {
        !             6:        if (line ? fence && span(" ") &&
        !             7:            ("EJC" && (span(" ") | "") && rpos(0) |
        !             8:            "TTL" && span(" ") && rem . ttl))
        !             9:                lineno = 100
        !            10:        else {
        !            11:                if (lineno > 60)
        !            12:                        newpage()
        !            13:                lineno = lineno + 1
        !            14:                output = line
        !            15:        }
        !            16: }
        !            17: 
        !            18: procedure newpage() {
        !            19:        if (lineno > 1)
        !            20:                eject()
        !            21:        output = ""
        !            22:        output = ""
        !            23:        pageno = pageno + 1
        !            24:        lineno = 1
        !            25:        output = "Page " && rpad(pageno, 4) && "            " && ttl
        !            26:        output = ""
        !            27: }

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