From: simpson@poseidon.uucp (Scott Simpson)
Subject: Re: ADA defs for VGRIND
Date: 8 Nov 88 05:25:03 GMT [thread overview]
Message-ID: <1495@spp2.UUCP> (raw)
In-Reply-To: 9965@umn-cs.CS.UMN.EDU
I wrote this one. It doesn't recognize procedure and function starts and
it occasionally formats a ' wrong but it seems to work most of the time.
Let me know if you have another/fixed version.
ada:\
# :cb=--:ce=$:lb=(;|,|\d|#|^|&|*|\(|\)|-|+|<|>|=)':\
# :le='(;|,|\d|#|^|&|*|\(|\)|-|+|<|>|=):\
:cb=--:ce=$:lb=':\
:le=\e':\
:oc:sb=":se=\e":kw=abort 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 then when while\
with xor:bb=\dbegin|declare|generic\d:be=\dend\d:\
:pb=(\d?(procedure|function|package|task)\dbody\d\p)|\
(\d?(procedure|function|package|task)\d\p):
Scott Simpson
TRW Space and Defense Sector
oberon!trwarcadia!simpson (UUCP)
trwarcadia!simpson@oberon.usc.edu (Internet)
next prev parent reply other threads:[~1988-11-08 5:25 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
1988-11-07 15:16 ADA defs for VGRIND Scott W. Fischer
1988-11-08 5:25 ` Scott Simpson [this message]
1988-11-17 3:34 ` Paul Stachour
-- strict thread matches above, loose matches on Subject: below --
1988-11-16 12:35 Mike Jipping
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox