Vgrindef for Ada (has problems)

Vgrindef for Ada (has problems)

[Eugene Miya]

Here's a quick and dirty vgrindef for Ada.  No one on the net had one.
This definition is hacked from the Pascal definition.  Ada and vgrind
have several problems: should you treat tasks, packages, and generics
as you treat procudures?  Private objects are easily declared twice in
such as way as to be confusing.  Oh well!  The keywords came from 1815a.
Please mail any improvements to me.

--eugene miya
  NASA Ames Research Center
  {hplabs,ihnp4,dual,hao,decwrl,allegra}!ames!aurora!eugene
  @ames-vmsb.ARPA:emiya@jup.DECNET
-----

ada|a:\
	:pb=(^\d?procedure|function|task|package\d\p\d|\(|;|\:)|(=\d?record\d):\
	:bb=\dbegin|case|loop|do|select|private\d:\
	:be=\dend\d|;:\
	:cb=--:ce=$:\
	:sb=':se=':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