chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.main.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e8489d4
)
Make charset approval work again
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Fri, 3 Jul 2009 20:25:19 +0000
(21:25 +0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Fri, 3 Jul 2009 20:25:19 +0000
(21:25 +0100)
pctb/dictionary-manager
patch
|
blob
|
history
diff --git
a/pctb/dictionary-manager
b/pctb/dictionary-manager
index 911cb634edd3d6fa096bfc7c7e8af05e110109c9..10218e0a6acbbd9a12627c0c7ea625a6c084ef18 100755
(executable)
--- a/
pctb/dictionary-manager
+++ b/
pctb/dictionary-manager
@@
-568,7
+568,7
@@
proc maybe_upload_entry {im def} {
if {!$quiet} {
puts stderr \
if {!$quiet} {
puts stderr \
- "Uploaded $dbname
dictionary entry
`$def': $body"
+ "Uploaded $dbname `$def': $body"
}
}
}
}
@@
-889,7
+889,8
@@
set database_magic/char {# ypp-sc-tools pctb font v1}
proc read_database_header/char {f} {
global rows
proc read_database_header/char {f} {
global rows
- if {([db_getsl $f])+0 != $rows} { error "wrong h ?" }
+ set l [db_getsl $f]
+ if {$l+0 != $rows} { error "wrong h $l $rows ?" }
}
proc read_database_entry/char {f context} {
global database
}
proc read_database_entry/char {f context} {
global database
@@
-1102,7
+1103,7
@@
proc dict2_reqkind_rows {dict} {
debug "DICT PIXMAP"
} elseif {[regexp {^(char)([1-9]\d*)$} $dict dummy reqkind rows]} {
debug "DICT CHAR rqk=$reqkind r=$rows."
debug "DICT PIXMAP"
} elseif {[regexp {^(char)([1-9]\d*)$} $dict dummy reqkind rows]} {
debug "DICT CHAR rqk=$reqkind r=$rows."
- return [list $reqkind rows]
+ return [list $reqkind
$
rows]
} else {
error "$dict ?"
}
} else {
error "$dict ?"
}