/*
 * Copyright (c) 2017 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 "app.hpp"
#include "json_helper.hpp"
#include "layers.hpp"
#include "layout.hpp"
#include "util.hpp"
#include "wayland_ivi_wm.hpp"

#include <cstdio>
#include <memory>

#include <cassert>

#include <json-c/json.h>

#include <algorithm>
#include <csignal>
#include <fstream>
#include <json.hpp>
#include <regex>
#include <thread>
#include <string>
#include <regex>


namespace wm {

/* DrawingArea name used by "{layout}.{area}" */
const char kNameLayoutNormal[] = "normal";
const char kNameLayoutSplit[]  = "split";
const char kNameAreaFull[]     = "full";
const char kNameAreaMain[]     = "main";
const char kNameAreaSub[]      = "sub";

/* Key for json obejct */
const char kKeyDrawingName[] = "drawing_name";
const char kKeyDrawingArea[] = "drawing_area";
const char kKeyDrawingRect[] = "drawing_rect";
const char kKeyX[]           = "x";
const char kKeyY[]           = "y";
const char kKeyWidth[]       = "width";
const char kKeyHeight[]      = "height";
const char kKeyWidthPixel[]  = "width_pixel";
const char kKeyHeightPixel[] = "height_pixel";
const char kKeyWidthMm[]     = "width_mm";
const char kKeyHeightMm[]    = "height_mm";


namespace {

using nlohmann::json;

result<json> file_to_json(char const *filename) {
   json j;
   std::ifstream i(filename);
   if (i.fail()) {
      HMI_DEBUG("wm", "Could not open config file, so use default layer information");
      j = default_layers_json;
   }
   else {
      i >> j;
   }

   return Ok(j);
}

struct result<layer_map> load_layer_map(char const *filename) {
   HMI_DEBUG("wm", "loading IDs from %s", filename);

   auto j = file_to_json(filename);
   if (j.is_err()) {
      return Err<layer_map>(j.unwrap_err());
   }
   json jids = j.unwrap();

   return to_layer_map(jids);
}

}  // namespace


namespace rm {
App *g_context;
static void onStateTransitioned(json_object* json_out) {
    g_context->updateWindowResources(json_out);
}

static void onError(json_object* json_out) {
    HMI_DEBUG("wm", "error message from PolicyManager:%s",
              json_object_get_string(json_out));
}
}  // namespace rm


void App::updateCarElements(json_object* json_out) {
    json_object* json_car_ele;
    if (!json_object_object_get_ex(json_out, "car_elements", &json_car_ele)) {
        HMI_DEBUG("wm", "Not found key \"car_elements\"");
        return;
    }

    int len = json_object_array_length(json_car_ele);
    HMI_DEBUG("wm", "json_car_ele len:%d", len);

    for (int i=0; i<len; i++) {
        json_object* json_tmp = json_object_array_get_idx(json_car_ele, i);

        std::string car_ele_name = jh::getStringFromJson(json_tmp, "name");
        std::string state = jh::getStringFromJson(json_tmp, "state");
        json_bool changed = jh::getBoolFromJson(json_tmp, "changed");
        HMI_DEBUG("wm", "car_element:%s changed:%d", car_ele_name.c_str(), changed);

        if (changed) {
            if ("parking_brake" == car_ele_name) {
                if ("off" == state) {
                    this->crr_car_info.parking_brake_stt = false;
#if 0 // FOR ALS: using lightstatus brake, so do not emit parking brake event
                    this->emitParkingBrakeOff();
#endif
                }
                else if ("on" == state) {
                    this->crr_car_info.parking_brake_stt = true;
#if 0 // FOR ALS: using lightstatus brake, so do not emit parking brake event
                    this->emitParkingBrakeOn();
#endif
                }
                else {
                    HMI_DEBUG("wm", "Unknown parking brake state: %s", state.c_str());
                }
            }
            else if ("accel_pedal" == car_ele_name) {
                if ("off" == state) {
                    this->crr_car_info.accel_pedal_stt = false;
                }
                else if ("on" == state) {
                    this->crr_car_info.accel_pedal_stt = true;
                }
                else {
                    HMI_DEBUG("wm", "Unknown accel pedal state: %s", state.c_str());
                }
            }
            else if ("lightstatus_brake" == car_ele_name) {
                if ("off" == state) {
                    this->crr_car_info.lightstatus_brake_stt = false;
                    this->emitLightstatusBrakeOff();
                }
                else if ("on" == state) {
                    this->crr_car_info.lightstatus_brake_stt = true;
                    this->emitLightstatusBrakeOn();
                }
                else {
                    HMI_DEBUG("wm", "Unknown lightstatus brake state: %s", state.c_str());
                }
            }
            else if ("running" == car_ele_name) {
                if ("stop" == state) {
                    this->crr_car_info.running_stt = false;
                    this->emitCarStop();
                }
                else if ("run" == state) {
                    this->crr_car_info.running_stt = true;
                    this->emitCarRun();
                }
                else {
                    HMI_DEBUG("wm", "Unknown car state: %s", state.c_str());
                }
            }
            else if ("lamp" == car_ele_name) {
                if ("off" == state) {
                    this->crr_car_info.headlamp_stt = false;
                    this->emitHeadlampOff();
                }
                else if ("on" == state) {
                    this->crr_car_info.headlamp_stt = true;
                    this->emitHeadlampOn();
                }
                else {
                    HMI_DEBUG("wm", "Unknown lamp state: %s", state.c_str());
                }
            }
            else {
                HMI_DEBUG("wm", "Unknown car element: %s", car_ele_name.c_str());
            }
        }
    }
}

