source: pmb4.2/trunk/fuentes/pmb/classes/font/ttf2ufm/ttf2ufm-src/scripts/frommap @ 815

Last change on this file since 815 was 815, checked in by jrpelegrina, 4 years ago

Initial release of pmb 4.2

  • Property svn:executable set to *
File size: 370 bytes
Line 
1#!/usr/bin/perl
2#
3# A script to convert a Unicode character map to
4# the C code
5#
6
7sub fromhex
8{
9        return eval "0x".$_[0];
10}
11
12$inmap=0;
13
14while(<>)
15{
16        if(/^CHARMAP/) {
17                $inmap=1;
18        } elsif(/^END CHARMAP/) {
19                $inmap=0;
20        } elsif($inmap
21        && /^\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])/) {
22                $map[fromhex($1)]=fromhex($2);
23        }
24}
Note: See TracBrowser for help on using the repository browser.