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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
" Vim syntax file
" Language: PL/M
" Maintainer: Philippe Coulonges <cphil@cphil.net>
" Last change: 2003 May 11
" 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
" PL/M is a case insensitive language
syn case ignore
syn keyword plmTodo contained TODO FIXME XXX
" String
syn region plmString start=+'+ end=+'+
syn match plmOperator "[@=\+\-\*\/\<\>]"
syn match plmIdentifier "\<[a-zA-Z_][a-zA-Z0-9_]*\>"
syn match plmDelimiter "[();,]"
syn region plmPreProc start="^\s*\$\s*" skip="\\$" end="$"
" FIXME : No Number support for floats, as I'm working on an embedded
" project that doesn't use any.
syn match plmNumber "-\=\<\d\+\>"
syn match plmNumber "\<[0-9a-fA-F]*[hH]*\>"
" If you don't like tabs
"syn match plmShowTab "\t"
"syn match plmShowTabc "\t"
"when wanted, highlight trailing white space
if exists("c_space_errors")
syn match plmSpaceError "\s*$"
syn match plmSpaceError " \+\t"me=e-1
endif
"
" Use the same control variable as C language for I believe
" users will want the same behavior
if exists("c_comment_strings")
" FIXME : don't work fine with c_comment_strings set,
" which I don't care as I don't use
" A comment can contain plmString, plmCharacter and plmNumber.
" But a "*/" inside a plmString in a plmComment DOES end the comment! So we
" need to use a special type of plmString: plmCommentString, which also ends on
" "*/", and sees a "*" at the start of the line as comment again.
syntax match plmCommentSkip contained "^\s*\*\($\|\s\+\)"
syntax region plmCommentString contained start=+"+ skip=+\\\\\|\\"+ end=+"+ end=+\*/+me=s-1 contains=plmSpecial,plmCommentSkip
syntax region plmComment2String contained start=+"+ skip=+\\\\\|\\"+ end=+"+ end="$" contains=plmSpecial
syntax region plmComment start="/\*" end="\*/" contains=plmTodo,plmCommentString,plmCharacter,plmNumber,plmFloat,plmSpaceError
syntax match plmComment "//.*" contains=plmTodo,plmComment2String,plmCharacter,plmNumber,plmSpaceError
else
syn region plmComment start="/\*" end="\*/" contains=plmTodo,plmSpaceError
syn match plmComment "//.*" contains=plmTodo,plmSpaceError
endif
syntax match plmCommentError "\*/"
syn keyword plmReserved ADDRESS AND AT BASED BY BYTE CALL CASE
syn keyword plmReserved DATA DECLARE DISABLE DO DWORD
syn keyword plmReserved ELSE ENABLE END EOF EXTERNAL
syn keyword plmReserved GO GOTO HALT IF INITIAL INTEGER INTERRUPT
syn keyword plmReserved LABEL LITERALLY MINUS MOD NOT OR
syn keyword plmReserved PLUS POINTER PROCEDURE PUBLIC
syn keyword plmReserved REAL REENTRANT RETURN SELECTOR STRUCTURE
syn keyword plmReserved THEN TO WHILE WORD XOR
syn keyword plm386Reserved CHARINT HWORD LONGINT OFFSET QWORD SHORTINT
syn keyword plmBuiltIn ABS ADJUSTRPL BLOCKINPUT BLOCKINWORD BLOCKOUTPUT
syn keyword plmBuiltIn BLOCKOUTWORD BUILPTR CARRY CAUSEINTERRUPT CMPB
syn keyword plmBuiltIn CMPW DEC DOUBLE FINDB FINDRB FINDRW FINDW FIX
syn keyword plmBuiltIn FLAGS FLOAT GETREALERROR HIGH IABS INITREALMATHUNIT
syn keyword plmBuiltIn INPUT INT INWORD LAST LOCKSET LENGTH LOW MOVB MOVE
syn keyword plmBuiltIn MOVRB MOVRW MOVW NIL OUTPUT OUTWORD RESTOREREALSTATUS
syn keyword plmBuiltIn ROL ROR SAL SAVEREALSTATUS SCL SCR SELECTOROF SETB
syn keyword plmBuiltIn SETREALMODE SETW SHL SHR SIGN SIGNED SIZE SKIPB
syn keyword plmBuiltIn SKIPRB SKIPRW SKIPW STACKBASE STACKPTR TIME SIZE
syn keyword plmBuiltIn UNSIGN XLAT ZERO
syn keyword plm386BuiltIn INTERRUPT SETINTERRUPT
syn keyword plm286BuiltIn CLEARTASKSWITCHEDFLAG GETACCESSRIGHTS
syn keyword plm286BuiltIn GETSEGMENTLIMIT LOCALTABLE MACHINESTATUS
syn keyword plm286BuiltIn OFFSETOF PARITY RESTOREGLOBALTABLE
syn keyword plm286BuiltIn RESTOREINTERRUPTTABLE SAVEGLOBALTABLE
syn keyword plm286BuiltIn SAVEINTERRUPTTABLE SEGMENTREADABLE
syn keyword plm286BuiltIn SEGMENTWRITABLE TASKREGISTER WAITFORINTERRUPT
syn keyword plm386BuiltIn CONTROLREGISTER DEBUGREGISTER FINDHW
syn keyword plm386BuiltIn FINDRHW INHWORD MOVBIT MOVRBIT MOVHW MOVRHW
syn keyword plm386BuiltIn OUTHWORD SCANBIT SCANRBIT SETHW SHLD SHRD
syn keyword plm386BuiltIn SKIPHW SKIPRHW TESTREGISTER
syn keyword plm386w16BuiltIn BLOCKINDWORD BLOCKOUTDWORD CMPD FINDD
syn keyword plm386w16BuiltIn FINDRD INDWORD MOVD MOVRD OUTDWORD
syn keyword plm386w16BuiltIn SETD SKIPD SKIPRD
syn sync lines=50
" 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_plm_syntax_inits")
if version < 508
let did_plm_syntax_inits = 1
command -nargs=+ HiLink hi link <args>
else
command -nargs=+ HiLink hi def link <args>
endif
" The default methods for highlighting. Can be overridden later
" HiLink plmLabel Label
" HiLink plmConditional Conditional
" HiLink plmRepeat Repeat
HiLink plmTodo Todo
HiLink plmNumber Number
HiLink plmOperator Operator
HiLink plmDelimiter Operator
"HiLink plmShowTab Error
"HiLink plmShowTabc Error
HiLink plmIdentifier Identifier
HiLink plmBuiltIn Statement
HiLink plm286BuiltIn Statement
HiLink plm386BuiltIn Statement
HiLink plm386w16BuiltIn Statement
HiLink plmReserved Statement
HiLink plm386Reserved Statement
HiLink plmPreProc PreProc
HiLink plmCommentError plmError
HiLink plmCommentString plmString
HiLink plmComment2String plmString
HiLink plmCommentSkip plmComment
HiLink plmString String
HiLink plmComment Comment
delcommand HiLink
endif
let b:current_syntax = "plm"
" vim: ts=8 sw=2
|
