ILIAS  release_4-3 Revision
 All Data Structures Namespaces Files Functions Variables Groups Pages
HFile_fortran90.php
Go to the documentation of this file.
1 <?php
2 $BEAUT_PATH = realpath(".")."/Services/COPage/syntax_highlight/php";
3 if (!isset ($BEAUT_PATH)) return;
4 require_once("$BEAUT_PATH/Beautifier/HFile.php");
5  class HFile_fortran90 extends HFile{
6  function HFile_fortran90(){
7  $this->HFile();
8 /*************************************/
9 // Beautifier Highlighting Configuration File
10 // Fortran 90
11 /*************************************/
12 // Flags
13 
14 $this->nocase = "1";
15 $this->notrim = "0";
16 $this->perl = "0";
17 
18 // Colours
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 // Indent Strings
26 
27 $this->indent = array("THEN", "ELSE", "DO", "FORALL");
28 $this->unindent = array("ENDIF", "ENDDO", "END IF", "END DO");
29 
30 // String characters and delimiters
31 
32 $this->stringchars = array("\"", "'");
33 $this->delimiters = array("~", "!", "@", "%", "^", "&", "*", "(", ")", "-", "+", "=", "|", "\\", "/", "{", "}", "[", "]", ":", ";", "\"", "'", "<", ">", " ", ",");
34 $this->escchar = "";
35 
36 // Comment settings
37 
38 $this->linecommenton = array("! $");
39 $this->blockcommenton = array("");
40 $this->blockcommentoff = array("");
41 
42 // Keywords (keyword mapping to colour number)
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 // Special extensions
328 
329 // Each category can specify a PHP function that returns an altered
330 // version of the keyword.
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 }
343 
344 
345 function donothing($keywordin)
346 {
347  return $keywordin;
348 }
349 
350 }?>