more dump output for Regex nodes.

timo · timo · commit 0de4547e5b85 · 2013-11-20T18:52:03.000+01:00
diff --git a/src/QAST/Regex.nqp b/src/QAST/Regex.nqp
@@ -25,7 +25,7 @@ class QAST::Regex is QAST::Node {
     method max(*@value)       { $!max := @value[0] if @value; $!max }
     
     method dump_extra_node_info() {
-        ":rxtype($!rxtype)" ~ (!nqp::isnull_s($!subtype) ?? " :subtype($!subtype)" !! "")
+        ":rxtype($!rxtype)" ~ (!nqp::isnull_s($!subtype) ?? " :subtype($!subtype)" !! "") ~ ($!negate ?? ' (negated)' !! '') ~ (nqp::defined($!name) ?? " :name($!name)" !! '')
     }
 }
 

Original file line number	Diff line number	Diff line change
`@@ -25,7 +25,7 @@ class QAST::Regex is QAST::Node {`
`25`	`25`	`method max(*@value) { $!max := @value[0] if @value; $!max }`
`26`	`26`
`27`	`27`	`method dump_extra_node_info() {`
`28`		`- ":rxtype($!rxtype)" ~ (!nqp::isnull_s($!subtype) ?? " :subtype($!subtype)" !! "")`
	`28`	`+ ":rxtype($!rxtype)" ~ (!nqp::isnull_s($!subtype) ?? " :subtype($!subtype)" !! "") ~ ($!negate ?? ' (negated)' !! '') ~ (nqp::defined($!name) ?? " :name($!name)" !! '')`
`29`	`29`	`}`
`30`	`30`	`}`
`31`	`31`