Failure/foul-magics
1
0
Fork 0
forked from External/mage
Code Pull requests Releases Packages Activity Actions

fix card test script generator indentation

Browse source
This commit is contained in:
jmlundeen 2025-08-29 08:57:39 -05:00
parent 3fa021a295
commit c3420bbc89
3 changed files with 106 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Utils/cardInfo.tmpl
View file

@ -1,7 +1,7 @@
/*
[=$cardName=]
[=$manaCost=]
[=$typeLine=]
[=$abilities=][= $powerToughness ? "\n $powerToughness" : "" =]
*/
private static final String [=$classNameLower=] = "[=$cardName=]";
/*
[=$cardName=]
[=$manaCost=]
[=$typeLine=]
[=$abilities=][= $powerToughness ? "\n $powerToughness" : "" =]
*/
private static final String [=$classNameLower=] = "[=$cardName=]";

5
Utils/gen-card-test.pl
View file

@ -63,7 +63,7 @@ sub generateCardInfo {
my $cardAbilities = $card[8];
my @abilities = split(/\$/, $cardAbilities);
my $abilitiesFormatted = join("\n ", @abilities);
my $abilitiesFormatted = join("\n ", @abilities);
$vars{'abilities'} = $abilitiesFormatted;
if ($card[6]) {
$vars{'powerToughness'} = "$card[6]/$card[7]"
@ -151,7 +151,6 @@ my %vars;
$vars{'className'} = toCamelCase($mainCardName);
$vars{'classNameLower'} = lcfirst(toCamelCase($mainCardName));
$vars{'cardNameFirstLetter'} = lc substr($mainCardName, 0, 1);
my @card;
foreach my $setName (keys %{$cards{$originalName}}) {
$setCode = lc($sets{$setName});
@ -181,7 +180,7 @@ my $allCardInfo = generateCardInfo($mainCardName, $infoTemplate);
# Generate additional card info templates
foreach my $additionalCard (@additionalCards) {
my $additionalInfo = generateCardInfo($additionalCard, $infoTemplate);
if ($additionalInfo) {
if (defined $additionalInfo) {
$allCardInfo .= "\n\n" . $additionalInfo;
}
}

97
Utils/print-card-info.pl Normal file
View file

@ -0,0 +1,97 @@
#!/usr/bin/perl -w
#author: Jmlundeen
use Text::Template;
use strict;
use utf8;
use open ':std', ':encoding(UTF-8)';
my $dataFile = 'mtg-cards-data.txt';
my $setsFile = 'mtg-sets-data.txt';
my $cardInfoTemplate = 'cardInfo.tmpl';
my %cards;
my %sets;
sub toCamelCase {
my $string = $_[0];
$string =~ s/\b([\w']+)\b/ucfirst($1)/ge;
$string =~ s/[-,\s\':.!\/]//g;
$string;
}
sub printCardInfo {
my ($cardName, $infoTemplate) = @_;
if (!exists $cards{$cardName}) {
print "Card name doesn't exist: $cardName\n\n";
return;
}
my %vars;
$vars{'classNameLower'} = lcfirst(toCamelCase($cardName));
my @card;
foreach my $setName (keys %{$cards{$cardName}}) {
@card = @{(values(%{$cards{$cardName}{$setName}}))[0]};
last; # Just get the first one
}
$vars{'cardName'} = $card[0];
$vars{'manaCost'} = $card[4];
$vars{'typeLine'} = $card[5];
# Combine power and toughness if they exist
my $powerToughness = "";
if ($card[6] && $card[7] && $card[6] ne "" && $card[7] ne "") {
$powerToughness = "$card[6]/$card[7]";
}
$vars{'powerToughness'} = $powerToughness;
my $cardAbilities = $card[8];
my @abilities = split(/\$/, $cardAbilities);
my $abilitiesFormatted = join("\n ", @abilities);
$vars{'abilities'} = $abilitiesFormatted;
my $result = $infoTemplate->fill_in(HASH => \%vars);
print "$result\n\n";
}
# Load data files
open(DATA, $dataFile) || die "can't open $dataFile : $!";
while (my $line = <DATA>) {
my @data = split('\\|', $line);
$cards{$data[0]}{$data[1]}{$data[2]} = \@data;
}
close(DATA);
open(DATA, $setsFile) || die "can't open $setsFile : $!";
while (my $line = <DATA>) {
my @data = split('\\|', $line);
$sets{$data[0]} = $data[1];
}
close(DATA);
# Get card names from arguments
my @cardNames = @ARGV;
if (@cardNames == 0) {
print 'Enter card names (one per line, empty line to finish): ';
while (my $input = <STDIN>) {
chomp $input;
last if $input eq '';
push @cardNames, $input;
}
}
if (@cardNames == 0) {
die "No card names provided.\n";
}
# Load template
my $infoTemplate = Text::Template->new(TYPE => 'FILE', SOURCE => $cardInfoTemplate, DELIMITERS => [ '[=', '=]' ]);
# Print card info for each card
foreach my $cardName (@cardNames) {
printCardInfo($cardName, $infoTemplate);
}