Tcl function: TclList2SetOfText

[Pedro Gea]

La función Tcl TclList2SetOfText no funciona adecuadamente si los textos tienen comillas en su interior:

Set Eval(Tcl_Eval("
TclList2SetOfText [list {un texto} {otro texto \"distinto\"}]
")[1]);
// ERROR: [3] Argumento distinto fuera de lugar. Símbolo fuera de 
// lugar.  en el carácter 42, línea 1:
// > SetOfText("un texto","otro texto "distinto"")
//                                            ^

Se propone una alternativa a la función implementada en: tolinspe.tcl línea 2129:

proc TclList2SetOfText { lst } {
  set result [ list ]
  foreach i $lst {
    lappend result \"[string map {\" \\\"} $i]\"
  }
  return "SetOfText([join $result ,])"
}

[Jorge]

Hay que tener cuidado pues si aparece la secuencia \" en la cadena entonces el resultado es inválido.

[Jorge]

(In [4133]) fixes #1200, se corrige según la propuesta del ticket.