void App::updateLayers(json_object* json_out) {
    // Get displayed roles from current layout
    json_object* json_layers;
    if (!json_object_object_get_ex(json_out, "layers", &json_layers)) {
        HMI_DEBUG("wm", "Not found key \"layers\"");
        return;
    }

    int len = json_object_array_length(json_layers);
    HMI_DEBUG("wm", "json_layers len:%d", len);

    for (int i=0; i<len; i++) {
        json_object* json_tmp = json_object_array_get_idx(json_layers, i);

        std::string layer_name = jh::getStringFromJson(json_tmp, "name");
        json_bool changed = jh::getBoolFromJson(json_tmp, "changed");
        HMI_DEBUG("wm", "layer:%s changed:%d", layer_name.c_str(), changed);

        if (changed) {
            json_object* json_areas;
            if (!json_object_object_get_ex(json_tmp, "areas", &json_areas)) {
                HMI_DEBUG("wm", "Not found key \"areas\"");
                return;
            }

            int len = json_object_array_length(json_areas);
            HMI_DEBUG("wm", "json_layers len:%d", len);

            RoleState nxt_roles;
            RoleState crr_roles = this->crr_layer_state[layer_name];
            for (int j=0; j<len; j++) {
                json_object* json_tmp2 = json_object_array_get_idx(json_areas, j);

                std::string area_name = jh::getStringFromJson(json_tmp2, "name");
                std::string role_name = jh::getStringFromJson(json_tmp2, "role");

                nxt_roles[role_name] = area_name;

                auto i_crr = crr_roles.find(role_name);
                HMI_DEBUG("wm", "next role:%s area:%s",
                          role_name.c_str(), area_name.c_str());

                // If next role does not exist in current
                if (crr_roles.end() == i_crr) {
                    HMI_DEBUG("wm", "next role does not exist in current");

                    // Set surface size
                    this->setSurfaceSize(role_name.c_str(), area_name.c_str());
                }
                else {
                    HMI_DEBUG("wm", "current role:%s area:%s",
                              i_crr->first.c_str(), i_crr->second.c_str());

                    // If next role exists in current and area is different with current
                    if (area_name != i_crr->second) {
                        HMI_DEBUG("wm", "next role exists in current and area is different with current");

                        // Set surface size
                        this->setSurfaceSize(role_name.c_str(), area_name.c_str());
                    }

                    // Remove role which exist in next list from current list
                    crr_roles.erase(i_crr);
                }
            }

            // Deactivate roles which remains in current list
            // because these are not displayed in next layout
            for (auto i_crr : crr_roles) {
                HMI_DEBUG("wm", "Deactivate role:%s", i_crr.first.c_str());

                // Deactivate
                this->deactivate(i_crr.first.c_str());
            }

            // Update current role list
            this->crr_layer_state[layer_name] = nxt_roles;
        }
    }
}

void App::updateWindowResources(json_object* json_out) {
    HMI_DEBUG("wm", "json_out dump:%s", json_object_get_string(json_out));

    // Update car elements
    this->updateCarElements(json_out);

    // Update layers
    this->updateLayers(json_out);
}

/**
 * App Impl
 */
