fortran_pp.st - enscript - GNU Enscript
(HTM) git clone git://thinkerwim.org/enscript.git
(DIR) Log
(DIR) Files
(DIR) Refs
(DIR) README
(DIR) LICENSE
---
fortran_pp.st (4631B)
---
1 /**
2 * Name: fortran_pp
3 * Description: Fortran77 programming language with cpp-statements
4 * Author: Keith Refson <Keith.Refson@earth.ox.ac.uk>
5 * Markku Rossi <mtr@iki.fi>
6 * Tobias Buchal <buch@ifh.bau-verm.uni-karlsruhe.de>
7 */
8
9 state fortran_string extends Highlight
10 {
11 /[\']/ {
12 language_print ($0);
13 return;
14 }
15 }
16
17 state fortran_io extends Highlight
18 {
19 /\)/ {
20 language_print ($0);
21 return;
22 }
23
24
25
26 /* IO Keywords. (build-re '(FMT UNIT REC END ERR FILE STATUS
27 ACCESS FORM RECL BLANK IOSTAT EXIST OPENED NUMBER NAME
28 SEQUENTIAL DIRECT FORMATTED UNFORMATTED NEXTREC)) */
29 /\BbACCESS|BLANK|DIRECT|E(ND|RR|XIST)|F(ILE|MT|ORM(|ATTED))|IOSTAT\
30 |N(AME|EXTREC|UMBER)|OPENED|REC(|L)|S(EQUENTIAL|TATUS)\
31 |UN(FORMATTED|IT))\b/ {
32 keyword_face (true);
33 language_print ($0);
34 keyword_face (false);
35 }
36
37 /* IO Keywords. (build-re '(fmt unit rec end err file status
38 access form recl blank iostat exist opened number name
39 sequential direct formatted unformatted nextrec)) */
40 /\b(access|blank|direct|e(nd|rr|xist)|f(ile|mt|orm(|atted))|iostat\
41 |n(ame|extrec|umber)|opened|rec(|l)|s(equential|tatus)\
42 |un(formatted|it))\b/ {
43 keyword_face (true);
44 language_print ($0);
45 keyword_face (false);
46 }
47
48 /* Strings in the io statement */
49 /[\']/ {
50 string_face (true);
51 language_print ($0);
52 call (fortran_string);
53 string_face (false);
54 }
55 }
56
57 state fortran_pp extends HighlightEntry
58 {
59 /* Comments. */
60 /(^[cC!\*]|!)/ {
61 comment_face (true);
62 language_print ($0);
63 call (eat_one_line);
64 comment_face (false);
65 }
66
67 /* String constants. */
68 /[\']/ {
69 string_face (true);
70 language_print ($0);
71 call (fortran_string);
72 string_face (false);
73 }
74
75 /* Pre-processor lines. */
76 /^#/ {
77 reference_face (true);
78 language_print ($0);
79 call (eat_one_line);
80 reference_face (false);
81 }
82
83 /* Comparators. We have to roll by hand because of the
84 dots - "\b" doesn't delimit here. */
85 /\.(and|eqv?|g(e|t)|l(e|t)|ne(qv)?|not|or)\./ {
86 keyword_face (true);
87 language_print ($0);
88 keyword_face (false);
89 }
90
91 /* Comparators. We have to roll by hand because of the
92 dots - "\b" doesn't delimit here. */
93 /\.(AND|EQV?|G(E|T)|L(E|T)|NE(QV)?|NOT|OR)\./ {
94 keyword_face (true);
95 language_print ($0);
96 keyword_face (false);
97 }
98
99 /* IO Statement (build-re '(open close read
100 write inquire backspace endfile rewind )) */
101 /\b(backspace|close|endfile|inquire|open|re(ad|wind)|write)\b/ {
102
103 keyword_face (true);
104 language_print ($0);
105 keyword_face (false);
106 call (fortran_io);
107 }
108
109 /* IO Statement (build-re '(OPEN CLOSE READ
110 WRITE INQUIRE BACKSPACE ENDFILE REWIND )) */
111 /\b(BACKSPACE|CLOSE|ENDFILE|INQUIRE|OPEN|RE(AD|WIND)|WRITE)\b/ {
112
113 keyword_face (true);
114 language_print ($0);
115 keyword_face (false);
116 call (fortran_io);
117 }
118
119 /* Keywords. (build-re '( block\ *data call
120 character\\*\[0-9\]+ common complex\\*\[0-9\]+ continue
121 data dimension do double\ *precision else elseif end enddo
122 endfile endif entry equivalence external format function
123 go\ *to if implicit include integer\\*\[0-9\]+ intrinsic
124 logical\\*\[0-9\]+ parameter pause print program
125 real\\*\[0-9\]+ return save stop subroutine then while )) */
126 /\b(block *data|c(all|haracter(\*[0-9]+)?|o(m(mon|plex(\*[0-9]+)?)|ntinue))\
127 |d(ata|imension|o(|uble *precision))\
128 |e(lse(|if)|n(d(|do|file|if)|try)|quivalence|xternal)|f(ormat|unction)\
129 |go *to|i(f|mplicit|n(clude|t(eger(\*[0-9]+)?|rinsic)))|logical(\*[0-9]+)?\
130 |p(a(rameter|use)|r(int|ogram))|re(al(\*[0-9]+)?|turn)\
131 |s(ave|top|ubroutine)|then|while)\b/ {
132
133 keyword_face (true);
134 language_print ($0);
135 keyword_face (false);
136 }
137 /* Keywords. (build-re '( block\ *data call
138 character\\*\[0-9\]+ COMMON COMPLEX\\*\[0-9\]+ CONTINUE
139 DATA DIMENSION DO DOUBLE\ *PRECISION ELSE ELSEIF END ENDDO
140 ENDFILE ENDIF ENTRY EQUIVALENCE EXTERNAL FORMAT FUNCTION
141 GO\ *TO IF IMPLICIT INCLUDE INTEGER\\*\[0-9\]+ INTRINSIC
142 LOGICAL\\*\[0-9\]+ PARAMETER PAUSE PRINT PROGRAM
143 REAL\\*\[0-9\]+ RETURN SAVE STOP SUBROUTINE THEN WHILE )) */
144 /\b(BLOCK *DATA|C(ALL|HARACTER(\*[0-9]+)?|O(M(MON|PLEX(\*[0-9]+)?)|NTINUE))\
145 |D(ATA|IMENSION|O(|UBLE *PRECISION))\
146 |E(LSE(|IF)|N(D(|DO|FILE|IF)|TRY)|QUIVALENCE|XTERNAL)|F(ORMAT|UNCTION)\
147 |GO *TO|I(F|MPLICIT|N(CLUDE|T(EGER(\*[0-9]+)?|RINSIC)))|LOGICAL(\*[0-9]+)?\
148 |P(A(RAMETER|USE)|R(INT|OGRAM))|RE(AL(\*[0-9]+)?|TURN)\
149 |S(AVE|TOP|UBROUTINE)|THEN|WHILE)\b/ {
150
151 keyword_face (true);
152 language_print ($0);
153 keyword_face (false);
154 }
155 }
156
157
158 /*
159 Local variables:
160 mode: c
161 End:
162 */