#!/usr/bin/perl
# Parse the rule numbers into a more useful format.
# 2009-01-20 Bryan Bishop (kanzure@gmail.com)

open(FIO, "<ruleNumbers2.txt");
@stuff = <FIO>;
close(FIO);


foreach my $line2 (@stuff) {
	#print $line;
	chomp($line2);	
	@l2 = split(/:/, $line2);
	@l3 = split(/\./, @l2[0]);
	@part = split(/cfg/, @l3[0]);
	
	# @part[1] is the ID of the generated graph.
	#print @part[1],"\n";
	
	# $l2[1] contains the rule number.
	$ruleNumber = $l2[1];

	#chomp($ruleNumber);
	#print $ruleNumber;
	
	#print $l2[0], " = ", $graphs{$l2[0]}, " .. and now: ";
	#$graphs{$part[1]} .= "$ruleNumber";
	$ruleNumber = $ruleNumber."\n";
	#print "@part[1] was made from: $ruleNumber\n\n\n";	
	$vars{"my_@part[1]"} = $vars{"my_@part[1]"} . "$ruleNumber";

	#print ",$ruleNumber\n";
	#print $graphs{$l2[0]};
	# print $l2[0], "\n"; #$ruleNumber;
}

foreach my $vari (keys %vars) {
	if($vari =~ "my_") {
		$vari2 = $vari; 
		$vari2 =~ s/my_//;
		#print "$vari2: ", $vars{$vari}, "\n";
		open(OUTY, ">rulelists/$vari2.txt");
		print OUTY $vars{$vari};
		close(OUTY);
	}
}