Initial commit

3 files changed, 351 insertions, 0 deletions

diff --git a/font/tools/any2ucs.pl b/font/tools/any2ucs.pl
new file mode 100644
index 0000000..64fa044
--- /dev/null
+++ b/font/tools/any2ucs.pl
@@ -0,0 +1,236 @@
+#!/usr/bin/perl
+#
+# any2ucs.pl
+#
+# This Perl script allows you to generate an ISO10646-1 encoded
+# BDF font from another BDF font in any possible encoding. It was
+# based on the ucs2any.pl script by Markus Kuhn.
+
+use strict 'subs';
+
+sub is_control {
+    my ($source) = @_;
+
+    return (($source >= 0x00 && $source <= 0x1f) ||
+            ($source >= 0x7f && $source <= 0x9f));
+}
+
+# calculate the bounding box that covers both provided bounding boxes
+sub combine_bbx {
+    my ($awidth, $aheight, $axoff, $ayoff,
+        $cwidth, $cheight, $cxoff, $cyoff) = @_;
+
+    if ($axoff < $cxoff) {
+        $cwidth += $cxoff - $axoff;
+        $cxoff = $axoff;
+    }
+    if ($ayoff < $cyoff) {
+        $cheight += $cyoff - $ayoff;
+        $cyoff = $ayoff;
+    }
+    if ($awidth + $axoff > $cwidth + $cxoff) {
+        $cwidth = $awidth + $axoff - $cxoff;
+    }
+    if ($aheight + $ayoff > $cheight + $cyoff) {
+        $cheight = $aheight + $ayoff - $cyoff;
+    }
+
+    return ($cwidth, $cheight, $cxoff, $cyoff);
+}
+
+print <<End if $#ARGV < 0;
+
+Usage: any2ucs.pl <source-name> <mapping-file>
+
+where
+
+   <source-name>        is the name of the source BDF file
+
+   <mapping-file>       is the name of a character set table like those on
+                        <ftp://ftp.unicode.org/Public/MAPPINGS/>
+
+Example:
+
+   any2ucs.pl 6x13.bdf 8859-7.TXT
+
+will generate the file 6x13-iso10646-1.bdf
+from the iso-8859-7 encoded file 6x13.bdf
+
+End
+
+exit if $#ARGV < 0;
+
+# open and read source file
+$fsource = $ARGV[0];
+open(FSOURCE,  "<$fsource")  || die ("Can't read file '$fsource': $!\n");
+
+# read header
+$properties = 0;
+$default_char = 0;
+while (<FSOURCE>) {
+    last if /^CHARS\s/;
+    if (/^STARTFONT/) {
+        $startfont = $_;
+    } elsif (/^_XMBDFED_INFO\s/ || /^_XFREE86_GLYPH_RANGES\s/) {
+        $properties--;
+    } elsif (/DEFAULT_CHAR\s+([0-9]+)\s*$/) {
+        $default_char = $1;
+        $header .= "DEFAULT_CHAR 0\n";
+    } else {
+        if (/^STARTPROPERTIES\s+(\d+)/) {
+            $properties = $1;
+        } elsif (/^FONT\s+(.*-([^-]*-\S*))\s*$/) {
+            if ($2 eq "ISO10646-1") {
+                die("Font seems to already be ISO10646-1!\n");
+            };
+        } elsif (/^CHARSET_REGISTRY\s+"(.*)"\s*$/) {
+            if ($1 eq "ISO10646") {
+                die("Font seems to already be ISO10646-1!\n");
+            };
+            $registry = $1;
+        } elsif (/^CHARSET_ENCODING\s+"(.*)"\s*$/) {
+            $encoding = $1;
+        } elsif (/^SLANT\s+"(.*)"\s*$/) {
+            $slant = $1;
+            $slant =~ tr/a-z/A-Z/;
+        } elsif (/^SPACING\s+"(.*)"\s*$/) {
+            $spacing = $1;
+            $spacing =~ tr/a-z/A-Z/;
+        }
+        s/^COMMENT\s+\"(.*)\"$/COMMENT $1/;
+        s/^COMMENT\s+\$[I]d: (.*)\$\s*$/COMMENT Derived from $1\n/;
+        $header .= $_;
+    }
+}
+
+die ("No STARTFONT line found in '$fsource'!\n") unless $startfont;
+die ("No CHARSET_REGISTRY line found in '$fsource'!\n") unless defined($registry);
+die ("No CHARSET_ENCODING line found in '$fsource'!\n") unless defined($encoding);
+$header =~ s/\nSTARTPROPERTIES\s+(\d+)\n/\nSTARTPROPERTIES $properties\n/;
+
+# read characters
+while (<FSOURCE>) {
+    if (/^STARTCHAR/) {
+        $sc = $_;
+        $code = -1;
+    } elsif (/^ENCODING\s+(-?\d+)/) {
+        $code = $1;
+        $startchar{$code} = $sc;
+        $char{$code} = "";
+    } elsif (/^ENDFONT$/) {
+        $code = -1;
+        $sc = "STARTCHAR ???\n";
+    } else {
+        $char{$code} .= $_;
+        if (/^ENDCHAR$/) {
+            $code = -1;
+            $sc = "STARTCHAR ???\n";
+        }
+    }
+}
+close FSOURCE;
+delete $char{-1};
+
+shift @ARGV;
+
+$fmap = $ARGV[0];
+
+# open and read source file
+open(FMAP,  "<$fmap")
+    || die ("Can't read mapping file '$fmap': $!\n");
+%map = ();
+while (<FMAP>) {
+    next if /^\s*(\#.*)?$/;
+    if (/^\s*(0[xX])?([0-9A-Fa-f]{4}|[0-9A-Fa-f]{2})\s+(0[xX]|U\+|U-)?([0-9A-Fa-f]{4})/) {
+        $target = hex($4);
+        $source = hex($2);
+        if (!is_control($source)) {
+            if ($startchar{$source}) {
+                $map{$target} = $source;
+            } else {
+                printf STDERR "No glyph for character 0x%04x " .
+                    "(U+%04X) available.\n", $source, $target;
+            }
+        }
+    } else {
+        printf STDERR "Unrecognized line in '$fmap':\n$_";
+    }
+}
+close FMAP;
+
+# add default character
+if (!(defined($map{0}) && $startchar{$map{0}})) {
+    if (defined($default_char) && $startchar{$default_char}) {
+        $map{0} = $default_char;
+        $startchar{$default_char} = "STARTCHAR defaultchar\n";
+    } else {
+        printf STDERR "No default character defined.\n";
+    }
+}
+
+# list of characters that will be written out
+@chars = sort {$a <=> $b} keys(%map);
+if ($#chars < 0) {
+    print STDERR "No characters found for $registry-$encoding.\n";
+};
+
+# find overall font bounding box
+undef @bbx;
+for $target (@chars) {
+    $source = $map{$target};
+    if ($char{$source} =~ /^BBX\s+(\d+)\s+(\d+)\s+(-?\d+)\s+(-?\d+)\s*$/m) {
+        if (@bbx) {
+            @bbx = combine_bbx(@bbx, $1, $2, $3, $4);
+        } else {
+            @bbx = ($1, $2, $3, $4);
+        }
+    } else {
+        printf STDERR "Warning: No BBX found for 0x%04x!\n", $source;
+    }
+}
+
+# generate output file name
+if ($fsource =~ /^(.*).bdf$/i) {
+    $fout = $1 . "-iso10646-1.bdf";
+} else {
+    $fout = $fsource . "-iso10646-1";
+}
+$fout =~ s/^(.*\/)?([^\/]+)$/$2/;  # remove path prefix
+
+# write new BDF file
+printf STDERR "Writing %d characters into file '$fout'.\n", $#chars + 1;
+open(FOUT,  ">$fout")
+    || die ("Can't write file '$fout': $!\n");
+
+print FOUT $startfont;
+print FOUT "COMMENT AUTOMATICALLY GENERATED FILE. DO NOT EDIT!\n";
+print FOUT "COMMENT Generated with 'any2ucs.pl $fsource $fmap'\n";
+print FOUT "COMMENT from a(n) $registry-$encoding encoded source BDF font.\n";
+print FOUT "COMMENT any2ucs.pl is based on ucs2any.pl by Markus Kuhn <mkuhn\@acm.org>, 2000.\n";
+$newheader = $header;
+$newheader =~
+    s/^FONTBOUNDINGBOX\s+.*$/FONTBOUNDINGBOX @bbx/m
+        || print STDERR "Warning: FONTBOUNDINGBOX not fixed!\n";
+$newheader =~
+    s/^FONT\s+(.*)-\w+-\w+\s*$/FONT $1-ISO10646-1/m
+        || print STDERR "Warning: FONT property not fixed!\n";
+$newheader =~
+    s/^CHARSET_REGISTRY\s+.*$/CHARSET_REGISTRY "ISO10646"/m
+        || print STDERR "Warning: CHARSET_REGISTRY not fixed!\n";
+$newheader =~
+    s/^CHARSET_ENCODING\s+.*$/CHARSET_ENCODING "1"/m
+        || print STDERR "Warning: CHARSET_ENCODING not fixed!\n";
+print FOUT $newheader;
+printf FOUT "CHARS %d\n", $#chars + 1;
+
+# Write characters
+for $target (@chars) {
+    $source = $map{$target};
+    print FOUT $startchar{$source};
+    print FOUT "ENCODING $target\n";
+    print FOUT $char{$source};
+}
+
+print FOUT "ENDFONT\n";
+
+close(FOUT);
diff --git a/font/tools/bdf2c.awk b/font/tools/bdf2c.awk
new file mode 100755
index 0000000..0f58167
--- /dev/null
+++ b/font/tools/bdf2c.awk
@@ -0,0 +1,86 @@
+#!/bin/gawk -f
+# Converts bdf to nice C header
+# Glyphs should all have the same height, but width can vary
+#
+# Put this in "font.h":
+#
+# #pragma once
+#
+# #include <stdint.h>
+# #include <stddef.h>
+#
+# struct glyph {
+#    size_t offset;
+#    uint8_t width;
+# };
+#
+# struct font {
+#    const struct glyph *ucs2glyph;
+#    const uint8_t *data;
+#    size_t max_ucs;
+#    uint8_t height;
+# };
+
+BEGIN {
+   bbx = 0
+   offset = 0
+   max_ucs = 0
+   encoding = 0
+   font = "unnamed"
+   print "#pragma once"
+   print "#include \"font.h\""
+}
+
+/^FONT / {
+   gsub(/-/, "_", $2)
+   font = $2
+}
+
+/^ENCODING / {
+   idx2ucs[encoding] = $2
+   idx2ucs_offset[encoding++] = offset
+   if ($2 > max_ucs)
+      max_ucs = $2
+}
+
+/^BBX / {
+   widths[bbx++] = $2
+   height = $3
+}
+
+/^ENDCHAR/ {
+   bitmap = 0
+}
+
+bitmap {
+   for (i = 1; i <= NF; ++i) {
+      for (s = 0; s < length($1); s += 2) {
+         data = data "0x" substr($1, s, 2) ","
+         ++offset
+      }
+   }
+}
+
+/^BITMAP/ {
+   bitmap = 1
+}
+
+END {
+   print "static const uint8_t " font "_data[] = {"
+   filter = "awk -F',' -v OFS=',' -v n=24 '{for (i=n+1; i<=NF; i+=n) $i = \"\\n\" $i; print}'"
+   print data | filter
+   close(filter)
+   print "};"
+
+   print "static const struct glyph " font "_glyph[] = {"
+   for (i in idx2ucs)
+   print "[" idx2ucs[i] "] = { .offset = " idx2ucs_offset[i] ", .width = " widths[i] " },"
+   print "};"
+
+   print "static const struct font " font " = {"
+   print ".ucs2glyph = " font "_glyph,"
+   print ".data = " font "_data,"
+   print ".max_ucs = " max_ucs ","
+   print ".height = " height
+   print "};"
+}
diff --git a/font/tools/mergebdf b/font/tools/mergebdf
new file mode 100755
index 0000000..86c75f5
--- /dev/null
+++ b/font/tools/mergebdf
@@ -0,0 +1,29 @@
+#!/usr/bin/perl -w
+
+if ($#ARGV < 0) {
+    die "Usage: mergebdf font1.bdf ... > newfont.bdf\n";
+}
+
+foreach $font (@ARGV) {
+    open(F, "<$font") || die;
+    for (;;) {
+	while (defined($_ = <F>) && !/^STARTCHAR /) {
+	    if (!$donehead) { print; }
+	}
+	if (!defined($_)) { last; }
+	$donehead = 1;
+	$c = $_;
+	undef $e;
+	while (($_ = <F>) !~ /^ENDCHAR/) {
+	    if (/^ENCODING (\d+)$/) { $e = $1; }
+	    $c .= $_;
+	}
+	$c .= $_;
+	if (!$char{$e}) {
+	    $char{$e} = 1;
+	    print $c;
+	}
+    }
+    close(F);
+}
+print "ENDFONT\n";