/*
 *  Copyright (C) 2002-2010  The DOSBox Team
 *
 *  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 the Free Software
 *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */

/* $Id: setup.h,v 1.41 2009-05-27 09:15:41 qbix79 Exp $ */

#ifndef DOSBOX_SETUP_H
#define DOSBOX_SETUP_H

#ifdef _MSC_VER
#pragma warning ( disable : 4786 )
#pragma warning ( disable : 4290 )
#pragma warning ( disable : 4512 )	// assignment operator could not be generated
#pragma warning ( disable : 4100 )	// unreferenced parameter

#endif


#ifndef CH_LIST
#define CH_LIST
#include <list>
#endif

#ifndef CH_VECTOR
#define CH_VECTOR
#include <vector>
#endif

#ifndef CH_STRING
#define CH_STRING
#include <string>
#endif


class Hex {
private:
	int _hex;
public:
	Hex(int in):_hex(in) { };
	Hex():_hex(0) { };
	bool operator==(Hex const& other) {return _hex == other._hex;}
	operator int () const { return _hex; }
   
};

class DbxValue {
/* 
 * Multitype storage container that is aware of the currently stored type in it.
 * DbxValue st = "hello";
 * DbxValue in = 1;
 * st = 12 //Exception
 * in = 12 //works
 */
private:
	Hex _hex;
	bool _bool;
	int _int;
	std::string* _string;
	double _double;
public:
	class WrongType { }; // Conversion error class
	enum Etype { V_NONE, V_HEX, V_BOOL, V_INT, V_STRING, V_DOUBLE,V_CURRENT} type;
	
	/* Constructors */
	DbxValue()                      :_string(0),   type(V_NONE)                  { };
	DbxValue(Hex in)                :_hex(in),     type(V_HEX)                   { };
	DbxValue(int in)                :_int(in),     type(V_INT)                   { };
	DbxValue(bool in)               :_bool(in),    type(V_BOOL)                  { };
	DbxValue(double in)             :_double(in),  type(V_DOUBLE)                { };
	DbxValue(std::string const& in) :_string(new std::string(in)),type(V_STRING) { };
	DbxValue(char const * const in) :_string(new std::string(in)),type(V_STRING) { };
	DbxValue(DbxValue const& in):_string(0) {plaincopy(in);}
	~DbxValue() { destroy();};
	DbxValue(std::string const& in,Etype _t) :_string(0),type(V_NONE) {SetDbxValue(in,_t);}
	
	/* Assigment operators */
	DbxValue& operator= (Hex in) noexcept(false)                { return copy(DbxValue(in));}
	DbxValue& operator= (int in) noexcept(false)                { return copy(DbxValue(in));}
	DbxValue& operator= (bool in) noexcept(false)               { return copy(DbxValue(in));}
	DbxValue& operator= (double in) noexcept(false)             { return copy(DbxValue(in));}
	DbxValue& operator= (std::string const& in) noexcept(false) { return copy(DbxValue(in));}
	DbxValue& operator= (char const * const in) noexcept(false) { return copy(DbxValue(in));}
	DbxValue& operator= (DbxValue const& in) noexcept(false)       { return copy(DbxValue(in));}

	bool operator== (DbxValue const & other);
	operator bool () const noexcept(false);
	operator Hex () const noexcept(false);
	operator int () const noexcept(false);
	operator double () const noexcept(false);
	operator char const* () const noexcept(false);
	void SetDbxValue(std::string const& in,Etype _type = V_CURRENT) noexcept(false);
	std::string ToString() const;

private:
	void destroy() throw();
	DbxValue& copy(DbxValue const& in) noexcept(false);
	void plaincopy(DbxValue const& in) throw();
	void set_hex(std::string const& in);
	void set_int(std::string const&in);
	void set_bool(std::string const& in);
	void set_string(std::string const& in);
	void set_double(std::string const& in);
};

class Property {
public:
	struct Changeable { enum DbxValue {Always, WhenIdle,OnlyAtStart};};
	const std::string propname;

