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=-0.8 required=5.0 tests=BAYES_00,INVALID_DATE
	autolearn=no autolearn_force=no version=3.4.4
Path: utzoo!utgpu!watmath!clyde!att!osu-cis!tut.cis.ohio-state.edu!mailrus!nrl-cmf!ames!pasteur!agate!ucbvax!cs.hope.edu!jipping
From: jipping@cs.hope.edu (Mike Jipping)
Newsgroups: comp.lang.ada
Subject: Re: ADA defs for VGRIND
Message-ID: <8811180726.AA29983@ajpo.sei.cmu.edu>
Date: 16 Nov 88 12:35:08 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
List-Id: <comp.lang.ada>

fischer@umn-cs.arpa  (Scott W. Fischer) writes:
> 	Does anybody have a vgrind defs file that recognizes ada syntax?
> 
> If so, please drop me a line, mail me a copy, put it up for anonymous ftp,
> whatever.

I didn't see any other replies...so...

Here's our VGRIND def.  Actually, we use TGRIND and put the result into 
TeX/LaTeX documents.  But, whatever...

ada|DoD|a:\
	:pb=(^\d?(procedure|function|package|task)\d\p\d|\(|is|return):\
	:bb=\d(accept|begin|case|declare|exception|for|if|loop|pragma|\
			 private|record|while)\d:\
	:be=\dend|;:\
	:oc:\
	:cb=--:ce=$:\
	:sb=":se=":lb=':le=':\
   :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:

We've had no problem with it that I can recall -- but that doesn't say that
it's precise.  Please let me know of any changes to make it more accurate.

Enjoy.

      Mike Jipping
      Hope College
      Department of Computer Science
      jipping@cs.hope.edu