mirror of
git://git.sv.gnu.org/nano.git
synced 2024-11-26 22:59:38 +03:00
3e1fc6385b
The different color will make the name stand out, as it should, instead of looking the same as all the regex strings.
21 lines
2.1 KiB
Plaintext
21 lines
2.1 KiB
Plaintext
## Syntax highlighting for Tcl files.
|
|
|
|
syntax tcl "\.tcl$"
|
|
magic "Tcl(/Tk)? script"
|
|
comment "#"
|
|
|
|
# Standard Tcl [info commands]:
|
|
color green "\<(after|append|array|auto_execok|auto_import|auto_load|auto_load_index|auto_qualify|binary|break|case|catch|cd|clock|close|concat|continue|encoding|eof|error|eval|exec|exit|expr|fblocked|fconfigure|fcopy|file|fileevent|flush|for|foreach|format|gets|glob|global|history|if|incr|info|interp|join|lappend|lindex|linsert|list|llength|load|lrange|lreplace|lsearch|lset|lsort|namespace|open|package|pid|puts|pwd|read|regexp|regsub|rename|return|scan|seek|set|socket|source|split|string|subst|switch|tclLog|tell|time|trace|unknown|unset|update|uplevel|upvar|variable|vwait|while)\>"
|
|
# Basic Tcl subcommands:
|
|
color green "\<(array anymore|array donesearch|array exists|array get|array names|array nextelement|array set|array size|array startsearch|array statistics|array unset)\>"
|
|
color green "\<(string bytelength|string compare|string equal|string first|string index|string is|string last|string length|string map|string match|string range|string repeat|string replace|string to|string tolower|string totitle|string toupper|string trim|string trimleft|string trimright|string will|string wordend|string wordstart)\>"
|
|
# Extended TclX [info commands]:
|
|
color green "\<(alarm|auto_load_pkg|bsearch|catclose|catgets|catopen|ccollate|cconcat|cequal|chgrp|chmod|chown|chroot|cindex|clength|cmdtrace|commandloop|crange|csubstr|ctoken|ctype|dup|echo|execl|fcntl|flock|fork|fstat|ftruncate|funlock|host_info|id|infox|keyldel|keylget|keylkeys|keylset|kill|lassign|lcontain|lempty|lgets|link|lmatch|loadlibindex|loop|lvarcat|lvarpop|lvarpush|max|min|nice|pipe|profile|random|readdir|replicate|scancontext|scanfile|scanmatch|select|server_accept|server_create|signal|sleep|sync|system|tclx_findinit|tclx_fork|tclx_load_tndxs|tclx_sleep|tclx_system|tclx_wait|times|translit|try_eval|umask|wait)\>"
|
|
# Syntax:
|
|
color brightblue "proc[[:space:]]" "(\{|\})"
|
|
color green "(\(|\)|\;|`|\\|\$|<|>|!|=|&|\|)"
|
|
color brightyellow ""(\\.|[^"])*"" "'(\\.|[^'])*'"
|
|
icolor brightred "\$\{?[0-9A-Z_!@#$*?-]+\}?"
|
|
color ,green "[[:space:]]+$"
|
|
color ,magenta "^[[:space:]]*#.*"
|