regress/fml4to8/print_ok.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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;