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

#include <string.h>
#include <ctype.h>
#include <stdlib.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"

static gib_module_t *gibmodules;

void GIB_Module_Load (char *name, FILE *f)
{
	char line[1024];
	gib_module_t *newmod;	
	gib_sub_t *newsub;
	int nameofs;
	int namelen;	

	newmod = GIB_Create_Module(name);

	while (fgets(line, 1024, f))
	{
		if (strncmp("sub", line, 3) == 0)
		{
			nameofs = 3;
			while(isspace(line[nameofs]))
				nameofs++;
			namelen = 0;
			while(!(isspace(line[nameofs+namelen])))
			{
				namelen++;
			}
			line[nameofs + namelen] = 0;
			newsub = GIB_Create_Sub(newmod, line + nameofs);
			GIB_Read_Sub(newsub, f);
		}
	}
}

gib_module_t *GIB_Create_Module(char *name)
{
	gib_module_t *new;

	new = malloc(sizeof(gib_module_t));
	new->name = malloc(strlen(name) + 1);
	strcpy(new->name, name);
	new->subs = 0;
	new->vars = 0;
	new->next = gibmodules;
	gibmodules = new;
	return new;
}

gib_sub_t *GIB_Create_Sub(gib_module_t *mod, char *name)
{
	gib_sub_t *new;
	
	new = malloc(sizeof(gib_sub_t));
	new->name = malloc(strlen(name) + 1);
	strcpy(new->name, name);
	new->code = 0;
	new->vars = 0;
	new->next = mod->subs;
	mod->subs = new;
	return new;
}

void GIB_Read_Sub(gib_sub_t *sub, FILE *f)
{
	char line[1024];
	fpos_t begin;
	int sublen = 0;
	int insub = 0;
	
	while (fgets(line, 1024, f))
	{
		if (strncmp("}}", line, 2) == 0 && insub == 1)
		{
			insub = 0;
			break;
		}
		if (insub == 1)
		{
			sublen += strlen(line);
		}
		if (strncmp("{{", line, 2) == 0)
		{
			fgetpos(f, &begin);
			insub = 1;
		}
	}
	
	sub->code = malloc(sublen + 1);
	fsetpos(f, &begin);
	fread(sub->code, 1, sublen, f);
	sub->code[sublen] = 0;
	Con_Printf("Loaded sub %s\n", sub->name);
}

gib_module_t *GIB_Find_Module(char *name)
{
	gib_module_t *mod;
	if (!(gibmodules))
		return 0;
	for (mod = gibmodules; strcmp(mod->name, name); mod = mod->next)
		if (mod->next == 0)
			return 0;
	return mod;
}

gib_sub_t *GIB_Find_Sub(gib_module_t *mod, char *name)
{
	gib_sub_t *sub;
	if (!(mod->subs))
		return 0;
	for (sub = mod->subs; strcmp(sub->name, name); sub = sub->next)
		if (sub->next == 0)
			return 0;
	return sub;
}

void GIB_Stats_f (void)
{
	int modc, subc;
	
	gib_module_t *mod;
	gib_sub_t *sub;
	
	modc = 0;
	Con_Printf("---=== GIB statistics ===---\n");
	for(mod = gibmodules; mod; mod = mod->next)
	{
		Con_Printf("\nSubroutines for module %s:\n", mod->name);
		Con_Printf("-------------------------------------\n");
		subc = 0;
		for(sub = mod->subs; sub; sub = sub->next)
		{
			Con_Printf("%s::%s\n", mod->name, sub->name);
			subc++;
		}
		Con_Printf("-------------------------------------\nSubroutines: %i\n", subc);
		modc++;
	}
	Con_Printf("Modules installed: %i\n", modc);
	Con_Printf("---=== GIB statistics ===---\n");
}