[ Mini Kiebo ]

Server: Windows NT AKFAR_SERVER 10.0 build 26200 (Windows 10) AMD64 Path: D:/xampp/htdocs/simkeu/dummy-old/application/third_party/dompdf/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);
	}
}