#!/usr/local/bin/perl

## Filter out recursive rules

use strict;
use warnings;

my $fileName = shift;

my $ruleId = '';
open(IFILE, $fileName) or die("Couldn't open the file $fileName\n");
while(<IFILE>){
	chomp;
	$ruleId = $_ if(/^{(.+)}$/);
	next unless(/\->/);
	/(.+)::(.+) \[\s*(.+?)\s+\] \-> \[(.+)\]/;
	my $sm = $1;
	my $tm = $2;
	my $sc = $3;
	my $tc = $4;
	
	print STDERR $_,"\n" if($sm eq $sc);
	print "$ruleId\n";
	print $_,"\n";
	for(my $i = 0; $i < 7; $i++){
		my $line = <IFILE>;
		print $line;
	}
}
close IFILE;