chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.web-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
WIP now has most of the ocr parts but does not work yet
[ypp-sc-tools.web-live.git]
/
pctb
/
show-thing.tcl
diff --git
a/pctb/show-thing.tcl
b/pctb/show-thing.tcl
index 1c55fcdcb8c0d75a441994c91abc998c63fb9b80..9a5b1d253c91a0d43093551ad4889df95b30f02c 100755
(executable)
--- 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 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 {
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
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 dummy l]} {
append o "$l\n"
+ if {[regexp {^\}\;$} $l]} break
continue
}
if {$y==-3} {
continue
}
if {$y==-3} {