/* -*- mode: c++; c-basic-offset: 4; tab-width: 4; indent-tabs-mode: t -*-
 * vim: ts=4 sw=4 noet ai cindent syntax=cpp
 *
 * Conky, a system monitor, based on torsmo
 *
 * Please see COPYING for details
 *
 * Copyright (C) 2010 Pavel Labath et al.
 *
 * 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 <config.h>

#include "data-source.hh"

#include <iostream>
#include <sstream>

namespace conky {
	namespace {
		/*
		 * Returned when there is no data available.
		 * An alternative would be to throw an exception, but if we don't want to react too
		 * aggresively when the user e.g. uses a nonexisting variable, then returning NaN will do
		 * just fine.
		 */
		float NaN = std::numeric_limits<float>::quiet_NaN();

		typedef std::unordered_map<std::string, lua::cpp_function> data_sources_t;

		/*
		 * We cannot construct this object statically, because order of object construction in
		 * different modules is not defined, so register_source could be called before this
		 * object is constructed. Therefore, we create it on the first call to register_source.
		 */
		data_sources_t *data_sources;

		data_source_base& get_data_source(lua::state *l)
		{
			if(l->gettop() != 1)
				throw std::runtime_error("Wrong number of parameters");

			l->rawgetfield(lua::REGISTRYINDEX, priv::data_source_metatable);
			if(not l->getmetatable(-2) or not l->rawequal(-1, -2))
				throw std::runtime_error("Invalid parameter");

			return *static_cast<data_source_base *>(l->touserdata(1));
		}

		int data_source_asnumber(lua::state *l)
		{
			double x = get_data_source(l).get_number();
			l->pushnumber(x);
			return 1;
		}

		int data_source_astext(lua::state *l)
		{
			std::string x = get_data_source(l).get_text();
			l->pushstring(x.c_str());
			return 1;
		}

		const char data_source__index[] = 
			"local table, key = ...;\n"
			"if key == 'num' then\n"
			"  return conky.asnumber(table);\n"
			"elseif key == 'text' then\n"
			"  return conky.astext(table);\n"
			"else\n"
			"  print(string.format([[Invalid data source operation: '%s']], key));\n"
			"  return 0/0;\n"
			"end\n";
	}

	namespace priv {
		void do_register_data_source(const std::string &name, const lua::cpp_function &fn)
		{
			struct data_source_constructor {
				data_source_constructor()  { data_sources = new data_sources_t(); }
				~data_source_constructor() { delete data_sources; data_sources = NULL; }
			};
			static data_source_constructor constructor;

			bool inserted = data_sources->insert({name, fn}).second;
			if(not inserted)
				throw std::logic_error("Data source with name '" + name + "' already registered");
		}

		disabled_data_source::disabled_data_source(lua::state *l, const std::string &name,
								   const std::string &setting)
			: simple_numeric_source<float>(l, name, &NaN)
		{
			// XXX some generic way of reporting errors? NORM_ERR?
			std::cerr << "Support for variable '" << name
					  << "' has been disabled during compilation. Please recompile with '"
					  << setting << "'" << std::endl;
		}
	}

	double data_source_base::get_number() const
	{ return NaN; }

	std::string data_source_base::get_text() const
	{
		std::ostringstream s;
		s << get_number();
		return s.str();
	}

	register_disabled_data_source::register_disabled_data_source(const std::string &name, 
			const std::string &setting)
		: register_data_source<priv::disabled_data_source>(name, setting)
	{}

	// at least one data source should always be registered, so data_sources will not be null
	void export_data_sources(lua::state &l)
	{
		lua::stack_sentry s(l);
		l.checkstack(2);

		l.newmetatable(priv::data_source_metatable); ++s; {
			l.pushboolean(false); ++s;
			l.rawsetfield(-2, "__metatable"); --s;

			l.pushdestructor<data_source_base>(); ++s;
			l.rawsetfield(-2, "__gc"); --s;

			l.loadstring(data_source__index); ++s;
			l.rawsetfield(-2, "__index"); --s;
		} l.pop(); --s;

		l.newtable(); ++s; {
			for(auto i = data_sources->begin(); i != data_sources->end(); ++i) {
				l.pushfunction(i->second); ++s;
				l.rawsetfield(-2, i->first.c_str()); --s;
			}
		} l.rawsetfield(-2, "variables"); --s;

		l.pushfunction(data_source_asnumber); ++s;
		l.rawsetfield(-2, "asnumber"); --s;

		l.pushfunction(data_source_astext); ++s;
		l.rawsetfield(-2, "astext"); --s;
	}
}

/////////// example data sources, remove after real data sources are available ///////
int asdf_ = 47;
conky::register_data_source<conky::simple_numeric_source<int>> asdf("asdf", &asdf_);

conky::register_disabled_data_source zxcv("zxcv", "BUILD_ZXCV");