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
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,f5dbc8f688419657
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1994-12-01 17:05:28 PST
Path: 
 bga.com!news.sprintlink.net!howland.reston.ans.net!swrinde!news.uh.edu!uuneo.neosoft.com!Starbase.NeoSoft.COM!not-for-mail
From: dweller@Starbase.NeoSoft.COM (David Weller)
Newsgroups: comp.lang.ada
Subject: Re: Ada PostScript Pretty printer?
Date: 1 Dec 1994 18:09:49 -0600
Organization: NeoSoft Internet Services   +1 713 684 5969
Message-ID: <3blokd$hv7@Starbase.NeoSoft.COM>
References: <3bl980$jvs@pong.lasc.lockheed.com>
NNTP-Posting-Host: starbase.neosoft.com
Date: 1994-12-01T18:09:49-06:00
List-Id: <comp.lang.ada>

In article <3bl980$jvs@pong.lasc.lockheed.com>,
Tony Leavitt <tony@deepthought.Sgi.COM> wrote:
>Does anybody know of a publicly available piece of software that will generate
>a PostScript file of pretty Ada code.  What I mean pretty Ada code is that
>resevred words are in bold and comments are in italics.  I do NOT want a
>reformatter and autoindenter or anything like that.
>

Why not just jam the source through vgrind, then pipe it through
psprint (or some other wild script, like mine here):

	vgrind -d <vgrind_defs_file> -lada -o1- -t -w $* | thack | lpr

Oh, here's the vgrind_defs_file I use:
# Originally submitted from Fraser Wilson
# Ada!
ada|Ada:\
	:cb=--:ce=$:bb=if|case|begin|loop:be=end:lb=':le=':oc:\
	:pb=(^\d?(procedure|function|package|package body))\d\p:\
	:sb=":se=":id=_.:\
	:kw=abort abs abstract accept access aliased 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 protected raise range record rem renames requeue\
	return reverse select separate subtype tagged task terminate then\
	type until use when while with xor:



-- 
Proud (and vocal) member of Team Ada! (and Team OS/2)        ||This is not your
   	      Ada -- Very Cool.  Doesn't Suck.               ||  father's Ada 
For all sorts of interesting Ada tidbits, run the command:   ||________________
"finger dweller@starbase.neosoft.com | more" (or e-mail with "finger" as subj.)
	|"Quitting C++ isn't so difficult, provided you show as much |
	|	persistence stopping as you did starting." dweller   |