/*
	bi_cbuf.c

	CSQC cbuf builtins

	Copyright (C) 1996-1997  Id Software, Inc.

	This program is free software; you can redistribute it and/or
	modify it under the terms of the GNU General Public License
	as published by the Free Software Foundation; either version 2
	of the License, or (at your option) any later version.

	This program is distributed in the hope that it will be useful,
	but WITHOUT ANY WARRANTY; without even the implied warranty of
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

	See the GNU General Public License for more details.

	You should have received a copy of the GNU General Public License
	along with this program; if not, write to:

		Free Software Foundation, Inc.
		59 Temple Place - Suite 330
		Boston, MA  02111-1307, USA

*/
static const char rcsid[] = 
	"$Id$";

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

#include "QF/cbuf.h"
#include "QF/idparse.h" // For now, use the id console parser
#include "QF/progs.h"


typedef struct {
	cbuf_t     *cbuf;
} cbuf_resources_t;

static cbuf_t *
get_cbuf (progs_t *pr, int arg, const char *func)
{
	pr_type_t  *handle;
	cbuf_t     *cbuf;

	if (arg == 0) {
		cbuf_resources_t *res = PR_Resources_Find (pr, "Cbuf");
		cbuf = res->cbuf;
	} else {
		if (arg <= ((pr_type_t *) pr->zone - pr->pr_globals)
			|| arg >= (pr->zone_size / sizeof (pr_type_t)))
			PR_RunError (pr, "%s: Invalid cbuf_t", func);

		handle = pr->pr_globals + arg;

		cbuf = *(cbuf_t **)handle;
	}
	if (!cbuf)
		PR_RunError (pr, "Invalid cbuf_t");

	return cbuf;
}

static void
bi_Cbuf_AddText (progs_t *pr)
{
	const char *text = P_STRING (pr, 0);
	cbuf_t     *cbuf = get_cbuf (pr, 0, __FUNCTION__);
	Cbuf_AddText (cbuf, text);
}

static void
bi_Cbuf_InsertText (progs_t *pr)
{
	const char *text = P_STRING (pr, 0);
	cbuf_t     *cbuf = get_cbuf (pr, 0, __FUNCTION__);
	Cbuf_InsertText (cbuf, text);
}

static void
bi_Cbuf_Execute (progs_t *pr)
{
	cbuf_t     *cbuf = get_cbuf (pr, 0, __FUNCTION__);
	Cbuf_Execute (cbuf);
}

static void
bi_Cbuf_Execute_Sets (progs_t *pr)
{
	cbuf_t     *cbuf = get_cbuf (pr, 0, __FUNCTION__);
	Cbuf_Execute_Sets (cbuf);
}

static void
bi_cbuf_clear (progs_t *pr, void *data)
{
}

void
Cbuf_Progs_Init (progs_t *pr)
{
	cbuf_resources_t *res = calloc (sizeof (cbuf_resources_t), 0);
	PR_Resources_Register (pr, "Cbuf", res, bi_cbuf_clear);

	PR_AddBuiltin (pr, "Cbuf_AddText", bi_Cbuf_AddText, -1);
	PR_AddBuiltin (pr, "Cbuf_InsertText", bi_Cbuf_InsertText, -1);
	PR_AddBuiltin (pr, "Cbuf_Execute", bi_Cbuf_Execute, -1);
	PR_AddBuiltin (pr, "Cbuf_Execute_Sets", bi_Cbuf_Execute_Sets, -1);
}

void
Cbuf_Progs_SetCbuf (progs_t *pr, cbuf_t *cbuf)
{
	cbuf_resources_t *res = PR_Resources_Find (pr, "Cbuf");
	res->cbuf = cbuf;
}