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