github/mage
1
0
Fork 0
mirror of https://github.com/correl/mage.git synced 2025-03-18 17:00:10 -09: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; return $string;
} }
my $option = $ARGV[0];
open (DATA, $setsFile) || die "can't open $setsFile"; open (DATA, $setsFile) || die "can't open $setsFile";
while(my $line = <DATA>) while(my $line = <DATA>)
{ {
@ -37,7 +39,7 @@ while(my $line = <DATA>)
} }
close(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"); open (DIR_LISTING, "$dir_listing");
my %setsForJavafile; my %setsForJavafile;
my $totalCards = 0; my $totalCards = 0;
@ -78,7 +80,12 @@ while (<DIR_LISTING>)
$setsForJavafile {$f} = $trigraph; $setsForJavafile {$f} = $trigraph;
} }
if ($line =~ m/SetCardInfo\("([^"]+)",([^,]+),/img) if ($line !~ m/$option/img)
{
next;
}
if ($line =~ m/SetCardInfo\("([^"]+)",([^,]+),/im)
{ {
$name = $1; $name = $1;
$cardNum = $2; $cardNum = $2;