Add Literal to Core::Nodes

bacek · Dec 8, 2008 · 2bbffc0 · 2bbffc0
1 parent a64ac6a
commit 2bbffc0
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/XQuery/Core/Nodes.pm b/XQuery/Core/Nodes.pm
@@ -11,7 +11,7 @@ class XQuery::Core::Node {
     method left  { };
 
     method dump ( $level = 0) {
-        say self;
+        say '  ' x $level, self;
         if (self.right) {
             self.right.dump(1+$level);
         }
@@ -167,6 +167,14 @@ enum XQuery::Core::Axis<
 #| ("*" ":" NCName)
 #[55]    	PrimaryExpr 	   ::=    	Literal | VarRef | ParenthesizedExpr | FunctionCall | OrderedExpr | UnorderedExpr | Constructor
 #[56]    	Literal 	   ::=    	NumericLiteral | StringLiteral
+class XQuery::Core::Literal is XQuery::Core::Node {
+    has $.value;
+
+    method Str {
+        'Literal[' ~ $.value ~ ']';
+    }
+};
+
 #[57]    	NumericLiteral 	   ::=    	IntegerLiteral | DecimalLiteral | DoubleLiteral
 #[58]    	VarRef 	   ::=    	"$" VarName
 #[59]    	VarName 	   ::=    	QName