gen_list_duplicate_collector_ids.pl

#!/usr/bin/perl -w

##
#  File: gen_list_duplicate_collector_ids.pl
#  Author: spjspj
#  Purpose: To open all card java files and work out if any have duplicate cardNumber / expansionSetCode
##

use strict;
use Scalar::Util qw(looks_like_number);

my $dataFile = "mtg-cards-data.txt";
my $setsFile = "mtg-sets-data.txt";
my $knownSetsFile = "known-sets.txt";

my %sets;
my %knownSets;

my @setCards;
my %nameSetNumber;
my %setNumber;

open (DATA, $setsFile) || die "can't open $setsFile";

while(my $line = <DATA>)
{
    my @data = split('\\|', $line);
    $sets{$data[0]}= $data[1];
}
close(DATA);


sub toCamelCase
{
    my $string = $_[0];
    $string =~ s/\b([\w']+)\b/ucfirst($1)/ge;
    $string =~ s/[-,\s\']//g;
    $string;
}


open (DATA, $dataFile) || die "can't open $dataFile";
open (FILES_TO_CHECK, ">files_to_check.bat");
print FILES_TO_CHECK "\@echo  off\n";
print FILES_TO_CHECK "find \"super(ownerId\" ";
print ("Looking at data in $dataFile\n");
my %transformNames;
while (<DATA>)
{
    chomp;
    my $line = $_;

    my $addDay = "";
    my $transformable = 0;
    if ($line =~ m/(transform|transformed under)/img)
    {
        $addDay = "-day";
        $transformable = 1;
    }
    if ($line =~ m/(meld them|melds with)/img)
    {
        $addDay = "-day";
        $transformable = 1;
    }

    $line =~ s/^(([^\|]+)\|([^\|]+)\|([^\|]+))\|.*/$1/;
    my $name = $2;
    my $set = $3;
    my $number = $4;


    $nameSetNumber {$line . $addDay} ++;
    my $sn = "$set...$number$addDay";
    if (!defined ($setNumber {$sn}))
    {
        $setNumber {$sn} = $name;
    }
    elsif ($setNumber {$sn} ne $name)
    {
        print ("Problem -> '$name' has the same collectorID/Set Name as ::: $setNumber{$sn} ($sn)\n");
        $sn =~ s/\.\.\..*//;
        my $trigraph = lc($sn);
        $trigraph =~ s/[^a-z]//img;
        print FILES_TO_CHECK " ..\\Mage.Sets\\src\\mage\\sets\\" , $trigraph, "\\", toCamelCase($name), ".java";
    }
    if ($transformable)
    {
        $transformNames {$name} = 1;
    }
}
close(DATA);
print FILES_TO_CHECK "\n";
close (FILES_TO_CHECK);

my $dir_listing = "dir \/a \/b \/s ..\\Mage.Sets\\ | find \".java\" |";

my %find_info;
my %files_from_key;
open (DIR_LISTING, "$dir_listing");
while (<DIR_LISTING>)
{
    chomp;
    my $file = $_;

    # Example:
    #  super(ownerId, 133, "Witch Hunt", Rarity.RARE, new CardType[]{CardType.ENCHANTMENT}, "{4}{R}");
    # or
    #  super(ownerId);
    #  this.cardNumber = "100";
    #  this.expansionSetCode = "C13";
    # or
    #  super(ownerId, 99, "Brine Elemental", Rarity.UNCOMMON, new CardType[]{CardType.CREATURE}, "{4}{U}{U}");
    #  this.expansionSetCode = "C14";
    my $name = "";
    my $cardNum = "";

    open (JAVA_FILE, "$file");
    my $fileKey = $file;
    $fileKey =~ s/^.*[\/\\]//;
    if ($file !~ m/\.java$/)
    {
        next;
    }

    while (<JAVA_FILE>)
    {
        chomp;
        
        #cards.add(new SetCardInfo("Bonds of Quicksilver", 102, Rarity.COMMON, mage.cards.b.BondsOfQuicksilver.class));
        my $line = $_;
        if ($line =~ m/SetCardInfo\("([^"]+)",([^,]+),/img)
        {
            $name = $1;
            if (defined ($transformNames{$name}))
            {
                next;
            }

            $cardNum = $2;
            $name =~ s/[^a-z0-9]//img;
            $cardNum =~ s/[^a-z0-9]//img;

            my $val = "$name($file),$fileKey,$cardNum";
            my $key = "$fileKey,$cardNum";
            #print ("$key >>> $val\n");
            if (!defined ($find_info {$key}))
            {
                $find_info {$key} = $val;
                $files_from_key {$key} = $file;
            }
            elsif ($key ne ",.")
            {
                print ("========\n$val\n Has the same key $key as\n$find_info{$key}\n");
            }
        }
   }

    close (JAVA_FILE);
}