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
disable yppsc-ocr-resolver test mode
[ypp-sc-tools.web-live.git]
/
pctb
/
yppsc-ocr-resolver
diff --git
a/pctb/yppsc-ocr-resolver
b/pctb/yppsc-ocr-resolver
index 016a95e58bfc90557e370ca7c36728dca32a0531..88c5a41b05e4f59116e174f62ea53c9b058f1524 100755
(executable)
--- a/
pctb/yppsc-ocr-resolver
+++ b/
pctb/yppsc-ocr-resolver
@@
-490,7
+490,10
@@
proc RETURN_RESULT {how what} {
#---------- main progrm ----------
#---------- main progrm ----------
-proc main/test {} {
+proc main/default {} {
+ puts stderr "Do not run this program directly."
+ exit 12
+
global glyphsdone unk_l unk_r unk_contexts
set glyphsdone {
global glyphsdone unk_l unk_r unk_contexts
set glyphsdone {
@@
-511,7
+514,7
@@
proc main/test {} {
draw_glyphsdone
startup_cursor
}
draw_glyphsdone
startup_cursor
}
-proc done/
tes
t {} {
+proc done/
defaul
t {} {
}
proc required {} {
}
proc required {} {
@@
-547,7
+550,7
@@
proc done/automatic {} {
proc debug {m} { }
proc debug {m} { }
-set mainkind
tes
t
+set mainkind
defaul
t
foreach arg $argv {
switch -exact -- $arg {
{--debug} { proc debug {m} { puts stderr "SHOW-THING $m" } }
foreach arg $argv {
switch -exact -- $arg {
{--debug} { proc debug {m} { puts stderr "SHOW-THING $m" } }