" Vim syntax file
" Language:     TADS
" Maintainer:   Amir Karger <[email protected]>
" $Date: 1999/10/22 18:36:40 $
" $Revision: 1.5 $
" Stolen from: Bram Moolenaar's C language file
" Newest version at: http://www.hec.utah.edu/~karger/vim/syntax/tads.vim
" History info at the bottom of the file

" TODO lots more keywords
" global, self, etc. are special *objects*, not functions. They should
" probably be a different color than the special functions
" Actually, should cvtstr etc. be functions?! (change tadsFunction)
" Make global etc. into Identifiers, since we don't have regular variables?

" Remove any old syntax stuff hanging around
syn clear

" A bunch of useful keywords
syn keyword tadsStatement       goto break return continue pass
syn keyword tadsLabel           case default
syn keyword tadsConditional     if else switch
syn keyword tadsRepeat          while for do
syn keyword tadsStorageClass    local compoundWord formatstring specialWords
syn keyword tadsBoolean         nil true

" TADS keywords
syn keyword tadsKeyword         replace modify
syn keyword tadsKeyword         global self inherited
" builtin functions
syn keyword tadsKeyword         cvtstr cvtnum caps lower upper substr
syn keyword tadsKeyword         say length
syn keyword tadsKeyword         setit setscore
syn keyword tadsKeyword         datatype proptype
syn keyword tadsKeyword         car cdr
syn keyword tadsKeyword         defined isclass
syn keyword tadsKeyword         find firstobj nextobj
syn keyword tadsKeyword         getarg argcount
syn keyword tadsKeyword         input yorn askfile
syn keyword tadsKeyword         rand randomize
syn keyword tadsKeyword         restart restore quit save undo
syn keyword tadsException       abort exit exitobj

syn keyword tadsTodo contained  TODO FIXME XXX

" String and Character constants
" Highlight special characters (those which have a backslash) differently
syn match tadsSpecial contained "\\."
syn region tadsDoubleString             start=+"+ skip=+\\\\\|\\"+ end=+"+ contains=tadsSpecial,tadsEmbedded
syn region tadsSingleString             start=+'+ skip=+\\\\\|\\'+ end=+'+ contains=tadsSpecial
" Embedded expressions in strings
syn region tadsEmbedded contained       start="<<" end=">>" contains=tadsKeyword

" TADS doesn't have \xxx, right?
"syn match cSpecial contained   "\\[0-7][0-7][0-7]\=\|\\."
"syn match cSpecialCharacter    "'\\[0-7][0-7]'"
"syn match cSpecialCharacter    "'\\[0-7][0-7][0-7]'"

"catch errors caused by wrong parenthesis
"syn region cParen              transparent start='(' end=')' contains=ALLBUT,cParenError,cIncluded,cSpecial,cTodo,cUserCont,cUserLabel
"syn match cParenError          ")"
"syn match cInParen contained   "[{}]"
syn region tadsBrace            transparent start='{' end='}' contains=ALLBUT,tadsBraceError,tadsIncluded,tadsSpecial,tadsTodo
syn match tadsBraceError                "}"

"integer number (TADS has no floating point numbers)
syn case ignore
syn match tadsNumber            "\<[0-9]\+\>"
"hex number
syn match tadsNumber            "\<0x[0-9a-f]\+\>"
syn match tadsIdentifier        "\<[a-z][a-z0-9_$]*\>"
syn case match
" flag an octal number with wrong digits
syn match tadsOctalError                "\<0[0-7]*[89]"

" Removed complicated c_comment_strings
syn region tadsComment          start="/\*" end="\*/" contains=tadsTodo
syn match tadsComment           "//.*" contains=tadsTodo
syntax match tadsCommentError   "\*/"

syn region tadsPreCondit        start="^\s*#\s*\(if\>\|ifdef\>\|ifndef\>\|elif\>\|else\>\|endif\>\)" skip="\\$" end="$" contains=tadsComment,tadsString,tadsNumber,tadsCommentError
syn region tadsIncluded contained start=+"+ skip=+\\\\\|\\"+ end=+"+
syn match tadsIncluded contained "<[^>]*>"
syn match tadsInclude           "^\s*#\s*include\>\s*["<]" contains=tadsIncluded
syn region tadsDefine           start="^\s*#\s*\(define\>\|undef\>\)" skip="\\$" end="$" contains=ALLBUT,tadsPreCondit,tadsIncluded,tadsInclude,tadsDefine,tadsInBrace,tadsIdentifier

