From 7e0f021a9aec35fd8e6725e87e3313b101d26f5e Mon Sep 17 00:00:00 2001
From: Tobias Klauser <tklauser@distanz.ch>
Date: Sun, 27 Jan 2008 11:37:44 +0100
Subject: Initial import (2.0.2-6)

---
 reference/C/CONTRIB/SNIP/rmtrail.c | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100755 reference/C/CONTRIB/SNIP/rmtrail.c

(limited to 'reference/C/CONTRIB/SNIP/rmtrail.c')

diff --git a/reference/C/CONTRIB/SNIP/rmtrail.c b/reference/C/CONTRIB/SNIP/rmtrail.c
new file mode 100755
index 0000000..d95c317
--- /dev/null
+++ b/reference/C/CONTRIB/SNIP/rmtrail.c
@@ -0,0 +1,31 @@
+/*
+**  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 trailing whitespace from a string
+*/
+
+#include <string.h>
+#include <ctype.h>
+
+#define NUL '\0'
+
+char *rmtrail(char *str)
+{
+      int i;
+
+      if (0 != (i = strlen(str)))
+      {
+            while (--i >= 0)
+            {
+                  if (!isspace(str[i]))
+                        break;
+            }
+            str[++i] = NUL;
+      }
+      return str;
+}
-- 
cgit v1.2.3-54-g00ecf