[8103] in Athena Bugs
fortran entry for vgrindefs
daemon@ATHENA.MIT.EDU (Jonathan I. Kamens)
Wed Sep 4 16:42:24 1991
Date: Wed, 4 Sep 91 16:42:48 -0400
From: "Jonathan I. Kamens" <jik@pit-manager.MIT.EDU>
To: bugs@ATHENA.MIT.EDU
----- Forwarded message
From: jcchen@ATHENA.MIT.EDU
To: bug-sipb@ATHENA.MIT.EDU
Cc: schaefer@ruhaix1.rz.uni-hohenheim.de
Subject: free vgrindefs entry for fortran
Date: Wed, 04 Sep 91 15:39:44 EDT
Hi. I sent out an appeal to readnews' comp.text.tex for a vgrindefs
entry for fortran. Here is the best one thanks to Mr. Schaefer.
I modified the cb field, which was ^(c|*).
I hope this will be useful.
- Jerry Chen jcchen@athena
-------------------
To: jcchen@ATHENA.MIT.EDU
Subject: fortran vgrindefs
Date: Tue, 03 Sep 91 10:03:53 -0600
From: Tobias Schaefer schaefer@ruhaix1.rz.uni-hohenheim.de <schaefer@ruhaix1.rz.uni-hohenheim.de>
Here is my FORTRAN entry in vgrindefs (improvements are still possible):
BEGIN--cut here--snip
fortran|FORTRAN|f77|fc|f:\
:pb=(function|subroutine|program)\d\p\d?\(\a?\):\
:bb=(function|subroutine|program)\d\p\d?\(\a?\):be=^\dend:\
:cb=^c:\
:ce=$:\
:sb=':\
:se=':\
:oc:\
:kw=and call character close common complex continue data dimension do\
double else elseif end endif entry eq equivalence external format\
function ge goto gt if implicit integer intrinsic le lt mod ne not\
open or parameter precision print program read real return rewind\
stop subroutine then write:
END--cut here--snip
Tobias Schaefer schaefer@ruhaix1.rz.uni-hohenheim.de
----- End of forwarded message
