From ab4cae65f423ecaff16345051007c7002cba797b Mon Sep 17 00:00:00 2001
From: Pacien TRAN-GIRARD
Date: Mon, 12 May 2014 22:18:02 +0200
Subject: Update prettify

---
 js/prettify/lang-tcl.js | 3 +++
 1 file changed, 3 insertions(+)
 create mode 100644 js/prettify/lang-tcl.js

(limited to 'js/prettify/lang-tcl.js')

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"]);
-- 
cgit v1.2.3