App::App(wl::display *d)
   : chooks{this},
     display{d},
     controller{},
     outputs(),
     config(),
     layers(),
     id_alloc{},
     pending_events(false),
     policy{} {
   try {
      {
         auto l = load_layer_map(
            this->config.get_string("layers.json").value().c_str());
         if (l.is_ok()) {
            this->layers = l.unwrap();
         } else {
            HMI_ERROR("wm", "%s", l.err().value());
         }
      }
   } catch (std::exception &e) {
      HMI_ERROR("wm", "Loading of configuration failed: %s", e.what());
   }

   // Initialize current car info
   this->crr_car_info.parking_brake_stt = true;
   this->crr_car_info.accel_pedal_stt = false;
   this->crr_car_info.accel_pedal_pos = 0;
   this->crr_car_info.running_stt = false;
   this->crr_car_info.headlamp_stt = false;
}

int App::init() {
   if (!this->display->ok()) {
      return -1;
   }

   if (this->layers.mapping.empty()) {
      HMI_ERROR("wm", "No surface -> layer mapping loaded");
      return -1;
   }

   // Store my context for calling callback for PolicyManager
   rm::g_context = this;

   // TODO: This process is necessary for checking right of requested role.
   //       If other module check it, this process will be removed.
   // Load app.db
   this->loadDrawingNameDb();

   // Initialize PolicyManager
   this->pm.initialize();

   // Register callback to PolicyManager
   PolicyManager::CallbackTable callback;
   callback.onStateTransitioned = rm::onStateTransitioned;
   callback.onError = rm::onError;
   this->pm.registerCallback(callback);

   // Initialize LayoutManager
   this->lm.initialize();

   // Make afb event
   for (int i=Event_Val_Min; i<=Event_Val_Max; i++) {
      map_afb_event[kListEventName[i]] = afb_daemon_make_event(kListEventName[i]);
   }

   this->display->add_global_handler(
      "wl_output", [this](wl_registry *r, uint32_t name, uint32_t v) {
         this->outputs.emplace_back(std::make_unique<wl::output>(r, name, v));
      });

   this->display->add_global_handler(
      "ivi_wm", [this](wl_registry *r, uint32_t name, uint32_t v) {
         this->controller =
            std::make_unique<struct compositor::controller>(r, name, v);

         // Init controller hooks
         this->controller->chooks = &this->chooks;

         // This protocol needs the output, so lets just add our mapping here...
         this->controller->add_proxy_to_id_mapping(
            this->outputs.back()->proxy.get(),
            wl_proxy_get_id(reinterpret_cast<struct wl_proxy *>(
               this->outputs.back()->proxy.get())));

         // Create screen
         this->controller->create_screen(this->outputs.back()->proxy.get());

         // Set display to controller
         this->controller->display = this->display;
      });

   // First level objects
   this->display->roundtrip();
   // Second level objects
   this->display->roundtrip();
   // Third level objects
   this->display->roundtrip();

   return init_layers();
}

int App::dispatch_pending_events() {
   if (this->pop_pending_events()) {
      this->display->dispatch_pending();
      return 0;
   }
   return -1;
}

bool App::pop_pending_events() {
   bool x{true};
   return this->pending_events.compare_exchange_strong(
      x, false, std::memory_order_consume);
}

void App::set_pending_events() {
   this->pending_events.store(true, std::memory_order_release);
}

optional<int> App::lookup_id(char const *name) {
   return this->id_alloc.lookup(std::string(name));
}
optional<std::string> App::lookup_name(int id) {
   return this->id_alloc.lookup(id);
}

/**
 * init_layers()
 */
int App::init_layers() {
   if (!this->controller) {
      HMI_ERROR("wm", "ivi_controller global not available");
      return -1;
   }

   if (this->outputs.empty()) {
      HMI_ERROR("wm", "no output was set up!");
      return -1;
   }

   auto &c = this->controller;

   auto &o = this->outputs.front();
   auto &s = c->screens.begin()->second;
   auto &layers = c->layers;

   // Write output dimensions to ivi controller...
   c->output_size = compositor::size{uint32_t(o->width), uint32_t(o->height)};
   c->physical_size = compositor::size{uint32_t(o->physical_width),
                                       uint32_t(o->physical_height)};

   // Clear scene
   layers.clear();

   // Clear screen
   s->clear();

   // Quick and dirty setup of layers
   for (auto const &i : this->layers.mapping) {
      c->layer_create(i.second.layer_id, o->width, o->height);
      auto &l = layers[i.second.layer_id];
      l->set_destination_rectangle(0, 0, o->width, o->height);
      l->set_visibility(1);
      HMI_DEBUG("wm", "Setting up layer %s (%d) for surface role match \"%s\"",
               i.second.name.c_str(), i.second.layer_id, i.second.role.c_str());
   }

   // Add layers to screen
   s->set_render_order(this->layers.layers);

   this->layout_commit();

   return 0;
}

