1 files changed, 3 insertions, 0 deletions
diff --git a/js/prettify/lang-tcl.js b/js/prettify/lang-tcl.js
new file mode 100644
index 0000000..490f562
--- /dev/null
+++ b/js/prettify/lang-tcl.js
@@ -0,0 +1,3 @@
+var a=null;
+PR.registerLangHandler(PR.createSimpleLexer([["opn",/^{+/,a,"{"],["clo",/^}+/,a,"}"],["com",/^#[^\n\r]*/,a,"#"],["pln",/^[\t\n\r \xa0]+/,a,"\t\n\r \u00a0"],["str",/^"(?:[^"\\]|\\[\S\s])*(?:"|$)/,a,'"']],[["kwd",/^(?:after|append|apply|array|break|case|catch|continue|error|eval|exec|exit|expr|for|foreach|if|incr|info|proc|return|set|switch|trace|uplevel|upvar|while)\b/,a],["lit",/^[+-]?(?:[#0]x[\da-f]+|\d+\/\d+|(?:\.\d+|\d+(?:\.\d*)?)(?:[de][+-]?\d+)?)/i],["lit",
+/^'(?:-*(?:\w|\\[!-~])(?:[\w-]*|\\[!-~])[!=?]?)?/],["pln",/^-*(?:[_a-z]|\\[!-~])(?:[\w-]*|\\[!-~])[!=?]?/i],["pun",/^[^\w\t\n\r "'-);\\\xa0]+/]]),["tcl"]);

diff --git a/js/prettify/lang-tcl.js b/js/prettify/lang-tcl.js new file mode 100644 index 0000000..490f562 --- /dev/null +++ b/js/prettify/lang-tcl.js
@@ -0,0 +1,3 @@
	1	var a=null;
	2	PR.registerLangHandler(PR.createSimpleLexer([["opn",/^{+/,a,"{"],["clo",/^}+/,a,"}"],["com",/^#[^\n\r]/,a,"#"],["pln",/^[\t\n\r \xa0]+/,a,"\t\n\r \u00a0"],["str",/^"(?:[^"\\]\|\\[\S\s])(?:"\|$)/,a,'"']],[["kwd",/^(?:after\|append\|apply\|array\|break\|case\|catch\|continue\|error\|eval\|exec\|exit\|expr\|for\|foreach\|if\|incr\|info\|proc\|return\|set\|switch\|trace\|uplevel\|upvar\|while)\b/,a],["lit",/^[+-]?(?:[#0]x[\da-f]+\|\d+\/\d+\|(?:\.\d+\|\d+(?:\.\d*)?)(?:[de][+-]?\d+)?)/i],["lit",
	3	/^'(?:-(?:\w\|\\[!-~])(?:[\w-]\|\\[!-~])[!=?]?)?/],["pln",/^-(?:[_a-z]\|\\[!-~])(?:[\w-]\|\\[!-~])[!=?]?/i],["pun",/^[^\w\t\n\r "'-);\\\xa0]+/]]),["tcl"]);