howard@erix.UUCP (05/13/87)
I thank everyone who responded to my question about ways to turn Ada into pretty PostScript. No one had a vgrindef handy, so I ended up writing one. I've had good results with it using tgrind. Ada|ADA|ada:\ :pb=^\d?(procedure|function)\d\p\d|\(:\ :bb=\d(accept|begin|case|declare|for|if|loop|package|record|select|while)\d:\ :be=\dend:\ :cb=--:ce=$:\ :sb=":se=":\ :lb=(\d|\()':le=':\ :oc:\ :kw=abort abs accept access all and array at begin body case\ constant declare delay delta digits do else elsif end entry\ exception exit for function generic goto if in is limited\ loop mod new not null of or others out package pragma private\ procedure raise range record rem renames return reverse\ select separate subtype task terminate then type use when\ while with xor: TN/ETX/TX/UMG Howard Gayle UUCP : seismo!enea!erix!howard Telefonaktiebolaget L M Ericsson Phone: +46 8 719 55 65 Ericsson Telecom Telex: 14910 ERIC S S-126 25 Stockholm FAX : +46 8 719 64 82 Sweden