print ok or not for each rule

1 files changed, 30 insertions, 0 deletions

diff --git a/regress/fml4to8/print_ok.pl b/regress/fml4to8/print_ok.pl
new file mode 100755
index 00000000..fbac5094
--- /dev/null
+++ b/regress/fml4to8/print_ok.pl
@@ -0,0 +1,30 @@
+#!/usr/bin/env perl
+#
+# $FML$
+#
+
+use strict;
+use Carp;
+
+my $is_ok  = 0;
+my $format = "%-3s %s\n";
+
+LINE:
+    while (<>) {
+	if (/^\.ok/) { 
+	    $is_ok = 1; 
+	    next LINE;
+	}
+
+	if (/^\.if\s+(\S+)/) {
+	    if ($is_ok) {
+		printf $format, "OK", $1;
+	    }
+	    else {
+		printf $format, "", $1;
+	    }
+	    $is_ok = 0;
+	}
+    }
+
+exit 0;