yy

package algorithm;

import java.util.ArrayList;
import java.util.Collections;

import org.json.JSONArray;
import org.json.JSONException;
import org.json.JSONObject;

public class Algorithm{

    private static class ArrayListCar extends ArrayList<Car>{

    }

    private int spotsInRow; // as an input from server. possible value: 4,5,6,7,8
    private ArrayListCar[][][] park; // each spot has a list of all the cars belong to the spot
    private char[][][] statusPark; // real time 3-dimensions array that has status for each spot
    // e - EMPTY, f - FULL, i - INVALID, s - SAVE, o - ordered

    Algorithm(){ // CONSTRUCTOR
        spotsInRow = 4; // spotsInRow = 4 as an initial value
        statusPark = new char[3][3][4];
        park = new ArrayListCar[3][3][4];

        int i, j, k;
        for (i = 0; i < 3; i++)
            for (j = 0; j < 3; j++)
                for(k = 0; k < 4; k++) {
                    park[i][j][k] = new ArrayListCar(); // each cell has an empty list as an initial state
                    statusPark[i][j][k] = 'e';
                }
        }

    Algorithm(int numSpotsInRow){ // 2nd CONSTRUCTOR
        statusPark = new char[3][3][numSpotsInRow];
        park = new ArrayListCar[3][3][numSpotsInRow];
        spotsInRow = numSpotsInRow;

        int i, j, k;
        for (i = 0; i < 3; i++)
            for (j = 0; j < 3; j++)
                for (k = 0; k < numSpotsInRow; k++) {
                    park[i][j][k] = new ArrayListCar();
                    statusPark[i][j][k] = 'e';
                }
    }

    public Algorithm(int numSpotsInRow, String db, String si){ // 3rd CONSTRUCTOR
        this.spotsInRow = numSpotsInRow;
        this.park = generateParkFromString(db);
        this.statusPark = generateStatusPark(si);

        int i, j, k;
        for (i = 0; i < 3; i++)
            for (j = 0; j < 3; j++)
                for (k = 0; k < numSpotsInRow; k++)
                    // sort by exit time. It also means it is sorted by entry time.
                    Collections.sort(park[i][j][k]);
    }

    private char[][][] generateStatusPark(String si){
        //TODO: make row width dynamic
        char[][][] tmpStatuses = new char[3][3][4];
        try {
            JSONArray statuses = new JSONArray(si);
            for(int index = 0; index < statuses.length(); index++) {
                JSONObject current = statuses.getJSONObject(index);
                int i = current.getInt("i");
                int j = current.getInt("j");
                int k = current.getInt("k");
                tmpStatuses[i][j][k] = current.getString("status").charAt(0);

            }
        } catch (JSONException e) {
            // TODO Auto-generated catch block
            e.printStackTrace();
        }
        return tmpStatuses;
    }

    private ArrayListCar[][][] generateParkFromString(String st){
        ArrayListCar[][][] cars = new ArrayListCar[3][3][4];
        for (int i = 0; i < 3; i++)
            for (int j = 0; j < 3; j++)
                for(int k = 0; k < 4; k++)
                    cars[i][j][k] = new ArrayListCar();
        try {
            JSONArray arr = new JSONArray(st);
            for(int index = 0; index < arr.length(); index++) {
                JSONObject current = arr.getJSONObject(index);
                int i = current.getInt("i");
                int j = current.getInt("j");
                int k = current.getInt("k");
                String carID = current.getString("carID");
                long entryTime = current.getLong("entryTime");
                long exitTime = current.getLong("exitTime");
                if(cars[i][j][k] == null) {
                    cars[i][j][k] = new ArrayListCar();
                }
                cars[i][j][k].add(new Car(carID, exitTime, entryTime));
            }
        } catch (JSONException e) {
            // TODO Auto-generated catch block
            e.printStackTrace();
        }

        return null;
    }

    //------------------------//

    // function checks whether specific spot is empty in real time or not
        private boolean isEmptySpotRealTime(int i, int j, int k){
            if (statusPark[i][j][k] == 's' || statusPark[i][j][k] == 'i')
                return false;

            long realTime = System.currentTimeMillis();
            int z;
            for (z = 0; z < park[i][j][k].size(); z++){
                if (realTime <= park[i][j][k].get(z).getExitTime() &&
                        realTime >= park[i][j][k].get(z).getEntryTime())
                    return false;
            }
            return true;
        }

