compatibility version check

diff --git a/pctb/ocr.c b/pctb/ocr.c
index 7f3be26a0eaee8c90906129c674d56514d74ad54..df4aacfbb05e299e09642f66115abfbe0bd8b584 100644 (file)
--- a/pctb/ocr.c
+++ b/pctb/ocr.c
@@ -110,7 +110,8 @@ static void callout_unknown(int w, int h, Pixcol cols[],
       /* we know donepipe[1] is >= 4 and we have dealt with all the others
        * so we aren't in any danger of overwriting some other fd 4: */
       r= dup2(donepipe[1],4); eassert(r==4);
-      execlp("./show-thing.tcl", "./show-thing.tcl","--automatic",(char*)0);
+      execlp("./show-thing.tcl", "./show-thing.tcl",
+            "--automatic","1",(char*)0);
       eassert(!"execlp failed");
     }
     r= close(jobpipe[0]); eassert(!r);

diff --git a/pctb/show-thing.tcl b/pctb/show-thing.tcl
index be07d2d50fa3f0b5c063430a26826df94238ca87..0d2ec0c94ba202998858e3e539dc3673c3020bbf 100755 (executable)
--- a/pctb/show-thing.tcl
+++ b/pctb/show-thing.tcl
@@ -465,9 +465,10 @@ proc done/automatic {} {
 }
 
 switch -exact -- $argv {
-    {}           { set mainkind test }
-    --automatic  { set mainkind automatic }
-    default      { error "huh $argv ?" }
+    {}               { set mainkind test }
+    {--automatic 1}  { set mainkind automatic }
+    {--automatic*}   { error "incompatible versions - install problem" }
+    default          { error "huh $argv ?" }
 }
 
 read_database