void App::layout_commit() {
   this->controller->commit_changes();
   this->display->flush();
}

const char* App::convertDrawingNameToRole(char const *drawing_name) {
    const char* role = nullptr;

    for (auto const &dr : this->drawingname2role) {
        std::regex regex = std::regex(dr.first);
        if (std::regex_match(drawing_name, regex)) {
            // drawing_name is old role. So convert to new role.
            role = dr.second.c_str();
            break;
        }
    }

    if (nullptr == role) {
        // drawing_name is new role.
        role = drawing_name;
    }

    HMI_DEBUG("wm", "drawing_name:%s -> role: %s", drawing_name, role);

    return role;
}

void App::allocateWindowResource(char const *event, char const *drawing_name,
                                 char const *drawing_area, const reply_func &reply) {
    const char* new_role = nullptr;
    const char* new_area = nullptr;

    // Convert old role to new role
    if ((nullptr != drawing_name) && (0 != strcmp("", drawing_name))) {
        new_role = this->convertDrawingNameToRole(drawing_name);
        HMI_DEBUG("wm", "new_role: %s", new_role);
    }

    // TODO:
    // Check role

    // Input event to PolicyManager
    json_object* json_in = json_object_new_object();
    json_object_object_add(json_in, "event", json_object_new_string(event));
    if (nullptr != new_role) {
        json_object_object_add(json_in, "role", json_object_new_string(new_role));
    }
    if (nullptr != new_area) {
        json_object_object_add(json_in, "area", json_object_new_string(new_area));
    }

    // Set input event data
    this->pm.setInputEventData(json_in);

    // Execute state transition
    this->pm.executeStateTransition();

    // Release json_object
    json_object_put(json_in);

    return;
}

void App::enqueue_flushdraw(int surface_id) {
   this->check_flushdraw(surface_id);
   HMI_DEBUG("wm", "Enqueuing EndDraw for surface_id %d", surface_id);
   this->pending_end_draw.push_back(surface_id);
}

void App::check_flushdraw(int surface_id) {
   auto i = std::find(std::begin(this->pending_end_draw),
                      std::end(this->pending_end_draw), surface_id);
   if (i != std::end(this->pending_end_draw)) {
      auto n = this->lookup_name(surface_id);
      HMI_ERROR("wm", "Application %s (%d) has pending EndDraw call(s)!",
               n ? n->c_str() : "unknown-name", surface_id);
      std::swap(this->pending_end_draw[std::distance(
                   std::begin(this->pending_end_draw), i)],
                this->pending_end_draw.back());
      this->pending_end_draw.resize(this->pending_end_draw.size() - 1);
   }
}

void App::api_enddraw(char const *drawing_name) {
   // Convert drawing_name to role
   const char* role = this->convertDrawingNameToRole(drawing_name);

   for (unsigned i = 0, iend = this->pending_end_draw.size(); i < iend; i++) {
      auto n = this->lookup_name(this->pending_end_draw[i]);
      int surface_id = this->pending_end_draw[i];

      if (n && *n == role) {
         std::swap(this->pending_end_draw[i], this->pending_end_draw[iend - 1]);
         this->pending_end_draw.resize(iend - 1);
         this->activate(surface_id);
         this->emit_flushdraw(drawing_name);
      }
   }
}

void App::api_ping() { this->dispatch_pending_events(); }

void App::send_event(char const *evname){
   HMI_DEBUG("wm", "%s: %s", __func__, evname);

   int ret = afb_event_push(this->map_afb_event[evname], nullptr);
   if (ret != 0) {
      HMI_DEBUG("wm", "afb_event_push failed: %m");
   }
}

void App::send_event(char const *evname, char const *label){
   HMI_DEBUG("wm", "%s: %s(%s)", __func__, evname, label);

   json_object *j = json_object_new_object();
   json_object_object_add(j, kKeyDrawingName, json_object_new_string(label));

   int ret = afb_event_push(this->map_afb_event[evname], j);
   if (ret != 0) {
      HMI_DEBUG("wm", "afb_event_push failed: %m");
   }
}

