X-Git-Url: http://git.projectaon.org/?p=project-aon.git;a=blobdiff_plain;f=common%2Fscripts%2Fgblint.pl;h=136a272f35fa948786960ca2aded088cbd9244af;hp=0caf1b49fce103e41e54eaadf6d5256ee0e77eee;hb=60ee1301c43c9bd1b8aa38a2426446a364d7eeab;hpb=94b200d4710f6ffb5e3bb7aa622fa82be39be177
diff --git a/common/scripts/gblint.pl b/common/scripts/gblint.pl
index 0caf1b4..136a272 100755
--- a/common/scripts/gblint.pl
+++ b/common/scripts/gblint.pl
@@ -174,6 +174,10 @@ while( $#ARGV > -1 && $ARGV[ 0 ] =~ /^-/ ) {
shift @ARGV;
$language = shift @ARGV;
}
+ elsif( $ARGV[ 0 ] eq '-h' ) {
+ usage();
+ exit 0;
+ }
}
my $lineNumber = 1;
@@ -231,7 +235,7 @@ while( my $line = <> ) {
# ellipsis
if( $line =~ /(\.\s*\.(\s*\.)?)/ ) { &printError( "ne", $currentSection, $lineNumber, "possible malformed ellipsis", "$1", " or " ); }
- if( $line =~ m{([[:space:]])} || $line =~ m{([[:space:]])} ) { &printError( "ne", $currentSection, $lineNumber, " with extraneous surrounding space", "$1", "" ); }
+ if( $line =~ m{([[:space:]])}) { &printError( "ne", $currentSection, $lineNumber, " with extraneous surrounding space", "$1", "" ); }
if( $line =~ m{([^>])()} ) { &printError( "ne", $currentSection, $lineNumber, "possible used in place of ", "$1$2", "$1" ); }
if( $line =~ m{(>)} ) { &printError( "ne", $currentSection, $lineNumber, "possible used in place of ", "$1", ">" ); }
@@ -343,3 +347,16 @@ sub printError {
++$errorCount;
if( $maxErrorCount > 0 && $errorCount > $maxErrorCount ) { die "Maximum number of errors ($maxErrorCount) exceeded. Quitting.\n"; }
}
+
+sub usage {
+ print "Gamebook lintian checker - reads from standard input a gamebook XML file and prints out possible errors\n\n";
+ print "Usage: gblint.pl [-e ] [-s ] [-i ] [--use-corr] [--skip-ASCII-check] [--language CODE]\n";
+ print "Options:\n";
+ print "\t-e \tStops when NUMBER errors have been reached (by default it does not stop)\n";
+ print "\t-s \tSkips NUMBER of lines before analysing\n";
+ print "\t-i \tAdds TEXT to error messages (default: '??')\n";
+ print "\t--use-corr\tPrints correction in report (default: disabled)\n";
+ print "\t--skip-ASCII-check\tDoes not check for non-ASCCI characters (default: enabled)\n";
+ print "\t--language CODE\tDefines the language of the gamebook file (default: 'en'\n";
+ print "\t-h\tPrint this help and exit\n";
+}