vgrindefs(5) for Ada

vgrindefs(5) for Ada

[howard]

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