Return to roffcmds.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / src / cmd

Annotation of 43BSD/contrib/icon/src/cmd/roffcmds.icn, revision 1.1

1.1     ! root        1: #      ROFFCMDS(1)
        !             2: #
        !             3: #      Tabulate n/troff commands and defined strings
        !             4: #
        !             5: #      Ralph E. Griswold
        !             6: #
        !             7: #      Last modified 7/12/83
        !             8: #
        !             9: 
        !            10: procedure main()
        !            11:    local line, con, des, y
        !            12:    con := table(0)
        !            13:    des := table(0)
        !            14:    while line := read() do {
        !            15:       line ? if tab(any('.\'')) then
        !            16:          con[tab(any(~'. \t\\')) || (tab(upto(' ') | 0))] +:= 1
        !            17:       line ? while tab(find("\\*") + 2) do
        !            18:          des[if ="(" then move(2) else move(1)] +:= 1
        !            19:       }
        !            20:    con := sort(con)
        !            21:    write("Controls:\n")
        !            22:    every y := !con do
        !            23:       write(y[1],"\t",y[2])
        !            24:    des := sort(des)
        !            25:    write("\nDefined strings:\n")
        !            26:    every y := !des do
        !            27:       write(y[1],"\t",y[2])
        !            28: end
        !            29: 

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