#include "FormattedDiskPageCHPX.h"

namespace DocFileFormat
{
	FormattedDiskPageCHPX::~FormattedDiskPageCHPX()
	{
		RELEASEARRAYOBJECTS( rgfc );
		RELEASEARRAYOBJECTS( rgb );

		if ( grpchpx != NULL )
		{
			for ( unsigned int i = 0; i < grpchpxSize; i++ )
			{
				RELEASEOBJECT( grpchpx[i] );
			}

			RELEASEARRAYOBJECTS( grpchpx );
		}
	}

	/*========================================================================================================*/

	FormattedDiskPageCHPX::FormattedDiskPageCHPX( POLE::Stream* wordStream, int offset ):
	FormattedDiskPage(), rgb(NULL), grpchpxSize(NULL), grpchpx(NULL) 
	{
		Type = Character;
		WordStream = wordStream;

		//read the 512 bytes (FKP)
		unsigned char* bytes = NULL;
		bytes = new unsigned char[512];

		WordStream->seek( offset);
		WordStream->read( bytes, 512 );

		//get the count first
		crun = bytes[511];

		//create and fill the array with the adresses
		rgfcSize = crun + 1;
		rgfc = new int[rgfcSize];

		int j = 0;

		for ( unsigned int i = 0; i < rgfcSize; i++ )
		{
			rgfc[i] = FormatUtils::BytesToInt32( bytes, j, 512 );
			j += 4;
		}

		//create arrays
		rgb = new unsigned char[crun];
		grpchpxSize = crun;
		grpchpx = new CharacterPropertyExceptions*[grpchpxSize];

		j = 4 * ( crun + 1 );

		unsigned char* chpx = NULL;

		for ( int i = 0; i < crun; i++ )
		{
			//fill the rgb array
			unsigned char wordOffset = bytes[j];
			rgb[i] = wordOffset;
			j++;

			if ( wordOffset != 0 )
			{
				//read first unsigned char of CHPX
				//it's the count of bytes
				unsigned char cb = bytes[wordOffset * 2];

				//read the bytes of chpx
				chpx = new unsigned char[cb];
				//Array.Copy(bytes, (wordOffset * 2) + 1, chpx, 0, chpx.Length);
				memcpy( chpx, ( bytes + (wordOffset * 2) + 1 ), cb );

				//parse CHPX and fill grpchpx
				grpchpx[i] = new CharacterPropertyExceptions( chpx, cb );

				RELEASEARRAYOBJECTS( chpx );
			}
			else
			{
				//create a CHPX which doesn't modify anything
				grpchpx[i] = new CharacterPropertyExceptions();
			}
		}

		RELEASEARRAYOBJECTS( bytes );
	}

	/*========================================================================================================*/

	/// Parses the 0Table (or 1Table) for FKP _entries containing CHPX
	list<FormattedDiskPageCHPX*>* FormattedDiskPageCHPX::GetAllCHPXFKPs( FileInformationBlock* fib, POLE::Stream* wordStream, POLE::Stream* tableStream )
	{
		list<FormattedDiskPageCHPX*>* CHPXlist = new list<FormattedDiskPageCHPX*>();

		//get bintable for CHPX
		unsigned char* binTableChpx = new unsigned char[fib->m_FibWord97.lcbPlcfBteChpx];

		tableStream->seek( fib->m_FibWord97.fcPlcfBteChpx);
		tableStream->read( binTableChpx, fib->m_FibWord97.lcbPlcfBteChpx);

		//there are n offsets and n-1 fkp's in the bin table
		int n = ( ( (int)fib->m_FibWord97.lcbPlcfBteChpx - 4 ) / 8 ) + 1;

		//Get the indexed CHPX FKPs
		for ( unsigned int i = (n * 4); i < fib->m_FibWord97.lcbPlcfBteChpx; i += 4 )
		{
			//indexed FKP is the 6th 512byte page
			int fkpnr = FormatUtils::BytesToInt32( binTableChpx, i, fib->m_FibWord97.lcbPlcfBteChpx );

			//so starts at:
			int offset = fkpnr * 512;

			//parse the FKP and add it to the list
			CHPXlist->push_back( new FormattedDiskPageCHPX( wordStream, offset ) );
		}

		RELEASEARRAYOBJECTS( binTableChpx );

		return CHPXlist;
	}
}