Initial revision

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 <ctype.h>
+#include <string.h>
+
+#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;
+}