External/mage
1
0
Fork 1
mirror of https://github.com/magefree/mage.git synced 2025-12-20 02:30:08 -08:00
Code Issues Projects Releases Packages Wiki Activity Actions

[refactoring][minor] Replaced all tabs with four spaces.

Browse source
This commit is contained in:
North 2012-06-19 23:50:20 +03:00
parent e646e4768d
commit 239a4fb100
2891 changed files with 79411 additions and 79411 deletions
Download patch file Download diff file Expand all files Collapse all files

66
Utils/extract_in_wiki_format.pl
View file

@ -44,45 +44,45 @@ close(DATA);
open CARDS, "< added_cards.txt" or die;
while (<CARDS>) {
my $line = $_;
if ( $line =~/A Mage.Sets\\src\\mage\\sets\\(\w.*)\\(\w.*)\.java/ ) {
$cards_count++;
my $set = $1;
my $card = $2;
if (!exists($cards{$set})) {
$cards{$set} = [];
}
push @{$cards{$set}}, $card;
}
my $line = $_;
if ( $line =~/A Mage.Sets\\src\\mage\\sets\\(\w.*)\\(\w.*)\.java/ ) {
$cards_count++;
my $set = $1;
my $card = $2;
if (!exists($cards{$set})) {
$cards{$set} = [];
}
push @{$cards{$set}}, $card;
}
}
open REPORT, "> added_cards_in_wiki_format.txt";
print REPORT " * Added cards ($cards_count):\n";
foreach my $set (keys(%cards)) {
if ($set ne "tokens") {
if (exists $knownSets{$set}) {
print REPORT " * $sets{$knownSets{$set}}: ";
} else {
print REPORT " $set: ";
}
my $first = 1;
foreach my $card (@{$cards{$set}}) {
if ($first == 0) {
print REPORT "; ";
} else {
$first = 0;
}
if ($cardsBySet{$knownSets{$set}}{$card}) {
print REPORT $cardsBySet{$knownSets{$set}}{$card}[0];
} else {
#$card =~ s/([A-Z]{1}[a-z]+)/ $1/g;
#$card =~ s/A Ether/ AEther/g;
print "not processed: $sets{$knownSets{$set}} $card\n";
}
}
print REPORT "\n";
}
if (exists $knownSets{$set}) {
print REPORT " * $sets{$knownSets{$set}}: ";
} else {
print REPORT " $set: ";
}
my $first = 1;
foreach my $card (@{$cards{$set}}) {
if ($first == 0) {
print REPORT "; ";
} else {
$first = 0;
}
if ($cardsBySet{$knownSets{$set}}{$card}) {
print REPORT $cardsBySet{$knownSets{$set}}{$card}[0];
} else {
#$card =~ s/([A-Z]{1}[a-z]+)/ $1/g;
#$card =~ s/A Ether/ AEther/g;
print "not processed: $sets{$knownSets{$set}} $card\n";
}
}
print REPORT "\n";
}
}
close REPORT;