chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
WIP identify island; Strip radar island name background
[ypp-sc-tools.db-test.git]
/
pctb
/
yppsc-ocr-resolver
diff --git
a/pctb/yppsc-ocr-resolver
b/pctb/yppsc-ocr-resolver
index 2ba7c01655246745e45679d8d4f59e883318eddb..529fa4d453890fc03a525ccb59f50c358b8c4f47 100755
(executable)
--- a/
pctb/yppsc-ocr-resolver
+++ b/
pctb/yppsc-ocr-resolver
@@
-437,7
+437,7
@@
proc write_database {} {
set ol {}
foreach bm [array names database] {
set ol {}
foreach bm [array names database] {
- append ol [format_database_entry/$reqkind $bm $database($bm)]
+
l
append ol [format_database_entry/$reqkind $bm $database($bm)]
}
foreach o [lsort $ol] {
puts $f $o
}
foreach o [lsort $ol] {
puts $f $o
@@
-468,9
+468,9
@@
proc read_database_entry/pixmap {f def} {
}
set database($im) $def
}
}
set database($im) $def
}
-proc write_database_header/pixmap {f} { }
+proc write_database_header/pixmap {f} {
puts $f ""
}
proc format_database_entry/pixmap {im def} {
proc format_database_entry/pixmap {im def} {
- return "$
im\n$def
"
+ return "$
def\n$im
"
}
#---------- character database read and write ----------
}
#---------- character database read and write ----------
@@
-633,7
+633,9
@@
proc pixmap_ok {} {
colname coldesc rows
manyset [lrange $rows [expr {$pixmap_selrow*2}] end] \
rowname rowdesc
colname coldesc rows
manyset [lrange $rows [expr {$pixmap_selrow*2}] end] \
rowname rowdesc
- set database($ppm) "$colname - $coldesc"
+ set result "$colname - $rowname"
+ debug "UPDATE PIXMAP AS >$result<"
+ set database($ppm) $result
write_database
done/$mainkind
}
write_database
done/$mainkind
}