Revision 3019,
370 bytes
checked in by amuller, 14 years ago
(diff) |
Ticket #1135 - Corrigindo CSS e adicionando filemanager
|
Rev | Line | |
---|
[3019] | 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.