libs/basekit/source/UArray_format.c

   1 /*
   2         copyright: Steve Dekorte, 2006. All rights reserved.
   3         license: See _BSDLicense.txt.
   4 */
   5
   6 #include "UArray.h"
   7 #include <string.h>
   8 #include <stdarg.h>
   9 #include <stdio.h>
  10 #include <stddef.h>
  11
  12 UArray *UArray_newWithFormat_(const char *format, ...)
  13 {
  14         UArray *self;
  15         va_list ap;
  16         va_start(ap, format);
  17         self = UArray_newWithVargs_(format, ap);
  18         va_end(ap);
  19         return self;
  20 }
  21
  22 UArray *UArray_newWithVargs_(const char *format, va_list ap)
  23 {
  24         UArray *self = UArray_new();
  25         UArray_fromVargs_(self, format,ap);
  26         return self;
  27 }
  28
  29 UArray *UArray_fromFormat_(UArray *self, const char *format, ...)
  30 {
  31         va_list ap;
  32         va_start(ap, format);
  33         UArray_fromVargs_(self, format, ap);
  34         va_end(ap);
  35         return self;
  36 }
  37
  38 void UArray_fromVargs_(UArray *self, const char *format, va_list ap)
  39 {
  40         while (*format)
  41         {
  42                 if (*format == '%')
  43                 {
  44                         format ++;
  45
  46                         if (*format == 's')
  47                         {
  48                                 char *s = va_arg(ap, char *);
  49                                 if (!s) { printf("UArray_fromVargs_ missing param"); return; }
  50                                 UArray_appendCString_(self, s);
  51                         }
  52                         else if (*format == 'i' || *format == 'd')
  53                         {
  54                                 int i = va_arg(ap, int);
  55                                 char s[100];
  56
  57                                 snprintf(s, 100, "%i", i);
  58                                 UArray_appendCString_(self, s);
  59                         }
  60                         else if (*format == 'f')
  61                         {
  62                                 double d = va_arg(ap, double);
  63                                 char s[100];
  64
  65                                 snprintf(s, 100, "%f", d);
  66                                 UArray_appendCString_(self, s);
  67                         }
  68                         else if (*format == 'p')
  69                         {
  70                                 void *p = va_arg(ap, void *);
  71                                 char s[100];
  72
  73                                 snprintf(s, 100, "%p", p);
  74                                 UArray_appendCString_(self, s);
  75                         }
  76                         // new format command for a given number adding spaces
  77                         else if (*format == '#')
  78                         {
  79                                 int n, i = va_arg(ap, int);
  80                                 char *s = " ";
  81
  82                                 for (n = 0; n < i; n ++)
  83                                 {
  84                                         UArray_appendCString_(self, s);
  85                                 }
  86                         }
  87                 }
  88                 else
  89                 {
  90                         char s[2];
  91
  92                         snprintf(s, 2, "%c", *format);
  93                         UArray_appendCString_(self, s);
  94                 }
  95
  96                 format ++;
  97         }
  98 }
  99
 100 UArray *UArray_asNewHexStringUArray(UArray *self)
 101 {
 102         size_t i, newSize = self->size * 2;
 103         UArray *ba = UArray_new();
 104         UArray_setSize_(ba, newSize);
 105
 106         for(i = 0; i < self->size; i ++)
 107         {
 108                 int v = UArray_longAt_(self, i);
 109                 char *s = (char *)(ba->data + i * 2);
 110
 111                 if (v < 16)
 112                 {
 113                         snprintf(s, newSize, "0%x", (int)v);
 114                 }
 115                 else
 116                 {
 117                         snprintf(s, newSize, "%x", (int)v);
 118                 }
 119         }
 120
 121         return ba;
 122 }