#include <stdio.h>

 #include <ctype.h>

 #include <string.h>

 #include "CTextParsers.h"

 CTextParsers g_TextParse;

 static int g_ini_chartable1[255] = {0};

 CTextParsers::CTextParsers()

 {

 	g_ini_chartable1['_'] = 1;

 	g_ini_chartable1['-'] = 1;

 	g_ini_chartable1[','] = 1;

 	g_ini_chartable1['+'] = 1;

 	g_ini_chartable1['.'] = 1;

 	g_ini_chartable1['$'] = 1;

 	g_ini_chartable1['?'] = 1;

 	g_ini_chartable1['/'] = 1;

 }

 bool CTextParsers::ParseFile_SMC(const char *file, ITextListener_SMC *smc_listener, unsigned int *line, unsigned int *col)

 {

 	/* :TODO: Implement this */

 	if (line)

 	{

 		*line = 0;

 	}

 	return false;

 }

 bool CTextParsers::ParseFile_INI(const char *file, ITextListener_INI *ini_listener, unsigned int *line, unsigned int *col)

 {

 	FILE *fp = fopen(file, "rt");

 	unsigned int curline = 0;

 	unsigned int curtok;

 	size_t len;

 	if (!fp)

 	{

 		if (line)

 		{

 			*line = 0;

 		}

 		return false;

 	}

 	char buffer[2048];

 	char *ptr, *save_ptr;

 	bool in_quote;

 	while (!feof(fp))

 	{

 		curline++;

 		curtok = 0;

 		buffer[0] = '\0';

 		if (fgets(buffer, sizeof(buffer), fp) == NULL)

 		{

 			break;

 		}

 		/* Preprocess the string before anything */

 		ptr = buffer;

 		/* First strip beginning whitespace */

 		while ((*ptr != '\0') && isspace(*ptr))

 		{

 			ptr++;

 		}

 		len = strlen(ptr);

 		if (!len)

 		{

 			continue;

 		}

 		/* Now search for comment characters */

 		in_quote = false;

 		save_ptr = ptr;

 		for (size_t i=0; i<len; i++,ptr++)

 		{

 			if (!in_quote)

 			{

 				switch (*ptr)

 				{

 				case '"':

 					{

 						in_quote = true;

 						break;

 					}

 				case ';':

 					{

 						/* Stop the loop */

 						len = i;

 						/* Terminate the string here */

 						*ptr = '\0';

 						break;

 					}

 				}

 			} else {

 				if (*ptr == '"')

 				{

 					in_quote = false;

 				}

 			}

 		}

 		if (!len)

 		{

 			continue;

 		}

 		ptr = save_ptr;

 		/* Lastly, strip ending whitespace off */

 		for (size_t i=len-1; i>=0 && i<len; i--)

 		{

 			if (isspace(ptr[i]))

 			{

 				ptr[i] = '\0';

 				len--;

 			} else {

 				break;

 			}

 		}

 		if (!len)

 		{

 			continue;

 		}

 		if (!ini_listener->ReadINI_RawLine(ptr, &curtok))

 		{

 			goto event_failed;

 		}

 		if (*ptr == '[')

 		{

 			bool invalid_tokens = false;

 			bool got_bracket = false;

 			bool extra_tokens = false;

 			char c;

 			for (size_t i=1; i<len; i++)

 			{

 				c = ptr[i];

 				if (!isalnum(c) && !g_ini_chartable1[c])

 				{

 					/* First check - is this a bracket? */

 					if (c == ']')

 					{

 						/* Yes! */

 						got_bracket = true;

 						/* If this isn't the last character... */

 						if (i != len - 1)

 						{

 							extra_tokens = true;

 						}

 						/* terminate */

 						ptr[i] = '\0';

 						break;

 					} else {

 						/* n...No! Continue copying. */

 						invalid_tokens = true;

 					}

 				}

 			}

 			/* Tell the handler */

 			if (!ini_listener->ReadINI_NewSection(&ptr[1], invalid_tokens, got_bracket, extra_tokens, &curtok))

 			{

 				goto event_failed;

 			}

 		} else {

 			char *key_ptr = ptr;

 			char *val_ptr = NULL;

 			char c;

 			size_t first_space = 0;

 			bool invalid_tokens = false;

 			bool equal_token = false;

 			bool quotes = false;

 			for (size_t i=0; i<len; i++)

 			{

 				c = ptr[i];

 				/* is this an invalid char? */

 				if (!isalnum(c) && !g_ini_chartable1[c])

 				{

 					if (isspace(c))

 					{

 						/* if it's a space, keep track of the last space */

 						if (!first_space)

 						{

 							first_space = i;

 						}

 					} else {

 						if (c == '=')

 						{

 							/* if it's an equal sign, we're done with the key */

 							if (first_space)

 							{

 								/* remove excess whitespace */

 								key_ptr[first_space] = '\0';

 							} else {

 								/* remove the equal sign */

 								key_ptr[i] = '\0';

 							}

 							if (ptr[++i] != '\0')

 							{

 								/* If this isn't the end, set next pointer */

 								val_ptr = &ptr[i];

 							}

 							equal_token = true;

 							break;

 						} else {

 							/* Mark that we got something invalid! */

 							invalid_tokens = true;

 							first_space = 0;

 						}

 					}

 				}

 			}

 			/* Now we need to parse the value, if any */

 			if (val_ptr)

 			{

 				/* eat up spaces! there shouldn't be any h*/

 				while ((*val_ptr != '\0') && isspace(*val_ptr))

 				{

 					val_ptr++;

 				}

 				if (*val_ptr == '\0')

 				{

 					val_ptr = NULL;

 					goto skip_value;

 				}

 				/* Do we have an initial quote? If so, the parsing rules change! */

 				if (*val_ptr == '"' && *val_ptr != '\0')

 				{

 					len = strlen(val_ptr);

 					if (val_ptr[len-1] == '"')

 					{

 						/* Strip quotes! */

 						val_ptr[--len] = '\0';

 						val_ptr++;

 						quotes = true;

 					}

 				}

 			}

 skip_value:

 			/* We're done! */

 			curtok = val_ptr - buffer;

 			if (!ini_listener->ReadINI_KeyValue(key_ptr, val_ptr, invalid_tokens, equal_token, quotes, &curtok))

 			{

 				curtok = 0;

 				goto event_failed;

 			}

 		}

 	}

 	if (line)

 	{

 		*line = curline;

 	}

 	fclose(fp);

 	return true;

 event_failed:

 	if (line)

 	{

 		*line = curline;

 	}

 	if (col)

 	{

 		*col = curtok;

 	}

 	fclose(fp);

 	return false;

 }