mirror of
git://git.sv.gnu.org/nano.git
synced 2024-12-28 13:19:48 +03:00
544351f3be
In many places a carriage return is not valid whitespace and should thus not be colored as such. In some of these places a vertical tab or form feed is maybe valid whitespace, but it would be ugly or even wrong to color them because they are not part of the subsequent comment or keyword. This fixes https://savannah.gnu.org/bugs/?60456.
28 lines
2.0 KiB
Plaintext
28 lines
2.0 KiB
Plaintext
## Syntax highlighting for Tcl and Expect scripts.
|
|
|
|
syntax tcl "\.(tcl|exp)$"
|
|
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|donesearch|exists|get|names|nextelement|set|size|startsearch|statistics|unset)\>"
|
|
color green "\<string (bytelength|compare|equal|first|index|is|last|length|map|match|range|repeat|replace|to|tolower|totitle|toupper|trim|trimleft|trimright|will|wordend|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[[:blank:]]|\{|\}"
|
|
color green "\(|\)|\;|`|\\|\$|<|>|!|=|&|\|"
|
|
color brightyellow ""(\\.|[^"])*"" "'(\\.|[^'])*'"
|
|
color brightred "\$\{?[0-9A-Za-z_!@#$*?-]+\}?"
|
|
|
|
# Trailing whitespace:
|
|
color ,green "[[:space:]]+$"
|
|
|
|
# Comments:
|
|
color cyan "^[[:blank:]]*#.*"
|