[v6] Add enum support

v6/tryfile

@@ -6,10 +6,38 @@ use Stash;
 use NAME;
 use JSYNC;
 
+sub first(\$x) { for $x -> $elt { return $elt }; Any }
+sub infix:<max>($a,$b) { $a < $b ?? $b !! $a }
+sub infix:<min>($a,$b) { $a > $b ?? $b !! $a }
+
 augment class List {
     method shift() { self!fill(1) ?? self!shift-item !! Any }
 }
 
+augment class Mu {
+    method typename() {  # should be ^name
+        Q:CgOp { (box Str (obj_typename (@ {self}))) }
+    }
+}
+
+augment class Cool {
+    method comb($rx) {
+        my $str = self.Str;
+        my $C = Cursor.new($str);
+        my $i = 0;
+        my @out;
+        while $i < $str.chars {
+            my $M = first($rx($C.cursor($i++)));
+            if $M {
+                $i max= $M.to;
+                push @out, $M.Str;
+            } else {
+            }
+        }
+        @out
+    }
+}
+
 augment class Any {
     method list() { @( self, ) }
 }
@@ -22,7 +50,6 @@ augment class NAME {
 }
 
 augment class Regex {
-    sub first(\$x) { for $x -> $elt { return $elt }; Any }
     method ACCEPTS($st) {
         my $i = 0;
         my $str = $st.Str;
@@ -211,8 +238,6 @@ augment class STD::P6 {
     }
 }
 
-sub infix:<min>($a,$b) { $a > $b ?? $b !! $a }
-
 augment class Cursor {
 my %term            = (:dba('term')            , :prec<z=>);
 my %methodcall      = (:dba('methodcall')      , :prec<y=>, :assoc<unary>, :uassoc<left>, :fiddly, :!pure);
@@ -296,6 +321,20 @@ my %terminator      = (:dba('terminator')      , :prec<a=>, :assoc<list>);
         self.cursor_fresh(%*LANG<MAIN>);
     }
 
+    method add_enum($type,$expr) {
+        return unless $type;
+        return unless $expr;
+        my $typename = $type.Str;
+        my $*IN_DECL ::= 'constant';
+        # XXX complete kludge, really need to eval EXPR
+        # $expr =~ s/:(\w+)<\S+>/$1/g;  # handle :name<string>
+        for $expr.comb(/ <[ a..z A..Z _ ]> \w* /) -> $n {
+            self.add_name($typename ~ "::$n");
+            self.add_name($n);
+        }
+        self
+    }
+
     method canonicalize_name($n) {
         my $M;
         my $name = $n;