Author: coke Date: Fri Aug 5 22:38:38 2005 New Revision: 8833 Modified: trunk/languages/tcl/lib/commands/string.pir Log: Stub for [string map]
Modified: trunk/languages/tcl/lib/commands/string.pir ============================================================================== --- trunk/languages/tcl/lib/commands/string.pir (original) +++ trunk/languages/tcl/lib/commands/string.pir Fri Aug 5 22:38:38 2005 @@ -273,5 +273,16 @@ bad_repeat: retval = new String retval = "wrong # args: should be \"string repeat string count\"" .return (TCL_ERROR, retval) +.end + +# XXX stub +.sub "map" + .param pmc argv + + .local int argc + argc = argv + $P1 = new String + $P1 = "wrong # args: should be \"string map ?-nocase? charMap string\"" + .return (TCL_ERROR, $P1) .end
