\c is suppose to support control codes too

TimToady · TimToady · commit 77d2a4b9a01a · 2014-12-27T13:26:47.000-08:00
diff --git a/src/HLL/Actions.nqp b/src/HLL/Actions.nqp
@@ -211,6 +211,11 @@ class HLL::Actions {
     }
 
     method charspec($/) {
-        make $<charnames> ?? $<charnames>.made !! nqp::chr(self.string_to_int( $/, 10 ));
+        make $<charnames>
+             ?? $<charnames>.made
+             !! nqp::chr($<control>
+                         ?? nqp::ord($<control>) +^ 64
+                         !! self.string_to_int( $/, 10 )
+                        );
     }
 }
diff --git a/src/HLL/Grammar.nqp b/src/HLL/Grammar.nqp
@@ -121,7 +121,7 @@ grammar HLL::Grammar {
         [
         | '[' <charnames> ']' 
         | \d+ [ _ \d+]*
-        | <[ ?..Z ]>
+        | <control=[ ?..Z ]>
         | <.panic: 'Unrecognized \\c character'>
         ]
     }

Original file line number	Diff line number	Diff line change
`@@ -211,6 +211,11 @@ class HLL::Actions {`
`211`	`211`	`}`
`212`	`212`
`213`	`213`	`method charspec($/) {`
`214`		`- make $<charnames> ?? $<charnames>.made !! nqp::chr(self.string_to_int( $/, 10 ));`
	`214`	`+ make $<charnames>`
	`215`	`+ ?? $<charnames>.made`
	`216`	`+ !! nqp::chr($<control>`
	`217`	`+ ?? nqp::ord($<control>) +^ 64`
	`218`	`+ !! self.string_to_int( $/, 10 )`
	`219`	`+ );`
`215`	`220`	`}`
`216`	`221`	`}`
Original file line number	Diff line number	Diff line change
`@@ -121,7 +121,7 @@ grammar HLL::Grammar {`
`121`	`121`	`[`
`122`	`122`	`\| '[' <charnames> ']'`
`123`	`123`	`\| \d+ [ _ \d+]*`
`124`		`- \| <[ ?..Z ]>`
	`124`	`+ \| <control=[ ?..Z ]>`
`125`	`125`	`\| <.panic: 'Unrecognized \\c character'>`
`126`	`126`	`]`
`127`	`127`	`}`