Add Marpa::R2::Grammar::_rule_mask()

jeffreykegler · Dec 22, 2012 · 74ca034 · 74ca034
1 parent e78740f
commit 74ca034
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/r2/lib/Marpa/R2/Grammar.pm b/r2/lib/Marpa/R2/Grammar.pm
@@ -854,6 +854,15 @@ sub Marpa::R2::Grammar::rule {
     return @symbol_names;
 } ## end sub Marpa::R2::Grammar::rule
 
+# Internal, for use with in coordinating thin and thick
+# interfaces.  NOT DOCUMENTED.
+sub Marpa::R2::Grammar::_rule_mask {
+    my ( $grammar, $rule_id ) = @_;
+    my $rules = $grammar->[Marpa::R2::Internal::Grammar::RULES];
+    my $rule = $rules->[$rule_id];
+    return $rule->[Marpa::R2::Internal::Rule::MASK];
+} ## end sub Marpa::R2::Grammar::rule
+
 # Deprecated and for removal
 # Used in blog post, and part of
 # CPAN version 2.023_008 but