From: Adam Dickmeiss <adam@indexdata.dk>
Date: Tue, 16 Mar 2004 13:13:34 +0000 (+0000)
Subject: Get rid of table
X-Git-Tag: YAZ.2.0.16.debian.1~3
X-Git-Url: http://git.indexdata.com/?p=yaz-moved-to-github.git;a=commitdiff_plain;h=e3678b79cc201f61c67f46f558cfdbcb4a999ba3

Get rid of table
---

diff --git a/src/charconv.tcl b/src/charconv.tcl
index 8ce0768..5ad4be1 100755
--- a/src/charconv.tcl
+++ b/src/charconv.tcl
@@ -2,7 +2,7 @@
 # the next line restats using tclsh \
 exec tclsh "$0" "$@"
 #
-# $Id: charconv.tcl,v 1.3 2004-03-16 13:12:42 adam Exp $
+# $Id: charconv.tcl,v 1.4 2004-03-16 13:13:34 adam Exp $
 
 proc usage {} {
     puts {charconv.tcl: [-p prefix] [-s split] [-o ofile] file ... }
@@ -248,7 +248,6 @@ proc readfile {fname ofilehandle prefix omits} {
 	if {[regexp {<entitymap>} $line s]} {
 	    reset_trie
 	    set trie(prefix) "${prefix}"
-	    puts "new table $tablenumber"
 	} elseif {[regexp {</entitymap>} $line s]} {
 	    dump_trie $ofilehandle
 	} elseif {[regexp {<character hex="([^\"]*)".*<unientity>([0-9A-Fa-f]*)</unientity>} $line s hex ucs]} {
@@ -257,7 +256,6 @@ proc readfile {fname ofilehandle prefix omits} {
 	} elseif {[regexp {<codeTable number="([0-9]+)"} $line s tablenumber]} {
 	    reset_trie
 	    set trie(prefix) "${prefix}_$tablenumber"
-	    puts "new table $tablenumber"
 	} elseif {[regexp {</codeTable>} $line s]} {
 	    if {[lsearch $omits $tablenumber] == -1} {
 		dump_trie $ofilehandle