ctdo
/
crashtest-r0ket
16
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add more error messages for debugging

This commit is contained in:
Stefan `Sec` Zehl 2011-06-18 21:53:19 +02:00
parent 38abca78d2
commit 53fb6eea07
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tools/makefont.pl
View File

@ -90,7 +90,7 @@ print "Writing $title to ${file}.c\n";
$heightb=int(($heightpx-1)/8)+1; # Round up $heightb=int(($heightpx-1)/8)+1; # Round up
print "Chars are ",$heightpx,"px ($heightb bytes) high\n"; print "Chars are ",$heightpx,"px ($heightb bytes) high\n";
open (C,">",$file.".c")||die; open (C,">",$file.".c")||die "Can't create $file.c: $!";
if(defined $licence){ if(defined $licence){
$licence=~s/\n/\n * /g; $licence=~s/\n/\n * /g;
@ -261,7 +261,7 @@ printf C " */\n";
close(C); close(C);
open (H,">",$file.".h")||die; open (H,">",$file.".h")||die "Can't create $file.h: $!";
print H <<EOF; print H <<EOF;
#include "lcd/fonts.h" #include "lcd/fonts.h"
@ -507,7 +507,7 @@ sub init_bdf{
($title,$licence)=($font,"<licence>"); ($title,$licence)=($font,"<licence>");
my($bb); my($bb);
open($bdf,"<",$font) || die; open($bdf,"<",$font) || die "Can't open $font: $!";
while(<$bdf>){ while(<$bdf>){
chomp; chomp;
@ -620,6 +620,10 @@ sub init_ttf {
($mx,$my)=($bounds[2],$bounds[3]); ($mx,$my)=($bounds[2],$bounds[3]);
($top,$bottom)=($bounds[7],$my); ($top,$bottom)=($bounds[7],$my);
if(!defined $mx){
die "GD::Image failed: $@\n";
};
die "Increase width" if $mx>$width; die "Increase width" if $mx>$width;
die "Increase height" if $my>$width; die "Increase height" if $my>$width;
die "Increase xoff" if $bounds[7]<0; die "Increase xoff" if $bounds[7]<0;