This file is indexed.

/usr/share/source-highlight/tcl.lang is in libsource-highlight-common 3.1.7-1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
# language definition for TCL

include "script_comment.lang"

include "number.lang"

include "c_string.lang"

include "symbols.lang"

cbracket = "{|}"

keyword = "proc|global|upvar|if|then|else|elseif|for|foreach",
	"break|continue|while|set|eval|case|in|switch",
	"default|exit|error|proc|return|uplevel|loop", 
	"for_array_keys|for_recursive_glob|for_file|unwind_protect",
	"expr|catch|namespace|rename|variable",
	"method|itcl_class|public|protected",
             "append|binary|format|re_syntax|regexp|regsub",
	"scan|string|subst", 
	"concat|join|lappend|lindex|list|llength|lrange",
	"lreplace|lsearch|lset|lsort|split",
	"expr",
	"incr|close|eof|fblocked|fconfigure|fcopy|file",
	"fileevent|flush|gets|open|puts|read|seek", 
	"socket|tell",
	"load|loadTk|package|pgk::create|pgk_mkIndex|source",
	"bgerror|history|info|interp|memory|unknown",
	"enconding|http|msgcat",
	"cd|clock|exec|exit|glob|pid|pwd|time",
	"dde|registry|resource"

vardef ID = '[[:word:]]+'

variable = '\$' + $ID