Author: coke Date: Sat Aug 6 01:10:29 2005 New Revision: 8837 Modified: trunk/languages/tcl/lib/commands/string.pir Log: tcl: add [string map -nocase] support
Modified: trunk/languages/tcl/lib/commands/string.pir ============================================================================== --- trunk/languages/tcl/lib/commands/string.pir (original) +++ trunk/languages/tcl/lib/commands/string.pir Sat Aug 6 01:10:29 2005 @@ -322,7 +322,10 @@ inner_loop: teststr = substr the_string, strpos, mapstrlen # if nocase, tweak 'em both to lc. - + if nocase == 0 goto test + downcase teststr + downcase mapstr +test: if teststr != mapstr goto inner_next $I0 = mappos + 1 replacementstr = map_list [ $I0 ]
