lib/stkstring.c

   1 #include "lib/lib.h"
   2 #include "lib/stkstring.h"
   3
   4 #include <stdio.h>
   5
   6 uns
   7 stk_array_len(char **s, uns cnt)
   8 {
   9   uns l = 1;
  10   while (cnt--)
  11     l += strlen(*s++);
  12   return l;
  13 }
  14
  15 void
  16 stk_array_copy(char *x, char **s, uns cnt)
  17 {
  18   while (cnt--)
  19     {
  20       uns l = strlen(*s);
  21       memcpy(x, *s, l);
  22       x += l;
  23       s++;
  24     }
  25   *x = 0;
  26 }
  27
  28 char *stk_printf_buf;
  29 static int stk_printf_len;
  30
  31 uns
  32 stk_printf_internal(char *fmt, ...)
  33 {
  34   va_list args;
  35   va_start(args, fmt);
  36   if (!stk_printf_buf)
  37     {
  38       stk_printf_buf = xmalloc(256);
  39       stk_printf_len = 256;
  40     }
  41   for (;;)
  42     {
  43       int l = vsnprintf(stk_printf_buf, stk_printf_len, fmt, args);
  44       if (l < 0)
  45         stk_printf_len *= 2;
  46       else if (l < stk_printf_len)
  47         return l+1;
  48       else
  49         stk_printf_len = MAX(stk_printf_len*2, l+1);
  50       stk_printf_buf = xrealloc(stk_printf_buf, stk_printf_len);
  51     }
  52 }
  53
  54 void
  55 stk_hexdump_internal(char *dst, byte *src, uns n)
  56 {
  57   for (uns i=0; i<n; i++)
  58     {
  59       if (i)
  60         *dst++ = ' ';
  61       dst += sprintf(dst, "%02x", *src++);
  62     }
  63   *dst = 0;
  64 }
  65
  66 #ifdef TEST
  67
  68 int main(void)
  69 {
  70   char *a = stk_strdup("are");
  71   a = stk_strcat(a, " the ");
  72   a = stk_strmulticat(a, "Jabberwock, ", "my", NULL);
  73   char *arr[] = { a, " son" };
  74   a = stk_strarraycat(arr, 2);
  75   a = stk_printf("Bew%s!", a);
  76   puts(a);
  77   puts(stk_hexdump(a, 3));
  78   return 0;
  79 }
  80
  81 #endif