When constructing lists, \{ are special only when counting braces,

but are still passed through literally.
partcl · Apr 13, 2010 · 294435d · 294435d
1 parent 6fba342
commit 294435d
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/src/Partcl/Actions.pm b/src/Partcl/Actions.pm
@@ -79,8 +79,8 @@ method word:sym<bare>($/) { make concat_atoms($<bare_atom>); }
 method braced_word($/) { make concat_atoms($<braced_atom>); }
 method braced_atom:sym<{ }>($/)    { make '{' ~ $<braced_word>.ast ~ '}'; }
 method braced_atom:sym<backnl>($/) { make ' '; }
-method braced_atom:sym<back{>($/)  { make '{'; }
-method braced_atom:sym<back}>($/)  { make '}'; }
+method braced_atom:sym<back{>($/)  { make "\\" ~ '{'; }
+method braced_atom:sym<back}>($/)  { make "\\" ~ '}'; }
 method braced_atom:sym<back>($/)   { make "\\"; }
 method braced_atom:sym<chr>($/)    { make ~$/; }
 

diff --git a/t/cmd_list.t b/t/cmd_list.t
@@ -12,8 +12,8 @@ is [list a b {c {d e}}] {a b {c {d e}}} {spaces with braces}
 is [list a b "c {d e}"] {a b {c {d e}}} {spaces with quotes}
 is [list {1 2} {3 4}]   {{1 2} {3 4}}   {spaces in two elements}
 
-is [list "} {"] {\}\ \{} {braces with spaces} {TODO NQPRX}
-is [list \{ \}] {\{ \}}  {braces} {TODO NQPRX}
+is [list "} {"] {\}\ \{} {braces with spaces}
+is [list \{ \}] {\{ \}}  {braces}
 
 is [list "\n"]  "{\n}" {newline}
 is [list ";"]   {{;}}  {semicolon}
@@ -36,6 +36,6 @@ is [list {"}] {{"}} {single quote}
 is [list "{ab}xy"] "{{ab}xy}" {braces that don't wrap exactly}
 is [list "{ab}\\"] "\\{ab\\}\\\\" {braces that don't wrap exactly, trailing backslash}
 is [list \{\r] "\\\{\\r" {use standard \foo escapes when stringifying a list}
-is [list \{"] {\{\"} {escape quotes} {TODO NQP}
+is [list \{"] {\{\"} {escape quotes}
 
 # vim: filetype=tcl:
diff --git a/t/tcl_conversion.t b/t/tcl_conversion.t
@@ -36,7 +36,7 @@ eval_is {lindex {"a b"3} 1} \
   {non space after "} {TODO NQPRX}
 
 
-is [list \{\[] {\{\[} {[ in list} {TODO NQPRX}
+is [list \{\[] {\{\[} {[ in list}
 
 is [lindex {"a \" b"} 0] {a " b} {escaped quote in quotes in list} {TODO NQPRX}