[PATCH] New functions to strip whitespace from strings

[John Darrington]

        * src/std.pk (ltrim): New function.
        * src/std.pk (rtrim): New function.
---
 src/std.pk | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/src/std.pk b/src/std.pk
index 414a065..5335567 100644
--- a/src/std.pk
+++ b/src/std.pk
@@ -60,6 +60,33 @@ defun catos = (char[] chars) string:
    return s;
   }
 
+  /* Return S with leading whitespace omitted.  */
+defun ltrim = (string s) string:
+  {
+    defvar result = "";
+    for (c in s)
+      {
+       if (c == ' ' || c == '\t' || result != "")
+         result = result + c as string;
+      }
+    return result;
+  }
+
+  /* Return S with trailing whitespace omitted.  */
+defun rtrim = (string s) string:
+  {
+    defvar result = "";
+    defvar i = s'length;
+    while (i > 0)
+    {
+      defvar c = s[i - 1];
+      if ((c != ' ' && c != '\t') || result != "")
+        result = c as string + result;
+      i = i - 1;
+    }
+    return result;
+  }
+
 defun atoi = (string s, int b = 10) long:
   {
     defvar result = 0;
-- 
2.11.0