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

Reply via email to