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 <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_Width) || (height != icon->ni_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 = AllocMemIcon(&icon->ni_DiskObject, size, MEMF_PUBLIC);
 164     if (!img->ImageData) return FALSE;
 165
 166     if (!which)
 167     {
 168         icon->ni_Width  = width;
 169         icon->ni_Height = height;
 170         icon->ni_Frameless = TRUE;
 171         icon->ni_Aspect = PACK_ICON_ASPECT_RATIO(1,1);
 172     }
 173
 174     size = numcols * sizeof(struct ColorRegister);
 175     img->Palette = AllocMemIcon(&icon->ni_DiskObject, size, MEMF_PUBLIC);
 176     if (!img->Palette) return FALSE;
 177
 178     img->TransparentColor = transp ? -1 : 0;
 179     img->Pens = numcols;
 180
 181     DecodeNI(&icon->ni_DiskObject, tooltypes, (UBYTE *)img->Palette, 8, img->Pens * sizeof(struct ColorRegister), which, TRUE, IconBase);
 182     for (bits = 1; (1 << bits) < numcols; bits++);
 183     DecodeNI(&icon->ni_DiskObject, tooltypes, (UBYTE *)img->ImageData, bits, width * height, which, FALSE, IconBase);
 184
 185     return TRUE;
 186 }
 187
 188
 189 /****************************************************************************************/
 190
 191 BOOL ReadIconNI(struct NativeIcon *icon, struct Hook *streamhook,
 192                 void *stream, struct IconBase *IconBase)
 193 {
 194     STRPTR *tooltypes, tt;
 195
 196     D(bug("ReadIconNI\n"));
 197
 198     if (icon->ni_Image[0].ImageData)
 199     {
 200         /* It's an 3.5 style icon. Ignore possible NewIcon */
 201         return TRUE;
 202     }
 203
 204     tooltypes = icon->ni_DiskObject.do_ToolTypes;
 205     if ( ! tooltypes) return TRUE;
 206     while ((tt = *tooltypes))
 207     {
 208         if (strcmp(tt, "*** DON'T EDIT THE FOLLOWING LINES!! ***") == 0)
 209         {
 210             break;
 211         }
 212
 213         tooltypes++;
 214     }
 215
 216     if (!tt) return TRUE;
 217
 218     if (!ReadImageNI(icon, 0, tooltypes, IconBase))
 219         return FALSE;
 220
 221     if (!ReadImageNI(icon, 1, tooltypes, IconBase))
 222         return FALSE;
 223
 224     return TRUE;
 225 }
 226
 227 /****************************************************************************************/
 228
 229 BOOL WriteIconNI(struct NativeIcon *icon, struct Hook *streamhook,
 230                  void *stream, struct IconBase *IconBase)
 231 {
 232     D(bug("WriteIconNI\n"));
 233
 234     return TRUE;
 235 }
 236
 237 /****************************************************************************************/
 238
 239 VOID FreeIconNI(struct NativeIcon *icon, struct IconBase *IconBase)
 240 {
 241     D(bug("FreeIconNI\n"));
 242
 243     /* Don't do anything */
 244 }
 245
 246 /****************************************************************************************/
 247