#include "region_generator.hh"

std::map< std::string, region_generator_plugin_creator *>&
get_region_generator_plugin_map()
{
	static std::map< std::string, region_generator_plugin_creator* > region_generator_plugin_map;
	return region_generator_plugin_map;
}

void print_region_generator_plugins()
{
	std::map< std::string, region_generator_plugin_creator *>& m = get_region_generator_plugin_map();
	std::map< std::string, region_generator_plugin_creator *>::iterator it;
	it = m.begin();
	std::cout << " - Available region generator plug-ins:\n";
	while( it!=m.end() )
	{
		if( (*it).second )
			std::cout << "\t\'" << (*it).first << "\'\n";
		++it;
	}
	
	
}

region_generator_plugin *select_region_generator_plugin( config_file& cf )
{
	std::string rgname = cf.getValueSafe<std::string>( "setup", "region", "box" );
	
	region_generator_plugin_creator *the_region_generator_plugin_creator
	= get_region_generator_plugin_map()[ rgname ];
	
	if( !the_region_generator_plugin_creator )
	{
		std::cerr << " - Error: region generator plug-in \'" << rgname << "\' not found." << std::endl;
		LOGERR("Invalid/Unregistered region generator plug-in encountered : %s",rgname.c_str() );
		print_region_generator_plugins();
		throw std::runtime_error("Unknown region generator plug-in");
		
	}else
	{
		std::cout << " - Selecting region generator plug-in \'" << rgname << "\'..." << std::endl;
		LOGUSER("Selecting region generator plug-in  : %s",rgname.c_str() );
	}
	
	region_generator_plugin *the_region_generator_plugin
	= the_region_generator_plugin_creator->create( cf );
	
	return the_region_generator_plugin;
}

/*******************************************************************************/
/*******************************************************************************/
/*******************************************************************************/

#include <cmath>

class region_box_plugin : public region_generator_plugin{
private:
    double
        x0ref_[3],      //!< coordinates of refinement region origin (in [0..1[)
        lxref_[3];      //!< extent of refinement region (int [0..1[)
    size_t lnref_[3];
    bool bhave_nref;
    unsigned levelmin_, levelmax_;
    
public:
    region_box_plugin( config_file& cf )
    : region_generator_plugin( cf )
    {
        
    }
    
    void get_AABB( double *left, double *right, unsigned level )
    {
        levelmin_ = pcf_->getValue<unsigned>("setup","levelmin");
        levelmax_ = pcf_->getValue<unsigned>("setup","levelmax");
        
        std::string temp;
        
        if( !pcf_->containsKey("setup","ref_offset") && !pcf_->containsKey("setup","ref_center") )
            throw std::runtime_error("Found levelmin!=levelmax but neither ref_offset nor ref_center was specified.");
        if( !pcf_->containsKey("setup","ref_extent") && !pcf_->containsKey("setup","ref_dims") )
            throw std::runtime_error("Found levelmin!=levelmax but neither ref_extent nor ref_dims was specified.");
        
        if( pcf_->containsKey("setup","ref_extent") )
        {
            temp                = pcf_->getValue<std::string>( "setup", "ref_extent" );
            sscanf( temp.c_str(), "%lf,%lf,%lf", &lxref_[0],&lxref_[1],&lxref_[2] );
            bhave_nref = false;
        }else if( pcf_->containsKey("setup","ref_dims") ){
            temp = pcf_->getValue<std::string>("setup","ref_dims");
            sscanf( temp.c_str(), "%ld,%ld,%ld", &lnref_[0],&lnref_[1],&lnref_[2] );
            bhave_nref = true;
            
            lxref_[0] = lnref_[0] * 1.0/(double)(1<<levelmax_);
            lxref_[1] = lnref_[1] * 1.0/(double)(1<<levelmax_);
            lxref_[2] = lnref_[2] * 1.0/(double)(1<<levelmax_);
        }
        
        if( pcf_->containsKey("setup","ref_center") )
        {
            temp            = pcf_->getValue<std::string>( "setup", "ref_center" );
            sscanf( temp.c_str(), "%lf,%lf,%lf", &x0ref_[0], &x0ref_[1], &x0ref_[2] );
            x0ref_[0] = fmod( x0ref_[0]-0.5*lxref_[0]+1.0,1.0);
            x0ref_[1] = fmod( x0ref_[1]-0.5*lxref_[1]+1.0,1.0);
            x0ref_[2] = fmod( x0ref_[2]-0.5*lxref_[2]+1.0,1.0);
        }else if( pcf_->containsKey("setup","ref_offset") ){
            temp            = pcf_->getValue<std::string>( "setup", "ref_offset" );
            sscanf( temp.c_str(), "%lf,%lf,%lf", &x0ref_[0], &x0ref_[1], &x0ref_[2] );
        }
        
        for( int i=0; i<3; ++i )
        {
            left[i] = x0ref_[i];
            right[i] = x0ref_[i] + lxref_[i];
        }
    }
    
    bool query_point( double *x )
    {
        bool check = true;
        double dx;
        for( int i=0; i<3; ++i )
        {
            dx = x[i] - x0ref_[i];
            if( dx < -0.5 ) dx += 1.0;
            else if (dx > 0.5 ) dx -= 1.0;
            
            check &= dx >= 0.0 & dx <= lxref_[i];
        }
        return check;
    }
};

namespace{
    region_generator_plugin_creator_concrete< region_box_plugin > creator("box");
}