git.sur5r.net Git - cc65/blob - src/common/gentype.c

   1 /*****************************************************************************/
   2 /*                                                                           */
   3 /*                                 gentype.c                                 */
   4 /*                                                                           */
   5 /*                        Generic data type encoding                         */
   6 /*                                                                           */
   7 /*                                                                           */
   8 /*                                                                           */
   9 /* (C) 2011,      Ullrich von Bassewitz                                      */
  10 /*                Roemerstrasse 52                                           */
  11 /*                D-70794 Filderstadt                                        */
  12 /* EMail:         uz@cc65.org                                                */
  13 /*                                                                           */
  14 /*                                                                           */
  15 /* This software is provided 'as-is', without any expressed or implied       */
  16 /* warranty.  In no event will the authors be held liable for any damages    */
  17 /* arising from the use of this software.                                    */
  18 /*                                                                           */
  19 /* Permission is granted to anyone to use this software for any purpose,     */
  20 /* including commercial applications, and to alter it and redistribute it    */
  21 /* freely, subject to the following restrictions:                            */
  22 /*                                                                           */
  23 /* 1. The origin of this software must not be misrepresented; you must not   */
  24 /*    claim that you wrote the original software. If you use this software   */
  25 /*    in a product, an acknowledgment in the product documentation would be  */
  26 /*    appreciated but is not required.                                       */
  27 /* 2. Altered source versions must be plainly marked as such, and must not   */
  28 /*    be misrepresented as being the original software.                      */
  29 /* 3. This notice may not be removed or altered from any source              */
  30 /*    distribution.                                                          */
  31 /*                                                                           */
  32 /*****************************************************************************/
  33
  34
  35
  36 /* common */
  37 #include "check.h"
  38 #include "gentype.h"
  39 #include "strbuf.h"
  40
  41
  42
  43 /*****************************************************************************/
  44 /*                                   Code                                    */
  45 /*****************************************************************************/
  46
  47
  48
  49 void GT_AddArray (StrBuf* Type, unsigned ArraySize)
  50 /* Add an array with the given size to the type string in Type. This will
  51  * NOT add the element type!
  52  */
  53 {
  54     unsigned SizeBytes;
  55
  56     /* Remember the current position */
  57     unsigned Pos = SB_GetLen (Type);
  58
  59     /* Add a dummy array token */
  60     SB_AppendChar (Type, GT_TYPE_ARRAY);
  61
  62     /* Add the size. */
  63     SizeBytes = 0;
  64     do {
  65         SB_AppendChar (Type, ArraySize & 0xFF);
  66         ArraySize >>= 8;
  67         ++SizeBytes;
  68     } while (ArraySize);
  69
  70     /* Write the correct array token */
  71     SB_GetBuf (Type)[Pos] = GT_ARRAY (SizeBytes);
  72 }
  73
  74
  75
  76 unsigned GT_GetElementCount (StrBuf* Type)
  77 /* Retrieve the element count of an array stored in Type at the current index
  78  * position. Note: Index must point to the array token itself, since the size
  79  * of the element count is encoded there. The index position will get moved
  80  * past the array.
  81  */
  82 {
  83     /* Get the number of bytes for the element count */
  84     unsigned SizeBytes = GT_GET_SIZE (SB_Get (Type));
  85
  86     /* Read the size */
  87     unsigned Size = 0;
  88     const char* Buf = SB_GetConstBuf (Type) + SB_GetLen (Type);
  89     while (SizeBytes--) {
  90         Size <<= 8;
  91         Size |= Buf[SizeBytes];
  92     }
  93
  94     /* Return it */
  95     return Size;
  96 }
  97
  98
  99
 100 const char* GT_AsString (const StrBuf* Type, StrBuf* String)
 101 /* Convert the type into a readable representation. The target string buffer
 102  * will be zero terminated and a pointer to the contents are returned.
 103  */
 104 {
 105     static const char HexTab[16] = "0123456789ABCDEF";
 106     unsigned I;
 107
 108     /* Convert Type into readable hex. String will have twice then length
 109      * plus a terminator.
 110      */
 111     SB_Realloc (String, 2 * SB_GetLen (Type) + 1);
 112     SB_Clear (String);
 113
 114     for (I = 0; I < SB_GetLen (Type); ++I) {
 115         unsigned char C = SB_AtUnchecked (Type, I);
 116         SB_AppendChar (String, HexTab[(C & 0xF0) >> 4]);
 117         SB_AppendChar (String, HexTab[(C & 0x0F) >> 0]);
 118     }
 119
 120     /* Terminate the string so it can be used with string functions */
 121     SB_Terminate (String);
 122
 123     /* Return the contents of String */
 124     return SB_GetConstBuf (String);
 125 }