#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, QFile *f)
{
	char        line[1024];
	gib_module_t *newmod;
	gib_sub_t  *newsub;
	int         nameofs;
	int         namelen;

	newmod = GIB_Create_Module (name);

	while (Qgets (f, line, 1024)) {
		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, QFile *f)
{
	char        line[1024];
	fpos_t      begin;
	int         sublen = 0;
	int         insub = 0;

	while (Qgets (f, line, 1024)) {
		if (strncmp ("}}", line, 2) == 0 && insub == 1) {
			insub = 0;
			break;
		}
		if (insub == 1) {
			sublen += strlen (line);
		}
		if (strncmp ("{{", line, 2) == 0) {
			Qgetpos (f, &begin);
			insub = 1;
		}
	}

	sub->code = malloc (sublen + 1);
	Qsetpos (f, &begin);
	Qread (f, sub->code, sublen);
	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");
}