libowfat/stralloc/stralloc_catm_internal.c

#include <stdarg.h>
#include "stralloc.h"

int stralloc_catm_internal(stralloc* sa, ...) {
  va_list a;
  const char* s;
  size_t n=0;
  va_start(a,sa);
  while ((s=va_arg(a,const char*)))
    n += strlen(s);
  va_end(a);
  stralloc_readyplus(sa,n);

  va_start(a,sa);
  while ((s=va_arg(a,const char*)))
    if (stralloc_cats(sa,s)==0) {
      va_end(a);
      return 0;
    }
  va_end(a);
  return 1;
}