Return-Path: Received: (majordomo@vger.kernel.org) by vger.kernel.org via listexpand id ; Sun, 6 Oct 2002 13:25:13 -0400 Received: (majordomo@vger.kernel.org) by vger.kernel.org id ; Sun, 6 Oct 2002 13:25:11 -0400 Received: from lightning.swansea.linux.org.uk ([194.168.151.1]:56580 "EHLO the-village.bc.nu") by vger.kernel.org with ESMTP id ; Sun, 6 Oct 2002 13:22:03 -0400 Subject: PATCH: 2.5.40 add the mini 4x6 font from uclinux To: torvalds@transmeta.com, linux-kernel@vger.kernel.org Date: Sun, 6 Oct 2002 18:18:21 +0100 (BST) X-Mailer: ELM [version 2.5 PL6] MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Message-Id: From: Alan Cox Sender: linux-kernel-owner@vger.kernel.org X-Mailing-List: linux-kernel@vger.kernel.org Content-Length: 60512 Lines: 2207 This stands alone from UCLinux and is independant of whether it ever merges with the mainstream. Its rather handy for getting an entire oops onto a PDA screen diff -u --new-file --recursive --exclude-from /usr/src/exclude linux.2.5.40/drivers/video/Config.in linux.2.5.40-ac5/drivers/video/Config.in --- linux.2.5.40/drivers/video/Config.in 2002-10-02 21:33:29.000000000 +0100 +++ linux.2.5.40-ac5/drivers/video/Config.in 2002-10-05 23:49:34.000000000 +0100 @@ -435,6 +441,7 @@ fi bool ' Pearl (old m68k) console 8x8 font' CONFIG_FONT_PEARL_8x8 bool ' Acorn console 8x8 font' CONFIG_FONT_ACORN_8x8 + bool ' Mini 4x6 font' CONFIG_FONT_MINI_4x6 else define_bool CONFIG_FONT_8x8 y define_bool CONFIG_FONT_8x16 y diff -u --new-file --recursive --exclude-from /usr/src/exclude linux.2.5.40/drivers/video/font_mini_4x6.c linux.2.5.40-ac5/drivers/video/font_mini_4x6.c --- linux.2.5.40/drivers/video/font_mini_4x6.c 1970-01-01 01:00:00.000000000 +0100 +++ linux.2.5.40-ac5/drivers/video/font_mini_4x6.c 2002-10-05 23:49:34.000000000 +0100 @@ -0,0 +1,2158 @@ + +/* Hand composed "Miniscule" 4x6 font, with binary data generated using + * Perl stub. + * + * Use 'perl -x mini_4x6.c < mini_4x6.c > new_version.c' to regenerate + * binary data. + * + * Created by Kenneth Albanowski. + * No rights reserved, released to the public domain. + * + * Version 1.0 + */ + +/* + +#!/usr/bin/perl -pn + +s{((0x)?[0-9a-fA-F]+)(.*\[([\*\ ]{4})\])}{ + + ($num,$pat,$bits) = ($1,$3,$4); + + $bits =~ s/([^\s0])|(.)/ defined($1) + 0 /ge; + + $num = ord(pack("B8", $bits)); + $num |= $num >> 4; + $num = sprintf("0x%.2x", $num); + + #print "$num,$pat,$bits\n"; + + $num . $pat; +}ge; + +__END__; +*/ + +/* Note: binary data consists of one byte for each row of each character top + to bottom, character 0 to character 255, six bytes per character. Each + byte contains the same four character bits in both nybbles. + MSBit to LSBit = left to right. + */ + +#include