[Résolu] Codes couleurs protégés ?

[CrazyCat]

Pour une fois, je poste pour faire travailler vos neurones.

Je me suis aperçu que lorsqu'il y a un code couleur dans un fichier externe au tcl, le tcl le protège et donc ne peut pas l'interpréter.

Pour faire simple:

Fichier source:

Code :

test : \002(\037)¯¯¯¯)¯¯¯¯¯¯¯¯¯¯¯\037)~~~\002

Script :

Code :

bind pub - "!read" goread

set filei "databases/small.db"
proc goread { user host handle chan args } {
   set fp [open $::filei "r"]
   set line [gets $fp]
   putserv "PRIVMSG #canal :$line"
   close $fp
}

Rendu : la ligne telle que présente dans le source, avec les \

Tests faits:

Code :

regsub -all -- \\\\ $line \ line
   regsub -all -- \\\\ $line \\ line
   regsub -all -- \\\\0 $line \\0 line
   regsub -all -- \\\\0(\d{1,} $line \\0\1 line
   regsub -all -- \\\\ $line "a" line

L'avant dernier fait perdre tout ce qui est coloré, le dernier provoque bien le remplacement du \ de la source par un a, donc il doit bien exister une astuce pour que le code soit interprété, non ?

Des idées ?