syn region tadsPreProc start="^\s*#\s*\(pragma\>\|line\>\|warning\>\|warn\>\|error\>\)" skip="\\$" end="$" contains=ALLBUT,tadsPreCondit,tadsIncluded,tadsInclude,tadsDefine,tadsInParen,tadsIdentifier

" Highlight User Labels
" TODO labels for gotos?
"syn region     cMulti          transparent start='?' end=':' contains=ALLBUT,cIncluded,cSpecial,cTodo,cUserCont,cUserLabel,cBitField
" Avoid matching foo::bar() in C++ by requiring that the next char is not ':'
"syn match      cUserCont       "^\s*\I\i*\s*:$" contains=cUserLabel
"syn match      cUserCont       ";\s*\I\i*\s*:$" contains=cUserLabel
"syn match      cUserCont       "^\s*\I\i*\s*:[^:]" contains=cUserLabel
"syn match      cUserCont       ";\s*\I\i*\s*:[^:]" contains=cUserLabel

"syn match      cUserLabel      "\I\i*" contained

" identifier: class-name [, class-name [...]] [property-list] ;
" Don't highlight comment in class def
syn match tadsClassDef          "\<class\>[^/]*" contains=tadsObjectDef,tadsClass
syn match tadsClass contained   "\<class\>"
syn match tadsObjectDef "\<[a-zA-Z][a-zA-Z0-9_$]*\s*:\s*[a-zA-Z0-9_$]\+\(\s*,\s*[a-zA-Z][a-zA-Z0-9_$]*\)*\(\s*;\)\="
syn keyword tadsFunction contained function
syn match tadsFunctionDef        "\<[a-zA-Z][a-zA-Z0-9_$]*\s*:\s*function[^{]*" contains=tadsFunction
"syn region tadsObject            transparent start = '[a-zA-Z][\i$]\s*:\s*' end=";" contains=tadsBrace,tadsObjectDef

" How far back do we go to find matching groups
if !exists("tads_minlines")
 let tads_minlines = 15
endif
exec "syn sync ccomment tadsComment minlines=" . tads_minlines
if !exists("tads_sync_dist")
 let tads_sync_dist = 100
endif
execute "syn sync maxlines=" . tads_sync_dist

 " The default methods for highlighting.  Can be overridden later
 hi link tadsFunctionDef Function
 hi link tadsFunction  Structure
 hi link tadsClass     Structure
 hi link tadsClassDef  Identifier
 hi link tadsObjectDef Identifier
" no highlight for tadsEmbedded, so it prints as normal text w/in the string

 hi link tadsOperator  Operator
 hi link tadsStructure Structure
 hi link tadsTodo      Todo
 hi link tadsLabel     Label
 hi link tadsConditional       Conditional
 hi link tadsRepeat    Repeat
 hi link tadsException Exception
 hi link tadsStatement Statement
 hi link tadsStorageClass      StorageClass
 hi link tadsKeyWord   Keyword
 hi link tadsSpecial   SpecialChar
 hi link tadsNumber    Number
 hi link tadsBoolean   Boolean
 hi link tadsDoubleString      tadsString
 hi link tadsSingleString      tadsString

 hi link tadsOctalError        tadsError
 hi link tadsCommentError      tadsError
 hi link tadsBraceError        tadsError
 hi link tadsInBrace   tadsError
 hi link tadsError     Error

 hi link tadsInclude   Include
 hi link tadsPreProc   PreProc
 hi link tadsDefine    Macro
 hi link tadsIncluded  tadsString
 hi link tadsPreCondit PreCondit

 hi link tadsString    String
 hi link tadsComment   Comment

let b:current_syntax = "tads"

" Changes:
" 10/22/99 Misspelled Moolenaar (sorry!), c_minlines to tads_minlines
"
" vim: ts=8

You are viewing proxied material from gopher.661.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.