        // function checks whether specific spot is empty but has ordered cars belong to it
        private boolean isEmptyButOrderedRealTime(int i, int j, int k){
            if (!park[i][j][k].isEmpty() && isEmptySpotRealTime(i, j, k))
                return true;
            return false;
        }

        // function gets specific list of cars that have any connection with a specific spot
        // returns true if the specific spot is empty in the given times
        private boolean checkAvailableSpot(long entryTime, long exitTime, ArrayListCar list){
            // NO NEED TO CHECK 's' , 'i' CASES

            if (list.isEmpty()){
                return true;
            }
            else if (exitTime <= list.get(0).getEntryTime())
                return true;
            else if (entryTime >= list.get(list.size() - 1).getExitTime())
                return true;
            else{
                int z;
                for (z = 0; z < list.size() - 1; z++){
                    if (entryTime >= list.get(z).getExitTime() && exitTime <= list.get(z+1).getEntryTime())
                        return true;
                }
                return false;
            }
        }

        // function checks whether the park is available to insertion command in the given times
        private boolean checkAvailablePark(long entryTime, long exitTime){
            int i, j, k;
            for (i = 0; i < 3; i++)
                for (j = 0; j < 3; j++)
                    for (k = 0; k < spotsInRow; k++)
                        if ((statusPark[i][j][k] != 's' && statusPark[i][j][k] != 'i') &&
                                checkAvailableSpot(entryTime, exitTime, park[i][j][k]))
                            return true;
            return false;
        }

        // function returns spot's coordinates where a given car is located at
        private int[] locateCarSpot(String carID){
            int[] a = {-1, -1, -1}; // an array holds the coordinates of the car
            int i, j, k, z;

            for (i = 0; i < 3; i++){
                for (j = 0; j < 3; j++){
                    for (k = 0; k < spotsInRow; k++){
                        for(z = 0; z < park[i][j][k].size(); z++){
                            if (park[i][j][k].get(z).getCarID().equals(carID)){
                                a[0] = i; a[1] = j; a[2] = k;
                                return a;
                            }
                        }
                    }
                }
            }
            return a;
        }

        // get the cars out of the park from a specific depth
        // list is a list which keeps the ejected cars
        private void ejectInDepth(ArrayListCar list, int i, int j, int k){
            int t, z;
            for (t = 0; t <= i; t++){
                if (statusPark[t][j][k] != 'i' && statusPark[t][j][k] != 's'){
                    statusPark[t][j][k] = 'e'; // update the status because cars were ejected

                    for (z = park[t][j][k].size() - 1; z >= 0; z--){
                        list.add(park[t][j][k].get(z));
                        park[t][j][k].remove(z);
                    }
                }
            }
        }

        // get the cars out of the park from a specific floor
        // list is a list which keeps the ejected cars
        private void ejectInFloor(ArrayList<Car> list, int j, int k){
            int t, z;
            for (t = 0; t < j; t++){
                if (statusPark[0][t][k] != 'i' && statusPark[0][t][k] != 's'){
                    statusPark[0][t][k] = 'e'; // update the status because cars we ejected

                    for (z = park[0][t][k].size() - 1; z >= 0; z--){
                        list.add(park[0][t][k].get(z));
                        park[0][t][k].remove(z);
                    }
                }
            }
        }