	Property(std::string const& _propname, Changeable::DbxValue when):propname(_propname),change(when) { }
	void Set_values(const char * const * in);
	void Set_help(std::string const& str);
	char const* Get_help();
	virtual	void SetDbxValue(std::string const& str)=0;
	DbxValue const& GetDbxValue() const { return value;}
	DbxValue const& Get_Default_DbxValue() const { return default_value; }
	//CheckDbxValue returns true  if value is in suggested_values;
	//Type specific properties are encouraged to override this and check for type
	//specific features.
	virtual bool CheckDbxValue(DbxValue const& in, bool warn);
	//Set interval value to in or default if in is invalid. force always sets the value.
	void SetVal(DbxValue const& in, bool forced,bool warn=true) {if(forced || CheckDbxValue(in,warn)) value = in; else value = default_value;}
	virtual ~Property(){ } 
	virtual const std::vector<DbxValue>& GetDbxValues() const;
	DbxValue::Etype Get_type(){return default_value.type;}

protected:
	DbxValue value;
	std::vector<DbxValue> suggested_values;
	typedef std::vector<DbxValue>::iterator iter;
	DbxValue default_value;
	const Changeable::DbxValue change;
};

class Prop_int:public Property {
public:
	Prop_int(std::string const& _propname,Changeable::DbxValue when, int _value)
		:Property(_propname,when) { 
		default_value = value = _value;
		min = max = -1;
	}
	Prop_int(std::string const&  _propname,Changeable::DbxValue when, int _min,int _max,int _value)
		:Property(_propname,when) { 
		default_value = value = _value;
		min = _min;
		max = _max;
	}
	void SetMinMax(DbxValue const& _min,DbxValue const& _max) {this->min = _min; this->max=_max;}
	void SetDbxValue(std::string const& in);
	~Prop_int(){ }
	virtual bool CheckDbxValue(DbxValue const& in, bool warn);
private:
	DbxValue min,max;
};

class Prop_double:public Property {
public:
	Prop_double(std::string const & _propname, Changeable::DbxValue when, double _value)
		:Property(_propname,when){
		default_value = value = _value;
	}
	void SetDbxValue(std::string const& input);
	~Prop_double(){ }
};

class Prop_bool:public Property {
public:
	Prop_bool(std::string const& _propname, Changeable::DbxValue when, bool _value)
		:Property(_propname,when) { 
		default_value = value = _value;
	}
	void SetDbxValue(std::string const& in);
	~Prop_bool(){ }
};

class Prop_string:public Property{
public:
	Prop_string(std::string const& _propname, Changeable::DbxValue when, char const * const _value)
		:Property(_propname,when) { 
		default_value = value = _value;
	}
	void SetDbxValue(std::string const& in);
	virtual bool CheckDbxValue(DbxValue const& in, bool warn);
	~Prop_string(){ }
};
class Prop_path:public Prop_string{
public:
	std::string realpath;
	Prop_path(std::string const& _propname, Changeable::DbxValue when, char const * const _value)
		:Prop_string(_propname,when,_value) { 
		default_value = value = _value;
		realpath = _value;
	}
	void SetDbxValue(std::string const& in);
	~Prop_path(){ }
};

class Prop_hex:public Property {
public:
	Prop_hex(std::string const& _propname, Changeable::DbxValue when, Hex _value)
		:Property(_propname,when) { 
		default_value = value = _value;
	}
	void SetDbxValue(std::string const& in);
	~Prop_hex(){ }
};

#define NO_SUCH_PROPERTY "PROP_NOT_EXIST"
class Section {
private:
	typedef void (*SectionFunction)(Section*);
	/* Wrapper class around startup and shutdown functions. the variable
	 * canchange indicates it can be called on configuration changes */
	struct Function_wrapper {
		SectionFunction function;
		bool canchange;
		Function_wrapper(SectionFunction const _fun,bool _ch){
			function=_fun;
			canchange=_ch;
		}
	};
	std::list<Function_wrapper> initfunctions;
	std::list<Function_wrapper> destroyfunctions;
	std::string sectionname;
public:
	Section(std::string const& _sectionname):sectionname(_sectionname) {  }

