summaryrefslogtreecommitdiff
path: root/fonts/utilities/ttf2pt1/scripts/frommap
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/utilities/ttf2pt1/scripts/frommap')
-rwxr-xr-xfonts/utilities/ttf2pt1/scripts/frommap24
1 files changed, 24 insertions, 0 deletions
diff --git a/fonts/utilities/ttf2pt1/scripts/frommap b/fonts/utilities/ttf2pt1/scripts/frommap
new file mode 100755
index 0000000000..f32280c2e5
--- /dev/null
+++ b/fonts/utilities/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);
+ }
+}