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     ! 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.