apps/plugins/lua/strncat.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

#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;
}