create FileGlob as subclass of StringGlob, but adds alternation

build/Makefile.in

@@ -20,6 +20,9 @@ GEN_SOURCES = \
   src/StringGlob/Actions.pir \
   src/StringGlob/Compiler.pir \
   src/StringGlob/Grammar.pir \
+  src/FileGlob/Actions.pir \
+  src/FileGlob/Compiler.pir \
+  src/FileGlob/Grammar.pir \
   src/Partcl/Actions.pir \
   src/Partcl/Compiler.pir \
   src/Partcl/Grammar.pir \

src/FileGlob/Actions.pm

@@ -0,0 +1,11 @@
+class FileGlob::Actions is StringGlob::Actions;
+
+method metachar:sym<{>($/) {
+    my $ast := PAST::Regex.new( :pasttype<alt>, :node($/) ); 
+    for $<word> { 
+        $ast.push(PAST::Regex.new( ~$_, :pasttype<literal>, :node($/) ) );
+    }
+    make $ast;
+}
+
+# vim: filetype=perl6:

src/FileGlob/Compiler.pm

@@ -0,0 +1,9 @@
+class FileGlob::Compiler is HLL::Compiler {
+    INIT {
+        FileGlob::Compiler.parsegrammar(FileGlob::Grammar);
+        FileGlob::Compiler.parseactions(FileGlob::Actions);
+        FileGlob::Compiler.language('FileGlob');
+    }
+}
+
+# vim: filetype=perl6:

src/FileGlob/Grammar.pm

@@ -0,0 +1,12 @@
+grammar FileGlob::Grammar is StringGlob::Grammar;
+
+# This is how globs do alternation
+token metachar:sym<{> {
+    '{' ~ '}' [ <word> ** ',' ]
+}
+
+token word { <-[,}]>+ }
+
+token barechar { <-[\\\[*+?{]> }
+
+# vim: filetype=perl6:

src/Partcl.pir

@@ -37,6 +37,9 @@
 .include 'src/StringGlob/Grammar.pir'
 .include 'src/StringGlob/Actions.pir'
 .include 'src/StringGlob/Compiler.pir'
+.include 'src/FileGlob/Grammar.pir'
+.include 'src/FileGlob/Actions.pir'
+.include 'src/FileGlob/Compiler.pir'
 .include 'src/init.pir'
 .include 'src/options.pir'