void App::send_event(char const *evname, char const *label, char const *area,
                             int x, int y, int w, int h) {
   HMI_DEBUG("wm", "%s: %s(%s, %s) x:%d y:%d w:%d h:%d",
             __func__, evname, label, area, x, y, w, h);

   json_object *j_rect = json_object_new_object();
   json_object_object_add(j_rect, kKeyX,      json_object_new_int(x));
   json_object_object_add(j_rect, kKeyY,      json_object_new_int(y));
   json_object_object_add(j_rect, kKeyWidth,  json_object_new_int(w));
   json_object_object_add(j_rect, kKeyHeight, json_object_new_int(h));

   json_object *j = json_object_new_object();
   json_object_object_add(j, kKeyDrawingName, json_object_new_string(label));
   json_object_object_add(j, kKeyDrawingArea, json_object_new_string(area));
   json_object_object_add(j, kKeyDrawingRect, j_rect);

   int ret = afb_event_push(this->map_afb_event[evname], j);
   if (ret != 0) {
      HMI_DEBUG("wm", "afb_event_push failed: %m");
   }
}

/**
 * proxied events
 */
void App::surface_created(uint32_t surface_id) {
   auto layer_id = this->layers.get_layer_id(surface_id);
   if (!layer_id) {
      HMI_DEBUG("wm", "Newly created surfce %d is not associated with any layer!",
               surface_id);
      return;
   }

   HMI_DEBUG("wm", "surface_id is %u, layer_id is %u", surface_id, *layer_id);

   this->controller->layers[*layer_id]->add_surface(surface_id);
   this->layout_commit();
   // activate the main_surface right away
   /*if (surface_id == static_cast<unsigned>(this->layers.main_surface)) {
      HMI_DEBUG("wm", "Activating main_surface (%d)", surface_id);

      this->api_activate_surface(
         this->lookup_name(surface_id).value_or("unknown-name").c_str());
   }*/
}

void App::surface_removed(uint32_t surface_id) {
   HMI_DEBUG("wm", "surface_id is %u", surface_id);

   // We cannot normally deactivate the main_surface, so be explicit
   // about it:
   if (int(surface_id) == this->layers.main_surface) {
      this->deactivate_main_surface();
   } else {
      auto role = this->lookup_name(surface_id);
      if (role) {
         this->allocateWindowResource("deactivate",
                                      role->c_str(), nullptr,
                                      [](const char*){});
      }
   }

   this->id_alloc.remove_id(surface_id);
   this->layers.remove_surface(surface_id);
}

void App::emit_activated(char const *label) {
   this->send_event(kListEventName[Event_Active], label);
}

void App::emit_deactivated(char const *label) {
   this->send_event(kListEventName[Event_Inactive], label);
}

void App::emit_syncdraw(char const *label, char const *area, int x, int y, int w, int h) {
   this->send_event(kListEventName[Event_SyncDraw], label, area, x, y, w, h);
}

void App::emit_flushdraw(char const *label) {
   this->send_event(kListEventName[Event_FlushDraw], label);
}

void App::emit_visible(char const *label, bool is_visible) {
   this->send_event(is_visible ? kListEventName[Event_Visible] : kListEventName[Event_Invisible], label);
}

void App::emit_invisible(char const *label) {
   return emit_visible(label, false);
}

void App::emit_visible(char const *label) { return emit_visible(label, true); }

void App::emitHeadlampOff() {
    // Send HeadlampOff event for all application
    this->send_event(kListEventName[Event_HeadlampOff]);
}

void App::emitHeadlampOn() {
    // Send HeadlampOn event for all application
    this->send_event(kListEventName[Event_HeadlampOn]);
}

void App::emitParkingBrakeOff() {
    // Send ParkingBrakeOff event for all application
    this->send_event(kListEventName[Event_ParkingBrakeOff]);
}

void App::emitParkingBrakeOn() {
    // Send ParkingBrakeOn event for all application
    this->send_event(kListEventName[Event_ParkingBrakeOn]);
}

void App::emitLightstatusBrakeOff() {
    // Send LightstatusBrakeOff event for all application
    this->send_event(kListEventName[Event_LightstatusBrakeOff]);
}

