Update tclpro; add a test

install_gadget.py

@@ -208,9 +208,31 @@ GADGETS = {
     'language': 'tcl',
     'repo': {
       'url': 'https://github.com/puremourning/TclProDebug',
-      'ref': 'f5c56b7067661ce84e205765060224076569ae0e', # master 26/10/2019
+      'ref': 'master'
+    },
+    'do': lambda name, root, gadget: InstallTclProDebug( name, root, gadget ),
+    'adapters': {
+      "tclpro": {
+        "name": "tclpro",
+        "type": "tclpro",
+        "command": [
+          "${gadgetDir}/tclpro/bin/debugadapter"
+        ],
+        "attach": {
+          "pidSelect": "none"
+        },
+        "configuration": {
+          "target": "${file}",
+          "args": [ "*${args}" ],
+          "tclsh": "tclsh",
+          "cwd": "${workspaceRoot}",
+          "extensionDirs": [
+            "${workspaceRoot}/.tclpro/extensions",
+            "${HOME}/.tclpro/extensions",
+          ]
+        }
+      }
     },
-    'do': lambda name, root, gadget: InstallTclProDebug( name, root, gadget )
   },
   'netcoredbg': {
     'language': 'csharp',

support/test/tcl/.tclpro/extensions/test.pdx

@@ -0,0 +1,5 @@
+instrument::addExtension 2.0 {test}
+
+instrument::addCommand Wrap { parseBody }
+
+# vim: ft=tcl

support/test/tcl/.vimspector.json

@@ -0,0 +1,11 @@
+{
+  "configurations": {
+    "Run Current Script": {
+      "adapter": "tclpro",
+      "configuration": {
+        "request": "launch",
+        "target": "${file}"
+      }
+    }
+  }
+}

support/test/tcl/test

@@ -0,0 +1,28 @@
+#!/usr/bin/env tclsh
+
+set SCALAR g
+array set ARRAY {key1 value1 key2 value2}
+
+proc Wrap { body } {
+  uplevel 1 $body
+}
+
+proc Main {} {
+  global SCALAR
+  set prefix "VAR: "
+  Wrap {
+    puts $SCALAR
+    global ARRAY
+    puts [array names ARRAY]
+
+    set vars [list]
+    foreach n [array names ::env] {
+      set prefix "ENVVAR: $n = "
+      puts "$prefix $::env($n)"
+      lappend vars $n
+    }
+  }
+  puts $vars
+}
+
+Main