Update runtime files. Add Euphoria syntax files.
This commit is contained in:
Bram Moolenaar
@ -6,11 +6,9 @@
|
||||
" (previously Matt Neumann <mattneu@purpleturtle.com>)
|
||||
" (previously Allan Kelly <allan@fruitloaf.co.uk>)
|
||||
" Original: Robin Becker <robin@jessikat.demon.co.uk>
|
||||
" Last Change: 2009/04/06 02:38:36
|
||||
" Version: 1.13
|
||||
" URL: http://real.metasyntax.net:2357/cvs/cvsweb.cgi/Config/vim/syntax/tcl.vim
|
||||
"
|
||||
" Keywords TODO: click anchor
|
||||
" Last Change: 2014-02-12
|
||||
" Version: 1.14
|
||||
" URL: http://bitbucket.org/taylor_venable/metasyntax/src/tip/Config/vim/syntax/tcl.vim
|
||||
|
||||
" For version 5.x: Clear all syntax items
|
||||
" For version 6.x: Quit when a syntax file was already loaded
|
||||
@ -20,41 +18,39 @@ elseif exists("b:current_syntax")
|
||||
finish
|
||||
endif
|
||||
|
||||
" Basic Tcl commands: http://www.tcl.tk/man/tcl8.5/TclCmd/contents.htm
|
||||
syn keyword tclCommand after append apply array bgerror binary catch cd chan clock
|
||||
syn keyword tclCommand close concat dde dict encoding eof error eval exec exit
|
||||
syn keyword tclCommand expr fblocked fconfigure fcopy file fileevent filename flush
|
||||
syn keyword tclCommand format gets glob global history incr info interp join
|
||||
syn keyword tclCommand lappend lassign lindex linsert list llength load lrange lrepeat
|
||||
syn keyword tclCommand lreplace lreverse lsearch lset lsort memory namespace open package
|
||||
syn keyword tclCommand pid proc puts pwd read regexp registry regsub rename return
|
||||
syn keyword tclCommand scan seek set socket source split string subst tell time
|
||||
syn keyword tclCommand trace unknown unload unset update uplevel upvar variable vwait
|
||||
" Basic Tcl commands: http://www.tcl.tk/man/tcl8.6/TclCmd/contents.htm
|
||||
syn keyword tclCommand after append array bgerror binary cd chan clock close concat
|
||||
syn keyword tclCommand dde dict encoding eof error eval exec exit expr fblocked
|
||||
syn keyword tclCommand fconfigure fcopy file fileevent flush format gets glob
|
||||
syn keyword tclCommand global history http incr info interp join lappend lassign
|
||||
syn keyword tclCommand lindex linsert list llength lmap load lrange lrepeat
|
||||
syn keyword tclCommand lreplace lreverse lsearch lset lsort memory my namespace
|
||||
syn keyword tclCommand next nextto open package pid puts pwd read refchan regexp
|
||||
syn keyword tclCommand registry regsub rename scan seek self set socket source
|
||||
syn keyword tclCommand split string subst tell time trace unknown unload unset
|
||||
syn keyword tclCommand update uplevel upvar variable vwait
|
||||
|
||||
" The 'Tcl Standard Library' commands: http://www.tcl.tk/man/tcl8.5/TclCmd/library.htm
|
||||
syn keyword tclCommand auto_execok auto_import auto_load auto_mkindex auto_mkindex_old
|
||||
syn keyword tclCommand auto_qualify auto_reset parray tcl_endOfWord tcl_findLibrary
|
||||
syn keyword tclCommand tcl_startOfNextWord tcl_startOfPreviousWord tcl_wordBreakAfter
|
||||
syn keyword tclCommand tcl_wordBreakBefore
|
||||
" The 'Tcl Standard Library' commands: http://www.tcl.tk/man/tcl8.6/TclCmd/library.htm
|
||||
syn keyword tclCommand auto_execok auto_import auto_load auto_mkindex auto_reset
|
||||
syn keyword tclCommand auto_qualify tcl_findLibrary parray tcl_endOfWord
|
||||
syn keyword tclCommand tcl_startOfNextWord tcl_startOfPreviousWord
|
||||
syn keyword tclCommand tcl_wordBreakAfter tcl_wordBreakBefore
|
||||
|
||||
" Commands that were added in Tcl 8.6
|
||||
|
||||
syn keyword tclCommand my oo::copy oo::define oo::objdefine self
|
||||
syn keyword tclCommand coroutine tailcall throw yield
|
||||
|
||||
" Global variables used by Tcl: http://www.tcl.tk/man/tcl8.5/TclCmd/tclvars.htm
|
||||
syn keyword tclVars env errorCode errorInfo tcl_library tcl_patchLevel tcl_pkgPath
|
||||
syn keyword tclVars tcl_platform tcl_precision tcl_rcFileName tcl_traceCompile
|
||||
syn keyword tclVars tcl_traceExec tcl_wordchars tcl_nonwordchars tcl_version argc argv
|
||||
syn keyword tclVars argv0 tcl_interactive geometry
|
||||
" Global variables used by Tcl: http://www.tcl.tk/man/tcl8.6/TclCmd/tclvars.htm
|
||||
syn keyword tclVars auto_path env errorCode errorInfo tcl_library tcl_patchLevel
|
||||
syn keyword tclVars tcl_pkgPath tcl_platform tcl_precision tcl_rcFileName
|
||||
syn keyword tclVars tcl_traceCompile tcl_traceExec tcl_wordchars
|
||||
syn keyword tclVars tcl_nonwordchars tcl_version argc argv argv0 tcl_interactive
|
||||
|
||||
" Strings which expr accepts as boolean values, aside from zero / non-zero.
|
||||
syn keyword tclBoolean true false on off yes no
|
||||
|
||||
syn keyword tclLabel case default
|
||||
syn keyword tclProcCommand apply coroutine proc return tailcall yield yieldto
|
||||
syn keyword tclConditional if then else elseif switch
|
||||
syn keyword tclConditional try finally
|
||||
syn keyword tclConditional catch try throw finally
|
||||
syn keyword tclLabel default
|
||||
syn keyword tclRepeat while for foreach break continue
|
||||
|
||||
syn keyword tcltkSwitch contained insert create polygon fill outline tag
|
||||
|
||||
" WIDGETS
|
||||
@ -91,6 +87,11 @@ syn match tclVarRef "$\(\(::\)\?\([[:alnum:]_]*::\)*\)\a[[:alnum:]_]*"
|
||||
" ${...} may contain any character except '}'
|
||||
syn match tclVarRef "${[^}]*}"
|
||||
|
||||
" Used to facilitate hack to utilize string background for certain color
|
||||
" schemes, e.g. inkpot and lettuce.
|
||||
syn cluster tclVarRefC add=tclVarRef
|
||||
syn cluster tclSpecialC add=tclSpecial
|
||||
|
||||
" The syntactic unquote-splicing replacement for [expand].
|
||||
syn match tclExpand '\s{\*}'
|
||||
syn match tclExpand '^{\*}'
|
||||
@ -203,9 +204,9 @@ syn match tclSpecial contained '\\[\[\]\{\}\"\$]'
|
||||
syn region tclEmbeddedStatement start='\[' end='\]' contained contains=tclCommand,tclNumber,tclLineContinue,tclString,tclVarRef,tclEmbeddedStatement
|
||||
" A string needs the skip argument as it may legitimately contain \".
|
||||
" Match at start of line
|
||||
syn region tclString start=+^"+ end=+"+ contains=tclSpecial skip=+\\\\\|\\"+
|
||||
syn region tclString start=+^"+ end=+"+ contains=@tclSpecialC skip=+\\\\\|\\"+
|
||||
"Match all other legal strings.
|
||||
syn region tclString start=+[^\\]"+ms=s+1 end=+"+ contains=tclSpecial,tclVarRef,tclEmbeddedStatement skip=+\\\\\|\\"+
|
||||
syn region tclString start=+[^\\]"+ms=s+1 end=+"+ contains=@tclSpecialC,@tclVarRefC,tclEmbeddedStatement skip=+\\\\\|\\"+
|
||||
|
||||
" Line continuation is backslash immediately followed by newline.
|
||||
syn match tclLineContinue '\\$'
|
||||
@ -231,6 +232,9 @@ syn case match
|
||||
syn region tclComment start="^\s*\#" skip="\\$" end="$" contains=tclTodo
|
||||
syn region tclComment start=/;\s*\#/hs=s+1 skip="\\$" end="$" contains=tclTodo
|
||||
|
||||
"syn match tclComment /^\s*\#.*$/
|
||||
"syn match tclComment /;\s*\#.*$/hs=s+1
|
||||
|
||||
"syn sync ccomment tclComment
|
||||
|
||||
" Define the default highlighting.
|
||||
@ -252,6 +256,7 @@ if version >= 508 || !exists("did_tcl_syntax_inits")
|
||||
HiLink tclNumber Number
|
||||
HiLink tclError Error
|
||||
HiLink tclCommand Statement
|
||||
HiLink tclProcCommand Type
|
||||
HiLink tclString String
|
||||
HiLink tclComment Comment
|
||||
HiLink tclSpecial Special
|
||||
@ -279,4 +284,4 @@ endif
|
||||
|
||||
let b:current_syntax = "tcl"
|
||||
|
||||
" vim: ts=8 noet
|
||||
" vim: ts=8 noet nolist
|
||||
|
||||
Reference in New Issue
Block a user