push (@combining, 0);
}
if ($#ARGV < 0) {
- open (A, "<", "combining.txt");
+ open (A, "<", "combining.txt") or die ("Cannot open combining.txt.\n");
}
else {
- open (A, "<", $ARGV[0]);
+ open (A, "<", $ARGV[0]) or die ("Cannot open specified combining file for input.\n");
}
$maxcombining = 0;
while (<A>) {
$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
$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
# $count++;
# }
-print << "END";
+print << "END" or die ("Cannot print to stdout.\n");
EndChars
EndSplineFont
END
$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
} 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
}
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
END
}
}
- print << "END";
+ print << "END" or die ("Cannot print to stdout.\n");
EndSplineSet
EndChar
END