1 files changed, 50 insertions, 0 deletions
diff --git a/strings/strappend.c b/strings/strappend.c
new file mode 100644
index 00000000..b469e748
--- /dev/null
+++ b/strings/strappend.c
@@ -0,0 +1,50 @@
+/* Copyright (c) 2000 TXT DataKonsult Ab & Monty Program Ab
+   Copyright (c) 2009-2011, Monty Program Ab
+
+   Redistribution and use in source and binary forms, with or without
+   modification, are permitted provided that the following conditions are
+   met:
+
+   1. Redistributions of source code must retain the above copyright
+   notice, this list of conditions and the following disclaimer.
+
+   2. Redistributions in binary form must the following disclaimer in
+     the documentation and/or other materials provided with the
+     distribution.
+
+   THIS SOFTWARE IS PROVIDED BY <COPYRIGHT HOLDER> ``AS IS'' AND ANY
+   EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+   IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+   PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL <COPYRIGHT HOLDER> OR
+   CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+   SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+   LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
+   USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+   ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+   OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
+   OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+   SUCH DAMAGE.
+*/
+
+/*  File   : strappend.c
+    Author : Monty
+    Updated: 1987.02.07
+    Defines: strappend()
+
+    strappend(dest, len, fill) appends fill-characters to a string so that
+    the result length == len. If the string is longer than len it's
+    trunked. The des+len character is always set to NULL.
+*/
+
+#include "strings_def.h"
+
+void strappend(register char *s, size_t len, pchar fill)
+{
+  register char *endpos;
+
+  endpos = s+len;
+  while (*s++);
+  s--;
+  while (s<endpos) *(s++) = fill;
+  *(endpos) = '\0';
+} /* strappend */