|
Server : LiteSpeed System : Linux srv104790275 5.15.0-161-generic #171-Ubuntu SMP Sat Oct 11 08:17:01 UTC 2025 x86_64 User : dewac4139 ( 1077) PHP Version : 8.0.30 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, Directory : /proc/thread-self/root/usr/share/source-highlight/ |
Upload File : |
# 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|pkg_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 + "|${" + $ID + "}"