Posted to tcl by evilotto at Wed Nov 28 22:46:50 GMT 2012view pretty
proc rs_eval {re text replacement} { set etext [string map {\$ \\$ \\ \\\\ \[ \\[ \] \\] \" \\" \} \\\} \{ \\\{} $text] regsub -nocase -all -- $re $etext $replacement stext return [subst $stext] }