/* ico.c -- reads .ICO file
 *
 * Copyright (C) 2008 Erica Asai

 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 * 
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 * 
*/

#include<stdio.h>

#define NDATA 10

struct 
{
  char reserved[2];
  char type[2];
  char count[2];
}header;

struct
{
  char width;
  char height;
  char colorCount;
  char reserved;
  char planes[2];
  char bitCount[2];
  char sizeInBytes[4];
  char fileOffset[4];
}entry;

struct
{
  char size[4];
  char width[4];
  char height[4];
  char planes[2];
  char bitCount[2];
  char compression[4];
  char imageSize[4];
  char xPixelsPerM[4];
  char yPixelsPerM[4];
  char colorUsed[4];
  char colorsImportant[4];
}infoHeader;

struct
{
  char red;
  char green;
  char blue;
  char reserved;
}colors;

int btoi(char* buf,int len)
 {
   int x=0;
   if(len<=0)
     return x;
   int i=0;
   x=buf[len-1]&0xff;
   for(i=len-2;0<=i;i--)
     {       
	x=x*0x100+(buf[i]&0xff);
      }
   return x;
 }

 int main(int argc, char *argv[])
 {
   FILE *fp;

   if(0<argc)
     {
       printf("Reading %s ...\n",argv[1]);

       fp=fopen(argv[1],"r");
       int data[NDATA];
       int nBytes=0;
       if((nBytes=fread(&header,sizeof(header),1,fp))!=1)
	 {
	   printf("fread error, read %d data\n",nBytes);
	   return 1;
	 }

       printf("Reserved %x%x\n",header.reserved[1],header.reserved[0]);
       printf("Type %x%x\n",header.type[1],header.type[0]);

       int count=btoi(header.count,2);
       printf("Count %d\n",count);
      
       int* nColors=(int*)malloc(sizeof(int)*count);
       int* sizeInBytes=(int*)malloc(sizeof(int)*count);

      int i=0;
      for(i=0;i<count;i++)
	{
	   printf("<Icon%d>\n",i);
	   if((nBytes=fread(&entry,sizeof(entry),1,fp))!=1)
	     {
	       printf("fread error, read %d data\n",nBytes);
	       return 1;
	     }
	   if(entry.colorCount==0)
	     nColors[i]=256;
	   else 
	     nColors[i]=entry.colorCount;
	  printf("Width %d\n",entry.width);
	  printf("Height %d\n",entry.height);
	  printf("ColorCount %d\n",entry.colorCount);
	  printf("Reserved %d\n",entry.reserved);
	  printf("Planes %d\n",btoi(entry.planes,2));
	  printf("BitCount %d\n",btoi(entry.bitCount,2));
	  printf("SizeInBytes %d\n",btoi(entry.sizeInBytes,4));
	  printf("FileOffset %d\n",btoi(entry.fileOffset,4));      	  
	  sizeInBytes[i]=btoi(entry.sizeInBytes,4);
	}
      
      int sizeTotal=0;
      i=0;
      for(i=0;i<count;i++)
	{
	  printf("InfoHeader\n");
	   if((nBytes=fread(&infoHeader,sizeof(infoHeader),1,fp))!=1)
	     {
	       printf("fread error, read %d data\n",nBytes);
	       return 1;
	     }
	   sizeTotal+=sizeof(infoHeader);
	   printf("Size %d\n",btoi(infoHeader.size,4));
	   printf("Width %d\n",btoi(infoHeader.width,4));
	   printf("Height %d\n",btoi(infoHeader.height,4));
	   printf("Planes %d\n",btoi(infoHeader.planes,2));
	   printf("BitCount %d\n",btoi(infoHeader.bitCount,2));
	   printf("Compression %d\n",btoi(infoHeader.compression,4));
	   printf("ImageSize %d\n",btoi(infoHeader.imageSize,4));
	   printf("xPixelsPerM %d\n",btoi(infoHeader.xPixelsPerM,4));
	   printf("yPixelsPerM %d\n",btoi(infoHeader.yPixelsPerM,4));
	   printf("ColorUsed %d\n",btoi(infoHeader.colorUsed,4));
	   printf("ColorsImportant %d\n",btoi(infoHeader.colorsImportant,4));


	   int nBits=btoi(infoHeader.bitCount,2);
	   if(nBits<=8)
	     {
	       int j=0;
	       for(j=0;j<nColors[i];j++)
		 {
		   if((nBytes=fread(&colors,sizeof(colors),1,fp))!=1)
		     {
		       printf("fread error, read %d data\n",nBytes);
		       return 1;
		     }
		   printf("RGB=%x,%x,%x\n",colors.red&0xff,colors.green&0xff,colors.blue&0xff);
		 }
	       sizeTotal+=sizeof(colors)*nColors[i];
	     }

	   int width=btoi(infoHeader.width,4);	   
	   int height=btoi(infoHeader.height,4)/2;
	   double nPixels=8.0/nBits;	     
	   int row=(int)(width/nPixels);
	       if(row%4!=0)
		 row=row-row%4+4;	   
	       char* XORBitmap=(char*)malloc(row*height*sizeof(char));
	       if((nBytes=fread(XORBitmap,sizeof(char),row*height,fp))!=row*height)
		 {
		   printf("fread error, read %d data\n",nBytes);
		   return 1;
		 }
	       sizeTotal+=sizeof(char)*row*height;
	       int x=0;
	       int y=0;
	       for(y=0;y<height;y++)
		 {
		   for(x=0;x<row;x++)
		     {
		       printf("%x ",XORBitmap[y*row+x]&0xff);
		     }
		   printf("\n");
		 }

	   nBits=1;
	   nPixels=8.0;
	   row=(int)(width/nPixels);

	   if(row%4!=0)
	     row=row-row%4+4;
	   char* ANDBitmap=(char*)malloc(row*height*sizeof(char));
	   if((nBytes=fread(ANDBitmap,sizeof(char),row*height,fp))!=row*height)
	     {
	       printf("fread error, read %d data\n",nBytes);
	       return 1;
	     }

	   sizeTotal+=sizeof(char)*row*height;
	    x=0;
	    y=0;
	   for(y=0;y<height;y++)
	     {
	       for(x=0;x<row;x++)
		 {
		   printf("%x ",ANDBitmap[y*row+x]&0xff);
		 }
	       printf("\n");
	     }

	printf("SizeInBytes=%d\n",sizeInBytes[i]);
	printf("SizeTotal=%d\n",sizeTotal);
	sizeTotal=0;
	}

      fclose(fp);
    }
  else
    {
      printf("Usage: ico <filename>\n");
    }
  return 0;
}