frommap 370 Bytes
Edit Raw Blame History Permalink



1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24


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