From 0b3ee5d34d2b921b67dee2a111604a530910947e Mon Sep 17 00:00:00 2001
From: nwf <nwf@cs.jhu.edu>
Date: Sat, 2 May 2009 01:52:45 -0400
Subject: [PATCH] A simple wrapper around HuffmanCoder for poking at it

Ignore-this: 6305d1d6905b2917e9e89411920431d5

darcs-hash:20090502055245-4d648-94f4d4c036d50c359119e2dd681d929fa0232503.gz
---
 HuffmanCoder_filter.pl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 HuffmanCoder_filter.pl

diff --git a/HuffmanCoder_filter.pl b/HuffmanCoder_filter.pl
new file mode 100644
index 0000000..a2b2055
--- /dev/null
+++ b/HuffmanCoder_filter.pl
@@ -0,0 +1,18 @@
+use warnings;
+use strict;
+#use Data::Dumper;
+
+require Instance::MasterCoder;
+require Instance::HuffmanCoder;
+use Instance::Definitions qw( @debug_code_chars $instance_huffman_table1 
+                    $MESSAGE_START $MESSAGE_END );
+
+my $mastercoder = Instance::MasterCoder->new(\@debug_code_chars, $MESSAGE_START, $MESSAGE_END);
+my $huffmancoder = Instance::HuffmanCoder->new($mastercoder, $instance_huffman_table1);
+
+while(my $in = <>) {
+  chomp $in;
+  my $enc = $huffmancoder->encode($in);
+  # my $dec = $huffmancoder->decode($enc);
+  print $in, " ==> ", $enc, " (", length $enc, ")\n" ; # " ==> ", $dec, "\n";
+}
-- 
2.50.1