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.6 required=5.0 tests=BAYES_05,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
Path: utzoo!utgpu!water!watmath!clyde!rutgers!seismo!mcvax!enea!erix!howard
From: howard@erix.UUCP
Newsgroups: comp.lang.ada
Subject: vgrindefs(5) for Ada
Message-ID: <1344@erix.UUCP>
Date: Wed, 13-May-87 06:42:36 EDT
Article-I.D.: erix.1344
Posted: Wed May 13 06:42:36 1987
Date-Received: Sat, 16-May-87 14:48:07 EDT
Organization: Ericsson Telecom, Stockholm, Sweden
List-Id: <comp.lang.ada>

I thank everyone who responded to my question about ways to
turn Ada into pretty PostScript.  No one had a vgrindef handy,
so I ended up writing one.  I've had good results with it using
tgrind.

Ada|ADA|ada:\
  :pb=^\d?(procedure|function)\d\p\d|\(:\
  :bb=\d(accept|begin|case|declare|for|if|loop|package|record|select|while)\d:\
  :be=\dend:\
  :cb=--:ce=$:\
  :sb=":se=":\
  :lb=(\d|\()':le=':\
  :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:

TN/ETX/TX/UMG Howard Gayle        UUCP : seismo!enea!erix!howard
Telefonaktiebolaget L M Ericsson  Phone: +46 8 719 55 65
Ericsson Telecom     	      	  Telex: 14910 ERIC S
S-126 25 Stockholm                FAX  : +46 8 719 64 82
Sweden