package dk.daoas.fulddaekning;

import java.io.File;
import java.io.FileReader;
import java.util.HashMap;
import java.util.List;
import java.util.Map;
import java.util.Queue;
import java.util.Set;
import java.util.concurrent.CyclicBarrier;
import java.util.concurrent.Executors;
import java.util.concurrent.ThreadFactory;
import java.util.concurrent.ThreadPoolExecutor;
import java.util.concurrent.atomic.AtomicInteger;
import java.util.logging.FileHandler;
import java.util.logging.Logger;
import java.util.logging.SimpleFormatter;

import ags.utils.dataStructures.trees.thirdGenKD.KdTree;



public class LookupMain {


	static final String CONFIG_FILENAME = "fulddaekning.properties";

	static boolean use_osrm;
	static boolean test_mode;
	static SafeProperties conf;

	static int max_workers;
	static boolean verbose;

	static String distributor;

	final static Logger logger = Logger.getLogger( LookupMain.class.toString() );


	static ThreadPoolExecutor threadPool;

	private static void setupThreadPool() {	 
		threadPool = (ThreadPoolExecutor) Executors.newFixedThreadPool(max_workers, new WorkerThreadFactory() );	 
	}



	public static void main(String[] args) throws Exception {

		//Setup j.u.l Logger
		Logger root = Logger.getLogger("");
		FileHandler fhandler = new FileHandler("fulddaekning.log"); // Ingen max størrelse, ingen rotation og ingen append
		fhandler.setFormatter( new SimpleFormatter() );
		root.addHandler( fhandler );




		File confFile = new File( CONFIG_FILENAME );
		if (! confFile.exists() ) {
			logger.warning("Config file not found: " + CONFIG_FILENAME);
			System.exit(1);
		}

		int antalIkkeDaekkede = -1;
		
		conf = new SafeProperties();
		conf.load( new FileReader(confFile) );



		verbose = Boolean.parseBoolean( conf.getSafeProperty("VERBOSE") );
		logger.info("Starting with VERBOSE:" + verbose);

		test_mode = Boolean.parseBoolean( conf.getSafeProperty("TEST") );
		logger.info("Starting with TEST:" + test_mode);

		use_osrm = Boolean.parseBoolean( conf.getSafeProperty("USE_OSRM") );
		logger.info("Starting with USE_OSRM:" + use_osrm);

		distributor = conf.getSafeProperty("DISTRIBUTOR");
		distributor = distributor.toUpperCase();
		logger.info("Starting for DISTRIBUTOR:" + distributor);

		Constants.init(distributor);
		Constants consts = Constants.getInstance();

		max_workers = Integer.parseInt( conf.getSafeProperty("MAX_WORKERS") );	 
		if (max_workers <= 0) {	 
			logger.info("!!! AUTO-DETECT MAX_WORKERS !!!");	 
			int cores = Runtime.getRuntime().availableProcessors();	 
			cores -= 1;//Efterlad 1 core/cpu i reserve til systemet	 

			max_workers = Math.max(1, cores); //Dog skal der som minimum være 1 core til beregning	 

		}	 
		if (test_mode) {
			max_workers = 1;
		}
		logger.info("Starting with MAX_WORKERS:" + max_workers);	 
		setupThreadPool();

		
		Database db = new Database(conf);
		Queue<Adresse> ikkeDaekkede = db.hentAlleIkkedaekkedeAdresser(consts.getMinPostnr(), consts.getMaxPostnr() );
		antalIkkeDaekkede = ikkeDaekkede.size();
		logger.info("Antal ikke-daekkede: " + antalIkkeDaekkede );



		boolean testRun= false;

		AtomicInteger antalFundne = new AtomicInteger(0);

		long beregnStart =0;
		long start = System.currentTimeMillis();
		int antalDaekkedeAdresser = -1;

		if (testRun == false) {

			logger.info("Finder postnumre");
			Set<Short> postnumre = db.hentPostnumreCache();

			// Først validerer vi BBox på alle postnummre, for at undgå fuldt stop midt i beregningen
			for(short postnr : postnumre) { //
				logger.info("Validerer BBox for " + postnr);
				BoundingBox bbox = db.getBoundingbox(postnr);
				bbox.validateBbox();
			}


			logger.info("Henter alle daekkede adresser");
			antalDaekkedeAdresser = db.hentAlleDaekkedeAdresser();
			logger.info( "AlleDaekkedeAdresser.length=" + antalDaekkedeAdresser );

			Map<Short, List<Adresse>> addrHoList = db.getDaekkedeAdresserHO();

			Map<Short, KdTree<Adresse>> hoTrees = new HashMap<Short,KdTree<Adresse>>();

			for ( Map.Entry<Short, List<Adresse>> entry : addrHoList.entrySet() ) {
				short ho = entry.getKey();
				List<Adresse> geopoints = entry.getValue();

				logger.info("Opbygger KDTree for " + ho + " - antal=" + geopoints.size() );

				int bucketSize = 96*12;

				KdTree<Adresse> addressTree = new KdTree<Adresse>( 3, bucketSize );
				for(Adresse a: geopoints) {
					addressTree.addPoint(a.xyz, a);
				}
				
				hoTrees.put(ho, addressTree);				
			}

			db.resetResultTable();

			beregnStart = System.currentTimeMillis();
			logger.info("Starter beregning");

			//pre-check er ok - reset tmp tabel og start søgningen
			
			CyclicBarrier barrier = new CyclicBarrier(LookupMain.max_workers + 1);
			
			for (int i=0; i<max_workers; i++) {
				LookupWorker worker = new LookupWorker(i, barrier, ikkeDaekkede, hoTrees,antalFundne,db,verbose,consts);
				threadPool.submit( worker );
			}
			
			barrier.await(); // Afvent at workerne bliver færdige
			
			logger.info("Calc is done - cleaning up remaining bits");
			
			threadPool.shutdown(); //Calc is done now


			db.saveBatch();

			if (test_mode == false) {
				db.renameResultTables();
			} else {
				logger.info( "Rename tables is disabled !!!" );
			}



		} else {
			/// Test
			/*
			db.resetResultTable();


			alleDaekkedeAdresser = db.hentAlleDaekkedeAdresser();
			logger.info( "AlleDaekkedeAdresser.length=" + alleDaekkedeAdresser.size());

			short post = (short) 2700;			
			Lookup lookup = new Lookup(post, db, threadPool);
			lookup.doLookup();*/								
		}


		long now = System.currentTimeMillis();
		long elapsed = now - start ;
		long elapsedBeregn = now - beregnStart;


		logger.info("Fuld load done : " + formatMilliSeconds(elapsed) );
		logger.info("Fuld load done (beregning) : " + formatMilliSeconds(elapsedBeregn) );
		logger.info("Antal daekkede : " + antalDaekkedeAdresser );
		logger.info("Antal ikke-daekkede : " + antalIkkeDaekkede );
		logger.info("Heraf, antal fundne : " + antalFundne );

		logger.info( String.format("Fandt adresser til : %.2f %%", (antalFundne.get() *100.0)/antalIkkeDaekkede ) );
		//logger.info("Fandt adresser til : " + (antalFundne*100.0)/ikkeDaekkede.length + "%" );
	}



	static String formatMilliSeconds(long milliseconds) {
		int mseconds = (int) milliseconds % 1000;
		int seconds = (int) (milliseconds / 1000) % 60 ;
		int minutes = (int) ((milliseconds / (1000*60)) % 60);
		int hours   = (int) ((milliseconds / (1000*60*60)) % 24);

		return String.format("%02d:%02d:%02d.%03d", hours, minutes, seconds, mseconds);
	}


	static class WorkerThreadFactory implements ThreadFactory {	 
		int count = 0;	 

		@Override	 
		public Thread newThread(Runnable r) {	 
			return new Thread(r, "lookupWorker/" + count++);	 
		}
	}
}