Return to mklisting.spt CVS log

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

Annotation of researchv10no/cmd/spitbol/mklisting.spt, revision 1.1.1.1

1.1       root        1:        &stlimit = 1000000
                      2:        input(.in,0,"spitv35.min")
                      3:        output(.out,1,"foo.out")
                      4: 
                      5: loop   x = in                                          :f(end)
                      6:        x fence span(' ') (break(' ') | rem) . op rem . opnd    :f(print)
                      7:        title = leq(op,'TTL') opnd                      :s(loop)
                      8:        lne(op,'EJC')                                   :s(print)
                      9: 
                     10: eject  page = page + 1
                     11:        (differ(firsteject) eject(1), firsteject = 1)
                     12:        (gt(lineno,maxline) (maxline = lineno))
                     13:        lineno = 6
                     14:        out =
                     15:        out =
                     16:        out = "Page " rpad(page,4) title
                     17:        out =
                     18:        out =                                   :(loop)
                     19: 
                     20: print  lineno = lineno + 1
                     21:        out = replace(x,"ABCDEFGHIJKLMNOPQRSTUVWXYZ",
                     22: +                      "abcdefghijklmnopqrstuvwxyz")
                     23:        le(lineno,64)                           :s(loop)f(eject)
                     24: 
                     25: end

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