[comp.lang.eiffel] tgrind entry for eiffel

fcaggian@kepler.com (Frank Caggiano) (09/06/90)

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.  This should work with vgrind also.


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:


-- 
Frank Caggiano, Kepler Financial Management, Ltd.
INTERNET: fcaggian@kepler.com  UUCP: ..!uunet!kepler1!fcaggian
voice: (516) 689-6300 * fax: (516) 751-8678

fcaggian@kepler.com (Frank Caggiano) (09/12/90)

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