void App::emitLightstatusBrakeOn() {
    // Send LightstatusBrakeOn event for all application
    this->send_event(kListEventName[Event_LightstatusBrakeOn]);
}

void App::emitCarStop() {
    // Send CarStop event for all application
    this->send_event(kListEventName[Event_CarStop]);
}

void App::emitCarRun() {
    // Send CarRun event for all application
    this->send_event(kListEventName[Event_CarRun]);
}

result<int> App::api_request_surface(char const *drawing_name) {
   // Convert drawing_name to role
   const char* role = this->convertDrawingNameToRole(drawing_name);

   auto lid = this->layers.get_layer_id(std::string(role));
   if (!lid) {
      /**
       * register drawing_name as fallback and make it displayed.
       */
      lid = this->layers.get_layer_id(std::string("fallback"));
      HMI_DEBUG("wm", "%s is not registered in layers.json, then fallback as normal app", drawing_name);
      if(!lid){
          return Err<int>("Drawing name does not match any role, Fallback is disabled");
      }
   }

   auto rname = this->lookup_id(role);
   if (!rname) {
      // name does not exist yet, allocate surface id...
      auto id = int(this->id_alloc.generate_id(role));
      this->layers.add_surface(id, *lid);

      // set the main_surface[_name] here and now
      if (!this->layers.main_surface_name.empty() &&
          this->layers.main_surface_name == drawing_name) {
         this->layers.main_surface = id;
         HMI_DEBUG("wm", "Set main_surface id to %u", id);
      }

      // Set map of (role, drawing_name)
      this->role2drawingname[role] = std::string(drawing_name);

      return Ok<int>(id);
   }

   // Check currently registered drawing names if it is already there.
   return Err<int>("Surface already present");
}

char const *App::api_request_surface(char const *drawing_name,
                                     char const *ivi_id) {
   ST();
   // Convert drawing_name to role
   const char* role = this->convertDrawingNameToRole(drawing_name);

   auto lid = this->layers.get_layer_id(std::string(role));
   unsigned sid = std::stol(ivi_id);

   if (!lid) {
      /**
       * register drawing_name as fallback and make it displayed.
       */
      lid = this->layers.get_layer_id(std::string("fallback"));
      HMI_DEBUG("wm", "%s is not registered in layers.json, then fallback as normal app", drawing_name);
      if(!lid){
          return "Drawing name does not match any role, Fallback is disabled";
      }
   }

   auto rname = this->lookup_id(role);

   if (rname) {
       return "Surface already present";
   }

   // register pair drawing_name and ivi_id
   this->id_alloc.register_name_id(role, sid);
   this->layers.add_surface(sid, *lid);

   // this surface is already created
   HMI_DEBUG("wm", "surface_id is %u, layer_id is %u", sid, *lid);

   this->controller->layers[*lid]->add_surface(sid);
   this->layout_commit();

   return nullptr;
}

result<json_object *> App::api_get_display_info() {
   // Check controller
   if (!this->controller) {
      return Err<json_object *>("ivi_controller global not available");
   }

   // Set display info
   compositor::size o_size = this->controller->output_size;
   compositor::size p_size = this->controller->physical_size;

   json_object *object = json_object_new_object();
   json_object_object_add(object, kKeyWidthPixel,  json_object_new_int(o_size.w));
   json_object_object_add(object, kKeyHeightPixel, json_object_new_int(o_size.h));
   json_object_object_add(object, kKeyWidthMm,     json_object_new_int(p_size.w));
   json_object_object_add(object, kKeyHeightMm,    json_object_new_int(p_size.h));

   return Ok<json_object *>(object);
}

result<json_object *> App::api_get_area_info(char const *drawing_name) {
   HMI_DEBUG("wm", "called");

   // Convert drawing_name to role
   const char* role = this->convertDrawingNameToRole(drawing_name);

   // Check drawing name, surface/layer id
   auto const &surface_id = this->lookup_id(role);
   if (!surface_id) {
      return Err<json_object *>("Surface does not exist");
   }

   if (!this->controller->surface_exists(*surface_id)) {
      return Err<json_object *>("Surface does not exist in controller!");
   }

   auto layer_id = this->layers.get_layer_id(*surface_id);
   if (!layer_id) {
      return Err<json_object *>("Surface is not on any layer!");
   }

   auto o_state = *this->layers.get_layout_state(*surface_id);
   if (o_state == nullptr) {
      return Err<json_object *>("Could not find layer for surface");
   }

   struct LayoutState &state = *o_state;
   if ((state.main != *surface_id) && (state.sub != *surface_id)) {
      return Err<json_object *>("Surface is inactive");
   }

   // Set area rectangle
   compositor::rect area_info = this->area_info[*surface_id];
   json_object *object = json_object_new_object();
   json_object_object_add(object, kKeyX,      json_object_new_int(area_info.x));
   json_object_object_add(object, kKeyY,      json_object_new_int(area_info.y));
   json_object_object_add(object, kKeyWidth,  json_object_new_int(area_info.w));
   json_object_object_add(object, kKeyHeight, json_object_new_int(area_info.h));

   return Ok<json_object *>(object);
}

