Path: utzoo!utgpu!watserv1!watmath!att!tut.cis.ohio-state.edu!ucsd!sdd.hp.com!uakari.primate.wisc.edu!zaphod.mps.ohio-state.edu!rpi!uupsi!kepler1!fcaggian
From: fcaggian@kepler.com (Frank Caggiano)
Newsgroups: comp.lang.eiffel
Subject: tgrind entry for eiffel
Keywords: repost
Message-ID: <435@kepler1.kepler.com>
Date: 12 Sep 90 13:26:44 GMT
Organization: Kepler Financial Mgmt., Setuket, NY
Lines: 27

I posted this a few days ago but I am not sure if it made it out. 

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
The following tgrind entry does a reasonable job of printing out
the .e files.  If you make any changes or enhancements I would
appreciate hearing from you.  

eiffel|e:\
	:cb=--:ce=$:oc:sb=":se=\e":lb=':le=\e':\
	:pb=(^\d\p\d?\(\a\)(\:)?\a?\d?is\d)|(^\d\p\dis\d)|(^\d\p\:\a\dis\d):\
	:kw=and as bits boolean check class character clone create current\
	debug deferred defined div do double else elsif end ensure expanded\
	export external false feature forget from if implies indexing inherit\
	integer infix inspect invariant is language like local loop\
	mod name nochange not obsolete old once or prefix real redefine\
	rename repeat require rescue result string then true unique until\
	variant void when xor:


You should modify file tfontedpr.c ( in the tgrind package ), increase
PSMAX. I set it to 40. 

-- 
Frank Caggiano                      INTERNET: fcaggian@kepler.com  
Kepler Financial Management, Ltd.       UUCP: ..!uunet!kepler1!fcaggian
100 North Country Rd.                    fax: (516) 751-8678
Sekauket, NY 11733                     voice: (516) 689-6300