misc/debugstr.c

   1 #include "debugstr.h"
   2 #include "xmalloc.h"
   3 #include <stdlib.h>
   4 #include <stdio.h>
   5
   6 /* ---------------------------------------------------------------------- */
   7
   8 #define SAVE_STRING_COUNT 50
   9 static void *strings[SAVE_STRING_COUNT];
  10 static int nextstring;
  11
  12 /* ---------------------------------------------------------------------- */
  13
  14 static void *
  15 gimme1 (int n)
  16 {
  17   void *res;
  18   if (strings[nextstring]) free (strings[nextstring]);
  19   res = strings[nextstring] = xmalloc (n);
  20   if (++nextstring == SAVE_STRING_COUNT) nextstring = 0;
  21   return res;
  22 }
  23
  24 /* ---------------------------------------------------------------------- */
  25
  26 LPSTR
  27 debugstr_an (LPCSTR src, int n)
  28 {
  29   LPSTR dst, res;
  30
  31   if (!src) return "(null)";
  32   if (n < 0) n = 0;
  33   dst = res = gimme1 (n * 4 + 10);
  34   *dst++ = '"';
  35   while (n-- > 0 && *src)
  36     {
  37       BYTE c = *src++;
  38       switch (c)
  39         {
  40         case '\n': *dst++ = '\\'; *dst++ = 'n'; break;
  41         case '\r': *dst++ = '\\'; *dst++ = 'r'; break;
  42         case '\t': *dst++ = '\\'; *dst++ = 't'; break;
  43         case '"': *dst++ = '\\'; *dst++ = '"'; break;
  44         case '\\': *dst++ = '\\'; *dst++ = '\\'; break;
  45         default:
  46           if (c >= ' ' && c <= 126)
  47             *dst++ = c;
  48           else
  49             {
  50               *dst++ = '\\';
  51               *dst++ = '0' + ((c >> 6) & 7);
  52               *dst++ = '0' + ((c >> 3) & 7);
  53               *dst++ = '0' + ((c >> 0) & 7);
  54             }
  55         }
  56     }
  57   if (*src)
  58     {
  59       *dst++ = '.';
  60       *dst++ = '.';
  61       *dst++ = '.';
  62     }
  63   *dst++ = '"';
  64   *dst = 0;
  65   return res;
  66 }
  67
  68 /* ---------------------------------------------------------------------- */
  69
  70 LPSTR
  71 debugstr_a (LPCSTR s)
  72 {
  73   return debugstr_an (s, 80);
  74 }
  75
  76 /* ---------------------------------------------------------------------- */
  77
  78 LPSTR
  79 debugstr_wn (LPCWSTR src, int n)
  80 {
  81   LPSTR dst, res;
  82
  83   if (!src) return "(null)";
  84   if (n < 0) n = 0;
  85   dst = res = gimme1 (n * 4 + 10);
  86   *dst++ = '"';
  87   while (n-- > 0 && *src)
  88     {
  89       WORD c = *src++;
  90       switch (c)
  91         {
  92         case '\n': *dst++ = '\\'; *dst++ = 'n'; break;
  93         case '\r': *dst++ = '\\'; *dst++ = 'r'; break;
  94         case '\t': *dst++ = '\\'; *dst++ = 't'; break;
  95         case '"': *dst++ = '\\'; *dst++ = '"'; break;
  96         case '\\': *dst++ = '\\'; *dst++ = '\\'; break;
  97         default:
  98           if (c >= ' ' && c <= 126)
  99             *dst++ = c;
 100           else
 101             {
 102               *dst++ = '\\';
 103               *dst++ = '0' + ((c >> 6) & 7);
 104               *dst++ = '0' + ((c >> 3) & 7);
 105               *dst++ = '0' + ((c >> 0) & 7);
 106             }
 107         }
 108     }
 109   if (*src)
 110     {
 111       *dst++ = '.';
 112       *dst++ = '.';
 113       *dst++ = '.';
 114     }
 115   *dst++ = '"';
 116   *dst = 0;
 117   return res;
 118 }
 119
 120 /* ---------------------------------------------------------------------- */
 121
 122 LPSTR
 123 debugstr_w (LPCWSTR s)
 124 {
 125   return debugstr_wn (s, 80);
 126 }
 127
 128 /* ---------------------------------------------------------------------- */
 129 /* This routine returns a nicely formated name of the resource res
 130    If the resource name is a string, it will return '<res-name>'
 131    If it is a number, it will return #<4-digit-hex-number> */
 132 LPSTR
 133 debugres (const void *res)
 134 {
 135   if (HIWORD((DWORD)res))
 136     return debugstr_a((LPCSTR)res);
 137   else{
 138     char resname[10];
 139     sprintf(resname, "#%04x", LOWORD(res));
 140     return debugstr_a (resname);
 141   }
 142 }
 143