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

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.