void App::activate(int id) {
   auto ip = this->controller->sprops.find(id);
   if (ip != this->controller->sprops.end()) {
      this->controller->surfaces[id]->set_visibility(1);
      char const *label =
         this->lookup_name(id).value_or("unknown-name").c_str();

      if ((0 == strcmp(label, "radio"))
          || (0 == strcmp(label, "music"))
          || (0 == strcmp(label, "map"))) {
        for (auto i = surface_bg.begin(); i != surface_bg.end(); ++i) {
            if (id == *i) {
               // Remove id
               this->surface_bg.erase(i);

               // Remove from BG layer (999)
               HMI_DEBUG("wm", "Remove %s(%d) from BG layer", label, id);
               this->controller->layers[999]->remove_surface(id);

               // Add to FG layer (1001)
               HMI_DEBUG("wm", "Add %s(%d) to FG layer", label, id);
               this->controller->layers[1001]->add_surface(id);

               for (int j : this->surface_bg) {
                 HMI_DEBUG("wm", "Stored id:%d", j);
               }
               break;
            }
         }
      }

      this->layout_commit();

      this->emit_visible(label);
      this->emit_activated(label);
   }
}

void App::deactivate(int id) {
   auto ip = this->controller->sprops.find(id);
   if (ip != this->controller->sprops.end()) {
      char const *label =
         this->lookup_name(id).value_or("unknown-name").c_str();

      if ((0 == strcmp(label, "radio"))
          || (0 == strcmp(label, "music"))
          || (0 == strcmp(label, "map"))) {

         // Store id
         this->surface_bg.push_back(id);

         // Remove from FG layer (1001)
         HMI_DEBUG("wm", "Remove %s(%d) from FG layer", label, id);
         this->controller->layers[1001]->remove_surface(id);

         // Add to BG layer (999)
         HMI_DEBUG("wm", "Add %s(%d) to BG layer", label, id);
         this->controller->layers[999]->add_surface(id);

         for (int j : surface_bg) {
            HMI_DEBUG("wm", "Stored id:%d", j);
         }
      }
      else {
         this->controller->surfaces[id]->set_visibility(0);
      }

      this->layout_commit();

      this->emit_deactivated(label);
      this->emit_invisible(label);
   }
}

void App::deactivate(std::string role) {
    auto const &id = this->lookup_id(role.c_str());
    if (!id) {
      HMI_ERROR("wm", "Surface does not exist");
      return;
    }
    std::string drawing_name = this->role2drawingname[role];
    HMI_DEBUG("wm", "Deactivate role:%s (drawing_name:%s)",
              role.c_str(), drawing_name.c_str());

    this->deactivate(*id);
}

void App::deactivate_main_surface() {
   this->layers.main_surface = -1;
   this->allocateWindowResource("deactivate",
                                this->layers.main_surface_name.c_str(), nullptr,
                                [](const char*){});
}

/**
 * controller_hooks
 */
void controller_hooks::surface_created(uint32_t surface_id) {
   this->app->surface_created(surface_id);
}

void controller_hooks::surface_removed(uint32_t surface_id) {
   this->app->surface_removed(surface_id);
}

void controller_hooks::surface_visibility(uint32_t /*surface_id*/,
                                          uint32_t /*v*/) {}

void controller_hooks::surface_destination_rectangle(uint32_t /*surface_id*/,
                                                     uint32_t /*x*/,
                                                     uint32_t /*y*/,
                                                     uint32_t /*w*/,
                                                     uint32_t /*h*/) {}

