#include "cgc_genericParsers.h"
Border *cgc_extractBorder( pstring str )
{
	char *temp = NULL;
	pBorder bor = NULL;
	int start = 0;
	int end = 0;
	if (str == NULL ) {
		return bor;
	}
	/// Allocate a new border structure
	if ( cgc_allocate( sizeof(Border), 0, (void**)&bor) != 0 ) {
		bor = NULL;
		return bor;
	}
	cgc_skipWhiteSpace(str);
	/// If it does not open with a '{' then it is invalid.
	if ( !cgc_atChar( str, '{' ) ) {
		cgc_printf("!!Failed to locate opening brace\n");
		goto error;
	}
	/// Skip past the curly brace
	if ( cgc_skipLength( str, 1 ) == -1 ) {
		cgc_printf("!!Failed to skip opening brace\n");
		goto error;
	}
	/// Skip any additional whitespace
	cgc_skipWhiteSpace(str);
	/// Save the index
	start = str->index;
	/// This should skip any to either whitespace or a closing '}'
	end = cgc_skipAlpha( str );
	if ( end == -1 ) {
		cgc_printf("!!Failed to locate the end of the element id\n");
		goto error;
	}
	/// If start and end are then same then it is an invalid character
	if ( start == end ) {
		goto error;
	}
	/// Copy the element id from the string
	temp = cgc_copyData( str, start, end );
	if ( temp == NULL ) {
		cgc_printf("!!Copy from @d to @d failed\n", start, end);
		goto error;
	}
	/// If the element id is not "Border" then this is the wrong function
	if ( cgc_strcmp( temp, "Border") != 0 ) {
		cgc_printf("!!Element id is not \"Border\"\n");
		cgc_deallocate( temp, cgc_strlen(temp) + 1 );
		temp = NULL;
		goto error;
	}
	/// The buffer is no longer needed so free it
	cgc_deallocate(temp, cgc_strlen(temp) + 1);
	/// Skip to the end of the element id
	cgc_skipWhiteSpace( str );
	/// If it is not a closing brace then this is improperly formatted.
	if ( !cgc_atChar( str, '}' ) ) {
		cgc_printf("!!Failed to locate initial closing brace\n");
		goto error;
	}
	/// Skip the closing brace as well as any whitespace
	if ( cgc_skipLength( str, 1 ) == -1 ) {
		cgc_printf("!!Failed to skip initial closing brace\n");
		goto error;
	}
	start = cgc_skipWhiteSpace( str );
	/// The border data must be a float
	end = cgc_skipFloat( str );
	if ( start == end ) {
		cgc_printf("!!Failed to locate first lat\n");
		goto error;
	}
	if ( end == -1 ) {
		cgc_printf("!!Failed to locate the end of the first latitude float\n");
		goto error;
	}
	temp = cgc_copyData( str, start, end );
	if (temp == NULL ) {
		cgc_printf("!!Failed to copy first latitude float\n");
		goto error;
	}
	/// Convert the first value
	bor->latStart = cgc_atof( temp );
	cgc_deallocate( temp, (end-start) + 1 );
	/// Skip to the next value
	start = cgc_skipWhiteSpace( str );
	end = cgc_skipFloat(str);
	if ( start == end ) {
		cgc_printf("!!Failed to locate first long\n");
		goto error;
	}
	if ( start == -1 || end == -1 ) {
		cgc_printf("!!Failed to locate first longitude float\n");
		goto error;
	}
	temp = cgc_copyData( str, start, end );
	if ( temp == NULL ) {
		cgc_printf("!!Failed to copy first longitude float\n");
		goto error;
	}
	/// Convert the first long
	bor->lngStart = cgc_atof( temp );
	cgc_deallocate( temp, (end-start) + 1 );
	/// Skip to the next value
	start = cgc_skipWhiteSpace( str );
	end = cgc_skipFloat(str);
	if ( start == end ) {
		cgc_printf("!!Failed to locate second lat\n");
		goto error;
	}
	if ( start == -1 || end == -1 ) {
		cgc_printf("!!Failed to locate second latitude float\n");
		goto error;
	}
	temp = cgc_copyData( str, start, end );
	if ( temp == NULL ) {
		cgc_printf("!!Failed to copy second latitude float\n");
		goto error;
	}
	/// Convert the second lat
	bor->latEnd = cgc_atof( temp );
	cgc_deallocate( temp, (end-start) + 1 );
	/// Skip to the next value
	start = cgc_skipWhiteSpace( str );
	end = cgc_skipFloat(str);
	if ( start == end ) {
		cgc_printf("!!Failed to locate second long\n");
		goto error;
	}
	if ( start == -1 || end == -1 ) {
		cgc_printf("!!Failed to locate second longitude float\n");
		goto error;
	}
	temp = cgc_copyData( str, start, end );
	if ( temp == NULL ) {
		cgc_printf("!!Failed to copy second longitude float\n");
		goto error;
	}
	/// Convert the second long
	bor->lngEnd = cgc_atof( temp );
	cgc_deallocate( temp, (end-start) + 1 );
	cgc_skipWhiteSpace( str );
	/// If this is not an opening curly brace then fail
	if ( !cgc_atChar( str, '{' ) ) {
		cgc_printf("!!Failed to locate the final opening brace\n");
		goto error;
	}
	/// Skip past the brace
	if ( cgc_skipLength( str, 1 ) == -1 ) {
		cgc_printf("!!Failed to skip the final opening brace\n");
		goto error;
	}
	
	cgc_skipWhiteSpace(str);
	/// If this is not a # indicating the closing brace then fail
	if ( !cgc_atChar( str, '#' ) ) {
		cgc_printf("!!Failed to locate the closing mark\n");		
		goto error;
	}
	/// Skip past the # but save the start
	start = cgc_skipLength( str, 1 );
	if ( start == -1 ) {
		cgc_printf("!!Failed to skip closing mark\n");
		goto error;
	}
	end = cgc_skipAlpha( str );
	if ( end == -1 ) {
		cgc_printf("!!Failed to locate the end of the closing element id\n");
		goto error;
	}
	
	temp = cgc_copyData( str, start, end );
	if ( cgc_strcmp( temp, "Border") != 0 ) {
		cgc_printf("!!Invalid closing element id: @s\n", temp);
		cgc_deallocate(temp, cgc_strlen(temp)+1);
		goto error;
	}
	cgc_deallocate(temp, cgc_strlen(temp)+1);
	cgc_skipWhiteSpace( str );
	/// Check the final curly brace
	if ( !cgc_atChar( str, '}' ) ) {
		cgc_printf("!!Failed to locate final closing brace\n");
		goto error;
	}
	/// Skip past the closing brace
	cgc_skipLength( str, 1 );
	/// Everything succeeded, skip error
	goto fin;
		
error:
	cgc_deallocate( bor, sizeof(Border) );
	bor = NULL;
fin:
	return bor;
}
int cgc_extractPopulation( pstring str )
{
	char *temp = NULL;
	int pop = -1;
	int start = 0;
	int end = 0;
	/// These will be used specifically for the name data
	int ps = 0;
	int pe = 0;
	if (str == NULL ) {
		return -1;
	}
	cgc_skipWhiteSpace(str);
	if ( !cgc_atChar( str, '{' ) ) {
		cgc_printf("!!Failed to locate opening brace\n");
		return -1;
	}
	/// Skip past the curly brace
	if ( cgc_skipLength( str, 1 ) == -1 ) {
		cgc_printf("!!Failed to skip opening brace\n");
		return -1;
	}
	/// Skip any additional whitespace
	cgc_skipWhiteSpace(str);
	/// Save the index
	start = str->index;
	/// This should skip any to either whitespace or a closing '}'
	end = cgc_skipAlpha( str );
	if ( end == -1 ) {
		cgc_printf("!!Failed to locate the end of the element id\n");
		return -1;
	}
	/// Copy the element id from the string
	temp = cgc_copyData( str, start, end );
	if ( temp == NULL ) {
		cgc_printf("!!Copy from @d to @d failed\n", start, end);
		return -1;
	}
	/// If the element id is not "Population" then this is the wrong function
	if ( cgc_strcmp( temp, "Population") != 0 ) {
		cgc_printf("!!Element id is not \"Population\"\n");
		cgc_deallocate( temp, cgc_strlen(temp) + 1 );
		temp = NULL;
		return -1;
	}
	/// The buffer is no longer needed so free it
	cgc_deallocate(temp, cgc_strlen(temp) + 1);
	/// Skip to the end of the element id
	cgc_skipWhiteSpace( str );
	/// If it is not a closing brace then this is improperly formatted.
	if ( !cgc_atChar( str, '}' ) ) {
		cgc_printf("!!Failed to locate initial closing brace\n");
		return -1;
	}
	/// Skip the closing brace as well as any whitespace
	if ( cgc_skipLength( str, 1 ) == -1 ) {
		cgc_printf("!!Failed to skip initial closing brace\n");
		return -1;
	}
	cgc_skipWhiteSpace( str );
	/// Copy the start index to store the data
	ps = str->index;
	/// The population data must be an integer
	pe = cgc_skipInt( str );
	if ( pe == -1 ) {
		cgc_printf("!!Failed to locate the end of the population data\n");
		return end;
	}
	/// The rest of this code is a check to ensure proper formatting except for the copy data
	cgc_skipWhiteSpace( str );
	/// If this is not an opening curly brace then fail
	if ( !cgc_atChar( str, '{' ) ) {
		cgc_printf("!!Failed to locate the final opening brace\n");
		return -1;
	}
	/// Skip past the brace
	if ( cgc_skipLength( str, 1 ) == -1 ) {
		cgc_printf("!!Failed to skip the final opening brace\n");
		return -1;
	}
	
	cgc_skipWhiteSpace(str);
	/// If this is not a # indicating the closing brace then fail
	if ( !cgc_atChar( str, '#' ) ) {
		cgc_printf("!!Failed to locate the closing mark\n");		
		return -1;
	}
	/// Skip past the # but save the start
	start = cgc_skipLength( str, 1 );
	if ( start == -1 ) {
		cgc_printf("!!Failed to skip closing mark\n");
		return start;
	}
	end = cgc_skipAlpha( str );
	if ( end == -1 ) {
		cgc_printf("!!Failed to locate the end of the closing element id\n");
		return end;
	}
	
	temp = cgc_copyData( str, start, end );
	if ( cgc_strcmp( temp, "Population") != 0 ) {
		cgc_printf("!!Invalid closing element id: @s\n", temp);
		cgc_deallocate(temp, cgc_strlen(temp)+1);
		return -1;
	}
	cgc_deallocate(temp, cgc_strlen(temp)+1);
	cgc_skipWhiteSpace( str );
	/// Check the final curly brace
	if ( !cgc_atChar( str, '}' ) ) {
		cgc_printf("!!Failed to locate final closing brace\n");
		return -1;
	}
	/// Skip past the closing brace
	cgc_skipLength( str, 1 );
		
	/// Copy the name element data
	temp = cgc_copyData( str, ps, pe );
	if ( temp == NULL ) {
		cgc_printf("!!Failed to copy population data\n");
		return -1;
	}
	pop = cgc_atoi( temp );
	cgc_deallocate( temp, cgc_strlen(temp) + 1 );
	return pop;
}
char *cgc_extractName( pstring str )
{
	char *temp = NULL;
	char *name = NULL;
	int start = 0;
	int end = 0;
	/// These will be used specifically for the name data
	int ns = 0;
	int ne = 0;
	if (str == NULL ) {
		return name;
	}
	cgc_skipWhiteSpace(str);
	if ( !cgc_atChar( str, '{' ) ) {
		cgc_printf("!!Failed to locate opening brace\n");
		return name;
	}
	/// Skip past the curly brace
	if ( cgc_skipLength( str, 1 ) == -1 ) {
		cgc_printf("!!Failed to skip opening brace\n");
		return name;
	}
	/// Skip any additional whitespace
	cgc_skipWhiteSpace(str);
	/// Save the index
	start = str->index;
	/// This should skip any to either whitespace or a closing '}'
	end = cgc_skipAlpha( str );
	if ( end == -1 ) {
		cgc_printf("!!Failed to locate the end of the element id\n");
		return NULL;
	}
	/// Copy the element id from the string
	temp = cgc_copyData( str, start, end );
	if ( temp == NULL ) {
		cgc_printf("!!Copy from @d to @d failed\n", start, end);
		return NULL;
	}
	/// If the element id is not "Name" then this is the wrong function
	if ( cgc_strcmp( temp, "Name") != 0 ) {
		cgc_printf("!!Element id is not \"Name\"\n");
		cgc_deallocate( temp, cgc_strlen(temp) + 1 );
		temp = NULL;
		return NULL;
	}
	/// The buffer is no longer needed so free it
	cgc_deallocate(temp, cgc_strlen(temp) + 1);
	/// Skip to the end of the element id
	cgc_skipWhiteSpace( str );
	/// If it is not a closing brace then this is improperly formatted.
	if ( !cgc_atChar( str, '}' ) ) {
		cgc_printf("!!Failed to locate initial closing brace\n");
		return NULL;
	}
	/// Skip the closing brace as well as any whitespace
	if ( cgc_skipLength( str, 1 ) == -1 ) {
		cgc_printf("!!Failed to skip initial closing brace\n");
		return NULL;
	}
	cgc_skipWhiteSpace( str );
	/// Copy the start index to store the data
	ns = str->index;
	/// The name data must be alphanumeric
	ne = cgc_skipToNonAlphaNum( str );
	if ( ne == -1 ) {
		cgc_printf("!!Failed to locate the end of the name data\n");
		return NULL;
	}
	/// The rest of this code is a check to ensure proper formatting except for the copy data
	cgc_skipWhiteSpace( str );
	/// If this is not an opening curly brace then fail
	if ( !cgc_atChar( str, '{' ) ) {
		cgc_printf("!!Failed to locate the final opening brace\n");
		return NULL;
	}
	/// Skip past the brace
	if ( cgc_skipLength( str, 1 ) == -1 ) {
		cgc_printf("!!Failed to skip the final opening brace\n");
		return NULL;
	}
	
	cgc_skipWhiteSpace(str);
	/// If this is not a # indicating the closing brace then fail
	if ( !cgc_atChar( str, '#' ) ) {
		cgc_printf("!!Failed to locate the closing mark\n");		
		return NULL;
	}
	/// Skip past the # but save the start
	start = cgc_skipLength( str, 1 );
	if ( start == -1 ) {
		cgc_printf("!!Failed to skip closing mark\n");
		return NULL;
	}
	end = cgc_skipAlpha( str );
	if ( end == -1 ) {
		cgc_printf("!!Failed to locate the end of the closing element id\n");
		return NULL;
	}
	
	temp = cgc_copyData( str, start, end );
	if ( cgc_strcmp( temp, "Name") != 0 ) {
		cgc_printf("!!Invalid closing element id: @s\n", temp);
		cgc_deallocate(temp, cgc_strlen(temp)+1);
		return NULL;
	}
	cgc_deallocate(temp, cgc_strlen(temp)+1);
	cgc_skipWhiteSpace( str );
	/// Check the final curly brace
	if ( !cgc_atChar( str, '}' ) ) {
		cgc_printf("!!Failed to locate final closing brace\n");
		return NULL;
	}
	/// Skip past the closing brace
	cgc_skipLength( str, 1 );
		
	/// Copy the name element data
	name = cgc_copyData( str, ns, ne );
	return name;
}