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.7 required=5.0 tests=BAYES_00,INVALID_DATE,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
Path: utzoo!utgpu!watmath!clyde!att!osu-cis!tut.cis.ohio-state.edu!mailrus!ncar!tank!nic.MR.NET!umn-cs!stachour
From: stachour@umn-cs.CS.UMN.EDU (Paul Stachour)
Newsgroups: comp.lang.ada
Subject: Re: ADA defs for VGRIND
Message-ID: <10084@umn-cs.CS.UMN.EDU>
Date: 17 Nov 88 03:34:32 GMT
References: <9965@umn-cs.CS.UMN.EDU> <1495@spp2.UUCP>
Reply-To: stachour@umn-cs.UUCP (Paul Stachour)
Distribution: na
Organization: CSci Dept., University of Minnesota, Mpls.
List-Id: <comp.lang.ada>

In article <1495@spp2.UUCP> simpson@poseidon.UUCP (Scott Simpson) writes:
>
>I wrote this one.
>  ....

   I wrote one also.  I'm not sure how it compares with yours in what
it does.  It's been a start for me, and I've used it somewhat for the
past 6 months.  We (umn-cs) just changed computers, and I haven't had
a chance to fully check it out yet.  I know it doesn't work exactly
the way on this one (a sequent) that it did on the vax/780.  ...Paul

ADA|Ada|ada:\
        :pb=^\d?(package|procedure|function):\
        :bb=^\d?(begin|loop|case|record):be=end:\
        :cb=--:ce=$:\
        :sb=":se=":\
        :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\