        // find the optimal position for an entry command of a car
        private int[] locateOptimalSpot(long entryTime, long exitTime){
            int i, j, k, z, moves, minMoves = 6;
            int[] optimal = {-1, -1, -1};
            boolean st;

            for (k = 0; k < spotsInRow; k++){ // first loop on width
                for (j = 0; j < 3; j++){ // then loop on height

                    moves = 0; // will be calculated with each iteration

                    for (z = 0; z < j; z++){
                        if (statusPark[0][z][k] != 'i' && statusPark[0][z][k] != 's'){
                            st = checkAvailableSpot(entryTime, exitTime, park[0][z][k]);
                            if (!st) // if the spot won't be empty in the given times we need to move another car
                                moves++;
                        }
                    }

                    for (i = 0; i < 3; i++){
                        if (statusPark[i][j][k] != 'i' && statusPark[i][j][k] != 's'){
                            st = checkAvailableSpot(entryTime, exitTime, park[i][j][k]);
                            if (st)
                                break;
                            moves++;
                        }
                    }

                    if (moves < minMoves){ // when we find lower number of moves we update
                        minMoves = moves;
                        optimal[0] = i; optimal[1] = j; optimal[2] = k;
                    }
                }
            }
            return optimal;
        }

        // function plots back the ejected cars (given in list) into the park
        // assume list is sorted by exit time
        private void reEnterCars(ArrayListCar list, int i, int j, int k){
            long lastCTime;

            if (!list.isEmpty()){ // as long as we need to re-insert the ejected car
                int t = 0;
                for(t = 0; t < j; t++){
                    if (statusPark[0][t][k] != 's' && statusPark[0][t][k] != 'i' && !list.isEmpty()){
                        park[0][t][k].add(list.get(0));
                        list.remove(0);

                        while (!list.isEmpty()){
                            lastCTime = park[0][t][k].get(park[0][t][k].size() - 1).getExitTime();
                            if (list.get(0).getEntryTime() >= lastCTime){
                                 park[0][t][k].add(list.get(0));
                                 list.remove(0);
                            }
                            else
                                break;
                        }

                        if (!isEmptySpotRealTime(0, t, k))
                            statusPark[0][t][k] = 'f';

                        if (isEmptyButOrderedRealTime(0, t, k))
                            statusPark[0][t][k] = 'o';
                    }
                }


                t = 0;
                for(t = 0; t <= i; t++){
                    if (statusPark[t][j][k] != 's' && statusPark[t][j][k] != 'i' && !list.isEmpty()){
                        park[t][j][k].add(list.get(0));
                        list.remove(0);

                        while (!list.isEmpty()){
                            lastCTime = park[t][j][k].get(park[t][j][k].size() - 1).getExitTime();
                            if (list.get(0).getEntryTime() >= lastCTime){
                                 park[t][j][k].add(list.get(0));
                                 list.remove(0);
                            }
                            else
                                break;
                        }
                    }
                }
            }
        }

        public void insertOrderedCar(Car car, long entryTime, long exitTime){
            boolean fullPark = !this.checkAvailablePark(entryTime, exitTime);
            if(fullPark){
                // Send message to server: insertion command failed
            }

            else{
                int[] a = locateOptimalSpot(entryTime, exitTime);
                park[a[0]][a[1]][a[2]].add(car);

                if(isEmptyButOrderedRealTime(a[0], a[1], a[2]))
                    statusPark[a[0]][a[1]][a[2]] = 'o';
            }
        }

        public void insertCar(Car car){
            long entryTime = car.getEntryTime(), exitTime = car.getExitTime();

            boolean fullPark = !this.checkAvailablePark((int)entryTime, exitTime);
            if(fullPark){
                // Send message to server: insertion command failed
            }

            else{
                int[] a = locateOptimalSpot(entryTime, exitTime);
                park[a[0]][a[1]][a[2]].add(car);
                Collections.sort(park[a[0]][a[1]][a[2]]);
                statusPark[a[0]][a[1]][a[2]] = 'f';

                ArrayListCar list = new ArrayListCar();
                ejectInDepth(list, a[0] - 1, a[1], a[2]);
                ejectInFloor(list, a[1], a[2]);
                Collections.sort(list);

                reEnterCars(list, a[0] - 1, a[1], a[2]);
            }
        }

