source:
sandbox/2.3-MailArchiver/filemanager/tp/dompdf/lib/ttf2ufm/ttf2ufm-src/scripts/frommap
@
6779
Revision 6779, 370 bytes checked in by rafaelraymundo, 12 years ago (diff) |
---|
Line | |
---|---|
1 | #!/usr/bin/perl |
2 | # |
3 | # A script to convert a Unicode character map to |
4 | # the C code |
5 | # |
6 | |
7 | sub fromhex |
8 | { |
9 | return eval "0x".$_[0]; |
10 | } |
11 | |
12 | $inmap=0; |
13 | |
14 | while(<>) |
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.