Skip to content

Commit 5efb623

Browse files
committed
Add comment header referencing source of the files
1 parent d9d8bef commit 5efb623

File tree

4 files changed

+12
-0
lines changed

4 files changed

+12
-0
lines changed

bdfimplode

100644100755
+3
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,8 @@
11
#!/usr/local/bin/perl -n
22

3+
# bdfimplode from the "GNU unifont" project
4+
# http://czyborra.com/unifont/bdfimplode
5+
36
if (/^ENCODING\s+(\d+)/) { printf ("%04X:", $1); }
47
elsif (/^BITMAP/) { $BITMAP=1; }
58
elsif (/^ENDCHAR/) { $BITMAP=0; print "\n"; }

hex2bdf

+3
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,8 @@
11
#!/usr/local/bin/perl
22

3+
# hex2bdf from the "GNU unifont" project
4+
# http://czyborra.com/unifont/
5+
36
while (<>) { $glyph{$1} = $2 if /(....):(.+)\n/; }
47
@chars = sort keys %glyph; $[ = 1;
58
# dbmopen (%charname, "/usr/share/unicode/unidata/charname.db", 0);

hexdraw

+3
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,8 @@
11
#!/usr/local/bin/perl -p
22

3+
# hexdraw from the "GNU unifont" project
4+
# http://czyborra.com/unifont/hexdraw
5+
36
sub unpack {
47
local ($_) = @_;
58
$_ = unpack ("B*", pack ("H*", $_));

hexmerge

+3
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,8 @@
11
#!/usr/local/bin/perl
22

3+
# hexmerge from the "GNU unifont" project
4+
# http://czyborra.com/unifont/hexmerge
5+
36
while (<>)
47
{
58
$G{$1}=$2 if /^(....):(.+)\n/;

0 commit comments

Comments
 (0)