From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: *
X-Spam-Status: No, score=1.1 required=5.0 tests=BAYES_20,INVALID_DATE,
	MSGID_SHORT autolearn=no autolearn_force=no version=3.4.4
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/18/84; site ames.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!allegra!mit-eddie!think!harvard!seismo!hao!ames!eugene
From: eugene@ames.UUCP (Eugene Miya)
Newsgroups: net.lang.ada,net.sources
Subject: Vgrindef for Ada (has problems)
Message-ID: <1029@ames.UUCP>
Date: Mon, 1-Jul-85 15:58:11 EDT
Article-I.D.: ames.1029
Posted: Mon Jul  1 15:58:11 1985
Date-Received: Wed, 3-Jul-85 20:03:42 EDT
Distribution: net
Organization: NASA-Ames Research Center, Mtn. View, CA
Xref: watmath net.lang.ada:293 net.sources:3077
List-Id: <comp.lang.ada>

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