diff --git a/editor/ppmfade b/editor/ppmfade index 8eb094f..adcdb6d 100755 --- a/editor/ppmfade +++ b/editor/ppmfade @@ -60,7 +60,6 @@ my $base_name = "fade"; # default base name of output files my $image = "ppm"; # default output storage format my $mode = $SPREAD; # default fading mode - my $n; # argument number for ($n = 0; $n < @ARGV; $n++) { @@ -70,7 +69,7 @@ for ($n = 0; $n < @ARGV; $n++) { if (-e $first_file) { } else { print "I can't find first file '$first_file'\n"; - exit 20; + exit 1; } } elsif ($ARGV[$n] eq "-l") { $n++; @@ -78,7 +77,7 @@ for ($n = 0; $n < @ARGV; $n++) { if (-e $last_file) { } else { print "I can't find last file '$last_file'\n"; - exit 20; + exit 1; } } elsif ($ARGV[$n] eq "-base") { $n++; @@ -99,11 +98,12 @@ for ($n = 0; $n < @ARGV; $n++) { $mode = $BLOCK; } elsif ("$ARGV[$n]" eq "-mix") { $mode = $MIX; - } elsif ($ARGV[$n] eq "-help" || $ARGV[$n] eq "-h") { - usage(); + } elsif ($ARGV[$n] eq "-help" || $ARGV[$n] eq "--help" || $ARGV[$n] eq "-h") { + print "ppmfade: Use 'man ppmfade' for help.\n"; + exit 1; } else { print "Unknown argument: $ARGV[$n]\n"; - exit 100; + exit 1; } } # @@ -122,18 +122,18 @@ if ($first_file ne "undefined") { $width = $1; $height = $2; } else { print("Unrecognized results from pnmfile on $first_file.\n"); - exit(50); + exit(1); } } elsif ($last_file ne "undefined") { if ((`pnmfile $last_file` =~ m{\b(\d+)\sby\s(\d+)} )) { $width = $1; $height = $2; } else { print("Unrecognized results from pnmfile on $first_file.\n"); - exit(50); + exit(1); } } else { print("ppmfade: You must specify -f or -l (or both)\n"); - exit(90); + exit(1); } print("Frames are " . $width . "W x " . $height . "H\n");