#ifdef HAVE_CONFIG_H
# include <config.h>
#endif

#include <string.h>
#include <ctype.h>
#include "cvar.h"
#include "console.h"
#include "qargs.h"
#include "cmd.h"
#include "zone.h"
#include "quakefs.h"
#include "gib.h"
#include "gib_instructions.h"
#include "gib_interpret.h"
#include "gib_modules.h"
#include "gib_parse.h"
#include "gib_vars.h"


int GIB_Get_Inst(char *start)
{
	int i;
	int len = 0;
	for (i = 0; start[i] != ';'; i++)
	{
		if (start[i] == '\'')
		{
			if ((len = GIB_End_Quote(start + i)) < 0)
				return len;
			else
				i += len;
		}
		if (start[i] == '\"')
		{
			if ((len = GIB_End_DQuote(start + i)) < 0)
				return len;
			else
				i += len;
		}
		if (start[i] == '{')
		{
			if ((len = GIB_End_DQuote(start + i)) < 0)
				return len;
			else
				i += len;
		}
		if (start[i] == 0)
			return 0;
	}
	return i;
}
int GIB_Get_Arg (char *start)
{
	int i;
	int len = 0;

	for (i = 0; start[i] != ' ' && start[i] != 0; i++)
	{
                if (start[i] == '\'')
                {
                        if ((len = GIB_End_Quote(start + i)) < 0)
                                return len;
                        else
                                i += len;
                }
                if (start[i] == '\"')
                {
                        if ((len = GIB_End_DQuote(start + i)) < 0)
                                return len;
                        else
                                i += len;
                }
                if (start[i] == '{')
                {
                        if ((len = GIB_End_DQuote(start + i)) < 0)
                                return len;
                        else
                                i += len;
                }   
        }
	return i;
}		
int GIB_End_Quote (char *start)
{
	int i;
	int len = 0;
	for (i = 1; start[i] != '\''; i++)
	{
		if (start[i] == '\"')
		{
			if ((len = GIB_End_DQuote(start + i)) < 0)
				return len;
			else
				i += len;
		} 

		if (start[i] == '{')
		{
			if ((len = GIB_End_Bracket(start +i)) < 0)
				return len;
			else
				i += len;
		}
		if (start[i] == 0)
			return -1;
	}
	return i;	
}
int GIB_End_DQuote (char *start)
{
	int i, ret;	
	for (i = 1; start[i] != '\"'; i++)
	{
		if (start[i] == '\'')
		{
			if ((ret = GIB_End_Quote(start + i)) < 0)
				return ret;
			else
				i += ret;
		}

		if (start[i] == '{')
		{
			if ((ret = GIB_End_Bracket(start +i)) < 0)
				return ret;
			else
				i += ret;
		}
		if (start[i] == 0)
			return -2;
	}
	return i;
}

int GIB_End_Bracket (char *start)
{
	int i, ret;
	for (i = 1; start[i] != '}'; i++)
	{
		if (start[i] == '\'')
		{
			if ((ret = GIB_End_Quote(start + i)) < 0)
				return ret;
			else
				i += ret;
		}
		
		if (start[i] == '\"')
		{
			if ((ret = GIB_End_DQuote(start + i)) < 0)
				return ret;
			else
				i += ret;
		}
		
		if (start[i] == '{')
		{
			if ((ret = GIB_End_Bracket(start + i)) < 0)
				return ret;
			else
				i += ret;
		}

		if (start[i] == 0)
			return -3;
	}
	return i;
}

gib_sub_t *GIB_Get_ModSub_Sub (char *modsub)
{
	gib_module_t *mod;
	gib_sub_t *sub;
	char *divider;

	if (!(divider = strstr(modsub, "::")))
		return 0;
	*divider = 0;
	mod = GIB_Find_Module (modsub);
	*divider = ':';
	if (!mod)
		return 0;
	sub = GIB_Find_Sub (mod, divider + 2);
	return sub;
}
gib_module_t *GIB_Get_ModSub_Mod (char *modsub)
{
	gib_module_t *mod;
	char *divider;

	if (!(divider = strstr(modsub, "::")))
		return 0;
	*divider = 0;
	mod = GIB_Find_Module (modsub);
	*divider = ':';
	return mod;
}