nano/syntax/tcl.nanorc

## 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:]]*#.*"
Comment and punctuation tweaks in the sample nanorc files. git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@4598 35c25a1d-7b9e-4130-9fde-d3aeb78583b8 2014-02-23 20:07:44 +04:00			`## Syntax highlighting for Tcl files.`

syntaxes: remove quotes from each syntax name, and color it differently The different color will make the name stand out, as it should, instead of looking the same as all the regex strings. 2018-02-07 13:25:46 +03:00			`syntax tcl "\.tcl$"`
syntax: adjust the magic strings for the changes since file-5.10 Since file-5.10 (end of 2011), libmagic identifies a C file in most cases as "C source" instead of as "C program". Nano's magic strings for some other files didn't match any more what file-5.32 currently produces, either. So, they have been adjusted, new ones added, and old ones deleted. This fixes https://savannah.gnu.org/bugs/?52445. 2017-11-19 13:10:53 +03:00			`magic "Tcl(/Tk)? script"`
new feature: comment/uncomment current line or selected lines This allows for commenting or uncommenting a line or a bunch of lines with a single keystroke (default binding: M-3). The characters used for commenting/uncommenting are specified by the active syntax file. Reviewed-by: Benno Schulenberg <bensberg@justemail.net> Signed-off-by: Mike Scalora <mike@scalora.org> 2016-05-25 23:13:50 +03:00			`comment "#"`
Add Mike F's latest patches for 2.1.0 and new syntax configs for tcl, php and gentoo. git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@4242 35c25a1d-7b9e-4130-9fde-d3aeb78583b8 2008-03-20 07:45:55 +03:00
Comment and punctuation tweaks in the sample nanorc files. git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@4598 35c25a1d-7b9e-4130-9fde-d3aeb78583b8 2014-02-23 20:07:44 +04:00			`# Standard Tcl [info commands]:`
Add Mike F's latest patches for 2.1.0 and new syntax configs for tcl, php and gentoo. git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@4242 35c25a1d-7b9e-4130-9fde-d3aeb78583b8 2008-03-20 07:45:55 +03:00			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)\>"
Comment and punctuation tweaks in the sample nanorc files. git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@4598 35c25a1d-7b9e-4130-9fde-d3aeb78583b8 2014-02-23 20:07:44 +04:00			`# Basic Tcl subcommands:`
Add Mike F's latest patches for 2.1.0 and new syntax configs for tcl, php and gentoo. git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@4242 35c25a1d-7b9e-4130-9fde-d3aeb78583b8 2008-03-20 07:45:55 +03:00			`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)\>"`
Comment and punctuation tweaks in the sample nanorc files. git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@4598 35c25a1d-7b9e-4130-9fde-d3aeb78583b8 2014-02-23 20:07:44 +04:00			`# Extended TclX [info commands]:`
Add Mike F's latest patches for 2.1.0 and new syntax configs for tcl, php and gentoo. git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@4242 35c25a1d-7b9e-4130-9fde-d3aeb78583b8 2008-03-20 07:45:55 +03:00			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)\>"
Comment and punctuation tweaks in the sample nanorc files. git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@4598 35c25a1d-7b9e-4130-9fde-d3aeb78583b8 2014-02-23 20:07:44 +04:00			`# Syntax:`
Add Mike F's latest patches for 2.1.0 and new syntax configs for tcl, php and gentoo. git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@4242 35c25a1d-7b9e-4130-9fde-d3aeb78583b8 2008-03-20 07:45:55 +03:00			`color brightblue "proc[[:space:]]" "(\{\|\})"`
			color green "(\(\|\)\|\;\|`\|\\\|\$\|<\|>\|!\|=\|&\|\\|)"
			`color brightyellow ""(\\.\|[^"])"" "'(\\.\|[^'])'"`
			`icolor brightred "\$\{?[0-9A-Z_!@#$*?-]+\}?"`
			`color ,green "[[:space:]]+$"`
2009-08-17 Mike Frysinger <vapier@gentoo.org> * doc/syntax/(gentoo\|sh\|tcl).nanorc: Fix problems with empty regexes on POSIX. Fixes Savannah bug 27175. git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@4403 35c25a1d-7b9e-4130-9fde-d3aeb78583b8 2009-08-18 06:55:22 +04:00			`color ,magenta "^[[:space:]]#."`