source: mainline/contrib/tools/font/bdf2c.pl

#!/usr/bin/perl -w

#
# Copyright (c) 2000 Dmitry Bolkhovityanov
# Copyright (c) 2009 Martin Decky
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
#
# - Redistributions of source code must retain the above copyright
#   notice, this list of conditions and the following disclaimer.
# - Redistributions in binary form must reproduce the above copyright
#   notice, this list of conditions and the following disclaimer in the
#   documentation and/or other materials provided with the distribution.
# - The name of the author may not be used to endorse or promote products
#   derived from this software without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
# OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
# IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#

use strict;

my $skip;

my $width;
my $height;
my $offset_x;
my $offset_y;

my $gwidth;
my $gheight;
my $goffset_x;
my $goffset_y;

my $index;
my @glyphs;
my @chars;

open(BDF, "u_vga16.bdf") or die("Unable to open source font\n");

READHEADER: while (<BDF>) {
        /^FONTBOUNDINGBOX\s/ and do {
                ($skip, $width, $height, $offset_x, $offset_y) = (split);

                die("Font width is not 8px\n") if ($width != 8);
                die("Font height is not 16px\n") if ($height != 16);
        };
        /^CHARS\s/ && last READHEADER;
}

READCHARS: while (<BDF>) {
        /^ENCODING\s+([0-9]+)\s*$/ && do {
                $index = $1;
        };
        /^BBX\s/ && do {
                ($skip, $gwidth, $gheight, $goffset_x, $goffset_y) = (split);
        };
        /^BITMAP/ && do {
                my @glyph = ();
                my $y;

                # Add empty lines at top
                my $empties = $height + $offset_y - $goffset_y - $gheight;

                for ($y = 0; $y < $empties; $y++) {
                        $glyph[$y] = 0;
                }

                # Scan the hex bitmap
                for ($y = $empties; $y < $empties + $gheight; $y++) {
                        $_ = <BDF>;
                        $glyph[$y] = hex(substr($_, 0, 2)) >> $goffset_x;
                }

                # Add empty lines at bottom
                my $fill = $height - $gheight - $empties;
                for ($y = $empties + $gheight; $y < $empties + $gheight + $fill; $y++) {
                        $glyph[$y] = 0;
                }

                if ($index != 0) {
                        $glyphs[$index] = (\@glyph);
                        push(@chars, $index);
                }
        };
        /^ENDFONT/ && last READCHARS;
}

close(BDF);

@chars = sort { $a <=> $b } (@chars);

print "#define FONT_GLYPHS     " . (@chars + 1). "\n";
print "#define FONT_SCANLINES  " . $height . "\n";

print "\n";
print "uint16_t fb_font_glyph(const char32_t ch)\n";
print "{\n";
print "\tif (ch == 0x0000)\n";
print "\t\treturn 0;\n\n";

my $pos = 0;
my $start = -1;
my $start_pos = 0;
my $prev = 0;
for $index (@chars) {
        if ($prev + 1 < $index) {
                if ($start != -1) {
                        if ($start == $prev) {
                                printf "\tif (ch == 0x%.4x)\n", $start;
                                print "\t\treturn " . $start_pos . ";\n";
                        } else {
                                printf "\tif ((ch >= 0x%.4x) && (ch <= 0x%.4x))\n", $start, $prev;
                                print "\t\treturn (ch - " . ($start - $start_pos) . ");\n";
                        }

                        print "\t\n";
                }

                $start = $index;
                $start_pos = $pos;
        }

        $pos++;
        $prev = $index;
}

print "\treturn " . @chars . ";\n";
print "}\n";

print "\n";
print "uint8_t fb_font[FONT_GLYPHS][FONT_SCANLINES] = {";

for $index (@chars) {
        print "\n\t{";

        my $y;
        for ($y = 0; $y < $height; $y++) {
                print ", " if ($y > 0);
                printf "0x%.2x", $glyphs[$index]->[$y];
        }

        print "},";
}

print "\n\t\n\t/* Special glyph for unknown character */\n\t{";
my $y;
for ($y = 0; $y < $height; $y++) {
        print ", " if ($y > 0);
        printf "0x%.2x", $glyphs[63]->[$y];
}

print "}\n};\n";