nanorc/tcl.nanorc

syntax "TCL" "\.tcl$"
header "^#!.*/(env +)?tclsh( |$)"

## Standard Tcl [info commands]
color cyan "\<(after|append|array|auto_execok|auto_import|auto_load|auto_load_index|auto_qualify|binary|break|case|catch|cd|clock|close|concat|continue|else|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 sub commands
color cyan "\<(array anymore|array donesearch|array exists|array get|array names|array nextelement|array set|array size|array startsearch|array statistics|array unset)\>"
color cyan "\<(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 cyan "\<(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)\>"
## Function declaration
color brightblue "proc[[:space:]]" "(\{|\})"
## Syntax
color green "(\(|\)|\;|`|\\|\$|<|>|!|=|&|\|)"
## Numbers
color brightyellow "\<[0-9]+(\.[0-9]+)?\>"
## Strings
color yellow ""(\\.|[^"])*"" "'(\\.|[^'])*'"
## Variables
icolor brightred "\$\{?[0-9A-Z_!@#$*?-]+\}?"
## Comments
color magenta "(^|;)[[:space:]]*#.*"
## Trailing whitespace
color ,green "[[:space:]]+$"
Rename syntax definitions Duplicate syntax definition names may cause problems. Since nano comes with predefined all-lowercase syntax definitions, we use uppercase letters everywhere to reduce the risk of future conflicts 2016-03-02 20:49:58 +01:00			`syntax "TCL" "\.tcl$"`
Add tcl syntax highlighting from https://code.google.com/p/nanosyntax/ (lightly altered) 2014-08-03 00:18:46 +02:00			`header "^#!.*/(env +)?tclsh( \|$)"`

			`## Standard Tcl [info commands]`
			color cyan "\<(after\|append\|array\|auto_execok\|auto_import\|auto_load\|auto_load_index\|auto_qualify\|binary\|break\|case\|catch\|cd\|clock\|close\|concat\|continue\|else\|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 sub commands`
			`color cyan "\<(array anymore\|array donesearch\|array exists\|array get\|array names\|array nextelement\|array set\|array size\|array startsearch\|array statistics\|array unset)\>"`
			`color cyan "\<(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 cyan "\<(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)\>"
			`## Function declaration`
			`color brightblue "proc[[:space:]]" "(\{\|\})"`
			`## Syntax`
			color green "(\(\|\)\|\;\|`\|\\\|\$\|<\|>\|!\|=\|&\|\\|)"
			`## Numbers`
			`color brightyellow "\<[0-9]+(\.[0-9]+)?\>"`
			`## Strings`
			`color yellow ""(\\.\|[^"])"" "'(\\.\|[^'])'"`
			`## Variables`
			`icolor brightred "\$\{?[0-9A-Z_!@#$*?-]+\}?"`
			`## Comments`
			`color magenta "(^\|;)[[:space:]]#."`
			`## Trailing whitespace`
For conformity, color trailing whitespace green, not blue 2016-12-06 22:43:53 +01:00			`color ,green "[[:space:]]+$"`