git.shiar.nl
/
unifont.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
unifont-7.0.06.tar.gz
[unifont.git]
/
src
/
hex2sfd
diff --git
a/src/hex2sfd
b/src/hex2sfd
index 4e1a45ec23a54c07ac2196ab120d1d4837593842..e794a0c9ab731e29ecd89ba26351bd0c500cf78c 100755
(executable)
--- a/
src/hex2sfd
+++ b/
src/hex2sfd
@@
-49,10
+49,10
@@
for ($i = 0; $i < 0x110000; $i++) {
push (@combining, 0);
}
if ($#ARGV < 0) {
push (@combining, 0);
}
if ($#ARGV < 0) {
- open (A, "<", "combining.txt");
+ open (A, "<", "combining.txt")
or die ("Cannot open combining.txt.\n")
;
}
else {
}
else {
- open (A, "<", $ARGV[0]);
+ open (A, "<", $ARGV[0])
or die ("Cannot open specified combining file for input.\n")
;
}
$maxcombining = 0;
while (<A>) {
}
$maxcombining = 0;
while (<A>) {
@@
-63,7
+63,7
@@
while (<A>) {
$maxcombining = $codepoint;
}
}
$maxcombining = $codepoint;
}
}
-close (A);
+close (A)
or die ("Cannot properly close combining input file.\n")
;
$nglyphs = 0; # number of glyphs in font (none defined yet)
@codepoints = (); # code points of hex bitmaps
$nglyphs = 0; # number of glyphs in font (none defined yet)
@codepoints = (); # code points of hex bitmaps
@@
-116,7
+116,7
@@
$descent = 2 * $pixel;
$ascent = 16 * $pixel - $descent;
$bitmask = 25; # round in x (doesn't really work), corner point selected
$ascent = 16 * $pixel - $descent;
$bitmask = 25; # round in x (doesn't really work), corner point selected
-print << "END";
+print << "END"
or die ("Cannot print to stdout.\n")
;
SplineFontDB: 1.0
FontName: unifont
FullName: GNU Unifont
SplineFontDB: 1.0
FontName: unifont
FullName: GNU Unifont
@@
-184,7
+184,7
@@
for ($count = 0; $count < $nglyphs; $count++) {
# $count++;
# }
# $count++;
# }
-print << "END";
+print << "END"
or die ("Cannot print to stdout.\n")
;
EndChars
EndSplineFont
END
EndChars
EndSplineFont
END
@@
-217,7
+217,7
@@
sub outline {
$cn = -1;
}
# Changed "Flags: H" to "Flags: HW" to fix spaces - Paul Hardy, 2008
$cn = -1;
}
# Changed "Flags: H" to "Flags: HW" to fix spaces - Paul Hardy, 2008
- print << "END";
+ print << "END"
or die ("Cannot print to stdout.\n")
;
StartChar: $charname
Encoding: $cn $cn $count
Width: $ptwidth
StartChar: $charname
Encoding: $cn $cn $count
Width: $ptwidth
@@
-245,7
+245,7
@@
END
} else {
if($prev) {
$x2=$x * $pixel + $pixel;
} else {
if($prev) {
$x2=$x * $pixel + $pixel;
- print << "END";
+ print << "END"
or die ("Cannot print to stdout.\n")
;
$x1 $y1 m $bitmask
$x1 $y2 l $bitmask
$x2 $y2 l $bitmask
$x1 $y1 m $bitmask
$x1 $y2 l $bitmask
$x2 $y2 l $bitmask
@@
-259,7
+259,7
@@
END
}
if($prev) {
$x2=0;
}
if($prev) {
$x2=0;
- print << "END";
+ print << "END"
or die ("Cannot print to stdout.\n")
;
$x1 $y1 m $bitmask
$x1 $y2 l $bitmask
$x2 $y2 l $bitmask
$x1 $y1 m $bitmask
$x1 $y2 l $bitmask
$x2 $y2 l $bitmask
@@
-268,7
+268,7
@@
$x1 $y1 m $bitmask
END
}
}
END
}
}
- print << "END";
+ print << "END"
or die ("Cannot print to stdout.\n")
;
EndSplineSet
EndChar
END
EndSplineSet
EndChar
END