diff --git a/utils/error_enum_to_cases.pl b/utils/error_enum_to_cases.pl deleted file mode 100644 index fad0043f8b8ae..0000000000000 --- a/utils/error_enum_to_cases.pl +++ /dev/null @@ -1,79 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use English; - -sub translateAvailability { - my $version = shift; - $version =~ s/^\s+|\s+$//g; - if ($version eq "NA") { return "unavailable"; } - $version =~ /([0-9]+)_([0-9]+)/; - return "introduced=$1.$2"; -} - -my $prefixLength = 2; -my %minimumValues = (); -my %maximumValues = (); -my %rangeAvailability = (); -my $prev_had_availability = 0; -foreach my $line () { - chomp $line; - if ($line =~ /([A-Za-z_][A-Za-z_0-9]+).*=[^0-9A-Za-z_-]*([A-Za-z0-9_-]+)/) { - my $fullname = $1; - my $value = $2; - my $has_availability = 0; - - my $availability = ""; -# if ($line =~ /AVAILABLE\s*[(](([0-9]+_[0-9]+)|(NA))[ ]*,[ ]*(([0-9]+_[0-9]+)|(NA))[)]/) { - if ($line =~ /AVAILABLE[ ]*[(]([^),]*),([^)]*)[)]/) { - $has_availability = 1; - my $osx = $1; - my $ios = $2; - $osx = translateAvailability($osx); - $ios = translateAvailability($ios); - $availability = " \@available(OSX, $osx) \@available(iOS, $ios)\n"; - } - - # If the full name ends in "Minimum" or "Maximum", it's for a range. - my $rangeName = ""; - if ($fullname =~ /(Minimum|Maximum)$/) { - $rangeName = substr $PREMATCH, $prefixLength; - if ($MATCH eq "Minimum") { - $minimumValues{$rangeName} = $value; - } else { - $maximumValues{$rangeName} = $value; - } - $rangeAvailability{$rangeName} = $availability; - } else { - if ($availability ne "") { - if ($prev_had_availability == 0) { - print("\n"); - } - print("$availability"); - } - my $casename = substr $fullname, $prefixLength; - print(" case $casename = $value\n"); - - if ($availability ne "") { - print("\n"); - $prev_had_availability = 1; - } else { - $prev_had_availability = 0; - } - } - } -} - -# Print properties for the ranges. -foreach my $key (sort keys(%minimumValues)) { - my $minimum = $minimumValues{$key}; - my $maximum = $maximumValues{$key}; - my $availability = $rangeAvailability{$key}; - print "\n"; - if ($availability ne "") { - print $availability; - } - print(" public var is$key: Bool {\n"); - print(" return rawValue >= $minimum && rawValue <= $maximum;\n"); - print(" }\n"); -}