/*
	#FILENAME#

	#DESCRIPTION#

	Copyright (C) 2002 #AUTHOR#

	Author: #AUTHOR#
	Date: #DATE#

	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$";

#include <string.h>
#include <stdlib.h>

#include "QF/dstring.h"
#include "QF/hash.h"
#include "QF/gib_vars.h"
#include "QF/gib_buffer.h"
        
hashtab_t *gib_globals = 0;

gib_var_t *
GIB_Var_New (void)
{
	gib_var_t *new = calloc (1, sizeof (gib_var_t));
	new->key = dstring_newstr();
	new->value = dstring_newstr();
	
	return new;
}

const char *
GIB_Var_Get_Key (void *ele, void *ptr)
{
	return ((gib_var_t *)ele)->key->str;
}

void
GIB_Var_Free (void *ele, void *ptr)
{
	gib_var_t *l = (gib_var_t *)ele;
	dstring_delete (l->key);
	dstring_delete (l->value);
	if (l->subvars)
		Hash_DelTable (l->subvars);
}

gib_var_t *
GIB_Var_Get_R (hashtab_t *vars, char *name)
{
	char *p;
	gib_var_t *l;
	
	if (!vars)
		return 0;
	if ((p = strchr (name, '.'))) {
		*p = 0;
		l = Hash_Find (vars, name);
		*p = '.';
		if (!l || !l->subvars)
			return 0;
		return GIB_Var_Get_R (l->subvars, p+1);
	} else
		return Hash_Find (vars, name);
}

void
GIB_Var_Set_R (hashtab_t *vars, char *name, const char *value)
{
	char *p;
	gib_var_t *l;
	
	if ((p = strchr (name, '.'))) {
		*p = 0;
		if (!(l = Hash_Find (vars, name))) {
			l = GIB_Var_New ();
			dstring_appendstr (l->key, name);
			Hash_Add (vars, l);
		}
		*p = '.';
		if (!l->subvars)
			l->subvars = Hash_NewTable (256, GIB_Var_Get_Key, GIB_Var_Free, 0);
		GIB_Var_Set_R (l->subvars, p+1, value);
	} else {
		if ((l = Hash_Find (vars, name)))
			dstring_clearstr (l->value);
		else {
			l = GIB_Var_New ();
			dstring_appendstr (l->key, name);
			Hash_Add (vars, l);
		}
		dstring_appendstr (l->value, value);
	}
}
	
void
GIB_Var_Set_Local (cbuf_t *cbuf, const char *key, const char *value)
{
	char *k = strdup (key);
	if (!GIB_DATA(cbuf)->locals)
		GIB_DATA(cbuf)->locals = Hash_NewTable (256, GIB_Var_Get_Key, GIB_Var_Free, 0);
	GIB_Var_Set_R (GIB_DATA(cbuf)->locals, k, value);
	free(k);
}

void
GIB_Var_Set_Global (const char *key, const char *value)
{
	char *k = strdup (key);
	GIB_Var_Set_R (gib_globals, k, value);
	free (k);
}

const char *
GIB_Var_Get_Local (cbuf_t *cbuf, const char *key)
{
	gib_var_t *l;
	char *k;
	if (!GIB_DATA(cbuf)->locals)
		return 0;
	k = strdup(key);
	l = GIB_Var_Get_R (GIB_DATA(cbuf)->locals, k);
	free(k);
	if (l)
		return l->value->str;
	else
		return 0;
}

const char *
GIB_Var_Get_Global (const char *key)
{
	gib_var_t *l;
	char *k = strdup (key);
	l = GIB_Var_Get_R (gib_globals, k);
	free (k);
	if (l)
		return l->value->str;
	else
		return 0;
}