#include "stdafx.h"
/*
-----------------------------------------------------------------------------
 Class: MsdFile

 Desc: See header.

 Copyright (c) 2001-2002 by the person(s) listed below.  All rights reserved.
	Chris Danford
-----------------------------------------------------------------------------
*/

#include "MsdFile.h"
#include "io.h"
#include "fcntl.h"


MsdFile::MsdFile()
{
	m_iNumValues = 0;
}

MsdFile::~MsdFile()
{
}

//returns true if successful, false otherwise
bool MsdFile::ReadFile( CString sNewPath )
{
   int fh;

   /* Open a file */
   if( (fh = _open(sNewPath, _O_RDONLY, 0)) == -1 )
	   return false;

	int iBufferSize = _filelength( fh ) + 1000; // +1000 because sometimes the bytes read is > filelength.  Why?
	_close( fh );


	FILE* fp = fopen(sNewPath, "r");
	if( fp == NULL )
		return false;

	// allocate a string to hold the file
	char* szFileString = new char[iBufferSize];
	ASSERT( szFileString );

	int iBytesRead = fread( szFileString, 1, iBufferSize, fp );
	ASSERT( iBufferSize > iBytesRead );
	szFileString[iBytesRead] = '\0';
	
	char* szParams[MAX_VALUES][MAX_PARAMS_PER_VALUE];

	m_iNumValues = 0;

	bool ReadingValue=false;
	int i;
	for( i=0; i<iBytesRead; i++ )
	{
		switch( szFileString[i] )
		{
		case '#':	// begins a new value
			{
				/* Unfortunately, many of these files are missing ;'s.
				 * For now, if we get a # when we thought we were inside
				 * a value/parameter, assume we missed the ;.  Back up,
				 * delete whitespace and end the value. */
				if(ReadingValue) {
					/* Make sure this # is the first non-whitespace character on the line. */
					bool FirstChar = true;
					int j;
					for(j = i-1; j >= 0 && !strchr("\r\n", szFileString[j]); --j)
					{
						if(szFileString[j] == ' ' || szFileString[j] == '\t')
							continue;

						FirstChar = false;
						break;
					}
					if(!FirstChar) {
						/* Oops, we're not; handle this like a regular character. */
						break;
					}

					for(j = i-1; j >= 0 && isspace(szFileString[j]); --j)
						szFileString[j] = 0;
				}

				ReadingValue=true;
				m_iNumValues++;
				ASSERT( m_iNumValues < MAX_VALUES );
				int iCurValueIndex = m_iNumValues-1;
				m_iNumParams[iCurValueIndex] = 1;
				szParams[iCurValueIndex][0] = &szFileString[i+1];
			}
			break;
		case ':':	// begins a new parameter
			{
				szFileString[i] = '\0';
				int iCurValueIndex = m_iNumValues-1;
				m_iNumParams[iCurValueIndex] ++;
				int iCurParamIndex = m_iNumParams[iCurValueIndex]-1;
				szParams[iCurValueIndex][iCurParamIndex] = &szFileString[i+1];
			}
			break;
		case ';':	// ends a value
			{
				szFileString[i] = '\0';
				// fast forward until just before the next '#'
				while( szFileString[i+1] != '#'  &&  i<iBytesRead )
					i++;
				ReadingValue=false;
			}
			break;
		case '/':
			if( szFileString[i+1] == '/' )
			{
				// advance until new line
				for( ; i<iBytesRead; i++ )
				{
					if( szFileString[i] == '\n' )
						break;
					else
						szFileString[i] = ' ';
				}
			}
			// fall through.  If we didn't take the if above, then this '/' is part of a parameter!
		default:
			;	// do nothing
		}
	}

	for( unsigned x=0; x<m_iNumValues; x++ )
	{
		for( unsigned y=0; y<m_iNumParams[x]; y++ )
		{
			m_sParams[x][y] = szParams[x][y];
		}
	}

	fclose( fp );
	delete [] szFileString;

	return true;
}