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