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

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.