0byt3m1n1-V2

Path: /home/nlpacade/www/arcaneoverseas.com/application/libraries/Pdf/lib/ttf2ufm/src/scripts/ [ Home ]

File: frommap

#!/usr/bin/perl
#
# A script to convert a Unicode character map to
# the C code
#

sub fromhex
{
	return eval "0x".$_[0];
}

$inmap=0;

while(<>)
{
	if(/^CHARMAP/) {
		$inmap=1;
	} elsif(/^END CHARMAP/) {
		$inmap=0;
	} elsif($inmap
	&& /^\s*\S+\s+\/x([0-9a-fA-F][0-9a-fA-F])\s+\<U([0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F])/) {
		$map[fromhex($1)]=fromhex($2);
	}
}