| " Vim syntax file |
| " Language: PL/M |
| " Maintainer: Philippe Coulonges <cphil@cphil.net> |
| " Last change: 2003 May 11 |
| |
| " quit when a syntax file was already loaded |
| if 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. |
| " Only when an item doesn't have highlighting yet |
| |
| " The default methods for highlighting. Can be overridden later |
| " hi def link plmLabel Label |
| " hi def link plmConditional Conditional |
| " hi def link plmRepeat Repeat |
| hi def link plmTodo Todo |
| hi def link plmNumber Number |
| hi def link plmOperator Operator |
| hi def link plmDelimiter Operator |
| "hi def link plmShowTab Error |
| "hi def link plmShowTabc Error |
| hi def link plmIdentifier Identifier |
| hi def link plmBuiltIn Statement |
| hi def link plm286BuiltIn Statement |
| hi def link plm386BuiltIn Statement |
| hi def link plm386w16BuiltIn Statement |
| hi def link plmReserved Statement |
| hi def link plm386Reserved Statement |
| hi def link plmPreProc PreProc |
| hi def link plmCommentError plmError |
| hi def link plmCommentString plmString |
| hi def link plmComment2String plmString |
| hi def link plmCommentSkip plmComment |
| hi def link plmString String |
| hi def link plmComment Comment |
| |
| |
| let b:current_syntax = "plm" |
| |
| " vim: ts=8 sw=2 |
| |