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

[dev] remove outdated legacy gen_types_list.pl (#14145)

Browse source
This commit is contained in:
Muz 2026-01-12 22:51:52 -06:00 • committed by GitHub
parent a4d30b652d
commit c28ea82f87
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
2 changed files with 1 additions and 59 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Mage.Sets/src/mage/cards/b/BogGnarr.java
View file

@ -28,7 +28,7 @@ public final class BogGnarr extends CardImpl {
public BogGnarr(UUID ownerId, CardSetInfo setInfo) {
super(ownerId,setInfo,new CardType[]{CardType.CREATURE},"{4}{G}");
this.subtype.add( SubType.BEAST);
this.subtype.add(SubType.BEAST);
this.power = new MageInt(2);
this.toughness = new MageInt(2);

58
Utils/gen_types_list.pl
View file

@ -1,58 +0,0 @@
#!/usr/bin/perl -w
##
# File: gen_types_list.pl
# Author: spjspj
# Purpose: To open all card java files and count all subtypes/supertypes
# Purpose: Ones with unique spellings are possibly incorrect!
##
use strict;
use Scalar::Util qw(looks_like_number);
my $dir_listing = "dir \/a \/b \/s ..\\Mage.Sets\\ | find \".java\" |";
open (DIR_LISTING, "$dir_listing");
my %types;
my %types_files;
while (<DIR_LISTING>)
{
chomp;
my $file = $_;
my $name = "";
my $cardNum = "";
open (JAVA_FILE, "$file");
while (<JAVA_FILE>)
{
chomp;
# Eg: this.subtype.add("Human");
my $line = $_;
if ($line =~ m/this.subtype.add.*"([^"]*)".;/)
{
$types{$1}++;
$types_files{$1} .= $file . ",,,";
}
if ($line =~ m/addSuperType.*"([^"]*)"/)
{
$types{$1}++;
$types_files{$1} .= $file . ",,,";
}
}
close (JAVA_FILE);
}
my $key;
foreach $key (sort keys (%types))
{
print ("$types{$key} = $key .... ");
if ($types{$key} < 10)
{
print (" In files:$types_files{$key}");
}
print ("\n");
}