workbench/libs/icon/diskobjNIio.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 /****************************************************************************************/
   7
   8 #include <aros/debug.h>
   9
  10 #include "icon_intern.h"
  11
  12 /****************************************************************************************/
  13
  14 static STRPTR RemoveToolType(STRPTR *tt)
  15 {
  16     STRPTR ret = tt[0];
  17
  18     if (ret)
  19     {
  20         for(;;)
  21         {
  22             tt[0] = tt[1];
  23             if (!tt[0]) break;
  24
  25             tt++;
  26         }
  27     }
  28
  29     return ret;
  30 }
  31
  32 /****************************************************************************************/
  33
  34 /* DecodeNI() based on ModifyIcon by Dirk Stöcker */
  35
  36 /****************************************************************************************/
  37
  38 static char *DecodeNI(struct DiskObject *icon, STRPTR *tt, UBYTE *outbuffer, LONG bits, LONG entries, WORD which, BOOL is_palette, APTR IconBase)
  39 {
  40     LONG   numbits = 0, curentry = 0, bitbuf = 0, loop = 0, mask, val;
  41     UBYTE  byte;
  42     STRPTR src, dead = NULL;
  43
  44     if(is_palette)
  45     {
  46         src = *tt + 9;
  47         dead = RemoveToolType(tt);
  48     }
  49     else
  50     {
  51         src = ""; /* a dummy start */
  52     }
  53     mask = (1 << bits) - 1;
  54
  55     while(curentry < entries)
  56     {
  57         if(loop)
  58         {
  59             byte = 0;
  60             --loop;
  61         }
  62         else
  63         {
  64             if(!*src)
  65             {
  66                 if (dead)
  67                 {
  68                     dead = NULL;
  69                 }
  70                 src = *tt;
  71                 if(!src || src[0] != 'I' || src[1] != 'M' || src[2] != '1' + which || src[3] != '=')
  72                 {
  73                     return "NewIcon data truncated";
  74                 }
  75                 else
  76                 {
  77                     src += 4; numbits = 0;
  78                 }
  79                 dead = RemoveToolType(tt);
  80             }
  81
  82             byte = *(src++);
  83
  84             if(!byte)
  85             {
  86                 return "NewIcon data invalid";
  87             }
  88             else if(byte < 0xA0)
  89             {
  90                 byte -= 0x20;
  91             }
  92             else if(byte < 0xD1)
  93             {
  94                 byte -= 0x51;
  95             }
  96             else
  97             {
  98                 loop = byte - 0xD1;
  99                 byte = 0;
 100             }
 101         }
 102
 103         bitbuf = (bitbuf << 7) + byte;
 104         numbits += 7;
 105
 106         while(numbits >= bits && curentry < entries)
 107         {
 108           val = (bitbuf >> (numbits - bits)) & mask;
 109
 110           *outbuffer++ = val;
 111
 112           numbits -= bits;
 113           curentry++;
 114         }
 115     }
 116
 117     return 0;
 118 }
 119
 120 /****************************************************************************************/
 121
 122 static BOOL ReadImageNI(struct NativeIcon *icon, WORD which, STRPTR *tooltypes,
 123                         struct IconBase *IconBase)
 124 {
 125     struct NativeIconImage *img;
 126     STRPTR          tt;
 127     LONG            width, height, numcols;
 128     ULONG           size;
 129     BOOL            transp;
 130     int bits;
 131
 132     img = which ? &icon->ni_Image[1] : &icon->ni_Image[0];
 133
 134     while((tt = *tooltypes))
 135     {
 136         if (tt[0] == 'I' && tt[1] == 'M' && tt[2] == '1' + which && tt[3] == '=')
 137         {
 138             break;
 139         }
 140         tooltypes++;
 141     }
 142
 143     if (!tt) return FALSE;
 144
 145     tt += 4;
 146
 147     if (strlen(tt) < 5) return FALSE;
 148
 149     width = tt[1] - 0x21;
 150     height = tt[2] - 0x21;
 151
 152     /* Selected image must have same size as normal image otherwise ignore it. */
 153     if (which && ((width != icon->ni_Face.Width) || (height != icon->ni_Face.Height)))
 154     {
 155         return FALSE;
 156     }
 157
 158     numcols = (((tt[3] - 0x21) << 6) + (tt[4] - 0x21));
 159     transp = (tt[0] =='B') ? TRUE : FALSE;
 160
 161     size = width * height;
 162
 163     img->ImageData =
 164         AllocMemIcon(&icon->ni_DiskObject, size, MEMF_PUBLIC, IconBase);
 165     if (!img->ImageData) return FALSE;
 166
 167     if (!which)
 168     {
 169         icon->ni_Frameless = TRUE;
 170         icon->ni_Face.Width  = width;
 171         icon->ni_Face.Height = height;
 172         icon->ni_Face.Aspect = PACK_ICON_ASPECT_RATIO(1,1);
 173     }
 174
 175     size = numcols * sizeof(struct ColorRegister);
 176     img->Palette =
 177         AllocMemIcon(&icon->ni_DiskObject, size, MEMF_PUBLIC, IconBase);
 178     if (!img->Palette) return FALSE;
 179
 180     img->TransparentColor = transp ? 0 : -1;
 181     img->Pens = numcols;
 182
 183     DecodeNI(&icon->ni_DiskObject, tooltypes, (UBYTE *)img->Palette, 8, img->Pens * sizeof(struct ColorRegister), which, TRUE, IconBase);
 184     for (bits = 1; (1 << bits) < numcols; bits++);
 185     DecodeNI(&icon->ni_DiskObject, tooltypes, (UBYTE *)img->ImageData, bits, width * height, which, FALSE, IconBase);
 186
 187     D(bug("%s: Read NewIcon image %d data from tooltypes\n", __func__, which + 1));
 188
 189     return TRUE;
 190 }
 191
 192
 193 /****************************************************************************************/
 194
 195 BOOL ReadIconNI(struct NativeIcon *icon, struct Hook *streamhook,
 196                 void *stream, struct IconBase *IconBase)
 197 {
 198     STRPTR *tooltypes, tt;
 199
 200     D(bug("ReadIconNI\n"));
 201
 202     if (icon->ni_Image[0].ImageData)
 203     {
 204         /* It's an 3.5 style icon. Ignore possible NewIcon */
 205         return TRUE;
 206     }
 207
 208     tooltypes = icon->ni_DiskObject.do_ToolTypes;
 209     if ( ! tooltypes) return TRUE;
 210     while ((tt = *tooltypes))
 211     {
 212         if (strcmp(tt, "*** DON'T EDIT THE FOLLOWING LINES!! ***") == 0)
 213         {
 214             break;
 215         }
 216
 217         tooltypes++;
 218     }
 219
 220     if (!tt) return TRUE;
 221
 222     tt[0] = 0;
 223
 224     if (!ReadImageNI(icon, 0, tooltypes, IconBase))
 225         return FALSE;
 226
 227     if (!ReadImageNI(icon, 1, tooltypes, IconBase))
 228         return FALSE;
 229
 230     return TRUE;
 231 }
 232
 233 /****************************************************************************************/
 234
 235 BOOL WriteIconNI(struct NativeIcon *icon, struct Hook *streamhook,
 236                  void *stream, struct IconBase *IconBase)
 237 {
 238     D(bug("WriteIconNI\n"));
 239
 240     return TRUE;
 241 }
 242
 243 /****************************************************************************************/
 244
 245 VOID FreeIconNI(struct NativeIcon *icon, struct IconBase *IconBase)
 246 {
 247     D(bug("FreeIconNI\n"));
 248
 249     /* Don't do anything */
 250 }
 251
 252 /****************************************************************************************/
 253