home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.cs.arizona.edu
/
ftp.cs.arizona.edu.tar
/
ftp.cs.arizona.edu
/
icon
/
historic
/
v941.tgz
/
icon.v941src.tar
/
icon.v941src
/
ipl
/
progs
/
roffcmds.icn
< prev
next >
Wrap
Text File
|
2000-07-29
|
2KB
|
60 lines
############################################################################
#
# File: roffcmds.icn
#
# Subject: Program to list roff commands and macros
#
# Author: Ralph E. Griswold
#
# Date: June 10, 1988
#
############################################################################
#
# This file is in the public domain.
#
############################################################################
#
# This progam processes standard input and writes a tabulation of
# nroff/troff commands and defined strings to standard output.
#
# Limitations:
#
# This program only recognizes commands that appear at the beginning of
# lines and does not attempt to unravel conditional constructions.
# Similarly, defined strings buried in disguised form in definitions are
# not recognized.
#
# Reference:
#
# Nroff/Troff User's Manual, Joseph F. Ossana, Bell Laboratories,
# Murray Hill, New Jersey. October 11, 1976.
#
############################################################################
procedure main()
local line, con, mac, y, nonpuncs, i, inname, infile, outname, outfile
nonpuncs := ~'. \t\\'
con := table(0)
mac := table(0)
while line := read() do {
line ? if tab(any('.\'')) then
con[tab(any(nonpuncs)) || (tab(upto(' ') | 0))] +:= 1
line ? while tab((i := find("\\")) + 1) do {
case move(1) of {
"(": move(2)
"*" | "f" | "n": if ="(" then move(2) else move(1)
}
mac[&subject[i:&pos]] +:= 1
}
}
con := sort(con,3)
write(,"Commands:\n")
while write(,get(con),"\t",get(con))
mac := sort(mac,3)
write(,"\nControls:\n")
while write(,get(mac),"\t",get(mac))
end