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

# 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");
Commit	Line	Data
8d138742 CE	1	# Copyright 2000-2003 Double Precision, Inc.
	2	# See COPYING for distribution information.
	3	#
	4	# $Id: charsetlist.pl,v 1.2 2003/03/07 00:47:31 mrsam Exp $
	5
	6	my @chset;
	7	my @structname;
	8
	9	print "#include \"unicode_config.h\"\n";
	10	print "#include \"unicode.h\"\n";
	11	while (<>)
	12	{
	13	chomp;
	14
	15	my ($chset, $structname)=split(/[ \t]+/);
	16
	17	push @chset, $chset;
	18	push @structname, $structname;
	19	}
	20
	21	for ($i=0; $i <= $#structname; $i++)
	22	{
	23	printf("extern const struct unicode_info $structname[$i];\n");
	24	}
	25
	26	print "const struct unicode_chsetlist unicode_chsetlist[] = {\n";
	27
	28	for ($i=0; $i <= $#structname; $i++)
	29	{
	30	printf("{\"$chset[$i]\", &$structname[$i]},\n");
	31	}
	32
	33	printf("{0,0}};\n");