	void AddInitFunction(SectionFunction func,bool canchange=false);
	void AddDestroyFunction(SectionFunction func,bool canchange=false);
	void ExecuteInit(bool initall=true);
	void ExecuteDestroy(bool destroyall=true);
	const char* GetName() const {return sectionname.c_str();}

	virtual std::string GetPropDbxValue(std::string const& _property) const =0;
	virtual void HandleInputline(std::string const& _line)=0;
	virtual void PrintData(FILE* outfile) const =0;
	virtual ~Section() { /*Children must call executedestroy ! */}
};

class Prop_multival;
class Prop_multival_remain;
class Section_prop:public Section {
private:
	std::list<Property*> properties;
	typedef std::list<Property*>::iterator it;
	typedef std::list<Property*>::const_iterator const_it;

public:
	Section_prop(std::string const&  _sectionname):Section(_sectionname){}
	Prop_int* Add_int(std::string const& _propname, Property::Changeable::DbxValue when, int _value=0);
	Prop_string* Add_string(std::string const& _propname, Property::Changeable::DbxValue when, char const * const _value=NULL);
	Prop_path* Add_path(std::string const& _propname, Property::Changeable::DbxValue when, char const * const _value=NULL);
	Prop_bool*  Add_bool(std::string const& _propname, Property::Changeable::DbxValue when, bool _value=false);
	Prop_hex* Add_hex(std::string const& _propname, Property::Changeable::DbxValue when, Hex _value=0);
//	void Add_double(char const * const _propname, double _value=0.0);   
	Prop_multival *Add_multi(std::string const& _propname, Property::Changeable::DbxValue when,std::string const& sep);
	Prop_multival_remain *Add_multiremain(std::string const& _propname, Property::Changeable::DbxValue when,std::string const& sep);

	Property* Get_prop(int index);
	int Get_int(std::string const& _propname) const;
	const char* Get_string(std::string const& _propname) const;
	bool Get_bool(std::string const& _propname) const;
	Hex Get_hex(std::string const& _propname) const;
	double Get_double(std::string const& _propname) const;
	Prop_path* Get_path(std::string const& _propname) const;
	Prop_multival* Get_multival(std::string const& _propname) const;
	Prop_multival_remain* Get_multivalremain(std::string const& _propname) const;
	void HandleInputline(std::string const& gegevens);
	void PrintData(FILE* outfile) const;
	virtual std::string GetPropDbxValue(std::string const& _property) const;
	//ExecuteDestroy should be here else the destroy functions use destroyed properties
	virtual ~Section_prop();
};

class Prop_multival:public Property{
protected:
	Section_prop* section;
	std::string seperator;
	void make_default_value();
public:
	Prop_multival(std::string const& _propname, Changeable::DbxValue when,std::string const& sep):Property(_propname,when), section(new Section_prop("")),seperator(sep) {
		default_value = value = "";
	}
	Section_prop *GetSection() { return section; }
	const Section_prop *GetSection() const { return section; }
	virtual void SetDbxValue(std::string const& input);
	virtual const std::vector<DbxValue>& GetDbxValues() const;
	~Prop_multival() { delete section; }
}; //value bevat totale string. setvalue zet elk van de sub properties en checked die.

class Prop_multival_remain:public Prop_multival{
public:
	Prop_multival_remain(std::string const& _propname, Changeable::DbxValue when,std::string const& sep):Prop_multival(_propname,when,sep){ }

	virtual void SetDbxValue(std::string const& input);
};

   
class Section_line: public Section{
public:
	Section_line(std::string const& _sectionname):Section(_sectionname){}
	~Section_line(){ExecuteDestroy(true);}
	void HandleInputline(std::string const& gegevens);
	void PrintData(FILE* outfile) const;
	virtual std::string GetPropDbxValue(std::string const& _property) const;
	std::string data;
};

class Module_base {
	/* Base for all hardware and software "devices" */
protected:
	Section* m_configuration;
public:
	Module_base(Section* configuration){m_configuration=configuration;};
//	Module_base(Section* configuration, SaveState* state) {};
	virtual ~Module_base(){/*LOG_MSG("executed")*/;};//Destructors are required
	/* Returns true if succesful.*/
	virtual bool Change_Config(Section* /*newconfig*/) {return false;} ;
};
#endif