//
//	aegis - project change supervisor
//	Copyright (C) 1994-1997, 1999, 2000, 2002, 2004-2008 Peter Miller
//
//	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 3 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, see
//	<http://www.gnu.org/licenses/>.
//

#include <common/error.h>
#include <common/mem.h>
#include <common/symtab/template.h>
#include <common/trace.h>
#include <libaegis/aer/expr/constant.h>
#include <libaegis/aer/expr/name.h>
#include <libaegis/aer/func.h>
#include <libaegis/aer/lex.h>
#include <libaegis/aer/parse.h>
#include <libaegis/aer/value/boolean.h>
#include <libaegis/aer/value/error.h>
#include <libaegis/aer/value/group.h>
#include <libaegis/aer/value/gstate.h>
#include <libaegis/aer/value/null.h>
#include <libaegis/aer/value/passwd.h>
#include <libaegis/aer/value/ref.h>
#include <libaegis/aer/value/uconf.h>
#include <libaegis/cattr.h>
#include <libaegis/common.h>
#include <libaegis/cstate.h>
#include <libaegis/fstate.h>
#include <libaegis/gonzo.h>
#include <libaegis/pattr.h>
#include <libaegis/pconf.h>
#include <libaegis/pstate.h>
#include <libaegis/sub.h>
#include <libaegis/uconf.h>
#include <libaegis/ustate.h>


static symtab<rpt_value::pointer> symbol_table;


static void
init(void)
{
    if (!symbol_table.empty())
	return;
    trace(("%s\n", __PRETTY_FUNCTION__));

    //
    // initialize the names of the builtin functions
    //
    rpt_func::init(symbol_table);

    //
    // pull values from fmtgen
    //
    cattr__rpt_init();
    common__rpt_init();
    cstate__rpt_init();
    fstate__rpt_init();
    gstate__rpt_init();
    pattr__rpt_init();
    pconf__rpt_init();
    pstate__rpt_init();
    uconf__rpt_init();
    ustate__rpt_init();

    //
    // some constants
    //
    symbol_table.assign("true", rpt_value_boolean::create(true));
    symbol_table.assign("false", rpt_value_boolean::create(false));

    //
    // This one is so you can get at .aegisrc files.
    //
    symbol_table.assign("user", rpt_value_uconf::create());

    symbol_table.assign("passwd", rpt_value_passwd::create());
    symbol_table.assign("group", rpt_value_group::create());
    symbol_table.assign("project", rpt_value_gstate::create());

    //
    // the "arg" variable, containing the
    // strings specified on the command line.
    //
    report_parse__init_arg();
}


void
rpt_expr_name__init(const nstring &name, const rpt_value::pointer &value)
{
    trace(("%s\n", __PRETTY_FUNCTION__));
    symbol_table.assign(name, value);
}


rpt_expr::pointer
rpt_expr_name(const nstring &name)
{
    if (symbol_table.empty())
	init();

    trace(("%s\n", __PRETTY_FUNCTION__));
    rpt_value::pointer data = symbol_table.get(name);
    if (!data)
    {
        nstring name2 = symbol_table.query_fuzzy(name);
	if (name2.empty())
	{
	    sub_context_ty sc;
	    sc.var_set_string("Name", name);
	    aer_lex_error(sc, i18n("the name \"$name\" is undefined"));
	    data = rpt_value_null::create();
	}
	else
	{
	    sub_context_ty sc;
	    sc.var_set_string("Name", name);
	    sc.var_set_string("Guess", name2);
	    aer_lex_error(sc, i18n("no \"$name\", guessing \"$guess\""));
	    data = symbol_table.get(name2);
	    assert(data);
	}
    }

    return rpt_expr_constant::create(data);
}


void
rpt_expr_name__declare(const nstring &name)
{
    trace(("%s\n", __PRETTY_FUNCTION__));
    trace(("name = \"%s\"\n", name.c_str()));
    //
    // make sure the name is unique
    //
    if (symbol_table.empty())
	init();
    if (symbol_table.query(name))
    {
	sub_context_ty sc;
	sc.var_set_string("Name", name);
	aer_lex_error(sc, i18n("the name \"$name\" has already been used"));
	return;
    }

    //
    // create the value to be a reference to nul
    //	(it is a variable, it must be a reference to something)
    //
    trace(("name is new\n"));
    rpt_value::pointer v1 = rpt_value_null::create();
    rpt_value::pointer v2 = rpt_value_reference::create(v1);
    symbol_table.assign(name, v2);
    trace(("assigned nul\n"));
}