/*
 * Copyright (c) 2018 TOYOTA MOTOR CORPORATION
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *      http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */


#include <fstream>
#include <sstream>
#include <istream>
#include <thread>
#include <map>
#include <systemd/sd-event.h>
#include <json-c/json.h>
#include "policy_manager.hpp"
#include "hmi-debug.h"

namespace stm {
extern "C" {
#include "dummy_stm.h"
}
} // namespace stm

namespace pm {
static PolicyManager *g_context;

static int transitionStateWrapper(sd_event_source *source, void *data) {
    int ret = pm::g_context->transitionState(source, data);
    return ret;
}

static int timerEventWrapper(sd_event_source *source, uint64_t usec, void *data) {
    int ret = pm::g_context->timerEvent(source, usec, data);
    return ret;
}

}  // namespace pm


PolicyManager::PolicyManager() :
  eventname2no(),
  categoryname2no(),
  areaname2no(),
  role2category(),
  category2role(),
  role2defaultarea()
{
    HMI_DEBUG("wm:pm", "Call");
}

int PolicyManager::initialize() {
    HMI_DEBUG("wm:pm", "Call");

    int ret = 0;

    // Create convert map
    for (int i = stm::StmEvtNoMin; i <= stm::StmEvtNoMax; i++) {
        HMI_DEBUG("wm:pm", "event name:%s no:%d", stm::kStmEventName[i], i);
        this->eventname2no[stm::kStmEventName[i]] = i;
    }

    for (int i = stm::StmCtgNoMin; i <= stm::StmCtgNoMax; i++) {
        HMI_DEBUG("wm:pm", "category name:%s no:%d", stm::kStmCategoryName[i], i);
        this->categoryname2no[stm::kStmCategoryName[i]] = i;
    }

    for (int i = stm::StmAreaNoMin; i <= stm::StmAreaNoMax; i++) {
        HMI_DEBUG("wm:pm", "area name:%s no:%d", stm::kStmAreaName[i], i);
        this->areaname2no[stm::kStmAreaName[i]] = i;
    }

    // Load role.db
    ret = this->loadRoleDb();
    if (0 > ret) {
        HMI_ERROR("wm:pm", "Load role.db Error!!");
        return ret;
    }

    // Load layout.db
    ret = this->loadLayoutDb();
    if (0 > ret) {
        HMI_ERROR("wm:pm", "Load layout.db Error!!");
        return ret;
    }

    // Initialize state which is managed by PolicyManager
    this->initializeState();

    // Initialize StateTransitioner
    stm::stmInitialize();

    // Initialize sd_event loop
    ret = this->initializeSdEventLoop();
    if (0 > ret) {
        HMI_ERROR("wm:pm", "Failed to initializeSdEventLoop!!");
        return ret;
    }

    pm::g_context = this;

    return ret;
}

void PolicyManager::initializeCarElementState() {
    CarElement init_car_ele;
    init_car_ele.state   = "none";
    init_car_ele.changed = false;

    for (int i = stm::StmCarElementNoMin; i <= stm::StmCarElementNoMax; i++) {
        const char* car_ele_name = stm::kStmCarElementName[i];
        this->crr_car_elements[car_ele_name] = init_car_ele;
    }

    this->prv_car_elements = this->crr_car_elements;
}

void PolicyManager::initializeLayerState() {
    AreaState init_area;
    LayoutState init_layout;
    init_area.name     = stm::kStmAreaName[stm::StmAreaNoNone];
    init_area.category = "";
    init_area.role     = "";
    init_layout.name   = stm::kStmLayoutName[stm::StmLayoutNoNone];
    init_layout.area_list.push_back(init_area);

    for (int i = stm::StmLayerNoMin; i <= stm::StmLayerNoMax; i++) {
        const char* layer_name = stm::kStmLayerName[i];
        this->crr_layers[layer_name].name         = layer_name;
        this->crr_layers[layer_name].layout_state = init_layout;
        this->crr_layers[layer_name].changed      = false;
    }

    this->prv_layers = this->crr_layers;
}

void PolicyManager::initializeState() {
    this->initializeCarElementState();
    this->initializeLayerState();
}

int PolicyManager::initializeSdEventLoop() {
    // Get default event loop object
    int ret = sd_event_new(&(this->event_loop));
    if (0 > ret) {
        HMI_ERROR("wm:pm", "Faild to sd_event_default: errno:%d", ret);
        return -1;
    }

    // Create thread for sd_event and detach
    std::thread sd_event_loop([this]() {
        while (1) {
            sd_event_run(this->event_loop, 1000);
        }
    });
    sd_event_loop.detach();

    return 0;
}

void PolicyManager::addStateToJson(const char* name, bool changed,
								   std::string state, json_object** json_out) {
    if ((nullptr == name) || (nullptr == json_out)) {
        HMI_ERROR("wm:pm", "Invalid argument!!!");
        return;
    }

    json_object_object_add(*json_out, "name", json_object_new_string(name));
    json_object_object_add(*json_out, "state", json_object_new_string(state.c_str()));
    json_object_object_add(*json_out, "changed", json_object_new_boolean(changed));
}

void PolicyManager::addStateToJson(const char* layer_name, bool changed,
								   AreaList area_list, json_object** json_out) {
    if ((nullptr == layer_name) || (nullptr == json_out)) {
        HMI_ERROR("wm:pm", "Invalid argument!!!");
        return;
    }

    json_object* json_areas = json_object_new_array();
    json_object* json_tmp;
    for (AreaState as : area_list) {
        json_tmp = json_object_new_object();
        json_object_object_add(json_tmp, "name", json_object_new_string(as.name.c_str()));
        json_object_object_add(json_tmp, "role", json_object_new_string(as.role.c_str()));
	json_object_array_add(json_areas, json_tmp);
    }

    json_object_object_add(*json_out, "name", json_object_new_string(layer_name));
    json_object_object_add(*json_out, "changed", json_object_new_boolean(changed));
    json_object_object_add(*json_out, "areas", json_areas);
}

