6 {
8
9
10
11
12
13
14$this->nocase = "1";
15$this->notrim = "0";
16$this->perl = "0";
17
18
19
20$this->colours = array("blue", "brown", "purple", "gray", "blue", "purple", "gray");
21$this->quotecolour = "blue";
22$this->blockcommentcolour = "green";
23$this->linecommentcolour = "green";
24
25
26
27$this->indent = array("THEN", "ELSE", "DO", "FORALL");
28$this->unindent = array("ENDIF", "ENDDO", "END IF", "END DO");
29
30
31
32$this->stringchars = array("\"", "'");
33$this->delimiters = array("~", "!", "@", "%", "^", "&", "*", "(", ")", "-", "+", "=", "|", "\\", "/", "{", "}", "[", "]", ":", ";", "\"", "'", "<", ">", " ", ",");
34$this->escchar = "";
35
36
37
38$this->linecommenton = array("! $");
39$this->blockcommenton = array("");
40$this->blockcommentoff = array("");
41
42
43
44$this->keywords = array(
45 "ADMIT" => "1",
46 "ALLOCATABLE" => "1",
47 "ALLOCATE" => "1",
48 "ASSIGN" => "4",
49 "ASSIGNMENT" => "1",
50 "AT" => "1",
51 "BACKSPACE" => "4",
52 "BLOCK" => "1",
53 "CALL" => "1",
54 "CASE" => "1",
55 "CHARACTER" => "1",
56 "CLOSE" => "4",
57 "COMMON" => "1",
58 "COMPLEX" => "1",
59 "CONTAINS" => "1",
60 "CONTINUE" => "1",
61 "CYCLE" => "1",
62 "DATA" => "1",
63 "DEALLOCATE" => "1",
64 "DEFAULT" => "1",
65 "DIMENSION" => "1",
66 "DO" => "1",
67 "DOUBLE" => "1",
68 "ELSE" => "1",
69 "ELSEIF" => "1",
70 "ELSEWHERE" => "1",
71 "END" => "1",
72 "ENDDO" => "1",
73 "ENDFILE" => "4",
74 "ENDIF" => "1",
75 "ENDWHILE" => "1",
76 "ENTRY" => "1",
77 "EQUIVALENCE" => "1",
78 "EXECUTE" => "1",
79 "EXIT" => "1",
80 "EXTERNAL" => "1",
81 "FORALL" => "1",
82 "FORMAT" => "1",
83 "FUNCTION" => "1",
84 "GO" => "1",
85 "GOTO" => "1",
86 "GUESS" => "1",
87 "IF" => "1",
88 "IMPLICIT" => "1",
89 "IN" => "1",
90 "INOUT" => "1",
91 "INQUIRE" => "1",
92 "INTEGER" => "1",
93 "INTENT" => "1",
94 "INTERFACE" => "1",
95 "INTRINSIC" => "1",
96 "KIND" => "1",
97 "LOGICAL" => "1",
98 "LOOP" => "1",
99 "MAP" => "1",
100 "MODULE" => "1",
101 "NAMELIST" => "1",
102 "NONE" => "1",
103 "NULLIFY" => "1",
104 "ONLY" => "1",
105 "OPEN" => "4",
106 "OPERATOR" => "1",
107 "OPTIONAL" => "1",
108 "OTHERWISE" => "1",
109 "OUT" => "1",
110 "PARAMETER" => "1",
111 "POINTER" => "1",
112 "PRIVATE" => "1",
113 "PROCEDURE" => "1",
114 "PROGRAM" => "1",
115 "PUBLIC" => "1",
116 "QUIT" => "1",
117 "READ" => "4",
118 "REAL" => "1",
119 "RECORD" => "1",
120 "RECURSIVE" => "1",
121 "REMOTE" => "1",
122 "RESULT" => "1",
123 "RETURN" => "1",
124 "REWIND" => "4",
125 "SAVE" => "1",
126 "SELECT" => "1",
127 "SEQUENCE" => "1",
128 "STOP" => "1",
129 "STRUCTURE" => "1",
130 "SUBROUTINE" => "1",
131 "TARGET" => "1",
132 "THEN" => "1",
133 "TO" => "1",
134 "TYPE" => "1",
135 "UNION" => "1",
136 "UNTIL" => "1",
137 "USE" => "1",
138 "WHERE" => "1",
139 "WHILE" => "1",
140 "WRITE" => "4",
141 ".AND." => "2",
142 ".EQ." => "2",
143 ".EQV." => "2",
144 ".GE." => "2",
145 ".GT." => "2",
146 ".LE." => "2",
147 ".LT." => "2",
148 ".NE." => "2",
149 ".NEQV." => "2",
150 ".NOT." => "2",
151 ".OR." => "2",
152 "ABS" => "3",
153 "ACHAR" => "3",
154 "ACOS" => "3",
155 "ADJUSTL" => "3",
156 "ADJUSTR" => "3",
157 "AIMAG" => "3",
158 "AINT" => "3",
159 "ALL" => "3",
160 "ALLOCATED" => "3",
161 "ANINT" => "3",
162 "ANY" => "3",
163 "ASIN" => "3",
164 "ASSOCIATED" => "3",
165 "ATAN" => "3",
166 "ATAN2" => "3",
167 "BIT_SIZE" => "3",
168 "BREAK" => "3",
169 "BTEST" => "3",
170 "CARG" => "3",
171 "CEILING" => "3",
172 "CHAR" => "3",
173 "CMPLX" => "3",
174 "CONJG" => "3",
175 "COS" => "3",
176 "COSH" => "3",
177 "COUNT" => "3",
178 "CSHIFT" => "3",
179 "DATE_AND_TIME" => "3",
180 "DBLE" => "3",
181 "DIGITS" => "3",
182 "DIM" => "3",
183 "DOT_PRODUCT" => "3",
184 "DPROD" => "3",
185 "DVCHK" => "3",
186 "EOSHIFT" => "3",
187 "EPSILON" => "3",
188 "ERROR" => "3",
189 "EXP" => "3",
190 "EXPONENT" => "3",
191 "FLOOR" => "3",
192 "FLUSH" => "3",
193 "FRACTION" => "3",
194 "GETCL" => "3",
195 "HUGE" => "3",
196 "IACHAR" => "3",
197 "IAND" => "3",
198 "IBCLR" => "3",
199 "IBITS" => "3",
200 "IBSET" => "3",
201 "ICHAR" => "3",
202 "IEOR" => "3",
203 "INDEX" => "3",
204 "INT" => "3",
205 "INTRUP" => "3",
206 "INVALOP" => "3",
207 "IOR" => "3",
208 "IOSTAT_MSG" => "3",
209 "ISHFT" => "3",
210 "ISHFTC" => "3",
211 "LBOUND" => "3",
212 "LEN" => "3",
213 "LEN_TRIM" => "3",
214 "LGE" => "3",
215 "LGT" => "3",
216 "LLE" => "3",
217 "LLT" => "3",
218 "LOG" => "3",
219 "LOG10" => "3",
220 "MATMUL" => "3",
221 "MAX" => "3",
222 "MAXEXPONENT" => "3",
223 "MAXLOC" => "3",
224 "MAXVAL" => "3",
225 "MERGE" => "3",
226 "MIN" => "3",
227 "MINEXPONENT" => "3",
228 "MINLOC" => "3",
229 "MINVAL" => "3",
230 "MOD" => "3",
231 "MODULO" => "3",
232 "MVBITS" => "3",
233 "NBREAK" => "3",
234 "NDPERR" => "3",
235 "NDPEXC" => "3",
236 "NEAREST" => "3",
237 "NINT" => "3",
238 "NOT" => "3",
239 "OFFSET" => "3",
240 "OVEFL" => "3",
241 "PACK" => "3",
242 "PRECFILL" => "3",
243 "PRECISION" => "3",
244 "PRESENT" => "3",
245 "PRODUCT" => "3",
246 "PROMPT" => "3",
247 "RADIX" => "3",
248 "RANDOM_NUMBER" => "3",
249 "RANDOM_SEED" => "3",
250 "RANGE" => "3",
251 "REPEAT" => "3",
252 "RESHAPE" => "3",
253 "RRSPACING" => "3",
254 "SCALE" => "3",
255 "SCAN" => "3",
256 "SEGMENT" => "3",
257 "SELECTED_INT_KIND" => "3",
258 "SELECTED_REAL_KIND" => "3",
259 "SET_EXPONENT" => "3",
260 "SHAPE" => "3",
261 "SIGN" => "3",
262 "SIN" => "3",
263 "SINH" => "3",
264 "SIZE" => "3",
265 "SPACING" => "3",
266 "SPREAD" => "3",
267 "SQRT" => "3",
268 "SUM" => "3",
269 "SYSTEM" => "3",
270 "SYSTEM_CLOCK" => "3",
271 "TAN" => "3",
272 "TANH" => "3",
273 "TIMER" => "3",
274 "TINY" => "3",
275 "TRANSFER" => "3",
276 "TRANSPOSE" => "3",
277 "TRIM" => "3",
278 "UBOUND" => "3",
279 "UNDFL" => "3",
280 "UNPACK" => "3",
281 "VAL" => "3",
282 "VERIFY" => "3",
283 "PAUSE" => "4",
284 "PRINT" => "4",
285 "ACCESS" => "5",
286 "ACTION" => "5",
287 "BLANK" => "5",
288 "BLOCKSIZE" => "5",
289 "CARRIAGECONTROL" => "5",
290 "DIRECT" => "5",
291 "ERR" => "5",
292 "EXIST" => "5",
293 "FILE" => "5",
294 "FMT" => "5",
295 "FORM" => "5",
296 "FORMATTED" => "5",
297 "FROM" => "5",
298 "IOSTAT" => "5",
299 "LOCATION" => "5",
300 "NAME" => "5",
301 "NAMED" => "5",
302 "NEXTREC" => "5",
303 "NUMBER" => "5",
304 "OPENED" => "5",
305 "POSITION" => "5",
306 "RECL" => "5",
307 "RECORDTYPE" => "5",
308 "SEQUENTIAL" => "5",
309 "STAT" => "5",
310 "STATUS" => "5",
311 "UNFORMATTED" => "5",
312 "UNIT" => "5",
313 "INCLUDE" => "6",
314 "==" => "7",
315 "=" => "7",
316 "<" => "7",
317 ">" => "7",
318 "+" => "7",
319 "*" => "7",
320 "^" => "7",
321 "-" => "7",
322 "//" => "7",
323 "/" => "7",
324 "!" => "7",
325 "&" => "7");
326
327
328
329
330
331
332
333
334$this->linkscripts = array(
335 "1" => "donothing",
336 "4" => "donothing",
337 "2" => "donothing",
338 "3" => "donothing",
339 "5" => "donothing",
340 "6" => "donothing",
341 "7" => "donothing");
342}