mirror of
https://github.com/vim/vim.git
synced 2025-10-30 09:47:20 -04:00
153 lines
6.5 KiB
VimL
153 lines
6.5 KiB
VimL
|
" Vim ABAP syntax file
|
||
|
|
" Language: SAP - ABAP/4
|
||
|
|
" Revision: 0.8
|
||
|
|
" Maintainer: Marius van Wyk <marius@e.co.za>
|
||
|
|
" Last Change: 2004 Aug 30
|
||
|
|
|
||
|
|
" For version 5.x: Clear all syntax items
|
||
|
|
" For version 6.x: Quit when a syntax file was already loaded
|
||
|
|
if version < 600
|
||
|
|
syntax clear
|
||
|
|
elseif exists("b:current_syntax")
|
||
|
|
finish
|
||
|
|
endif
|
||
|
|
|
||
|
|
" Always ignore case
|
||
|
|
syn case ignore
|
||
|
|
|
||
|
|
" Symbol Operators
|
||
|
|
syn match abapSymbolOperator "[+\-/=<>$]"
|
||
|
|
syn match abapSymbolOperator "\*"
|
||
|
|
syn match abapSymbolOperator "[<>]="
|
||
|
|
syn match abapSymbolOperator "<>"
|
||
|
|
syn match abapSymbolOperator "\*\*"
|
||
|
|
syn match abapSymbolOperator "[()]"
|
||
|
|
syn match abapSymbolOperator "[:,\.]"
|
||
|
|
|
||
|
|
" Literals
|
||
|
|
syn region abapString matchgroup=abapString start="'" end="'" contains=abapStringEscape
|
||
|
|
syn match abapStringEscape contained "''"
|
||
|
|
|
||
|
|
syn match abapNumber "-\=\<\d\+\>"
|
||
|
|
syn region abapHex matchgroup=abapHex start="X'" end="'"
|
||
|
|
|
||
|
|
if version >= 600
|
||
|
|
setlocal iskeyword=-,48-57,_,A-Z,a-z
|
||
|
|
else
|
||
|
|
set iskeyword=-,48-57,_,A-Z,a-z
|
||
|
|
endif
|
||
|
|
|
||
|
|
" ABAP statements
|
||
|
|
syn keyword abapStatement ADD ADD-CORRESPONDING ASSIGN AT AUTHORITY-CHECK
|
||
|
|
syn keyword abapStatement BACK BREAK-POINT
|
||
|
|
syn keyword abapStatement CALL CASE CHECK CLEAR CLOSE CNT COLLECT COMMIT COMMUNICATION COMPUTE CONCATENATE CONDENSE CONSTANTS CONTINUE CONTROLS CONVERT CREATE CURRENCY
|
||
|
|
syn keyword abapStatement DATA DEFINE DELETE DESCRIBE DETAIL DIVIDE DIVIDE-CORRESPONDING DO
|
||
|
|
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
|
||
|
|
syn keyword abapStatement FETCH FIELD-GROUPS FIELD-SYMBOLS FIELDS FORM FORMAT FREE FUNCTION FUNCTION-POOL
|
||
|
|
syn keyword abapStatement GENERATE GET
|
||
|
|
syn keyword abapStatement HIDE
|
||
|
|
syn keyword abapStatement IF IMPORT IMPORTING INDEX INFOTYPES INITIALIZATION INPUT INSERT
|
||
|
|
syn keyword abapStatement LEAVE LIKE LOAD LOCAL LOOP
|
||
|
|
syn keyword abapStatement MESSAGE MODIFY MODULE MOVE MOVE-CORRESPONDING MULTIPLY MULTIPLY-CORRESPONDING
|
||
|
|
syn keyword abapStatement NEW-LINE NEW-PAGE NEW-SECTION
|
||
|
|
syn keyword abapStatement ON OVERLAY
|
||
|
|
syn keyword abapStatement PACK PARAMETERS PERFORM POSITION PRINT-CONTROL PROGRAM PROVIDE PUT
|
||
|
|
syn keyword abapStatement RAISE RANGES READ RECEIVE REFRESH REJECT REPLACE REPORT RESERVE RESTORE ROLLBACK
|
||
|
|
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
|
||
|
|
syn keyword abapStatement TABLES TOP-OF-PAGE TRANSFER TRANSLATE TYPE TYPE-POOL TYPE-POOLS TYPES
|
||
|
|
syn keyword abapStatement UNPACK UPDATE
|
||
|
|
syn keyword abapStatement WHEN WHILE WINDOW WRITE
|
||
|
|
|
||
|
|
" More statemets
|
||
|
|
syn keyword abapStatement OCCURS STRUCTURE OBJECT PROPERTY
|
||
|
|
syn keyword abapStatement CASTING APPEND RAISING VALUE COLOR
|
||
|
|
syn keyword abapStatement LINE-SIZE LINE-COUNT MESSAGE-ID
|
||
|
|
syn keyword abapStatement CHANGING EXCEPTIONS DEFAULT CHECKBOX COMMENT
|
||
|
|
syn keyword abapStatement ID NUMBER FOR DISPLAY-MODE TITLE OUTPUT
|
||
|
|
|
||
|
|
" More multi-word statements
|
||
|
|
syn match abapStatement "\(\W\|^\)\(WITH\W\+\(HEADER\W\+LINE\|FRAME\|KEY\)\|WITH\)\(\W\|$\)"ms=s+1,me=e-1
|
||
|
|
syn match abapStatement "\(\W\|^\)NO\W\+STANDARD\W\+PAGE\W\+HEADING\(\W\|$\)"ms=s+1,me=e-1
|
||
|
|
syn match abapStatement "\(\W\|^\)\(EXIT\W\+FROM\W\+STEP\W\+LOOP\|EXIT\)\(\W\|$\)"ms=s+1,me=e-1
|
||
|
|
syn match abapStatement "\(\W\|^\)\(BEGIN\W\+OF\W\+\(BLOCK\|LINE\)\|BEGIN\W\+OF\)\(\W\|$\)"ms=s+1,me=e-1
|
||
|
|
syn match abapStatement "\(\W\|^\)\(END\W\+OF\W\+\(BLOCK\|LINE\)\|END\W\+OF\)\(\W\|$\)"ms=s+1,me=e-1
|
||
|
|
syn match abapStatement "\(\W\|^\)IS\W\+INITIAL\(\W\|$\)"ms=s+1,me=e-1
|
||
|
|
syn match abapStatement "\(\W\|^\)NO\W\+INTERVALS\(\W\|$\)"ms=s+1,me=e-1
|
||
|
|
syn match abapStatement "\(\W\|^\)SEPARATED\W\+BY\(\W\|$\)"ms=s+1,me=e-1
|
||
|
|
syn match abapStatement "\(\W\|^\)\(USING\W\+\(EDIT\W\+MASK\)\|USING\)\(\W\|$\)"ms=s+1,me=e-1
|
||
|
|
syn match abapStatement "\(\W\|^\)\(WHERE\W\+\(LINE\)\)\(\W\|$\)"ms=s+1,me=e-1
|
||
|
|
syn match abapStatement "\(\W\|^\)RADIOBUTTON\W\+GROUP\(\W\|$\)"ms=s+1,me=e-1
|
||
|
|
syn match abapStatement "\(\W\|^\)REF\W\+TO\(\W\|$\)"ms=s+1,me=e-1
|
||
|
|
|
||
|
|
" Special ABAP specific tables:
|
||
|
|
syn match abapSpecial "\(\W\|^\)\(sy\|\(p\|pa\)\d\d\d\d\|t\d\d\d.\|innnn\)\(\W\|$\)"ms=s+1,me=e-1
|
||
|
|
syn match abapSpecialTables "\(sy\|\(p\|pa\)\d\d\d\d\|t\d\d\d.\|innnn\)-"me=e-1 contained
|
||
|
|
syn match abapSpecial "\(\W\|^\)\w\+-\w\+"ms=s+1 contains=abapSpecialTables
|
||
|
|
|
||
|
|
" Pointer
|
||
|
|
syn match abapSpecial "<\w\+>"
|
||
|
|
|
||
|
|
" Abap constants:
|
||
|
|
syn keyword abapSpecial TRUE FALSE NULL SPACE
|
||
|
|
|
||
|
|
" Includes
|
||
|
|
syn region abapInclude start="include" end="." contains=abapComment
|
||
|
|
|
||
|
|
" Types
|
||
|
|
syn keyword abapTypes c n i p f d t x
|
||
|
|
|
||
|
|
" Atritmitic operators
|
||
|
|
syn keyword abapOperator abs sign ceil floor trunc frac acos asin atan cos sin tan
|
||
|
|
syn keyword abapOperator cosh sinh tanh exp log log10 sqrt
|
||
|
|
|
||
|
|
" String operators
|
||
|
|
syn keyword abapOperator strlen xstrlen charlen numofchar dbmaxlen
|
||
|
|
|
||
|
|
" Table operators
|
||
|
|
syn keyword abapOperator lines
|
||
|
|
|
||
|
|
" Table operators (SELECT operators)
|
||
|
|
syn keyword abapOperator INTO FROM WHERE GROUP BY HAVING ORDER BY SINGLE
|
||
|
|
syn keyword abapOperator APPENDING CORRESPONDING FIELDS OF TABLE
|
||
|
|
syn keyword abapOperator LEFT RIGHT OUTER INNER JOIN AS CLIENT SPECIFIED BYPASSING BUFFER UP TO ROWS CONNECTING
|
||
|
|
syn keyword abapOperator EQ NE LT LE GT GE NOT AND OR XOR IN LIKE BETWEEN
|
||
|
|
|
||
|
|
" An error? Not strictly... but cannot think of reason this is intended.
|
||
|
|
syn match abapError "\.\."
|
||
|
|
|
||
|
|
" Comments
|
||
|
|
syn region abapComment start="^\*" end="$" contains=abapTodo
|
||
|
|
syn match abapComment "\".*" contains=abapTodo
|
||
|
|
syn keyword abapTodo contained TODO NOTE
|
||
|
|
|
||
|
|
" Define the default highlighting.
|
||
|
|
" For version 5.7 and earlier: only when not done already
|
||
|
|
" For version 5.8 and later: only when an item doesn't have highlighting yet
|
||
|
|
if version >= 508 || !exists("did_abap_syntax_inits")
|
||
|
|
if version < 508
|
||
|
|
let did_abap_syntax_inits = 1
|
||
|
|
command -nargs=+ HiLink hi link <args>
|
||
|
|
else
|
||
|
|
command -nargs=+ HiLink hi def link <args>
|
||
|
|
endif
|
||
|
|
|
||
|
|
HiLink abapError Error
|
||
|
|
HiLink abapComment Comment
|
||
|
|
HiLink abapInclude Include
|
||
|
|
HiLink abapSpecial Special
|
||
|
|
HiLink abapSpecialTables PreProc
|
||
|
|
HiLink abapSymbolOperator abapOperator
|
||
|
|
HiLink abapOperator Operator
|
||
|
|
HiLink abapStatement Statement
|
||
|
|
HiLink abapString String
|
||
|
|
HiLink abapFloat Float
|
||
|
|
HiLink abapNumber Number
|
||
|
|
HiLink abapHex Number
|
||
|
|
|
||
|
|
delcommand HiLink
|
||
|
|
endif
|
||
|
|
|
||
|
|
let b:current_syntax = "abap"
|
||
|
|
|
||
|
|
" vim: ts=8 sw=2
|