diff options
Diffstat (limited to 'Build/source/texk/ttf2pt1/scripts/frommap')
-rw-r--r-- | Build/source/texk/ttf2pt1/scripts/frommap | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/Build/source/texk/ttf2pt1/scripts/frommap b/Build/source/texk/ttf2pt1/scripts/frommap new file mode 100644 index 00000000000..f32280c2e5d --- /dev/null +++ b/Build/source/texk/ttf2pt1/scripts/frommap @@ -0,0 +1,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); + } +} |