package PolyUniCharClass3;

use v5.38;

sub list ($char_class) {
    state $valid_char_class = {map +($_ => 1), qw{
        InThaiHCons IsThaiHCons InThaiLCons IsThaiLCons
    }};

    unless (exists $valid_char_class->{$char_class}) {
        warn "Char class '$char_class' doesn't exist!\n";
        return [];
    }

    return [map chr, ThaiCons(substr $char_class, 2)->@*];
}

sub ThaiCons ($cons) {
    state $code_ranges = {
        ThaiHCons => [qw{0E02-0E03 0E09 0E10 0E16}],
        ThaiLCons => [qw{0E04-0E07 0E0A-0E0D 0E11}],
    };
    state $ThaiCons_expanded;

    return $ThaiCons_expanded->{$cons} //= _expand($code_ranges->{$cons});
}

sub _expand ($code_range_list) {
    state $re = qr{^([0-9A-Fa-f]+)-([0-9A-Fa-f]+)$};

    my @full_list;

    for my $range ($code_range_list->@*) {
        if ($range =~ $re) {
            push @full_list, hex($1) .. hex($2);
        }
        else {
            push @full_list, hex $range;
        }
    }

    return [@full_list];
}