source: sandbox/2.3-MailArchiver/filemanager/tp/dompdf/lib/ttf2ufm/ttf2ufm-src/scripts/frommap @ 6779

#!/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);
        }
}