" Vim syntax file " " Language: TTCN-3 " Maintainer: Stefan Karlsson " Maintainer: Gustaf Johansson " Last Change: 22 July 2010 " " History: " Updated the file with the changes in ETSI standard ES 201 873-1 " V4.1.1. Since Stefan has not updated the file since 2005-08-10 you can " contact me with any bugs or other problems you find. " " Original by Stefan was based on the ETSI standard ES201873-1 v2.2.1. Please " let me know of any bugs or other problems you run across. if exists("b:current_syntax") finish endif if exists("g:ttcn_minlines") exec "syn sync minlines=" . g:ttcn_minlines else syn sync fromstart endif " Automatically define folds. You enable this feature with :let g:ttcn_fold=1. if exists("g:ttcn_fold") && g:ttcn_fold == 1 syn region ttcnFold start="{" end="}" transparent fold endif " Highlight declared language elements following generic naming conventions, " not standardized but noted on http://www.ttcn-3.org/NamingConventions.htm. " Enable this feature with :let g:ttcn_hl_naming_convention=1. if exists("g:ttcn_hl_naming_convention") && g:ttcn_hl_naming_convention == 1 syn match ttcnAltStp "\" syn match ttcnConst "\" syn match ttcnEnum "\" syn match ttcnFunc "\" syn match ttcnParam "\" syn match ttcnTempl "\" syn match ttcnVar "\" syn match ttcnTimer "\<[tT]\U\?_\w\+\>" endif " ETSI ES 201 873-10 V3.4.1 " Part 10: TTCN-3 Documentation Comment Specification syn match ttcnDocComment "@\<$author\|config\|desc\|exception\|member\|param\|purpose\|remark\|return\|see\|since\|status\|url\|verdict\|version$\>" contained " Built-in types syn keyword ttcnType address anytype boolean char default float integer syn keyword ttcnType objid verdicttype timer set record union syn keyword ttcnType enumerated component port of syn match ttcnType "\<$char\|bit\|hex\|octet$string\>" syn match ttcnError "\" syn match ttcnType "\" " Type definitions syn keyword ttcnTypDef type message procedure mixed " Storage classes syn keyword ttcnStore var const external " Module, import and group stuff syn keyword ttcnModule module modulepar group syn match ttcnError "\" syn match ttcnModule "\" " C++ Pre processor directives, used when we have a ttcnpp file syn match ttcnInclude "\^\s\*#\s\*include\>" syn match ttcnDefine "\^\s\*#\s\*$define\|undef$\>" syn region ttcnPreCond start="^\s*#\s*$if\|ifdef\|ifndef\|elif$\>" skip="\\$" end="$" contains=ttcnCmnt,ttcnString syn match ttcnPreCond "\^\s\*#\s\*$else\|endif$\>" " Preprocessing macros syn keyword ttcnMacro __MODULE__ __FILE__ __LINE__ __SCOPE__ " Attributes syn keyword ttcnAttrib with display encode extension variant optional " Operators syn keyword ttcnOper mod rem not and or xor not4b and4b or4b xor4b syn keyword ttcnOper complement pattern match decmatch valueof subset superset permutation syn match ttcnOper "[-+*/?]" syn match ttcnOper "[<>]" syn match ttcnError "=" syn match ttcnOper "[=!><]=" syn match ttcnOper "$<[<@]$\|$[>@]>$" syn match ttcnOper "&" syn match ttcnError "&&\+"hs=s+1 syn match ttcnOper "\.\." syn match ttcnError "\.\.\.\+"hs=s+2 " Visibility syn keyword ttcnScope public friend private " Statements syn match ttcnStat "->" syn match ttcnStat ":=" syn keyword ttcnSpecial control extends syn match ttcnError "\" syn match ttcnError "\" syn match ttcnSpecial "\" " Basic statements syn keyword ttcnCond if else select syn keyword ttcnRepeat for while do goto syn keyword ttcnLabel case label syn keyword ttcnStat return break continue log stop " Alt statements & operations syn keyword ttcnCond alt interleave syn keyword ttcnStat repeat activate deactivate " Config operations " stop syn keyword ttcnStat create connect disconnect map unmap start syn keyword ttcnOper mtc system self running kill alive done killed " Communication operations " stop start syn keyword ttcnStat send call reply receive getcall getreply syn keyword ttcnExcept raise catch syn keyword ttcnOper trigger check clear halt " Timer operations " stop start running syn keyword ttcnOper read timeout " Verdict operations syn keyword ttcnStat setverdict getverdict " External actions syn keyword ttcnOper action " Test case operations syn keyword ttcnOper execute " Predefined functions syn keyword ttcnFunc int2char int2unichar int2bit int2hex int2oct syn keyword ttcnFunc int2str int2float float2int char2int char2oct syn keyword ttcnFunc unichar2int bit2int bit2hex bit2oct bit2str syn keyword ttcnFunc hex2int hex2bit hex2oct hex2str syn keyword ttcnFunc oct2int oct2bit oct2hex oct2str oct2char syn keyword ttcnFunc str2int str2oct str2float enum2int syn keyword ttcnFunc lengthof sizeof ispresent ischosen syn keyword ttcnFunc isvalue regexp substr replace encvalue syn keyword ttcnFunc decvalue rnd isbound log2str syn keyword ttcnFunc istemplatekind testcasename hostId " Various keywords syn keyword ttcnKeyw in out inout any all sender to value modifies syn keyword ttcnKeyw nowait param length recursive except syn keyword ttcnKeyw ifpresent language override present syn keyword ttcnKeyw from " Literals syn match ttcnError "\_^0\d\+"he=s+1 syn match ttcnError "$\s\|\t$0\d\+"hs=s+1,he=s+2 syn match ttcnNumber "\<$0\|\([1-9]\d*$\)\>" syn match ttcnNumber "\<$0\|\([1-9]\d*$\)\.\d\+\>" syn match ttcnNumber "\<$0\|\([1-9]\d*$\)$\.\d\+$\?E-\?[1-9]\d*\>" syn match ttcnNumber "[^a-zA-Z0-9_]\@<=[+-]\d"hs=e-1,he=e-1,me=e-1 syn match ttcnNumber "\" syn match ttcnNumber "-infinity\>" syn keyword ttcnBool true false syn keyword ttcnConst omit null pass fail inconc none error syn region ttcnString start=/"/ end=/"/ skip=/\\"/ oneline " In binary strings strings '?' matches one bit syn match ttcnString /'[01?]*'B/ " In hexstrings '?' matches one nibble (4 bits) syn match ttcnString /'$\x\|?$*'H/ " In octetstings '?' matches one octet (8 bits) syn match ttcnString /'$\(\x\x$\|?\)*'O/ syn match ttcnError /'\x$\(\x\x$\|?\)*'O/ " Comments if version < 700 syn match ttcnCmnt "//.*" contains=ttcnTodo,ttcnDocComment syn region ttcnCmnt start="/\*" end="\*/" contains=ttcnTodo,ttcnDocComment else syn match ttcnCmnt "//.*" contains=ttcnTodo,ttcnDocComment,@Spell syn region ttcnCmnt start="/\*" end="\*/" contains=ttcnTodo,ttcnDocComment,@Spell endif syn case ignore syn keyword ttcnTodo xxx todo fixme contained syn case match " Link our groups to Vim's predefined groups if version >= 508 || !exists("g:did_ttcn_syn_inits") if version < 508 let g:did_ttcn_syn_inits = 1 command -nargs=+ HiLink hi link else command -nargs=+ HiLink hi def link endif HiLink ttcnAttrib PreProc HiLink ttcnBool Boolean HiLink ttcnConst Constant HiLink ttcnCmnt Comment HiLink ttcnCond Conditional HiLink ttcnSpecial Special HiLink ttcnScope StorageClass HiLink ttcnDecl Statement HiLink ttcnError Error HiLink ttcnExcept Exception HiLink ttcnFunc Function HiLink ttcnKeyw Keyword HiLink ttcnLabel Label HiLink ttcnModule Include HiLink ttcnPreProc PreProc HiLink ttcnInclude Include HiLink ttcnDefine Define HiLink ttcnPreCond PreCondit HiLink ttcnNumber Number HiLink ttcnOper Operator HiLink ttcnRepeat Repeat HiLink ttcnStat Statement HiLink ttcnStore StorageClass HiLink ttcnString String HiLink ttcnTodo Todo HiLink ttcnType Type HiLink ttcnTypDef TypeDef HiLink ttcnMacro Macro HiLink ttcnDocComment SpecialComment if exists("g:ttcn_hl_naming_convention") && g:ttcn_hl_naming_convention == 1 HiLink ttcnAltStp Function HiLink ttcnConst Constant HiLink ttcnEnum Structure HiLink ttcnFunc Function HiLink ttcnParam Identifier HiLink ttcnTempl Function HiLink ttcnVar Identifier HiLink ttcnTimer Special endif delcommand HiLink endif let b:current_syntax = "ttcn"