From 1ba7b3a044045ea2aa91dd46acc3a1b4531a8bc1 Mon Sep 17 00:00:00 2001
From: Jens Schweikhardt <schweikh@schweikhardt.net>
Date: Sun, 31 Aug 2025 11:19:44 +0200
Subject: Replace renumber.pl with hextosrc.c. Improved TTF.

* Introduce VERSION and HASH for utility programs.
* Fontlint complained about the + in BDF U+1234 character names, so
  I changed them to U1234.
---
 renumber.pl | 47 -----------------------------------------------
 1 file changed, 47 deletions(-)
 delete mode 100755 renumber.pl

(limited to 'renumber.pl')

diff --git a/renumber.pl b/renumber.pl
deleted file mode 100755
index bc2b6ab..0000000
--- a/renumber.pl
+++ /dev/null
@@ -1,47 +0,0 @@
-#!/usr/bin/env perl
-
-use v5.36;
-use warnings;
-use diagnostics;
-use strict;
-use utf8;
-use open qw(:std :encoding(UTF-8));
-use charnames ':full';
-
-my $width  = 12;
-my $height = 22;
-my $dblwidth = 2 * $width;
-
-my $lnr = 0;
-my $n   = $height;
-while (<>) {
-  chop;
-  ++$lnr;
-  if (/^STARTCHAR\s+[Uu]\+([[:xdigit:]]+)/) {
-    my $cp   = hex $1;
-    my $name = charnames::viacode ($cp) // '<no name>';
-    $_ = sprintf "STARTCHAR U+%04x %s", $cp, $name;
-  }
-  elsif (/^[[:digit:]]+ \|(.{$width})\|/) {
-    $_ = sprintf "%02d |%s|", $n--, $1;
-  }
-  elsif (/^[[:digit:]]+ \|(.{$dblwidth})\|/) {
-    $_ = sprintf "%02d |%s|", $n--, $1;
-  }
-  elsif (/^ENDCHAR$/) {
-    if ($n != 0) {
-      my $N = 22 - $n;
-      print STDERR
-        "line $lnr: ENDCHAR after $N bitmap rows, expected $height\n";
-      exit 1;
-    }
-    $n = $height;
-  }
-  else {
-    print STDERR "line $lnr: unrecognized input: '$_'\n";
-    exit 1;
-  }
-  print "$_\n";
-}
-
-# vi: set tabstop=2 shiftwidth=2 expandtab fileformat=unix:
-- 
cgit v1.2.3