File: m_rexx.fte

package info (click to toggle)
fte 0.46b5-4.2
  • links: PTS
  • area: main
  • in suites: slink
  • size: 2,844 kB
  • ctags: 5,183
  • sloc: cpp: 39,445; ansic: 2,415; perl: 567; makefile: 71; sh: 30
file content (75 lines) | stat: -rw-r--r-- 2,608 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
colorize REXX {
    SyntaxParser = 'REXX';
    
    color {
	{ 'Normal',      'Lang_Default' },
	{ 'Number',      'Lang_Number' },
	{ 'Punctuation', 'Lang_Punctuation' },
	{ 'String',      'Lang_String' },
	{ 'Comment',     'Lang_Comment' },
	{ 'Function',    'Lang_Function' },
    };

    keyword 'Editor_Keywords' {
        'ADDRESS', 'ARG', 'CALL', 'DO', 'DROP', 'EXIT', 'IF', 'INTERPRET',
        'ITERATE', 'LEAVE', 'NOP', 'NUMERIC', 'OPTIONS', 'PARSE', 'PROCEDURE',
        'PULL', 'PUSH', 'QUEUE', 'RETURN', 'SAY', 'SELECT', 'OTHERWISE',
        'SIGNAL', 'TRACE', 'END', 'WHEN', 'ELSE', 'WITH', 'TO', 'BY', 'ON',
        'END', 'FOR', 'OFF', 'VAR', 'THEN', 'HALT', 'NAME', 'FORM', 'FUZZ',
        'VALUE', 'WHILE', 'UNTIL', 'ERROR', 'UPPER', 'WITH', 'EXPOSE', 'DIGITS',
        'FOREVER', 'FAILURE', 'VERSION', 'NOVALUE', 'SOURCE', 'SYNTAX',
        'NOTREADY', 'SCIENTIFIC', 'ENGINEERING',
    };
}

mode REXX: PLAIN {                    # REXX mode
    FileNameRx          = /\.\c{CMD}$/;
    HilitOn             = 1;
    Colorizer           = 'REXX';
    TabSize             = 8;
    AutoIndent          = 1;
    IndentMode          = 'REXX';
    MultiLineHilit      = 1;
    AutoHilitParen      = 1;

    SaveFolds           = 2;      # save fold info at end of line
    CommentStart        = ' /*';
    CommentEnd          = '*/';

    RoutineRegexp       = /^[\w_]+:/;
}

colorize NETREXX: REXX {
    SyntaxParser = 'REXX';

    color {
	{ 'Normal',      'Lang_Default' },
	{ 'Number',      'Lang_Number' },
	{ 'Punctuation', 'Lang_Punctuation' },
	{ 'String',      'Lang_String' },
	{ 'Comment',     'Lang_Comment' },
	{ 'Function',    'Lang_Function' },
    };

    # keywords don't inherit? they probably should...
    keyword 'Editor_Keywords' {
        'ADDRESS', 'ARG', 'CALL', 'DO', 'DROP', 'EXIT', 'IF', 'INTERPRET',
        'ITERATE', 'LEAVE', 'NOP', 'NUMERIC', 'OPTIONS', 'PARSE', 'PROCEDURE',
        'PULL', 'PUSH', 'QUEUE', 'RETURN', 'SAY', 'SELECT', 'OTHERWISE',
        'SIGNAL', 'TRACE', 'END', 'WHEN', 'ELSE', 'WITH', 'TO', 'BY', 'ON',
        'END', 'FOR', 'OFF', 'VAR', 'THEN', 'HALT', 'NAME', 'FORM', 'FUZZ',
        'VALUE', 'WHILE', 'UNTIL', 'ERROR', 'UPPER', 'WITH', 'EXPOSE', 'DIGITS',
        'FOREVER', 'FAILURE', 'VERSION', 'NOVALUE', 'SOURCE', 'SYNTAX',
        'NOTREADY', 'SCIENTIFIC', 'ENGINEERING',
        
        'METHOD', 'CLASS', 'NULL', 'LOOP', 'CATCH', 'RETURNS', 
        'EXTENDS', 'IMPLEMENTS',
        'CHAR', 'BOOLEAN',
        # more ...
    };
}

mode NETREXX: REXX {
    FileNameRx          = /\.\c{NRX}$/;
    Colorizer           = 'NETREXX';
}