From bf6a58c93a682d19e54d9d1b611cb823387ae139 Mon Sep 17 00:00:00 2001
From: Will Coleda <will@coleda.com>
Date: Mon, 30 Nov 2009 12:38:15 -0500
Subject: [PATCH] accept all valid, fully-qualified subcommand names for
 [string] even if they do nothing; error on invalid subcommands, return '' for
 now on the stubs.

---
 src/PmTcl/commands/string.pm | 42 ++++++++++++++++++++++++++++++++++--
 1 file changed, 40 insertions(+), 2 deletions(-)

diff --git a/src/PmTcl/commands/string.pm b/src/PmTcl/commands/string.pm
index b7634bc..262b472 100644
--- a/src/PmTcl/commands/string.pm
+++ b/src/PmTcl/commands/string.pm
@@ -20,11 +20,49 @@ our sub string(*@args) {
         } else {
             return 1;
         } 
+    } elsif $cmd eq 'equal' {
+        return '';
+    } elsif $cmd eq 'first' {
+    } elsif $cmd eq 'index' {
+        return '';
+    } elsif $cmd eq 'is' {
+        return '';
+    } elsif $cmd eq 'last' {
+        return '';
+    } elsif $cmd eq 'length' {
+        return '';
+    } elsif $cmd eq 'map' {
+        return '';
+    } elsif $cmd eq 'match' {
+        return '';
+    } elsif $cmd eq 'range' {
+        return '';
+    } elsif $cmd eq 'repeat' {
+        return '';
+    } elsif $cmd eq 'replace' {
+        return '';
+    } elsif $cmd eq 'reverse' {
+        return '';
+    } elsif $cmd eq 'tolower' {
+        return '';
+    } elsif $cmd eq 'totitle' {
+        return '';
     } elsif $cmd eq 'toupper' {
         return pir::upcase(@args[0]); 
-    } else {
-        return 'XXX';
+    } elsif $cmd eq 'trim' {
+        return '';
+    } elsif $cmd eq 'trimleft' {
+        return '';
+    } elsif $cmd eq 'trimright' {
+        return '';
+    } elsif $cmd eq 'wordend' {
+        return '';
+    } elsif $cmd eq 'wordstart' {
+        return '';
     }
+
+    # invalid subcommand.
+    error("unknown or ambiguous subcommand \"$cmd\": must be bytelength, compare, equal, first, index, is, last, length, map, match, range, repeat, replace, reverse, tolower, totitle, toupper, trim, trimleft, trimright, wordend, or wordstart");
 }
 
 module _tcl {