metaprogramming - 如何使用元编程在 Perl 6 中创建枚举？

Question

给定表示枚举的数据，例如:

my %enums := {
  Color => { red => 0, black => 1, green => 2 },
  Status => { fail => 0, pass => 1 }
};

我如何使用 Metamodel::ClassHOW创建等效于的枚举:

enum Color ( red => 0, black => 1, green => 2 );
enum Status ( fail => 0, pass => 1 );

Timo 的 ADT 库给出了如何使用 ClassHOW 创建类的示例。 ，但不包括枚举: https://github.com/timo/ADT/blob/master/lib/ADT.pm6

Answer 1

这似乎可以解决问题，但它大多未经测试:

my %enums := {
  Color => { red => 0, black => 1, green => 2 },
  Status => { fail => 0, pass => 1 }
};
my @types = gather {
    for %enums.kv -> $name, %values {
        my $type = Metamodel::EnumHOW.new_type(:$name, base_type => Int);
        for %values -> $pair {
            $type.^add_enum_value($pair);
        }
        $type.^add_role(Enumeration);
        $type.^add_role(NumericEnumeration);
        $type.^compose;
        take $type;
    }
}.list;
say @types;     # Output: [(Status) (Color)]

请注意，这会将类型放入数据结构中，因为词法作用域在运行时是不可变的，因此您不能像使用 enum Color ... 那样声明它们。 .