From 7e0f021a9aec35fd8e6725e87e3313b101d26f5e Mon Sep 17 00:00:00 2001 From: Tobias Klauser Date: Sun, 27 Jan 2008 11:37:44 +0100 Subject: Initial import (2.0.2-6) --- reference/C/CONTRIB/SNIP/rmlead.c | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100755 reference/C/CONTRIB/SNIP/rmlead.c (limited to 'reference/C/CONTRIB/SNIP/rmlead.c') diff --git a/reference/C/CONTRIB/SNIP/rmlead.c b/reference/C/CONTRIB/SNIP/rmlead.c new file mode 100755 index 0000000..e3e3c18 --- /dev/null +++ b/reference/C/CONTRIB/SNIP/rmlead.c @@ -0,0 +1,26 @@ +/* +** 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 leading whitespace from a string +*/ + +#include +#include + +#define NUL '\0' + +char *rmlead(char *str) +{ + char *obuf; + + for (obuf = str; obuf && *obuf && isspace(*obuf); ++obuf) + ; + if (str != obuf) + strcpy(str, obuf); + return str; +} -- cgit v1.2.3-54-g00ecf