# 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 {
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} {