fix number default capture

Author: msukkari

package.json

@@ -1,6 +1,6 @@
 {
   "name": "@sourcebot/codemirror-lang-tcl",
-  "version": "1.0.11",
+  "version": "1.0.12",
   "description": "CodeMirror 6 language extension for Tcl",
   "type": "module",
   "main": "dist/index.js",

src/syntax.grammar

@@ -376,7 +376,7 @@ CommandSub {
     openKeyword, closeKeyword, readKeyword, writeKeyword, getsKeyword, flushKeyword, seekKeyword, tellKeyword, eofKeyword, fconfigureKeyword, encodingKeyword, binaryKeyword,
     afterKeyword, updateKeyword, vwaitKeyword, traceKeyword,
     eqKeyword, neKeyword, ltKeyword, gtKeyword, leKeyword, geKeyword,
-    word, Number, SimpleWord 
+    Number, word, SimpleWord 
   }
 }
 

src/syntax.js

@@ -0,0 +1,14 @@
+proc check_connection_status {server endpoint handler {timeout 30}} {
+	if {[catch {set connection [socket $server $endpoint]} errorMsg] == 1} {
+		puts "connection failed: '$errorMsg'"
+		{*}$handler 0
+		return
+	}
+
+	fconfigure $connection -buffering none \
+		-translation binary \
+		-encoding binary
+
+	set timeoutId [after [expr {$timeout * 1000}] [list connection_handler "" $connection 0 $handler]]
+	fileevent $connection readable [list connection_handler $timeoutId $connection 1 $handler]
+}