void PolicyManager::updateCarElementState(stm::StmState crr_state) {
    int car_state_no;
    std::string car_state;
    bool changed;

    // Store previous layers
    this->prv_car_elements = this->crr_car_elements;

    // Update car elements
    HMI_DEBUG("wm:pm", ">>> CAR ELEMENT");
    for (int car_ele_no = stm::StmCarElementNoMin;
         car_ele_no <= stm::StmCarElementNoMax; car_ele_no++) {
        const char* car_ele_name = stm::kStmCarElementName[car_ele_no];

        car_state_no = crr_state.car_element[car_ele_no].state;
        car_state = stm::kStmCarStateNameList[car_ele_no][car_state_no];
        changed = (crr_state.car_element[car_ele_no].changed) ? true : false;

        this->crr_car_elements[car_ele_name].state = car_state;
        this->crr_car_elements[car_ele_name].changed = changed;

        HMI_DEBUG("wm:pm", ">>> >>> NAME: %s", car_ele_name);
        HMI_DEBUG("wm:pm", ">>> >>> >>> STATE:%s", car_state.c_str());
        HMI_DEBUG("wm:pm", ">>> >>> >>> CHANGED:%s", (changed) ? "true" : "false");
    }
}

void PolicyManager::updateLayerState(int event_data, stm::StmState crr_state) {
    int event_no, category_no, area_no;

    event_no    = STM_GET_EVENT_FROM_ID(event_data);
    category_no = STM_GET_CATEGORY_FROM_ID(event_data);
    area_no     = STM_GET_AREA_FROM_ID(event_data);

    std::string req_evt = stm::kStmEventName[event_no];
    std::string req_ctg = stm::kStmCategoryName[category_no];
    std::string req_area = stm::kStmAreaName[area_no];
    std::string req_role = this->req_role_list[event_data];
    HMI_DEBUG("wm:pm", "REQ: event:%s role:%s category:%s area:%s",
        req_evt.c_str(), req_role.c_str(), req_ctg.c_str(), req_area.c_str());

    // Store previous layers
    this->prv_layers = this->crr_layers;

    // Update layers
    for (int layer_no = stm::StmLayerNoMin;
         layer_no <= stm::StmLayerNoMax; layer_no++) {
        const char* layer_name = stm::kStmLayerName[layer_no];
        HMI_DEBUG("wm:pm", "LAYER:%s", layer_name);

#if 1
        // If restriction mode is changed off -> on,
        // store current state for state of restriction mode off
        if ((crr_state.car_element[stm::StmCarElementNoRestrictionMode].changed)
            && (stm::StmRestrictionModeSttNoOn == crr_state.car_element[stm::StmCarElementNoRestrictionMode].state)) {
            HMI_DEBUG("wm:pm", "Store current state for state of restriction mode off");
            this->prv_layers_car_stop[layer_name] = this->crr_layers[layer_name];
        }
#else
        // If car state is changed car_stop -> car_run,
        // store current state for state of car stop
        if ((crr_state.car.changed)
            && (stm::StmRunningNoRun == crr_state.car.state)) {
            HMI_DEBUG("wm:pm", "Store current state for state of car stop");
            this->prv_layers_car_stop[layer_name] = this->crr_layers[layer_name];
        }
#endif

        // This layer is changed?
        int changed = crr_state.layer[layer_no].changed;
        if (changed) {
            HMI_DEBUG("wm:pm", "This layer is changed");

            // Get previous layout name of this layer
            LayoutState prv_layout_state =  this->prv_layers[layer_name].layout_state;
            std::string prv_layout_name = prv_layout_state.name;

            // Get current layout name of this layer
            int crr_layout_state_no =  crr_state.layer[layer_no].state;
            std::string crr_layout_name = std::string(stm::kStmLayoutName[crr_layout_state_no]);

            LayoutState crr_layout_state;
#if 1
            if ((crr_state.car_element[stm::StmCarElementNoRestrictionMode].changed)
                && (stm::StmRestrictionModeSttNoOff == crr_state.car_element[stm::StmCarElementNoRestrictionMode].state)) {
                // If restriction mode is changed on -> off,
                // restore state of restriction mode off
                HMI_DEBUG("wm:pm", "Restriction mode is changed on -> off, so restore state of restriction mode off");
#else
            if ((crr_state.car_element[stm::StmCarElementNoRunning].changed)
                && (stm::StmCarElementNoStop == crr_state.car_element[stm::StmCarElementNoRunning].state)) {
                // If car state is changed car_run -> car_stop,
                // restore state of car stop
                HMI_DEBUG("wm:pm", "Car state is changed car_run -> car_stop, so restore state of car stop");
#endif
                crr_layout_state = this->prv_layers_car_stop[layer_name].layout_state;
                crr_layout_name = crr_layout_state.name;
                if ((prv_layout_name == crr_layout_name)
                    && (stm::kStmAreaName[stm::StmAreaNoNone] == crr_layout_name)) {
                    changed  = 0;
                }
            }
            else if ((prv_layout_name == crr_layout_name)
                     && (stm::kStmAreaName[stm::StmAreaNoNone] == crr_layout_name)) {
                // Copy previous layout state for current
                crr_layout_state = prv_layout_state;
                changed  = 0;
            }
            else {
                // Copy previous layout state for current
                crr_layout_state = prv_layout_state;

                HMI_DEBUG("wm:pm", "layout name previous:%s current:%s",
                          prv_layout_name.c_str(), crr_layout_name.c_str());
                if (prv_layout_name == crr_layout_name) {
                    HMI_DEBUG("wm:pm", "Previous layout is same with current");
                }
                else {
                    // If previous layout is NOT same with current,
                    // current areas is set with default value
                    HMI_DEBUG("wm:pm", "Previous layout is NOT same with current");
                    crr_layout_state.name         = this->default_layouts[crr_layout_name].name;
                    crr_layout_state.category_num = this->default_layouts[crr_layout_name].category_num;
                    crr_layout_state.area_list    = this->default_layouts[crr_layout_name].area_list;
                }

                // Create candidate list
                std::map<std::string, AreaList> cand_list;
                for (int ctg_no=stm::StmCtgNoMin;
                     ctg_no<=stm::StmCtgNoMax; ctg_no++) {
                    const char* ctg = stm::kStmCategoryName[ctg_no];
                    HMI_DEBUG("wm:pm", "ctg:%s", ctg);

                    // Create candidate list for category from the previous displayed categories
                    AreaList tmp_cand_list;
                    for (AreaState area_state : prv_layout_state.area_list) {
                        if (std::string(ctg) == area_state.category) {
                            // If there is the category which is same with new category in previous layout,
                            // push it to list
                            HMI_DEBUG("wm:pm", "Push to candidate list category:%s role:%s",
                                      area_state.category.c_str(), area_state.role.c_str());
                            tmp_cand_list.push_back(area_state);
                        }
                    }

                    int candidate_num = prv_layout_state.category_num[ctg];
                    int blank_num = crr_layout_state.category_num[ctg];
                    HMI_DEBUG("wm:pm", "blank_num:%d candidate_num:%d", blank_num, candidate_num);

                    // If requested event is "activate"
                    // and there are requested category and area,
                    // update area with requested role in current layout.
                    bool request_for_this_layer = false;
                    bool updated = false;
                    if ((ctg == req_ctg) && ("activate" == req_evt) ) {
                        HMI_DEBUG("wm:pm", "requested event is activate");
                        for (AreaState &as : crr_layout_state.area_list) {
                            if (as.category == req_ctg) {
                                request_for_this_layer = true;

                                if (as.name == req_area) {
                                    HMI_DEBUG("wm:pm", "Update current layout: area:%s category:%s role:%s",
                                              as.name.c_str(), as.category.c_str(), as.role.c_str());
                                    as.role = req_role;
                                    blank_num--;
                                    updated = true;
                                    break;
                                }
                            }
                        }

                        // If NOT updated: there is not requested area in new layout, 
                        // so push requested role to candidate list
                        if (request_for_this_layer && (!updated)) {
                            HMI_DEBUG("wm:pm", "Push request to candidate list");
                            AreaState area_state;
                            area_state.name = req_area;
                            area_state.category = req_ctg;
                            area_state.role = req_role;
                            tmp_cand_list.push_back(area_state);
                        }
                    }

                    // Compare number of candidate/blank,
                    // And remove role in order of the oldest as necessary
                    if (candidate_num < blank_num) {
                        // Refer history stack
                        // and add to the top of tmp_cand_list in order to the newest
                        while (candidate_num != blank_num) {
                            AreaState area_state;
                            area_state.name = "";
                            area_state.category = ctg;
                            if (0 != crr_layout_state.role_history[ctg].size()) {
                                HMI_DEBUG("wm:pm", "Use role in history stack:%s",
                                          crr_layout_state.role_history[ctg].back().c_str());
                                area_state.role = crr_layout_state.role_history[ctg].back();
                                crr_layout_state.role_history[ctg].pop_back();
                            }
                            else {
                                HMI_ERROR("wm:pm", "There is no role in history stack!!");
                                area_state.role = "";
                            }
                            tmp_cand_list.push_back(area_state);
                            candidate_num++;
                        }
                    }
                    else if (candidate_num > blank_num) {
                        HMI_DEBUG("wm:pm", "candidate_num > blank_num");

                        // Remove the oldest role from candidate list
                        while (candidate_num != blank_num) {
                            std::string removed_role = tmp_cand_list.begin()->role;
                            HMI_DEBUG("wm:pm", "Remove the oldest data(role:%s) from tmp_cand_list",
                                      removed_role.c_str());
                            tmp_cand_list.erase(tmp_cand_list.begin());
                            candidate_num--;

                            // Push removed data to history stack
                            crr_layout_state.role_history[ctg].push_back(removed_role);
                        }
                    }
                    else {  // (candidate_num == blank_num)
                        // nop
                    }

                    cand_list[ctg] = tmp_cand_list;
                }

                // Update areas
                for (AreaState &as : crr_layout_state.area_list) {
                    HMI_DEBUG("wm:pm", "Current area info area:%s category:%s",
                              as.name.c_str(), as.category.c_str());
                    if ("" == as.role) {
                        HMI_DEBUG("wm:pm", "Update this area with role:%s",
                                  cand_list[as.category].begin()->role.c_str());
                        as.role = cand_list[as.category].begin()->role;
                        cand_list[as.category].erase(cand_list[as.category].begin());
                    }
                }
            }
            // Update current layout of this layer
            this->crr_layers[layer_name].layout_state = crr_layout_state;
        }
        // Update changed flag
        this->crr_layers[layer_name].changed = (changed) ? true : false;
    }

    // Erase role for the event_data from list
    this->req_role_list.erase(event_data);

    // Check
    for (auto itr : this->crr_layers) {
        LayerState ls = itr.second;
        HMI_DEBUG("wm:pm", ">>> LAYER:%s",ls.name.c_str());
        HMI_DEBUG("wm:pm", ">>> >>> LAYOUT:%s", ls.layout_state.name.c_str());

        for (AreaState as : ls.layout_state.area_list) {
            HMI_DEBUG("wm:pm", ">>> >>> >>> AREA:%s", as.name.c_str());
            HMI_DEBUG("wm:pm", ">>> >>> >>> >>> CTG:%s", as.category.c_str());
            HMI_DEBUG("wm:pm", ">>> >>> >>> >>> ROLE:%s", as.role.c_str());
        }
        HMI_DEBUG("wm:pm", ">>> >>> CHANGED:%s", (ls.changed) ? "true" : "false");
    }
}

void PolicyManager::updateState(int event_data, stm::StmState crr_state) {
    this->updateCarElementState(crr_state);
    this->updateLayerState(event_data, crr_state);
}

void PolicyManager::createOutputInformation(stm::StmState crr_state, json_object **json_out) {
    json_object* json_tmp;

    // Create car element information
    // {
    //     "car_elements": [
    //     {
    //         "parking_brake": {
    //             "changed": <bool>,
    //             "state": <const char*>
    //         },
    //         ...
    //     },
    json_object* json_car_ele = json_object_new_array();
    const char* car_ele_name;
    for (int car_ele_no = stm::StmCarElementNoMin;
         car_ele_no <= stm::StmCarElementNoMax; car_ele_no++) {
        car_ele_name = stm::kStmCarElementName[car_ele_no];
        json_tmp = json_object_new_object();
        this->addStateToJson(car_ele_name,
							 this->crr_car_elements[car_ele_name].changed,
							 this->crr_car_elements[car_ele_name].state,
							 &json_tmp);
        json_object_array_add(json_car_ele, json_tmp);
    }
    json_object_object_add(*json_out, "car_elements", json_car_ele);

    // Create layout information
    //
    //     "layers": [
    //     {
    //         "homescreen": {
    //             "changed": <bool>,
    //             "areas": [
    //             {
    //                 "name":<const char*>,
    //                 "role":<const char*>
    //             }.
    //             ...
    //             ]
    //         }
    //     },
    //     ...
    json_object* json_layer = json_object_new_array();
    const char* layer_name;
    for (int layer_no = stm::StmLayerNoMin;
         layer_no <= stm::StmLayerNoMax; layer_no++) {
        layer_name = stm::kStmLayerName[layer_no];
        json_tmp = json_object_new_object();
        this->addStateToJson(layer_name,
							 this->crr_layers[layer_name].changed,
							 this->crr_layers[layer_name].layout_state.area_list,
							 &json_tmp);
        json_object_array_add(json_layer, json_tmp);
    }
    json_object_object_add(*json_out, "layers", json_layer);
}

void PolicyManager::controlTimerEvent(stm::StmState crr_state) {
    if (crr_state.car_element[stm::StmCarElementNoRunning].changed) {
        if (stm::StmRunningNoRun == crr_state.car_element[stm::StmCarElementNoRunning].state) {
            // Set delay event(restriction mode on)
            this->setStateTransitionProcessToSystemd(stm::StmEvtNoRestrictionModeOn, 3000, "");
        }
        else if (stm::StmRunningNoStop == crr_state.car_element[stm::StmCarElementNoRunning].state) {
            // Stop timer for restriction on event
            if (this->event_source_list.find(stm::StmEvtNoRestrictionModeOn)
              != this->event_source_list.end()) {
                HMI_DEBUG("wm:pm", "Stop timer for restriction on");
                sd_event_source *event_source
                    = this->event_source_list[stm::StmEvtNoRestrictionModeOn];
                int ret = sd_event_source_set_enabled(event_source, SD_EVENT_OFF);
                if (0 > ret) {
                    HMI_ERROR("wm:pm", "Failed to stop timer");
                }
            }

            // Set event(restriction mode off)
            this->setStateTransitionProcessToSystemd(stm::StmEvtNoRestrictionModeOff, 0, "");
        }
    }
}

int PolicyManager::transitionState(sd_event_source *source, void *data) {
    HMI_DEBUG("wm:pm", "Call");
    HMI_DEBUG("wm:pm", ">>>>>>>>>> START CHECK POLICY");

    int event_data = *((int*)data);

    int event_no, category_no, area_no;
    event_no    = STM_GET_EVENT_FROM_ID(event_data);
    category_no = STM_GET_CATEGORY_FROM_ID(event_data);
    area_no     = STM_GET_AREA_FROM_ID(event_data);
    HMI_DEBUG("wm:pm", ">>>>>>>>>> event:%s category:%s area:%s",
              stm::kStmEventName[event_no],
              stm::kStmCategoryName[category_no],
              stm::kStmAreaName[area_no]);

    // Transition state
    stm::StmState crr_state;
    int ret = stm::stmTransitionState(event_data, &crr_state);
    if (0 > ret) {
        HMI_ERROR("wm:pm", "Failed transition state");
        if (nullptr != this->callback.onError) {
            json_object* json_out = json_object_new_object();
            json_object_object_add(json_out, "message",
                                   json_object_new_string("Failed to transition state"));
            json_object_object_add(json_out, "event",
                                   json_object_new_string(stm::kStmEventName[event_no]));
            json_object_object_add(json_out, "role",
                                   json_object_new_string(this->req_role_list[event_data].c_str()));
            json_object_object_add(json_out, "area",
                                   json_object_new_string(stm::kStmAreaName[area_no]));
            this->callback.onError(json_out);
            json_object_put(json_out);
        }
        return -1;
    }

    // Update state which is managed by PolicyManager
    this->updateState(event_data, crr_state);

    // Create output information for ResourceManager
    json_object* json_out = json_object_new_object();
    this->createOutputInformation(crr_state, &json_out);

    // Notify changed state
    if (nullptr != this->callback.onStateTransitioned) {
        this->callback.onStateTransitioned(json_out);
    }

    // Start/Stop timer events
    this->controlTimerEvent(crr_state);

    // Release json_object
    json_object_put(json_out);

    // Release data
    delete (int*)data;

    // Destroy sd_event_source object
    sd_event_source_unref(source);

    // Remove event source from list
    if (this->event_source_list.find(event_data) != this->event_source_list.end()) {
        this->event_source_list.erase(event_data);
    }

    HMI_DEBUG("wm:pm", ">>>>>>>>>> FINISH CHECK POLICY");
    return 0;
}

int PolicyManager::timerEvent(sd_event_source *source, uint64_t usec, void *data) {
    HMI_DEBUG("wm:pm", "Call");

    int ret = this->transitionState(source, data);
    return ret;
}

int PolicyManager::setStateTransitionProcessToSystemd(int event, uint64_t delay_ms, std::string role)
{
    HMI_DEBUG("wm:pm", "Call");
    HMI_DEBUG("wm:pm", "event:0x%x delay:%d role:%s", event, delay_ms, role.c_str());

    // Store requested role
    this->req_role_list[event] = role;

    if (0 == delay_ms) {
        int ret = sd_event_add_defer(this->event_loop, NULL,
                                     &pm::transitionStateWrapper, new int(event));
        if (0 > ret) {
            HMI_ERROR("wm:pm", "Faild to sd_event_add_defer: errno:%d", ret);
            this->req_role_list.erase(event);
            return -1;
        }
    }
    else {
        // Get current time
        struct timespec time_spec;
        clock_gettime(CLOCK_MONOTONIC, &time_spec);

        // Calculate timer fired time
        uint64_t usec = (time_spec.tv_sec * 1000000)
            + (time_spec.tv_nsec / 1000)
            + (delay_ms * 1000);

        // Set timer
        struct sd_event_source* event_source;
        int ret = sd_event_add_time(this->event_loop, &event_source, CLOCK_MONOTONIC, usec, 1,
                                    &pm::timerEventWrapper, new int(event));
        if (0 > ret) {
            HMI_ERROR("wm:pm", "Faild to sd_event_add_time: errno:%d", ret);
            this->req_role_list.erase(event);
            return -1;
        }

        // Store event source
        this->event_source_list[event] = event_source;
    }

    return 0;
}

void PolicyManager::registerCallback(CallbackTable callback) {
    HMI_DEBUG("wm:pm", "Call");

    this->callback.onStateTransitioned = callback.onStateTransitioned;
    this->callback.onError             = callback.onError;
}

int PolicyManager::setInputEventData(json_object* json_in) {
    HMI_DEBUG("wm:pm", "Call");

    // Check arguments
    if (nullptr == json_in) {
        HMI_ERROR("wm:pm", "Argument is NULL!!");
        return -1;
    }

    // Get event from json_object
    const char* event = this->getStringFromJson(json_in, "event");
    int event_no = stm::StmEvtNoNone;
    if (nullptr != event) {
        // Convert name to number
        auto itr = this->eventname2no.find(event);
        if (this->eventname2no.end() != itr) {
            event_no = this->eventname2no[event];
            HMI_DEBUG("wm:pm", "event(%s:%d)", event, event_no);
        }
        else {
            HMI_ERROR("wm:pm", "Invalid event name!!");
            return -1;
        }
    }
    else {
        HMI_ERROR("wm:pm", "Event is not set!!");
        return -1;
    }

    // Get role from json_object
    const char* role = this->getStringFromJson(json_in, "role");
    int category_no = stm::StmCtgNoNone;
    if (nullptr != role) {
        HMI_DEBUG("wm:pm", "role(%s)", role);

        // Convert role to category
        std::string category;
        auto itr = this->role2category.find(role);
        if (this->role2category.end() != itr) {
            category = this->role2category[role];

            // Convert name to number
            category_no = categoryname2no[category];
            HMI_DEBUG("wm:pm", "role(%s), category(%s:%d)", role, category.c_str(), category_no);
        }
    }

    if (stm::StmCtgNoNone == category_no) {
        role = "";
    }

    // Get areat from json_object
    const char* area = this->getStringFromJson(json_in, "area");
    int area_no = stm::StmAreaNoNone;
    if (nullptr != area) {
        auto itr = this->areaname2no.find(area);
        if (this->areaname2no.end() != itr) {
            area_no = this->areaname2no[area];
            HMI_DEBUG("wm:pm", "area(%s:%d)", area, area_no);
        }
    }

    // If role is set and area is not set, use default area
    if ((stm::StmAreaNoNone == area_no)
        && (stm::StmCtgNoNone != category_no)) {
        std::string def_area = this->role2defaultarea[role];
        area_no = this->areaname2no[def_area];
        HMI_DEBUG("wm:pm", "area(%s:%d)", def_area.c_str(), area_no);
    }

    // Set event info to the queue
    EventInfo event_info;
    int event_id = STM_CREATE_EVENT_ID(event_no, category_no, area_no);
    event_info.event = event_id;
    event_info.role = std::string(role);
    event_info.delay = 0;
    this->event_info_queue.push(event_info);

    return 0;
}

int PolicyManager::executeStateTransition() {
    HMI_DEBUG("wm:pm", "Call");

    int ret;
    EventInfo event_info;

    while (!this->event_info_queue.empty()) {
        // Get event info from queue and delete
        event_info = this->event_info_queue.front();
        this->event_info_queue.pop();

        // Set event info for checking policy
        ret = this->setStateTransitionProcessToSystemd(event_info.event, event_info.delay, event_info.role);
    }
    return ret;
}

void PolicyManager::undoState() {
    HMI_DEBUG("wm:pm", "Call");

    // Undo state of STM
    stm::stmUndoState();

    this->crr_layers = this->prv_layers;
}

extern const char* kDefaultRoleDb;
int PolicyManager::loadRoleDb() {
    HMI_DEBUG("wm:pm", "Call");

    std::string file_name;

    // Get afm application installed dir
    char const *afm_app_install_dir = getenv("AFM_APP_INSTALL_DIR");
    HMI_DEBUG("wm:pm", "afm_app_install_dir:%s", afm_app_install_dir);

    if (!afm_app_install_dir) {
        HMI_ERROR("wm:pm", "AFM_APP_INSTALL_DIR is not defined");
    }
    else {
        file_name = std::string(afm_app_install_dir) + std::string("/etc/role.db");
    }

    // Load role.db
    json_object* json_obj;
    int ret = this->inputJsonFilie(file_name.c_str(), &json_obj);
    if (0 > ret) {
        HMI_ERROR("wm:pm", "Could not open role.db, so use default role information");
        json_obj = json_tokener_parse(kDefaultRoleDb);
    }
    HMI_DEBUG("wm:pm", "json_obj dump:%s", json_object_get_string(json_obj));

    json_object* json_roles;
    if (!json_object_object_get_ex(json_obj, "roles", &json_roles)) {
        HMI_ERROR("wm:pm", "Parse Error!!");
        return -1;
    }

    int len = json_object_array_length(json_roles);
    HMI_DEBUG("wm:pm", "json_cfg len:%d", len);
    HMI_DEBUG("wm:pm", "json_cfg dump:%s", json_object_get_string(json_roles));

    json_object* json_tmp;
    const char* category;
    const char* roles;
    const char* areas;
    for (int i=0; i<len; i++) {
        json_tmp = json_object_array_get_idx(json_roles, i);

        category = this->getStringFromJson(json_tmp, "category");
        roles =  this->getStringFromJson(json_tmp, "role");
        areas =  this->getStringFromJson(json_tmp, "area");

        if ((nullptr == category) || (nullptr == roles) || (nullptr == areas)) {
            HMI_ERROR("wm:pm", "Parse Error!!");
            return -1;
        }

        // Parse roles by '|'
        std::vector<std::string> vct_roles;
        vct_roles = this->parseString(std::string(roles), '|');

        // Parse areas by '|'
        std::vector<std::string> vct_areas;
        vct_areas = this->parseString(std::string(areas), '|');

        // Set role, category, default area
        for (auto itr = vct_roles.begin(); itr != vct_roles.end(); ++itr) {
            // Delete space from role and area name
            std::string role = this->deleteSpace(*itr);
            std::string area = this->deleteSpace(vct_areas[0]);

            this->role2category[role] = std::string(category);
            this->role2defaultarea[role] = area;
        }

        this->category2role[std::string(category)] = std::string(roles);
    }

    // Check
    HMI_DEBUG("wm:pm", "Check role2category");
    for (auto& x:this->role2category){
        HMI_DEBUG("wm:pm", "key:%s, val:%s", x.first.c_str(), x.second.c_str());
    }

    HMI_DEBUG("wm:pm", "Check role2defaultarea");
    for (auto& x:this->role2defaultarea){
        HMI_DEBUG("wm:pm", "key:%s, val:%s", x.first.c_str(), x.second.c_str());
    }

    HMI_DEBUG("wm:pm", "Check category2role");
    for (auto& x:this->category2role){
        HMI_DEBUG("wm:pm", "key:%s, val:%s", x.first.c_str(), x.second.c_str());
    }

    return 0;
}

extern const char* kDefaultLayoutDb;
int PolicyManager::loadLayoutDb() {
    HMI_DEBUG("wm:pm", "Call");

    // Get afm application installed dir
    char const *afm_app_install_dir = getenv("AFM_APP_INSTALL_DIR");
    HMI_DEBUG("wm:pm", "afm_app_install_dir:%s", afm_app_install_dir);

    std::string file_name;
    if (!afm_app_install_dir) {
        HMI_ERROR("wm:pm", "AFM_APP_INSTALL_DIR is not defined");
    }
    else {
        file_name = std::string(afm_app_install_dir) + std::string("/etc/layout.db");
    }

    // Load layout.db
    json_object* json_obj;
    int ret = this->inputJsonFilie(file_name.c_str(), &json_obj);
    if (0 > ret) {
        HMI_DEBUG("wm:pm", "Could not open layout.db, so use default layout information");
        json_obj = json_tokener_parse(kDefaultLayoutDb);
    }
    HMI_DEBUG("wm:pm", "json_obj dump:%s", json_object_get_string(json_obj));

    // Perse layouts
    HMI_DEBUG("wm:pm", "Perse layouts");
    json_object* json_cfg;
    if (!json_object_object_get_ex(json_obj, "layouts", &json_cfg)) {
        HMI_ERROR("wm:pm", "Parse Error!!");
        return -1;
    }

    int len = json_object_array_length(json_cfg);
    HMI_DEBUG("wm:pm", "json_cfg len:%d", len);
    HMI_DEBUG("wm:pm", "json_cfg dump:%s", json_object_get_string(json_cfg));

    const char* layout;
    const char* role;
    const char* category;
    for (int i=0; i<len; i++) {
        json_object* json_tmp = json_object_array_get_idx(json_cfg, i);

        layout = this->getStringFromJson(json_tmp, "name");
        if (nullptr == layout) {
            HMI_ERROR("wm:pm", "Parse Error!!");
            return -1;
        }
        HMI_DEBUG("wm:pm", "> layout:%s", layout);

        json_object* json_area_array;
        if (!json_object_object_get_ex(json_tmp, "areas", &json_area_array)) {
          HMI_ERROR("wm:pm", "Parse Error!!");
          return -1;
        }

        int len_area = json_object_array_length(json_area_array);
        HMI_DEBUG("wm:pm", "json_area_array len:%d", len_area);
        HMI_DEBUG("wm:pm", "json_area_array dump:%s", json_object_get_string(json_area_array));

        LayoutState layout_state;
        AreaState area_state;
        std::map<std::string, int> category_num;
        for (int ctg_no = stm::StmCtgNoMin;
             ctg_no <= stm::StmCtgNoMax; ctg_no++) {
            const char* ctg_name = stm::kStmCategoryName[ctg_no];
            category_num[ctg_name] = 0;
        }

        for (int j=0; j<len_area; j++) {
            json_object* json_area = json_object_array_get_idx(json_area_array, j);

            // Get area name
            const char* area = this->getStringFromJson(json_area, "name");
            if (nullptr == area) {
              HMI_ERROR("wm:pm", "Parse Error!!");
              return -1;
            }
            area_state.name = std::string(area);
            HMI_DEBUG("wm:pm", ">> area:%s", area);

            // Get app attribute of the area
            category = this->getStringFromJson(json_area, "category");
            if (nullptr == category) {
                HMI_ERROR("wm:pm", "Parse Error!!");
                return -1;
            }
            area_state.category = std::string(category);
            category_num[category]++;
            HMI_DEBUG("wm:pm", ">>> category:%s", category);

            role = this->getStringFromJson(json_area, "role");
            if (nullptr != role) {
                // Role is NOT essential here
                area_state.role = std::string(role);
            }
            else {
                area_state.role = std::string("");

            }
            HMI_DEBUG("wm:pm", ">>> role:%s", role);

            layout_state.area_list.push_back(area_state);

        }

        layout_state.name = layout;
        layout_state.category_num = category_num;
        this->default_layouts[layout] = layout_state;
    }

    // initialize for none layout
    LayoutState none_layout_state;
    memset(&none_layout_state, 0, sizeof(none_layout_state));
    none_layout_state.name                 = "none";
    this->default_layouts["none"] = none_layout_state;

    // Check
    for(auto itr_layout = this->default_layouts.begin();
      itr_layout != this->default_layouts.end(); ++itr_layout) {
        HMI_DEBUG("wm:pm", ">>> layout:%s", itr_layout->first.c_str());

        for (auto itr_area = itr_layout->second.area_list.begin();
          itr_area != itr_layout->second.area_list.end(); ++itr_area) {
            HMI_DEBUG("wm:pm", ">>> >>> area    :%s", itr_area->name.c_str());
            HMI_DEBUG("wm:pm", ">>> >>> category:%s", itr_area->category.c_str());
            HMI_DEBUG("wm:pm", ">>> >>> role    :%s", itr_area->role.c_str());
        }
    }

    // Release json_object
    json_object_put(json_obj);

    return 0;
}

// TODO:
// This function will be removed because json_helper has same function.
// json_helper should be library.
const char* PolicyManager::getStringFromJson(json_object* obj, const char* key) {
    if ((nullptr == obj) || (nullptr == key)) {
        HMI_ERROR("wm:pm", "Argument is nullptr!!!");
        return nullptr;
    }

    json_object* tmp;
    if (!json_object_object_get_ex(obj, key, &tmp)) {
        HMI_DEBUG("wm:pm", "Not found key \"%s\"", key);
        return nullptr;
    }

    return json_object_get_string(tmp);
}

// TODO:
// This function will be removed because json_helper has same function.
// json_helper should be library.
int PolicyManager::inputJsonFilie(const char* file, json_object** obj) {
    const int input_size = 128;
    int ret = -1;

    if ((nullptr == file) || (nullptr == obj)) {
        HMI_ERROR("wm:jh", "Argument is nullptr!!!");
        return ret;
    }

    HMI_DEBUG("wm:jh", "Input file: %s", file);

    // Open json file
    FILE *fp = fopen(file, "rb");
    if (nullptr == fp) {
        HMI_ERROR("wm:jh", "Could not open file");
        return ret;
    }

    // Parse file data
    struct json_tokener *tokener = json_tokener_new();
    enum json_tokener_error json_error;
    char buffer[input_size];
    int block_cnt = 1;
    while (1) {
        size_t len = fread(buffer, sizeof(char), input_size, fp);
        *obj = json_tokener_parse_ex(tokener, buffer, len);
        if (nullptr != *obj) {
            HMI_DEBUG("wm:jh", "File input is success");
            ret = 0;
            break;
        }

        json_error = json_tokener_get_error(tokener);
        if ((json_tokener_continue != json_error)
            || (input_size > len)) {
            HMI_ERROR("wm:jh", "Failed to parse file (byte:%d err:%s)",
                      (input_size * block_cnt), json_tokener_error_desc(json_error));
            HMI_ERROR("wm:jh", "\n%s", buffer);
            *obj = nullptr;
            break;
        }
        block_cnt++;
    }

    // Close json file
    fclose(fp);

    // Free json_tokener
    json_tokener_free(tokener);

    return ret;
}

std::vector<std::string> PolicyManager::parseString(std::string str, char delimiter) {
    // Parse string by delimiter
    std::vector<std::string> vct;
    std::stringstream ss{str};
    std::string buf;
    while (std::getline(ss, buf, delimiter)) {
      if (!buf.empty()) {
        vct.push_back(buf);
      }
    }
    return vct;
}

std::string PolicyManager::deleteSpace(std::string str) {
    std::string ret = str;
    size_t pos;
    while ((pos = ret.find_first_of(" ")) != std::string::npos) {
      ret.erase(pos, 1);
    }
    return ret;
}

const char* kDefaultRoleDb = "{ \
    \"roles\":[ \
    { \
        \"category\": \"homescreen\", \
        \"role\": \"homescreen\", \
        \"area\": \"full\", \
    }, \
    { \
        \"category\": \"map\", \
        \"role\": \"map\", \
        \"area\": \"full | normal | split.main\", \
    }, \
    { \
        \"category\": \"general\", \
        \"role\": \"poi | music | video | browser | sdl | settings | mixer | radio | hvac | dashboard | debug\", \
        \"area\": \"normal\", \
    }, \
    { \
        \"category\": \"phone\", \
        \"role\": \"phone\", \
        \"area\": \"normal\", \
    }, \
    { \
        \"category\": \"splitable\", \
        \"role\": \"splitable1 | splitable2\", \
        \"area\": \"normal | split.main | split.sub\", \
    }, \
    { \
        \"category\": \"popup\", \
        \"role\": \"popup\", \
        \"area\": \"on_screen\", \
    }, \
    { \
        \"category\": \"system_alert\", \
        \"role\": \"system_alert\", \
        \"area\": \"on_screen\", \
    }, \
    { \
        \"category\": \"tbt\", \
        \"role\": \"tbt\", \
        \"area\": \"hud\", \
    } \
    ] \
}";


const char* kDefaultLayoutDb = "{ \
    \"layouts\": [ \
        { \
            \"name\": \"pu\", \
            \"layer\": \"on_screen\", \
            \"areas\": [ \
                { \
                    \"name\": \"pop_up\", \
                    \"role\": \"incomming_call\" \
                } \
            ] \
        }, \
        { \
            \"name\": \"sa\", \
            \"layer\": \"on_screen\", \
            \"areas\": [ \
                { \
                    \"name\": \"system_alert\", \
                    \"role\": \"system_alert\" \
                } \
            ] \
        }, \
        { \
            \"name\": \"m1\", \
            \"layer\": \"apps\", \
            \"areas\": [ \
                { \
                    \"name\": \"normal\", \
                    \"role\": \"map\" \
                } \
            ] \
        }, \
        { \
            \"name\": \"m2\", \
            \"layer\": \"apps\", \
            \"areas\": [ \
                { \
                    \"name\": \"split.main\", \
                    \"role\": \"map\" \
                }, \
                { \
                    \"name\": \"split.sub\", \
                    \"category\": \"hvac\" \
                } \
            ] \
        }, \
        { \
            \"name\": \"mf\", \
            \"layer\": \"apps\", \
            \"areas\": [ \
                { \
                    \"name\": \"full\", \
                    \"role\": \"map\" \
                } \
            ] \
        }, \
        { \
            \"name\": \"s1\", \
            \"layer\": \"apps\", \
            \"areas\": [ \
                { \
                    \"name\": \"normal\", \
                    \"category\": \"splitable\" \
                } \
            ] \
        }, \
        { \
            \"name\": \"s2\", \
            \"layer\": \"apps\", \
            \"areas\": [ \
                { \
                    \"name\": \"split.main\", \
                    \"category\": \"splitable\" \
                }, \
                { \
                    \"name\": \"split.sub\", \
                    \"category\": \"splitable\" \
                } \
            ] \
        }, \
        { \
            \"name\": \"g\", \
            \"layer\": \"apps\", \
            \"areas\": [ \
                { \
                    \"name\": \"normal\", \
                    \"category\": \"general\" \
                } \
            ] \
        }, \
        { \
            \"name\": \"hs\", \
            \"layer\": \"homescreen\", \
            \"areas\": [ \
                { \
                    \"name\": \"full\", \
                    \"role\": \"homescreen\" \
                } \
            ] \
        } \
    ], \
    \"areas\": [ \
        { \
            \"name\": \"normal\", \
            \"rect\": { \
                \"x\": 0, \
                \"y\": 218, \
                \"w\": 1080, \
                \"h\": 1488 \
            } \
        }, \
        { \
            \"name\": \"split.main\", \
            \"rect\": { \
                \"x\": 0, \
                \"y\": 218, \
                \"w\": 1080, \
                \"h\": 744 \
            } \
        }, \
        { \
            \"name\": \"split.sub\", \
            \"rect\": { \
                \"x\": 0, \
                \"y\": 962, \
                \"w\": 1080, \
                \"h\": 744 \
            } \
        }, \
        { \
            \"name\": \"full\", \
            \"rect\": { \
                \"x\": 0, \
                \"y\": 0, \
                \"w\": 1080, \
                \"h\": 1920 \
            } \
        }, \
        { \
            \"name\": \"pop_up\", \
            \"rect\": { \
                \"x\": 0, \
                \"y\": 640, \
                \"w\": 1080, \
                \"h\": 640 \
            } \
        }, \
        { \
            \"name\": \"system_alert\", \
            \"rect\": { \
                \"x\": 0, \
                \"y\": 640, \
                \"w\": 1080, \
                \"h\": 640 \
            } \
        } \
    ] \
}";