+ if(gpd->free_buf)
+ {
+ free(gpd->buffer);
+ free(gpd);
+ }
+ tmpfree();
+}
+
+static const char *print_array(const char *fmt, const void *data, unsigned elem_size, unsigned count)
+{
+ const char *cptr;
+ char type = 0;
+ char *buffer;
+ unsigned buf_size;
+ char *ptr;
+ unsigned i;
+
+ for(cptr=fmt; (type<2 && *cptr); ++cptr)
+ {
+ if(*cptr=='%')
+ type = 1;
+ else if(type==1 && isalpha(*cptr))
+ type = *cptr;
+ }
+
+ count /= elem_size;
+ buf_size = count*20;
+ if(type=='s')
+ buf_size *= 50;
+ buffer = tmpalloc(buf_size);
+ ptr = buffer;
+ *ptr++ = '{';
+ for(i=0; i<count; ++i)
+ {
+ long long element = 0;
+ unsigned len;
+
+ if(i>0)
+ {
+ *ptr++ = ',';
+ *ptr++ = ' ';
+ }
+ memcpy(&element, (const char *)data+i*elem_size, elem_size);
+ if(type>='e' && type<='g' && elem_size==sizeof(float))
+ *(double *)&element = *(float *)&element;
+ len = snprintf(ptr, buf_size, fmt, element);
+ ptr += len;
+ buf_size -= len;
+ }
+ *ptr++ = '}';
+ *ptr = 0;
+
+ return buffer;
+}
+
+static const char *print_data(const void *data, unsigned size)
+{
+ if(!data)
+ return "NULL";
+ else if(!size)
+ return "/* data */";
+ else
+ {
+ char *buffer = tmpalloc(50);
+ snprintf(buffer, 50, "/* data: %d bytes */", size);
+ return buffer;
+ }