diff options
author | Tobias Klauser <tklauser@distanz.ch> | 2008-01-27 11:37:44 +0100 |
---|---|---|
committer | Tobias Klauser <tklauser@xenon.tklauser.home> | 2008-01-27 11:37:44 +0100 |
commit | 7e0f021a9aec35fd8e6725e87e3313b101d26f5e (patch) | |
tree | b1cacc4b24393f517aeb4610e9e1021f954307a8 /reference/C/CONTRIB/SNIP/rmallws.c |
Initial import (2.0.2-6)2.0.2-6
Diffstat (limited to 'reference/C/CONTRIB/SNIP/rmallws.c')
-rwxr-xr-x | reference/C/CONTRIB/SNIP/rmallws.c | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/reference/C/CONTRIB/SNIP/rmallws.c b/reference/C/CONTRIB/SNIP/rmallws.c new file mode 100755 index 0000000..84ca8a0 --- /dev/null +++ b/reference/C/CONTRIB/SNIP/rmallws.c @@ -0,0 +1,28 @@ +/*
+** Originally published as part of the MicroFirm Function Library
+**
+** Copyright 1986, S.E. Margison
+** Copyright 1989, Robert B.Stout
+**
+** Subset version released to the public domain, 1991
+**
+** remove all whitespace from a string
+*/
+
+#include <stdio.h>
+#include <ctype.h>
+
+#define NUL '\0'
+
+char *rmallws(char *str)
+{
+ char *obuf, *nbuf;
+
+ for (obuf = str, nbuf = str; *obuf && obuf; ++obuf)
+ {
+ if (!isspace(*obuf))
+ *nbuf++ = *obuf;
+ }
+ *nbuf = NUL;
+ return str;
+}
|