1 files changed, 21 insertions, 0 deletions

diff --git a/apps/plugins/lua/strncat.c b/apps/plugins/lua/strncat.c
new file mode 100644
index 0000000000..5b15ff07b1
--- /dev/null
+++ b/apps/plugins/lua/strncat.c
@@ -0,0 +1,21 @@
+#include "rocklibc.h"
+
+/* gcc is broken and has a non-SUSv2 compliant internal prototype.
+ * This causes it to warn about a type mismatch here.  Ignore it. */
+char *strncat(char *s, const char *t, size_t n) {
+  char *dest=s;
+  register char *max;
+  s+=strlen(s);
+  if (__unlikely((max=s+n)==s)) goto fini;
+  for (;;) {
+    if (__unlikely(!(*s = *t))) break; if (__unlikely(++s==max)) break; ++t;
+#ifndef WANT_SMALL_STRING_ROUTINES
+    if (__unlikely(!(*s = *t))) break; if (__unlikely(++s==max)) break; ++t;
+    if (__unlikely(!(*s = *t))) break; if (__unlikely(++s==max)) break; ++t;
+    if (__unlikely(!(*s = *t))) break; if (__unlikely(++s==max)) break; ++t;
+#endif
+  }
+  *s=0;
+fini:
+  return dest;
+}