chiark
/
gitweb
/
~ian
/
xfonts-traditional.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a3d288d
)
bdfnorm: Improve performance, a bit
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sat, 30 Apr 2016 14:31:55 +0000
(15:31 +0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 1 May 2016 11:41:28 +0000
(12:41 +0100)
bdfnorm
patch
|
blob
|
history
diff --git
a/bdfnorm
b/bdfnorm
index da20e7651e7a100660be44f90fae0dd19512a941..87aed71e85ca6d6801ffedf05b68fd4721efa10b 100755
(executable)
--- a/
bdfnorm
+++ b/
bdfnorm
@@
-39,7
+39,7
@@
while (<>) {
chomp;
m/[^0-9A-F]/ and die "$& ?";
# print "# $_\n";
chomp;
m/[^0-9A-F]/ and die "$& ?";
# print "# $_\n";
-
s/./ unpack "B4", pack "H*", $& /ge
;
+
$_ = unpack "B*", pack "H*", $_
;
# print "# $_\n";
$_ = ("0" x ($cbbox[2] - $fbbox[2])) . $_;
# print "# $_\n";
# print "# $_\n";
$_ = ("0" x ($cbbox[2] - $fbbox[2])) . $_;
# print "# $_\n";
@@
-47,7
+47,7
@@
while (<>) {
# print "# $_\n";
$_ .= "0" x ($numbytes*8 - length);
# print "# $_\n";
# print "# $_\n";
$_ .= "0" x ($numbytes*8 - length);
# print "# $_\n";
-
s/.{4}/ unpack "H", pack "B4", $& /ge
;
+
$_ = unpack "H*", pack "B*", $_
;
$_ .= "\n";
}
print;
$_ .= "\n";
}
print;