rule_tst.pl. handle valid space commands in rules

Author: jfoug

rule_tst.dat

@@ -16,6 +16,28 @@ f
 {
 }
 
+# some HC rules (also 'raw' spaces for characters which are NEEDED)
+E
+p3p2
+$ p2E
+$ $1qE
+$s $y $ 
+o2 
+i2 
+$ ^ s x
+sx 
+^ ( 
+$ ^ ) ( 
+%1 
+e 
+k
+K
+y3
+Y2
+z3
+Z1
+e?pkKy3Y2z3Z1
+
 # class tests
 s??X
 s?vX

rule_tst.pl

@@ -29,7 +29,7 @@
 my $last_line_len=0;
 my $core_only=0; # assume jumbo john. Actually at this time we ONLY work with jumbo.
 my $error_cnt = 0; my $done_cnt = 0; my $tot_rules = 0; my $ret_val_non_zero_cnt = 0;
-my $max_pp = 15000;
+my $max_pp = 6000;
 my @startingTime;
 
 # Set these once and we don't have to care about them anymore
@@ -319,7 +319,7 @@ sub readData {
 	my $line_cnt = 0;
 	foreach my $line(@lines) {
 		chomp($line);
-		$line =~ s/[ \t\r]*$//;  # strip CR for non-Windows, and 'ltrim', so that blank lines (with white space) are skipped.
+		$line =~ s/[\r]*$//;  # strip CR for non-Windows, and 'ltrim', so that blank lines (with white space) are skipped.
 		++$line_cnt;
 		if (length($line) > 0) {
 			if (substr($line, 0, 1) eq "#") { push(@rulesdata, $line); }