1 files changed, 78 insertions, 0 deletions
diff --git a/reference/C/CONTRIB/SNIP/trim.c b/reference/C/CONTRIB/SNIP/trim.c
new file mode 100755
index 0000000..dd331db
--- /dev/null
+++ b/reference/C/CONTRIB/SNIP/trim.c
@@ -0,0 +1,78 @@
+/*
+**  TRIM.C - Remove leading, trailing, & excess embedded spaces
+**
+**  public domain by Bob Stout
+*/
+
+#include <ctype.h>
+#include <string.h>
+
+#define NUL '\0'
+
+char *trim(char *str)
+{
+      char *ibuf = str, *obuf = str;
+      int i = 0, cnt = 0;
+
+      /*
+      **  Trap NULL
+      */
+
+      if (str)
+      {
+            /*
+            **  Remove leading spaces (from RMLEAD.C)
+            */
+
+            for (ibuf = str; *ibuf && isspace(*ibuf); ++ibuf)
+                  ;
+            if (str != ibuf)
+                  memmove(str, ibuf, ibuf - str);
+
+            /*
+            **  Collapse embedded spaces (from LV1WS.C)
+            */
+
+            while (*ibuf)
+            {
+                  if (isspace(*ibuf) && cnt)
+                        ibuf++;
+                  else
+                  {
+                        if (!isspace(*ibuf))
+                              cnt = 0;
+                        else
+                        {
+                              *ibuf = ' ';
+                              cnt = 1;
+                        }
+                        obuf[i++] = *ibuf++;
+                  }
+            }
+            obuf[i] = NUL;
+
+            /*
+            **  Remove trailing spaces (from RMTRAIL.C)
+            */
+
+            while (--i >= 0)
+            {
+                  if (!isspace(obuf[i]))
+                        break;
+            }
+            obuf[++i] = NUL;
+      }
+      return str;
+}
+
+#ifdef TEST
+
+#include <stdio.h>
+
+main(int argc, char *argv[])
+{
+      printf("trim(\"%s\") ", argv[1]);
+      printf("returned \"%s\"\n", trim(argv[1]));
+}
+
+#endif /* TEST */