|
0
|
1 " Vim ABAP syntax file
|
|
|
2 " Language: SAP - ABAP/R4
|
|
|
3 " Revision: 1.0
|
|
|
4 " Maintainer: Marius Piedallu van Wyk <marius@e.co.za>
|
|
|
5 " Last Change: 2006 Apr 13
|
|
|
6
|
|
|
7 " For version < 6.0: Clear all syntax items
|
|
|
8 " For version >= 6.0: Quit when a syntax file was already loaded
|
|
|
9 if version < 600
|
|
|
10 syntax clear
|
|
|
11 elseif exists("b:current_syntax")
|
|
|
12 finish
|
|
|
13 endif
|
|
|
14
|
|
|
15 " Always ignore case
|
|
|
16 syn case ignore
|
|
|
17
|
|
|
18 " Symbol Operators
|
|
|
19 syn match abapSymbolOperator "[+\-/=<>$]"
|
|
|
20 syn match abapSymbolOperator "\*"
|
|
|
21 syn match abapSymbolOperator "[<>]="
|
|
|
22 syn match abapSymbolOperator "<>"
|
|
|
23 syn match abapSymbolOperator "\*\*"
|
|
|
24 syn match abapSymbolOperator "[()]"
|
|
|
25 syn match abapSymbolOperator "[:,\.]"
|
|
|
26
|
|
|
27 " Literals
|
|
|
28 syn region abapString matchgroup=abapString start="'" end="'" contains=abapStringEscape
|
|
|
29 syn match abapStringEscape contained "''"
|
|
|
30
|
|
|
31 syn match abapNumber "-\=\<\d\+\>"
|
|
|
32 syn region abapHex matchgroup=abapHex start="X'" end="'"
|
|
|
33
|
|
|
34 if version >= 600
|
|
|
35 setlocal iskeyword=-,48-57,_,A-Z,a-z
|
|
|
36 else
|
|
|
37 set iskeyword=-,48-57,_,A-Z,a-z
|
|
|
38 endif
|
|
|
39
|
|
|
40 " ABAP statements
|
|
|
41 syn keyword abapStatement ADD ADD-CORRESPONDING ASSIGN AT AUTHORITY-CHECK
|
|
|
42 syn keyword abapStatement BACK BREAK-POINT
|
|
|
43 syn keyword abapStatement CALL CASE CHECK CLEAR CLOSE CNT COLLECT COMMIT COMMUNICATION COMPUTE CONCATENATE CONDENSE CONSTANTS CONTINUE CONTROLS CONVERT CREATE CURRENCY
|
|
|
44 syn keyword abapStatement DATA DEFINE DELETE DESCRIBE DETAIL DIVIDE DIVIDE-CORRESPONDING DO
|
|
|
45 syn keyword abapStatement EDITOR-CALL ELSE ELSEIF END-OF-DEFINITION END-OF-PAGE END-OF-SELECTION ENDAT ENDCASE ENDDO ENDEXEC ENDFORM ENDFUNCTION ENDIF ENDIFEND ENDLOOP ENDMODULE ENDON ENDPROVIDE ENDSELECT ENDWHILE EXEC EXPORT EXPORTING EXTRACT
|
|
|
46 syn keyword abapStatement FETCH FIELD-GROUPS FIELD-SYMBOLS FIELDS FORM FORMAT FREE FUNCTION FUNCTION-POOL
|
|
|
47 syn keyword abapStatement GENERATE GET
|
|
|
48 syn keyword abapStatement HIDE
|
|
|
49 syn keyword abapStatement IF IMPORT IMPORTING INDEX INFOTYPES INITIALIZATION INPUT INSERT
|
|
|
50 syn keyword abapStatement LEAVE LIKE LOAD LOCAL LOOP
|
|
|
51 syn keyword abapStatement MESSAGE MODIFY MODULE MOVE MOVE-CORRESPONDING MULTIPLY MULTIPLY-CORRESPONDING
|
|
|
52 syn keyword abapStatement NEW-LINE NEW-PAGE NEW-SECTION
|
|
|
53 syn keyword abapStatement ON OVERLAY
|
|
|
54 syn keyword abapStatement PACK PARAMETERS PERFORM POSITION PRINT-CONTROL PROGRAM PROVIDE PUT
|
|
|
55 syn keyword abapStatement RAISE RANGES READ RECEIVE REFRESH REJECT REPLACE REPORT RESERVE RESTORE ROLLBACK RP-PROVIDE-FROM-LAST
|
|
|
56 syn keyword abapStatement SCAN SCROLL SEARCH SELECT SELECT-OPTIONS SELECTION-SCREEN SET SHIFT SKIP SORT SPLIT START-OF-SELECTION STATICS STOP SUBMIT SUBTRACT SUBTRACT-CORRESPONDING SUM SUMMARY SUPPRESS SYNTAX-CHECK SYNTAX-TRACE
|
|
|
57 syn keyword abapStatement TABLES TOP-OF-PAGE TRANSFER TRANSLATE TYPE TYPE-POOL TYPE-POOLS TYPES
|
|
|
58 syn keyword abapStatement UNPACK UPDATE
|
|
|
59 syn keyword abapStatement WHEN WHILE WINDOW WRITE
|
|
|
60
|
|
|
61 " More statemets
|
|
|
62 syn keyword abapStatement OCCURS STRUCTURE OBJECT PROPERTY
|
|
|
63 syn keyword abapStatement CASTING APPEND RAISING VALUE COLOR
|
|
|
64 syn keyword abapStatement LINE-SIZE LINE-COUNT MESSAGE-ID
|
|
|
65 syn keyword abapStatement CHANGING EXCEPTIONS DEFAULT CHECKBOX COMMENT
|
|
|
66 syn keyword abapStatement ID NUMBER FOR DISPLAY-MODE TITLE OUTPUT
|
|
|
67
|
|
|
68 " More multi-word statements
|
|
|
69 syn match abapStatement "\(\W\|^\)\(WITH\W\+\(HEADER\W\+LINE\|FRAME\|KEY\)\|WITH\)\(\W\|$\)"ms=s+1,me=e-1
|
|
|
70 syn match abapStatement "\(\W\|^\)NO\W\+STANDARD\W\+PAGE\W\+HEADING\(\W\|$\)"ms=s+1,me=e-1
|
|
|
71 syn match abapStatement "\(\W\|^\)\(EXIT\W\+FROM\W\+STEP\W\+LOOP\|EXIT\)\(\W\|$\)"ms=s+1,me=e-1
|
|
|
72 syn match abapStatement "\(\W\|^\)\(BEGIN\W\+OF\W\+\(BLOCK\|LINE\)\|BEGIN\W\+OF\)\(\W\|$\)"ms=s+1,me=e-1
|
|
|
73 syn match abapStatement "\(\W\|^\)\(END\W\+OF\W\+\(BLOCK\|LINE\)\|END\W\+OF\)\(\W\|$\)"ms=s+1,me=e-1
|
|
|
74 syn match abapStatement "\(\W\|^\)IS\W\+INITIAL\(\W\|$\)"ms=s+1,me=e-1
|
|
|
75 syn match abapStatement "\(\W\|^\)NO\W\+INTERVALS\(\W\|$\)"ms=s+1,me=e-1
|
|
|
76 syn match abapStatement "\(\W\|^\)SEPARATED\W\+BY\(\W\|$\)"ms=s+1,me=e-1
|
|
|
77 syn match abapStatement "\(\W\|^\)\(USING\W\+\(EDIT\W\+MASK\)\|USING\)\(\W\|$\)"ms=s+1,me=e-1
|
|
|
78 syn match abapStatement "\(\W\|^\)\(WHERE\W\+\(LINE\)\)\(\W\|$\)"ms=s+1,me=e-1
|
|
|
79 syn match abapStatement "\(\W\|^\)RADIOBUTTON\W\+GROUP\(\W\|$\)"ms=s+1,me=e-1
|
|
|
80 syn match abapStatement "\(\W\|^\)REF\W\+TO\(\W\|$\)"ms=s+1,me=e-1
|
|
|
81
|
|
|
82 " Special ABAP specific tables:
|
|
|
83 syn match abapSpecial "\(\W\|^\)\(sy\|\(p\|pa\)\d\d\d\d\|t\d\d\d.\|innnn\)\(\W\|$\)"ms=s+1,me=e-1
|
|
|
84 syn match abapSpecialTables "\(sy\|\(p\|pa\)\d\d\d\d\|t\d\d\d.\|innnn\)-"me=e-1 contained
|
|
|
85 syn match abapSpecial "\(\W\|^\)\w\+-\(\w\+-\w\+\|\w\+\)"ms=s+1 contains=abapSpecialTables
|
|
|
86
|
|
|
87 " Pointer
|
|
|
88 syn match abapSpecial "<\w\+>"
|
|
|
89
|
|
|
90 " Abap constants:
|
|
|
91 syn keyword abapSpecial TRUE FALSE NULL SPACE
|
|
|
92
|
|
|
93 " Includes
|
|
|
94 syn region abapInclude start="include" end="." contains=abapComment
|
|
|
95
|
|
|
96 " Types
|
|
|
97 syn keyword abapTypes c n i p f d t x
|
|
|
98
|
|
|
99 " Atritmitic operators
|
|
|
100 syn keyword abapOperator abs sign ceil floor trunc frac acos asin atan cos sin tan
|
|
|
101 syn keyword abapOperator cosh sinh tanh exp log log10 sqrt
|
|
|
102
|
|
|
103 " String operators
|
|
|
104 syn keyword abapOperator strlen xstrlen charlen numofchar dbmaxlen
|
|
|
105
|
|
|
106 " Table operators
|
|
|
107 syn keyword abapOperator lines
|
|
|
108
|
|
|
109 " Table operators (SELECT operators)
|
|
|
110 syn keyword abapOperator INTO FROM WHERE GROUP BY HAVING ORDER BY SINGLE
|
|
|
111 syn keyword abapOperator APPENDING CORRESPONDING FIELDS OF TABLE
|
|
|
112 syn keyword abapOperator LEFT RIGHT OUTER INNER JOIN AS CLIENT SPECIFIED BYPASSING BUFFER UP TO ROWS CONNECTING
|
|
|
113 syn keyword abapOperator EQ NE LT LE GT GE NOT AND OR XOR IN LIKE BETWEEN
|
|
|
114
|
|
|
115 " An error? Not strictly... but cannot think of reason this is intended.
|
|
|
116 syn match abapError "\.\."
|
|
|
117
|
|
|
118 " Comments
|
|
|
119 syn region abapComment start="^\*" end="$" contains=abapTodo
|
|
|
120 syn match abapComment "\".*" contains=abapTodo
|
|
|
121 syn keyword abapTodo contained TODO NOTE
|
|
|
122
|
|
|
123 " Define the default highlighting.
|
|
|
124 " For version 5.7 and earlier: only when not done already
|
|
|
125 " For version 5.8 and later: only when an item doesn't have highlighting yet
|
|
|
126 if version >= 508 || !exists("did_abap_syntax_inits")
|
|
|
127 if version < 508
|
|
|
128 let did_abap_syntax_inits = 1
|
|
|
129 command -nargs=+ HiLink hi link <args>
|
|
|
130 else
|
|
|
131 command -nargs=+ HiLink hi def link <args>
|
|
|
132 endif
|
|
|
133
|
|
|
134 HiLink abapError Error
|
|
|
135 HiLink abapComment Comment
|
|
|
136 HiLink abapInclude Include
|
|
|
137 HiLink abapSpecial Special
|
|
|
138 HiLink abapSpecialTables PreProc
|
|
|
139 HiLink abapSymbolOperator abapOperator
|
|
|
140 HiLink abapOperator Operator
|
|
|
141 HiLink abapStatement Statement
|
|
|
142 HiLink abapString String
|
|
|
143 HiLink abapFloat Float
|
|
|
144 HiLink abapNumber Number
|
|
|
145 HiLink abapHex Number
|
|
|
146
|
|
|
147 delcommand HiLink
|
|
|
148 endif
|
|
|
149
|
|
|
150 let b:current_syntax = "abap"
|
|
|
151
|
|
|
152 " vim: ts=8 sw=2
|
|
|
153
|
