X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=blobdiff_plain;f=pctb%2Fshow-thing.tcl;h=9a5b1d253c91a0d43093551ad4889df95b30f02c;hp=1c55fcdcb8c0d75a441994c91abc998c63fb9b80;hb=ad09cd7cce6584c63c275d7ed1106e66959b3f9d;hpb=7715bdc10f8ea8a0b26715bddb3fb5b973f0d404

diff --git a/pctb/show-thing.tcl b/pctb/show-thing.tcl
index 1c55fcd..9a5b1d2 100755
--- a/pctb/show-thing.tcl
+++ b/pctb/show-thing.tcl
@@ -5,6 +5,8 @@
 #  then on stdin write
 #     one line which is a Tcl list for foolist
 #     the xpm in the format expected
+#  then expect child to raise SIGSTOP or exit 0 or exit nonzero
+#  if child raised SIGSTOP, check database was updated
 
 proc manyset {list args} {
     foreach val $list var $args {
@@ -31,9 +33,11 @@ set rhsmost_max -1
 set f [open text.xpm]
 set o {}
 set y -3
-while {[gets $f l] >= 0} {
+while 1 {
+    if {[gets $f l] < 0} { error "huh? "}
     if {![regexp {^"(.*)",$} $l dummy l]} {
 	append o "$l\n"
+	if {[regexp {^\}\;$} $l]} break
 	continue
     }
     if {$y==-3} {