Imported Debian patch 0.63.0-6

[hcoop/debian/courier-authlib.git] / unicode / charsetlist.pl

diff --git a/unicode/charsetlist.pl b/unicode/charsetlist.pl
new file mode 100644 (file)
index 0000000..708b21a
--- /dev/null
+++ b/unicode/charsetlist.pl
@@ -0,0 +1,33 @@
+# Copyright 2000-2003 Double Precision, Inc.
+# See COPYING for distribution information.
+#
+# $Id: charsetlist.pl,v 1.2 2003/03/07 00:47:31 mrsam Exp $
+
+my @chset;
+my @structname;
+
+print "#include \"unicode_config.h\"\n";
+print "#include \"unicode.h\"\n";
+while (<>)
+{
+       chomp;
+
+my ($chset, $structname)=split(/[ \t]+/);
+
+       push @chset, $chset;
+       push @structname, $structname;
+}
+
+for ($i=0; $i <= $#structname; $i++)
+{
+       printf("extern const struct unicode_info $structname[$i];\n");
+}
+
+print "const struct unicode_chsetlist unicode_chsetlist[] = {\n";
+
+for ($i=0; $i <= $#structname; $i++)
+{
+       printf("{\"$chset[$i]\", &$structname[$i]},\n");
+}
+
+printf("{0,0}};\n");