github/mage
1
0
Fork 0
mirror of https://github.com/correl/mage.git synced 2024-12-24 03:00:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

Add argument. Can go say: gen_all_files_in_dck.pl basic to find just basics or gen_all_files_in_dck.pl basic | grep "HOU:" to find just HOU basics.

Browse source
This commit is contained in:
spjspj 2017-07-07 21:42:49 +10:00
parent 9284bbe6f3
commit e268acbdf8
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
Utils/gen_all_files_in_dck.pl
View file

@ -28,6 +28,8 @@ sub toCamelCase
return $string;
}
my $option = $ARGV[0];
open (DATA, $setsFile) || die "can't open $setsFile";
while(my $line = <DATA>)
{
@ -37,7 +39,7 @@ while(my $line = <DATA>)
}
close(DATA);
my $dir_listing = "dir \/a \/b \/s ..\\Mage.Sets\\ | find \".java\" |";
my $dir_listing = "dir \/a \/b \/s ..\\Mage.Sets\\src\\mage\\sets | find \".java\" |";
open (DIR_LISTING, "$dir_listing");
my %setsForJavafile;
my $totalCards = 0;
@ -78,7 +80,12 @@ while (<DIR_LISTING>)
$setsForJavafile {$f} = $trigraph;
}
if ($line =~ m/SetCardInfo\("([^"]+)",([^,]+),/img)
if ($line !~ m/$option/img)
{
next;
}
if ($line =~ m/SetCardInfo\("([^"]+)",([^,]+),/im)
{
$name = $1;
$cardNum = $2;