Add syntactic sugar for class().

\C <=> class('C').

2 files changed, 11 insertions, 2 deletions

diff --git a/Grammar.pp b/Grammar.pp
index c745a5f..0f6f8fe 100644
--- a/Grammar.pp
+++ b/Grammar.pp
@@ -235,7 +235,7 @@ constant:
     scalar() | array()
 
 scalar:
-    <null> | boolean() | number() | string() | regex() | range()
+    <null> | boolean() | number() | string() | regex() | class() | range()
 
 boolean:
     <true> | <false>
@@ -255,6 +255,9 @@ quoted_string:
 #regex:
     <regex>
 
+#class:
+    classname()
+
 #range:
     number() ::range:: number()
   | number() ::range:: #left_range
@@ -292,7 +295,7 @@ identifier:
   | <result>
 
 #classname:
-    ::backslash::? <identifier> ( ::backslash:: <identifier> )*
+    ::backslash:: <identifier> ( ::backslash:: <identifier> )*
 
 herestring:
     ::heredoc_::
diff --git a/Visitor/Interpreter.php b/Visitor/Interpreter.php
index ad60b68..0a5c234 100644
--- a/Visitor/Interpreter.php
+++ b/Visitor/Interpreter.php
@@ -473,6 +473,12 @@ class Interpreter implements \Hoa\Visitor\Visit {
                 return realdom()->regex($regex);
               break;
 
+            case '#class':
+                $classname  = $element->getChild(0)->accept($this, $handle, false);
+
+                return realdom()->class($classname);
+              break;
+
             case 'token':
                 $tId   = $element->getValueToken();
                 $value = $element->getValueValue();