From e3678b79cc201f61c67f46f558cfdbcb4a999ba3 Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Tue, 16 Mar 2004 13:13:34 +0000 Subject: [PATCH] Get rid of table --- src/charconv.tcl | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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 {} $line s]} { reset_trie set trie(prefix) "${prefix}" - puts "new table $tablenumber" } elseif {[regexp {} $line s]} { dump_trie $ofilehandle } elseif {[regexp {([0-9A-Fa-f]*)} $line s hex ucs]} { @@ -257,7 +256,6 @@ proc readfile {fname ofilehandle prefix omits} { } elseif {[regexp {} $line s]} { if {[lsearch $omits $tablenumber] == -1} { dump_trie $ofilehandle -- 1.7.10.4