Add ^ and $ support to ARE

(bring t/cmd_array to 100%)
partcl · Jun 28, 2010 · 297e2ca · 297e2ca
1 parent e3a399e
commit 297e2ca
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 2 deletions.
diff --git a/src/ARE/Actions.pm b/src/ARE/Actions.pm
@@ -66,6 +66,14 @@ method quantifier:sym<?>($/) {
     make PAST::Regex.new( :pasttype<quant>, :min(0), :max(1), :node($/) );
 }
 
+method metachar:sym<^>($/) {
+    make PAST::Regex.new( :pasttype<anchor>, :subtype('bos'), :node($/) );
+}
+
+method metachar:sym<$>($/) {
+    make PAST::Regex.new( :pasttype<anchor>, :subtype('eos'), :node($/) );
+}
+
 method metachar:sym<.>($/) {
     make PAST::Regex.new( :pasttype<charclass>, :subtype<.>, :node($/) );
 }

diff --git a/src/ARE/Grammar.pm b/src/ARE/Grammar.pm
@@ -24,14 +24,16 @@ token atom {
     ]
 }
 
-token barechar { <-[\\\[*+?]> }
+token barechar { <-[\\\[*+?^$]> }
 
 proto token quantifier { <...> }
 token quantifier:sym<*> { <sym> }
 token quantifier:sym<+> { <sym> }
 token quantifier:sym<?> { <sym> }
 
 proto token metachar { <...> }
+token metachar:sym<^> { <sym> }
+token metachar:sym<$> { <sym> }
 token metachar:sym<.> { <sym> }
 token metachar:sym<back> { \\ <backslash> }
 token metachar:sym<[> {

diff --git a/t/cmd_array.t b/t/cmd_array.t
@@ -278,7 +278,7 @@ eval_is {
   set a(monkey2) do
   set a(ferret)  don't
   lsort [array names a -regexp ^mon.*]
-} {monkey1 monkey2} {array names, explicit regexp match} {TODO NQPRX}
+} {monkey1 monkey2} {array names, explicit regexp match}
 
 eval_is {
   catch {unset a}