Add \c[nn,nn,nn] form of character specification.

src/HLL/Actions.pm

@@ -168,6 +168,16 @@ method quote_escape:sym<chr>($/) {
     make $<charspec>.ast;
 }
 
+method charname($/) {
+    make pir::chr($<integer>.ast);
+}
+
+method charnames($/) {
+    my $str := '';
+    for $<charname> { $str := $str ~ $_.ast; }
+    make $str;
+}
+
 method charspec($/) {
-    make pir::chr(string_to_int( $/, 10 ));
+    make $<charnames> ?? $<charnames>.ast !! pir::chr(string_to_int( $/, 10 ));
 }

t/nqp/46-charspec.t

@@ -2,6 +2,7 @@
 
 # check literals
 
-say('1..1');
+say('1..2');
 
 say("\c111\c107 \c49");
+say("\c[111,107,32,50]");