diff options
Diffstat (limited to 'syntax/embryo.vim')
| -rw-r--r-- | syntax/embryo.vim | 195 |
1 files changed, 0 insertions, 195 deletions
diff --git a/syntax/embryo.vim b/syntax/embryo.vim deleted file mode 100644 index 11175d8..0000000 --- a/syntax/embryo.vim +++ /dev/null @@ -1,195 +0,0 @@ -" Vim syntax file -" Language: Embryo -" Maintainer: Viktor Kojouharov -" Last Change: 2006 10 06 - -" 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 - -" A bunch of useful keywords -syn keyword embryoConditional if else switch -syn keyword embryoRepeat while for do in -syn keyword embryoBranch break continue -syn keyword embryoOperator new -syn keyword embryoType Float State_Param Msg_Type enum -syn keyword embryoStatement return with native stock forward -syn keyword embryoLabel case default -syn keyword embryoReserved public -syn keyword embryoEdjeKey PART PROGRAM - -syn keyword embryoTodo contained TODO FIXME XXX - -" embryoCommentGroup allows adding matches for special things in comments -syn cluster embryoCommentGroup contains=embryoTodo - -" String and Character constants -" Highlight special characters (those which have a backslash) differently -syn match embryoSpecial display contained "\\\(x\x\+\|\o\{1,3}\|.\|$\)" -syn region embryoString start=+L\="+ skip=+\\\\\|\\"+ end=+"+ contains=embryoSpecial -syn match embryoFormat display "%\(\d\+\$\)\=[-+' #0*]*\(\d*\|\*\|\*\d\+\$\)\(\.\(\d*\|\*\|\*\d\+\$\)\)\=\([hlL]\|ll\)\=\([diuoxXfeEgGcCsSpn]\|\[\^\=.[^]]*\]\)" contained -syn match embryoFormat display "%%" contained -syn region embryoString start=+L\="+ skip=+\\\\\|\\"+ end=+"+ contains=cSpecial,cFormat - -syn match embryoCharacter "L\='[^\\]'" -syn match embryoCharacter "L'[^']*'" contains=embryoSpecial -syn match embryoSpecialError "L\='\\[^'\"?\\abfnrtv]'" -syn match embryoSpecialCharacter "L\='\\['\"?\\abfnrtv]'" -syn match embryoSpecialCharacter display "L\='\\\o\{1,3}'" -syn match embryoSpecialCharacter display "'\\x\x\{1,2}'" -syn match embryoSpecialCharacter display "L'\\x\x\+'" - -"when wanted, highlight trailing white space -if exists("embryo_space_errors") - if !exists("embryo_no_trail_space_error") - syn match embryoSpaceError display excludenl "\s\+$" - endif - if !exists("embryo_no_tab_space_error") - syn match embryoSpaceError display " \+\t"me=e-1 - endif -endif - -"catch errors caused by wrong parenthesis and brackets -syn cluster embryoParenGroup contains=embryoParenError,embryoIncluded,embryoSpecial,embryoCommentSkip,embryoCommentString,embryoComment2String,@embryoCommentGroup,embryoCommentStartErr,embryoUserCont,embryoUserLabel,embryoBitField,embryoCommentSkip,embryoOctalZero,embryoFormat,embryoNumber,embryoFloat,embryoOctal,embryoOctalError,embryoNumbersCom -if exists("embryo_no_bracket_error") - syn region embryoParen transparent start='(' end=')' contains=ALLBUT,@embryoParenGroup - syn match embryoParenError display ")" - syn match embryoErrInParen display contained "[{}]" -else - syn region embryoParen transparent start='(' end=')' contains=ALLBUT,@embryoParenGroup,embryoErrInBracket - syn match embryoParenError display "[\])]" - syn match embryoErrInParen display contained "[\]{}]" - syn region embryoBracket transparent start='\[' end=']' contains=ALLBUT,@embryoParenGroup,embryoErrInParen - syn match embryoErrInBracket display contained "[);{}]" -endif - -syn region embryoBrace start='{' end='}' transparent -"integer number, or floating point number without a dot and with "f". -syn case ignore -syn match embryoNumbers display transparent "\<\d\|\.\d" contains=embryoNumber,embryoFloat,embryoOctalError,embryoOctal -" Same, but without octal error (for comments) -syn match embryoNumbersCom display contained transparent "\<\d\|\.\d" contains=embryoNumber,embryoFloat,embryoOctal -syn match embryoNumber display contained "\d\+\(u\=l\{0,2}\|ll\=u\)\>" -"hex number -syn match embryoNumber display contained "0x\x\+\(u\=l\{0,2}\|ll\=u\)\>" -" Flag the first zero of an octal number as something special -syn match embryoOctal display contained "0\o\+\(u\=l\{0,2}\|ll\=u\)\>" contains=embryoOctalZero -syn match embryoOctalZero display contained "\<0" -syn match embryoFloat display contained "\d\+f" -"floating point number, with dot, optional exponent -syn match embryoFloat display contained "\d\+\.\d*\(e[-+]\=\d\+\)\=[fl]\=" -"floating point number, starting with a dot, optional exponent -syn match embryoFloat display contained "\.\d\+\(e[-+]\=\d\+\)\=[fl]\=\>" -"floating point number, without dot, with exponent -syn match embryoFloat display contained "\d\+e[-+]\=\d\+[fl]\=\>" -" flag an octal number with wrong digits -syn match embryoOctalError display contained "0\o*[89]\d*" -syn case match - -if exists("embryo_comment_strings") - " A comment can contain embryoString, embryoCharacter and embryoNumber. - " But a "*/" inside a embryoString in a embryoComment DOES end the comment! So we - " need to use a special type of embryoString: embryoCommentString, which also ends - " on "*/", and sees a "*" at the start of the line as comment again. - " Unfortunately this doesn't very well work for // type of comments :-( - syntax match embryoCommentSkip contained "^\s*\*\($\|\s\+\)" - syntax region embryoCommentString contained start=+L\=\\\@<!"+ skip=+\\\\\|\\"+ end=+"+ end=+\*/+me=s-1 contains=embryoSpecial,embryoCommentSkip - syntax region embryoComment2String contained start=+L\=\\\@<!"+ skip=+\\\\\|\\"+ end=+"+ end="$" contains=embryoSpecial - syntax region embryoCommentL start="//" skip="\\$" end="$" keepend contains=@embryoCommentGroup,embryoComment2String,embryoCharacter,embryoNumbersCom,embryoSpaceError - syntax region embryoComment matchgroup=embryoCommentStart start="/\*" matchgroup=NONE end="\*/" contains=@embryoCommentGroup,embryoCommentStartErr,embryoCommentString,embryoCharacter,embryoNumbersCom,embryoSpaceError -else - syn region embryoCommentL start="//" skip="\\$" end="$" keepend contains=@embryoCommentGroup,embryoSpaceError - syn region embryoComment matchgroup=embryoCommentStart start="/\*" matchgroup=NONE end="\*/" contains=@embryoCommentGroup,embryoCommentStartErr,embryoSpaceError -endif -" keep a // comment separately, it terminates a preproc. conditional -syntax match embryoCommentError display "\*/" -syntax match embryoCommentStartErr display "/\*"me=e-1 contained - -syn region embryoPreCondit start="^\s*#\s*\(if\|ifdef\|ifndef\|elif\)\>" skip="\\$" end="$" end="//"me=s-1 contains=embryoComment,embryoCharacter,embryoParenError,embryoNumbers,embryoCommentError,embryoSpaceError -syn match embryoPreCondit display "^\s*#\s*\(else\|endif\)\>" -syn region embryoIncluded display contained start=+"+ skip=+\\\\\|\\"+ end=+"+ -syn match embryoIncluded display contained "<[^>]*>" -syn match embryoInclude display "^\s*#\s*include\>\s*["<]" contains=embryoIncluded -syn cluster embryoPreProcGroup contains=embryoPreCondit,embryoIncluded,embryoInclude,embryoDefine,embryoErrInParen,embryoErrInBracket,embryoCommentSkip,embryoCommentString,embryoComment2String,@embryoCommentGroup,embryoCommentStartErr,embryoParen,embryoBracket,embryoMulti,embryoUserLabel -syn cluster embryoAlphaNum contains=embryoSpecial,embryoOctalZero,embryoFormat,embryoNumber,embryoFloat,embryoOctal,embryoOctalError,embryoNumbersCom,embryoString -syn region embryoDefine start="^\s*#\s*\(define\|undef\)\>" skip="\\$" end="$" end="//"me=s-1 contains=ALLBUT,@embryoPreProcGroup -syn region embryoPreProc start="^\s*#\s*\(pragma\>\|line\>\|warning\>\|warn\>\|error\>\)" skip="\\$" end="$" keepend contains=ALLBUT,@embryoPreProcGroup - -syn match embryoUserLabel display "\I\i*" contained - -syn match embryoFunctionName "\h\w*\s*\%((\@=\)" - -if exists("embryo_minlines") - let b:embryo_minlines = embryo_minlines -else - let b:embryo_minlines = 50 " #if 0 constructs can be long -endif -exec "syn sync ccomment embryoComment minlines=" . b:embryo_minlines -"syn sync fromstart - -" 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_embryo_syn_inits") - if version < 508 - let did_embryo_syn_inits = 1 - command -nargs=+ HiLink hi link <args> - else - command -nargs=+ HiLink hi def link <args> - endif - - HiLink embryoFormat embryoSpecial - HiLink embryoCommentL embryoComment - HiLink embryoCommentStart embryoComment - HiLink embryoLabel Label - HiLink embryoUserLabel Label - HiLink embryoConditional Conditional - HiLink embryoRepeat Repeat - HiLink embryoBranch Conditional - HiLink embryoReserved Keyword - HiLink embryoCharacter Character - HiLink embryoSpecialCharacter cSpecial - HiLink embryoNumber Number - HiLink embryoOctal Number - HiLink embryoOctalZero PreProc " link this to Error if you want - HiLink embryoFloat Float - HiLink embryoOctalError embryoError - HiLink embryoParenError embryoError - HiLink embryoErrInParen embryoError - HiLink embryoErrInBracket embryoError - HiLink embryoCommentError embryoError - HiLink embryoCommentStartErr embryoError - HiLink embryoSpaceError embryoError - HiLink embryoSpecialError embryoError - HiLink embryoOperator Operator - HiLink embryoStructure Structure - HiLink embryoEdjeKey Structure - HiLink embryoStorageClass StorageClass - HiLink embryoInclude Include - HiLink embryoPreProc PreProc - HiLink embryoDefine Macro - HiLink embryoIncluded embryoString - HiLink embryoError Error - HiLink embryoStatement Statement - HiLink embryoPreCondit PreCondit - HiLink embryoType Type - HiLink embryoConstant Constant - HiLink embryoCommentString embryoString - HiLink embryoComment2String embryoString - HiLink embryoCommentSkip embryoComment - HiLink embryoString String - HiLink embryoComment Comment - HiLink embryoSpecial SpecialChar - HiLink embryoTodo Todo - HiLink embryoFunctionName Function - - delcommand HiLink -endif - -let b:current_syntax = "embryo" - -" vim: ts=8 |