        public void ejectCar(Car car){
            int[] a = locateCarSpot(car.getCarID());
            ArrayListCar list = new ArrayListCar();
            ejectInDepth(list, a[0] - 1, a[1], a[2]);
            ejectInFloor(list, a[1], a[2]);
            Collections.sort(list);
            int i;
            for (i = 0; i < park[a[0]][a[1]][a[2]].size(); i++){
                if (park[a[0]][a[1]][a[2]].get(i).getCarID().equals(car.getCarID())){
                    park[a[0]][a[1]][a[2]].remove(i);
                    break;
                }
            }
            Collections.sort(park[a[0]][a[1]][a[2]]);

            if (isEmptySpotRealTime(a[0], a[1], a[2]))
                statusPark[a[0]][a[1]][a[2]] = 'e';

            if (isEmptyButOrderedRealTime(a[0], a[1], a[2]))
                statusPark[a[0]][a[1]][a[2]] = 'o';


            reEnterCars(list, a[0] - 1, a[1], a[2]);
        }

    //------------------------//


    // FORMAT: <Calculation of converted convenient indexes> with <status in the spot>
        public String generateStatusStringOld(){
            String statusString = "";
            for(int i = 0 ; i < 3; i++){
                for(int j = 0; j < 3; j++){
                    for(int k = 0; k < this.spotsInRow; k++){
                        int value = i * 3 * this.spotsInRow + j * this.spotsInRow + k;
                        statusString += Integer.toString(value);
                        statusString += this.statusPark[i][j][k];
                    }
                }
            }
            return statusString;
        }
        public String generateStatusString(){
            JSONArray statuses = new JSONArray();
            //String statusString = "";
            for(int i = 0 ; i < 3; i++){
                for(int j = 0; j < 3; j++){
                    for(int k = 0; k < this.spotsInRow; k++){
                        JSONObject current = new JSONObject();
                        //System.out.println(i + "," + j + "," + k);
                        try {
                            //current.put("pos", i * 3 * this.spotsInRow + j * this.spotsInRow + k);
                            current.put("i", i);
                            current.put("j", j);
                            current.put("k", k);
                            current.put("status", String.valueOf(this.statusPark[i][j][k]));
                        } catch (JSONException e) {
                            // TODO Auto-generated catch block
                            e.printStackTrace();
                        }
                        statuses.put(current);

                    }
                }
            }
            //return statusString;
            return statuses.toString();
        }

        // FORMAT: <depth index,> <height index,> <width index,> <carID> <entry time of car,>
        // <exit time of car,> <#> <\n> ((EACH LINE DESCRIBES ONE SPOT))
        public String generateDBString(){
            JSONArray spots = new JSONArray();
            int i, j, k, z;
            //String DBString = "";
            for (i = 0; i < 3; i++){
                for(j = 0; j < 3; j++){
                    for(k = 0; k < this.spotsInRow; k++){
                        for (z = 0; z < park[i][j][k].size(); z++){

                            JSONObject current = new JSONObject();
                            try {
                                current.put("i", i);
                                current.put("j", j);
                                current.put("k", k);
                                current.put("carID", park[i][j][k].get(z).getCarID());
                                current.put("entryTime", park[i][j][k].get(z).getEntryTime());
                                current.put("exitTime", park[i][j][k].get(z).getExitTime());
                                spots.put(current);
                            }catch(Exception e) {
                                e.printStackTrace();
                            }

                        }
                    }
                }
            }
            //return DBString;
            return spots.toString();
        }




    public static void main(String args[]) {


        Algorithm alg = new Algorithm(4);

        alg.statusPark[0][0][0] = 'i';

        alg.insertCar(new Car("cesc", 2l, 9l));
        alg.insertCar(new Car("roare", 9l, 11l));
        alg.insertCar(new Car("roland", 11l, 12l));
        alg.insertCar(new Car("obo", 13l, 16l));
        alg.insertCar(new Car("sakho", 7l, 11l));
        alg.insertCar(new Car("miki", 66, 67));

        int[] a = alg.locateCarSpot("cesc");
        System.out.println("car: " + a[0] + "," + a[1] + ","+a[2]);

        a = alg.locateCarSpot("roare");
        System.out.println("car: " + a[0] + "," + a[1] + ","+a[2]);

         System.out.println(alg.generateStatusString());
         System.out.println(alg.generateDBString());

         System.out.println("nnn: " + alg.statusPark[0][2][2]);

         //System.out.println(alg.park[0][0][0].get(0).getCarID());
         //System.out.println(alg.park[0][0][0].get(1).getCarID());

    }

}