workbench/libs/icon/diskobjNIio.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 /****************************************************************************************/
   7
   8 #include "icon_intern.h"
   9
  10 #   define DEBUG 0
  11 #   include <aros/debug.h>
  12
  13 /****************************************************************************************/
  14
  15 static void RemoveToolType(STRPTR *tt)
  16 {
  17     if (tt[0])
  18     {
  19         FreeVec(tt[0]);
  20
  21         for(;;)
  22         {
  23             tt[0] = tt[1];
  24             if (!tt[0]) break;
  25
  26             tt++;
  27         }
  28     }
  29 }
  30
  31 /****************************************************************************************/
  32
  33 /* Decode3NI() based on ModifyIcon by Dirk Stöcker */
  34
  35 /****************************************************************************************/
  36
  37 static char *DecodeNI(STRPTR *tt, UBYTE *outbuffer, LONG bits, LONG entries, WORD which, BOOL is_palette)
  38 {
  39     LONG   numbits = 0, curentry = 0, bitbuf = 0, loop = 0, mask, val;
  40     UBYTE  byte;
  41     STRPTR src;
  42
  43     if(is_palette)
  44     {
  45         src = *tt + 9;
  46         RemoveToolType(tt);
  47     }
  48     else
  49     {
  50         src = ""; /* a dummy start */
  51     }
  52     mask = (1 << bits) - 1;
  53
  54     while(curentry < entries)
  55     {
  56         if(loop)
  57         {
  58             byte = 0;
  59             --loop;
  60         }
  61         else
  62         {
  63             if(!*src)
  64             {
  65                 src = *tt;
  66                 if(!src || src[0] != 'I' || src[1] != 'M' || src[2] != '1' + which || src[3] != '=')
  67                 {
  68                     return "NewIcon data truncated";
  69                 }
  70                 else
  71                 {
  72                     src += 4; numbits = 0;
  73                 }
  74                 RemoveToolType(tt);
  75             }
  76
  77             byte = *(src++);
  78
  79             if(!byte)
  80             {
  81                 return "NewIcon data invalid";
  82             }
  83             else if(byte < 0xA0)
  84             {
  85                 byte -= 0x20;
  86             }
  87             else if(byte < 0xD1)
  88             {
  89                 byte -= 0x51;
  90             }
  91             else
  92             {
  93                 loop = byte - 0xD1;
  94                 byte = 0;
  95             }
  96         }
  97
  98         bitbuf = (bitbuf << 7) + byte;
  99         numbits += 7;
 100
 101         while(numbits >= bits && curentry < entries)
 102         {
 103           val = (bitbuf >> (numbits - bits)) & mask;
 104
 105           *outbuffer++ = val;
 106
 107           numbits -= bits;
 108           curentry++;
 109         }
 110     }
 111
 112     return 0;
 113 }
 114
 115 /****************************************************************************************/
 116
 117 static BOOL ReadImageNI(struct NativeIcon *icon, WORD which, STRPTR *tooltypes,
 118                         struct IconBase *IconBase)
 119 {
 120     struct Image35 *img;
 121     STRPTR          tt;
 122     LONG            width, height, numcols;
 123     ULONG           size;
 124     BOOL            transp;
 125
 126     img = which ? &icon->icon35.img2 : &icon->icon35.img1;
 127
 128     while((tt = *tooltypes))
 129     {
 130         if (tt[0] == 'I' && tt[1] == 'M' && tt[2] == '1' + which && tt[3] == '=')
 131         {
 132             break;
 133         }
 134         tooltypes++;
 135     }
 136
 137     if (!tt) return FALSE;
 138
 139     tt += 4;
 140
 141     if (strlen(tt) < 5) return FALSE;
 142
 143     width = tt[1] - 0x21;
 144     height = tt[2] - 0x21;
 145
 146     /* Selected image must have same size as normal image otherwise ignore it. */
 147     if (which && ((width != icon->icon35.width) || (height != icon->icon35.height)))
 148     {
 149         return FALSE;
 150     }
 151
 152     numcols = (((tt[3] - 0x21) << 6) + (tt[4] - 0x21));
 153     transp = (tt[0] =='B') ? TRUE : FALSE;
 154
 155     size = width * height;
 156     size += numcols * sizeof(struct ColorRegister);
 157     if (transp) size += RASSIZE(width, height);
 158
 159     img->imagedata = AllocVec(size, MEMF_ANY);
 160     if (!img->imagedata) return FALSE;
 161
 162     if (!which)
 163     {
 164         icon->icon35.width  = width;
 165         icon->icon35.height = height;
 166         icon->icon35.flags  = ICON35F_FRAMELESS;
 167         icon->icon35.aspect = 0x1111; /* ?? */
 168     }
 169
 170     img->palette = img->imagedata + width * height;
 171     img->mask = transp ? (img->palette + numcols * sizeof(struct ColorRegister)) :
 172                          NULL;
 173     img->flags = transp ? (IMAGE35F_HASPALETTE | IMAGE35F_HASTRANSPARENTCOLOR) :
 174                           IMAGE35F_HASPALETTE;
 175     img->transparentcolor = 0;
 176     img->numcolors = numcols;
 177
 178     img->depth = 1;
 179     while((1L << img->depth) < img->numcolors)
 180     {
 181         img->depth++;
 182     }
 183
 184     DecodeNI(tooltypes, img->palette, 8, img->numcolors * sizeof(struct ColorRegister), which, TRUE);
 185     DecodeNI(tooltypes, img->imagedata, img->depth, width * height, which, FALSE);
 186
 187     if (transp) MakeMask35(img->imagedata, img->mask, 0, width, height);
 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->icon35.img1.imagedata)
 203     {
 204         /* It's an 3.5 style icon. Ignore possible NewIcon */
 205         return TRUE;
 206     }
 207
 208     tooltypes = icon->dobj.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     RemoveToolType(tooltypes);
 223
 224     ReadImageNI(icon, 0, tooltypes, IconBase);
 225     ReadImageNI(icon, 1, tooltypes, IconBase);
 226
 227     return TRUE;
 228 }
 229
 230 /****************************************************************************************/
 231
 232 BOOL WriteIconNI(struct NativeIcon *icon, struct Hook *streamhook,
 233                  void *stream, struct IconBase *IconBase)
 234 {
 235     D(bug("WriteIconNI\n"));
 236
 237     return TRUE;
 238 }
 239
 240 /****************************************************************************************/
 241
 242 VOID FreeIconNI(struct NativeIcon *icon, struct IconBase *IconBase)
 243 {
 244     D(bug("FreeIconNI\n"));
 245
 246     /* Don't do anything */
 247 }
 248
 249 /****************************************************************************************/
 250