void App::setSurfaceSize(const char* role, const char* area) {
    HMI_DEBUG("wm", "role:%s area:%s", role, area);

    // Get size of current area
    compositor::rect size = this->lm.getAreaSize(area);

    // Set destination to the display rectangle
    auto const &surface_id = this->lookup_id(role);
    if (!this->controller->surface_exists(*surface_id)) {
        // Block until all pending request are processed by wayland display server
        // because waiting for the surface of new app is created
        this->display->roundtrip();
    }
    auto &s = this->controller->surfaces[*surface_id];
    s->set_destination_rectangle(size.x, size.y, size.w, size.h);
    this->layout_commit();

    // Update area information
    this->area_info[*surface_id].x = size.x;
    this->area_info[*surface_id].y = size.y;
    this->area_info[*surface_id].w = size.w;
    this->area_info[*surface_id].h = size.h;
    HMI_DEBUG("wm", "Surface rect { %d, %d, %d, %d }",
              size.x, size.y, size.w, size.h);

    // Emit syncDraw event
    const char* drawing_name = this->role2drawingname[role].c_str();
    this->emit_syncdraw(drawing_name, area,
                        size.x, size.y, size.w, size.h);

    // Enqueue flushDraw event
    this->enqueue_flushdraw(*surface_id);
}

void App::setAccelPedalPos(double val) {
    this->crr_car_info.accel_pedal_pos = val;
}

extern const char* kDefaultDrawingNameDb;
int App::loadDrawingNameDb() {
    HMI_DEBUG("wm", "Call");

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

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

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

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

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

    for (int i=0; i<len; i++) {
        json_object* json_tmp = json_object_array_get_idx(json_cfg, i);
        HMI_DEBUG("wm", "> json_tmp dump:%s", json_object_get_string(json_tmp));

        const char* drawing_name = jh::getStringFromJson(json_tmp, "name");
        if (nullptr == drawing_name) {
            HMI_ERROR("wm", "Parse Error!!");
            return -1;
        }
        HMI_DEBUG("wm", "> drawing_name:%s", drawing_name);

        const char* role = jh::getStringFromJson(json_tmp, "role");
        if (nullptr == role) {
            HMI_ERROR("wm", "Parse Error!!");
            return -1;
        }
        HMI_DEBUG("wm", "> role:%s", role);

        this->drawingname2role[drawing_name] = std::string(role);
    }

    // Check
    for(auto itr = this->drawingname2role.begin();
      itr != this->drawingname2role.end(); ++itr) {
        HMI_DEBUG("wm", "drawing_name:%s role:%s",
                  itr->first.c_str(), itr->second.c_str());
    }

    // Release json_object
    json_object_put(json_obj);

    return 0;
}


const char* kDefaultDrawingNameDb = "{ \
    \"drawing_names\": [ \
        { \
            \"name\": \"HomeScreen\", \
            \"role\": \"homescreen\" \
        }, \
        { \
            \"name\": \"Music\", \
            \"role\": \"music\" \
        }, \
        { \
            \"name\": \"MediaPlayer\", \
            \"role\": \"music\" \
        }, \
        { \
            \"name\": \"Video\", \
            \"role\": \"video\" \
        }, \
        { \
            \"name\": \"VideoPlayer\", \
            \"role\": \"video\" \
        }, \
        { \
            \"name\": \"WebBrowser\", \
            \"role\": \"browser\" \
        }, \
        { \
            \"name\": \"Radio\", \
            \"role\": \"radio\" \
        }, \
        { \
            \"name\": \"Phone\", \
            \"role\": \"phone\" \
        }, \
        { \
            \"name\": \"Navigation\", \
            \"role\": \"map\" \
        }, \
        { \
            \"name\": \"HVAC\", \
            \"role\": \"hvac\" \
        }, \
        { \
            \"name\": \"Settings\", \
            \"role\": \"settings\" \
        }, \
        { \
            \"name\": \"Dashboard\", \
            \"role\": \"dashboard\" \
        }, \
        { \
            \"name\": \"POI\", \
            \"role\": \"poi\" \
        }, \
        { \
            \"name\": \"Mixer\", \
            \"role\": \"mixer\" \
        }, \
        { \
            \"name\": \"Splitable1\", \
            \"role\": \"splitable1\" \
        }, \
        { \
            \"name\": \"Splitable2\", \
            \"role\": \"splitable2\" \
        }, \
        { \
            \"name\": \"Restriction\", \
            \"role\": \"restriction\" \
        }, \
        { \
            \"name\": \"^OnScreen.*\", \
            \"role\": \"pop_up\" \
        } \
    ] \
}";


}  // namespace wm