Tcl: Provide get-chan-desc in daemonlib

Provide a facility for the daemon main program to get the channel
connection information.

No caller yet.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
---
v2: New patch

diff --git a/tcl/daemonlib.tcl b/tcl/daemonlib.tcl
index d097624fbc7a3b29b80b140cf8528a5f4879296f..55bc385adb3f8c832b8e5ed29edcd2fe301fbd7f 100644 (file)
--- a/tcl/daemonlib.tcl
+++ b/tcl/daemonlib.tcl
@@ -106,6 +106,11 @@ proc puts-chan-desc {chan m} {
     log "$desc $m"
 }
 
+proc get-chan-desc {chan} {
+    upvar \#0 chandesc($chan) desc
+    return $desc
+}
+
 proc must-gets-chan {chan re} {
     if {[gets $chan l] <= 0} { error "NOT $chan $re ?" }
     puts-chan-desc $chan "<< $l"