Posted to tcl by zipguy at Sat May 17 16:37:23 GMT 2014view raw

  1. proc f2b { v } { return [regsub -all {/} $v {\\}] };# END-PROC
  2.  
  3. proc b2f { v } { return [regsub -all {\\} $v {/}] };# END-PROC
  4.