/*
 * 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 "applist.hpp"
#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 "wm_client.hpp"


extern "C"
{
#include <systemd/sd-event.h>
}

namespace wm
{

const unsigned kTimeOut = 10000000UL; /* 10s */

/* 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";

static sd_event_source *g_timer_ev_src = nullptr;

static AppList g_app_list;

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);
}

static int
processTimerHandler(sd_event_source *s, uint64_t usec, void *userdata)
{
    HMI_NOTICE("wm", "Time out occurs because the client replys endDraw slow, so revert the request");
    reinterpret_cast<wm::App *>(userdata)->timerHandler();
    return 0;
}

} // namespace

void App::timerHandler()
{
    unsigned req_num = g_app_list.currentRequestNumber();
    HMI_SEQ_DEBUG(req_num, "Timer expired remove Request");
    g_app_list.reqDump();
    g_app_list.removeRequest(req_num);
    g_app_list.next();
    g_app_list.reqDump();
    if (g_app_list.haveRequest())
    {
        this->process_request();
    }
}

void App::removeClient(const std::string &appid)
{
    HMI_DEBUG("wm", "Remove clinet %s from list", appid.c_str());
    g_app_list.removeClient(appid);
}

bool App::subscribeEventForApp(const std::string &appid, afb_req req, const std::string &evname)
{
    if(!g_app_list.contains(appid)){
        HMI_DEBUG("wm", "Client %s is not registered", appid.c_str());
        return false;
    }
    auto client = g_app_list.lookUpClient(appid);
    return client->subscribe(req, evname);
}

/**
 * App Impl
 */
App::App(wl::display *d)
    : chooks{this},
      display{d},
      controller{},
      outputs(),
      config(),
      layers(),
      id_alloc{},
      pending_events(false),
      policy{}
      //g_app_list(new AppList())
      //g_app_list(std::make_unique<AppList>())
{
    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());
    }
}

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

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

    // 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();
}

App::~App() = default;

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::surface_set_layout(int surface_id, optional<int> sub_surface_id)
{
    if (!this->controller->surface_exists(surface_id))
    {
        HMI_ERROR("wm", "Surface %d does not exist", surface_id);
        return;
    }

    auto o_layer_id = this->layers.get_layer_id(surface_id);

    if (!o_layer_id)
    {
        HMI_ERROR("wm", "Surface %d is not associated with any layer!", surface_id);
        return;
    }

    uint32_t layer_id = *o_layer_id;

    auto const &layer = this->layers.get_layer(layer_id);
    auto rect = layer.value().rect;
    auto &s = this->controller->surfaces[surface_id];

    int x = rect.x;
    int y = rect.y;
    int w = rect.w;
    int h = rect.h;

    // less-than-0 values refer to MAX + 1 - $VALUE
    // e.g. MAX is either screen width or height
    if (w < 0)
    {
        w = this->controller->output_size.w + 1 + w;
    }
    if (h < 0)
    {
        h = this->controller->output_size.h + 1 + h;
    }

    if (sub_surface_id)
    {
        if (o_layer_id != this->layers.get_layer_id(*sub_surface_id))
        {
            HMI_ERROR("wm",
                      "surface_set_layout: layers of surfaces (%d and %d) don't match!",
                      surface_id, *sub_surface_id);
            return;
        }

        int x_off = 0;
        int y_off = 0;

        // split along major axis
        if (w > h)
        {
            w /= 2;
            x_off = w;
        }
        else
        {
            h /= 2;
            y_off = h;
        }

        auto &ss = this->controller->surfaces[*sub_surface_id];

        HMI_DEBUG("wm", "surface_set_layout for sub surface %u on layer %u",
                  *sub_surface_id, layer_id);

        // set destination to the display rectangle
        ss->set_destination_rectangle(x + x_off, y + y_off, w, h);

        this->area_info[*sub_surface_id].x = x;
        this->area_info[*sub_surface_id].y = y;
        this->area_info[*sub_surface_id].w = w;
        this->area_info[*sub_surface_id].h = h;
    }

    HMI_DEBUG("wm", "surface_set_layout for surface %u on layer %u", surface_id,
              layer_id);

    // set destination to the display rectangle
    s->set_destination_rectangle(x, y, w, h);

    // update area information
    this->area_info[surface_id].x = x;
    this->area_info[surface_id].y = y;
    this->area_info[surface_id].w = w;
    this->area_info[surface_id].h = h;

    HMI_DEBUG("wm", "Surface %u now on layer %u with rect { %d, %d, %d, %d }",
              surface_id, layer_id, x, y, w, h);
}

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

void App::set_timer()
{
    HMI_SEQ_DEBUG(g_app_list.currentRequestNumber(), "Timer set activate");
    if (g_timer_ev_src == nullptr)
    {
        // firsttime set into sd_event
        int ret = sd_event_add_time(afb_daemon_get_event_loop(), &g_timer_ev_src,
                                    CLOCK_REALTIME, time(NULL) * (1000000UL) + kTimeOut, 1, processTimerHandler, this);
        if (ret < 0)
        {
            HMI_ERROR("wm", "Could't set timer");
        }
    }
    else
    {
        // update timer limitation after second time
        sd_event_source_set_time(g_timer_ev_src, time(NULL) * (1000000UL) + kTimeOut);
        sd_event_source_set_enabled(g_timer_ev_src, SD_EVENT_ONESHOT);
    }
}

void App::stop_timer()
{
    unsigned req_num = g_app_list.currentRequestNumber();
    HMI_SEQ_DEBUG(req_num, "Timer stop");
    int rc = sd_event_source_set_enabled(g_timer_ev_src, SD_EVENT_OFF);
    if (rc < 0)
    {
        HMI_SEQ_ERROR(req_num, "Timer stop failed");
    }
}

WMError App::lm_release(const struct WMAction &action)
{
    //auto const &surface_id = this->lookup_id(drawing_name);
    WMError ret = WMError::LAYOUT_CHANGE_FAIL;
    unsigned req_num = g_app_list.currentRequestNumber();
    auto const &surface_id = this->lookup_id(action.role.c_str());
    if (!surface_id)
    {
        HMI_SEQ_ERROR(req_num, "Surface does not exist");
        return ret;
    }

    if (*surface_id == this->layers.main_surface)
    {
        HMI_SEQ_ERROR(req_num, "Cannot deactivate main_surface");
        return ret;
    }

    auto o_state = *this->layers.get_layout_state(*surface_id);

    if (o_state == nullptr)
    {
        HMI_SEQ_ERROR(req_num, "Could not find layer for surface");
        return ret;
    }

    struct LayoutState &state = *o_state;

    if (state.main == -1)
    {
        HMI_SEQ_ERROR(req_num, "No surface active");
        return ret;
    }

    // Check against main_surface, main_surface_name is the configuration item.
    if (*surface_id == this->layers.main_surface)
    {
        HMI_SEQ_DEBUG(req_num, "Refusing to deactivate main_surface %d", *surface_id);
        //reply(nullptr);
        return WMError::SUCCESS;
    }
    if ((state.main == *surface_id) && (state.sub == *surface_id))
    {
        HMI_SEQ_ERROR(req_num, "Surface is not active");
        return ret;
    }

    if (state.main == *surface_id)
    {
        if (state.sub != -1)
        {
            this->try_layout(
                state, LayoutState{state.sub, -1}, [&](LayoutState const &nl) {
                    std::string sub = std::move(*this->lookup_name(state.sub));

                    this->deactivate(*surface_id);
                    this->surface_set_layout(state.sub);
                    state = nl;

                    this->layout_commit();
                    std::string str_area = std::string(kNameLayoutNormal) + "." + std::string(kNameAreaFull);
                    compositor::rect area_rect = this->area_info[state.sub];
                    this->emit_syncdraw(sub.c_str(), str_area.c_str(),
                                        area_rect.x, area_rect.y, area_rect.w, area_rect.h);
                    this->enqueue_flushdraw(state.sub);
                });
        }
        else
        {
            this->try_layout(state, LayoutState{-1, -1}, [&](LayoutState const &nl) {
                this->deactivate(*surface_id);
                state = nl;
                this->layout_commit();
            });
        }
    }
    else if (state.sub == *surface_id)
    {
        this->try_layout(
            state, LayoutState{state.main, -1}, [&](LayoutState const &nl) {
                std::string main = std::move(*this->lookup_name(state.main));

                this->deactivate(*surface_id);
                this->surface_set_layout(state.main);
                state = nl;

                this->layout_commit();
                std::string str_area = std::string(kNameLayoutNormal) + "." + std::string(kNameAreaFull);
                compositor::rect area_rect = this->area_info[state.main];
                this->emit_syncdraw(main.c_str(), str_area.c_str(),
                                    area_rect.x, area_rect.y, area_rect.w, area_rect.h);
                this->enqueue_flushdraw(state.main);
            });
    }
    return WMError::SUCCESS;
}

WMError App::lm_layout_change(const struct WMAction &action)
{
    const char *msg = this->check_surface_exist(action.role.c_str());

    /*
    lm_.updateLayout(action);
    TODO: emit syncDraw with application*/
    if (msg)
    {
        HMI_SEQ_DEBUG(g_app_list.currentRequestNumber(), msg);
        return WMError::LAYOUT_CHANGE_FAIL;
    }
    this->lm_layout_change(action.role.c_str());
    return WMError::SUCCESS;
}

WMError App::do_transition(unsigned req_num)
{
    /*
    * Check Policy
    */
    // get current trigger
    bool found;
    bool is_activate = true;
    auto trigger = g_app_list.getRequest(req_num, &found);
    if(!found)
    {
        WMError err = WMError::NO_ENTRY;
        HMI_SEQ_ERROR(req_num, errorDescription(err));
        return err;
    }

    /*  get new status from Policy Manager

    (json_object*?) newLayout = checkPolicy(trigger);
    (vector<struct WMAction>&) auto actions = translator.inputActionFromLayout(newLayout, currentLayout)
    for(const auto& x : actions){
        g_app_list.setAciton(req_num, x)
    }

    or

    translator.inputActionFromLayout(newLayout, currentLayout, &g_app_list, req_num);

    /* The following error check is not necessary because main.cpp will reject the message form not registered object
   } */
    HMI_SEQ_NOTICE(req_num, "ATM, Policy manager does't exist, then set WMAction as is");

    if (trigger.task == Task::TASK_RELEASE)
    {
        is_activate = false;
    }
    WMError ret = g_app_list.setAction(req_num, trigger.appid, trigger.role, trigger.area, is_activate);
    g_app_list.reqDump();

    if (ret != WMError::SUCCESS)
    {
        HMI_SEQ_ERROR(req_num, "Failed to set action");
        return ret;
    }

    // layer manager task
    bool sync_draw_happen = false;
    for (const auto &y : g_app_list.getActions(req_num, &found))
    {
        if (!found)
        {
            WMError err = WMError::NO_ENTRY;
            HMI_SEQ_ERROR(req_num, "%s : Action is not set", errorDescription(err));
            return err;
        }
        /*
        do_task(y);
        */
        /*  TODO
           but current we can't do do_task,
           so divide the processing into lm_layout_change and lm_release
        */
        if (y.visible)
        {
            sync_draw_happen = true;
            ret = lm_layout_change(y);
            if (ret != WMError::SUCCESS)
            {
                HMI_SEQ_ERROR(req_num, "%s: appid: %s, role: %s, area: %s",
                    errorDescription(ret), y.appid.c_str(), y.role.c_str(), y.area.c_str());
                g_app_list.removeRequest(req_num);
                break;
                // TODO: if transition fails, what should we do?
            }
            /* g_app_list.lookUpClient(y.appid)->emit_syncdraw(y.role, y.area); */
        }
        else
        {
            ret = lm_release(y);
            if (!ret)
            {
                HMI_SEQ_ERROR(req_num, "Failed release resource: %s", y.appid.c_str());
                g_app_list.removeRequest(req_num);
                break;
                // TODO: if transition fails, what should we do?
            }
            /* g_app_list.lookUpClient(y.appid)->emit_invisible(y.role, y.area); */
        }
    }

    if (ret != WMError::SUCCESS)
    {
        //this->emit_error(req_num, 0 /*error_num*/, "error happens"); // test
    }
    else if (sync_draw_happen)
    {
        this->set_timer();
    }
    else
    {
        g_app_list.removeRequest(req_num); // HACK!!!
    }
    return ret;
}

void App::lm_layout_change(const char *drawing_name)
{
    auto const &surface_id = this->lookup_id(drawing_name);
    auto layer_id = this->layers.get_layer_id(*surface_id);
    auto o_state = *this->layers.get_layout_state(*surface_id);
    struct LayoutState &state = *o_state;

    // disable layers that are above our current layer
    for (auto const &l : this->layers.mapping)
    {
        if (l.second.layer_id <= *layer_id)
        {
            continue;
        }

        bool flush = false;
        if (l.second.state.main != -1)
        {
            this->deactivate(l.second.state.main);
            l.second.state.main = -1;
            flush = true;
        }

        if (l.second.state.sub != -1)
        {
            this->deactivate(l.second.state.sub);
            l.second.state.sub = -1;
            flush = true;
        }

        if (flush)
        {
            this->layout_commit();
        }
    }

    auto layer = this->layers.get_layer(*layer_id);

    if (state.main == -1)
    {
        this->try_layout(
            state, LayoutState{*surface_id}, [&](LayoutState const &nl) {
                HMI_DEBUG("wm", "Layout: %s", kNameLayoutNormal);
                this->surface_set_layout(*surface_id);
                state = nl;

                // Commit for configuraton
                this->layout_commit();

                std::string str_area = std::string(kNameLayoutNormal) + "." + std::string(kNameAreaFull);
                compositor::rect area_rect = this->area_info[*surface_id];
                this->emit_syncdraw(drawing_name, str_area.c_str(),
                                    area_rect.x, area_rect.y, area_rect.w, area_rect.h);
                this->enqueue_flushdraw(state.main);
            });
    }
    else
    {
        if (0 == strcmp(drawing_name, "HomeScreen"))
        {
            this->try_layout(
                state, LayoutState{*surface_id}, [&](LayoutState const &nl) {
                    HMI_DEBUG("wm", "Layout: %s", kNameLayoutNormal);
                    std::string str_area = std::string(kNameLayoutNormal) + "." + std::string(kNameAreaFull);
                    compositor::rect area_rect = this->area_info[*surface_id];
                    this->emit_syncdraw(drawing_name, str_area.c_str(),
                                        area_rect.x, area_rect.y, area_rect.w, area_rect.h);
                    this->enqueue_flushdraw(state.main);
                });
        }
        else
        {
            bool can_split = this->can_split(state, *surface_id);

            if (can_split)
            {
                this->try_layout(
                    state,
                    LayoutState{state.main, *surface_id},
                    [&](LayoutState const &nl) {
                        HMI_DEBUG("wm", "Layout: %s", kNameLayoutSplit);
                        std::string main =
                            std::move(*this->lookup_name(state.main));

                        this->surface_set_layout(state.main, surface_id);
                        if (state.sub != *surface_id)
                        {
                            if (state.sub != -1)
                            {
                                this->deactivate(state.sub);
                            }
                        }
                        state = nl;

                        // Commit for configuration and visibility(0)
                        this->layout_commit();

                        std::string str_area_main = std::string(kNameLayoutSplit) + "." + std::string(kNameAreaMain);
                        std::string str_area_sub = std::string(kNameLayoutSplit) + "." + std::string(kNameAreaSub);
                        compositor::rect area_rect_main = this->area_info[state.main];
                        compositor::rect area_rect_sub = this->area_info[*surface_id];
                        // >>> HACK
                        HMI_WARNING("wm", "HACK!!! mediaplayer and hvac is only supported for split");
                        std::string request_role = drawing_name;
                        //std::string request_app = transform(request_role.begin(), request_role.end(), request_role.begin(), tolower); //hvac or mediaplayer
                        std::string hack_appid = "navigation";
                        std::string hack_role = main;
                        std::string hack_area = str_area_main;
                        g_app_list.setAction(g_app_list.currentRequestNumber(), hack_appid, hack_role, hack_area, true);
                        //g_app_list.setEndDrawFinished(g_app_list.currentRequestNumber(), request_role, request_role);
                        //g_app_list.setEndDrawFinished(g_app_list.currentRequestNumber(), hack_appid, hack_role); // This process is illegal
                        // >>> HACK
                        this->emit_syncdraw(main.c_str(), str_area_main.c_str(),
                                            area_rect_main.x, area_rect_main.y,
                                            area_rect_main.w, area_rect_main.h);
                        this->emit_syncdraw(request_role.c_str(), str_area_sub.c_str(),
                                            area_rect_sub.x, area_rect_sub.y,
                                            area_rect_sub.w, area_rect_sub.h);
                        this->enqueue_flushdraw(state.main);
                        this->enqueue_flushdraw(state.sub);
                    });
            }
            else
            {
                this->try_layout(
                    state, LayoutState{*surface_id}, [&](LayoutState const &nl) {
                        HMI_DEBUG("wm", "Layout: %s", kNameLayoutNormal);

                        this->surface_set_layout(*surface_id);
                        if (state.main != *surface_id)
                        {
                            this->deactivate(state.main);
                        }
                        if (state.sub != -1)
                        {
                            if (state.sub != *surface_id)
                            {
                                this->deactivate(state.sub);
                            }
                        }
                        state = nl;

                        // Commit for configuraton and visibility(0)
                        this->layout_commit();

                        std::string str_area = std::string(kNameLayoutNormal) + "." + std::string(kNameAreaFull);
                        compositor::rect area_rect = this->area_info[*surface_id];
                        this->emit_syncdraw(drawing_name, str_area.c_str(),
                                            area_rect.x, area_rect.y, area_rect.w, area_rect.h);
                        this->enqueue_flushdraw(state.main);
                    });
            }
        }
    }
}

const char *App::check_surface_exist(const char *drawing_name)
{
    auto const &surface_id = this->lookup_id(drawing_name);
    if (!surface_id)
    {
        //reply("Surface does not exist");
        return "Surface does not exist";
    }

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

    auto layer_id = this->layers.get_layer_id(*surface_id);

    if (!layer_id)
    {
        //reply("Surface is not on any layer!");
        return "Surface is not on any layer!";
    }

    auto o_state = *this->layers.get_layout_state(*surface_id);

    if (o_state == nullptr)
    {
        //reply("Could not find layer for surface");
        return "Could not find layer for surface";
    }

    HMI_DEBUG("wm", "surface %d is detected", *surface_id);
    return nullptr;
    //reply(nullptr);
}

void App::api_activate_surface(char const *appid, char const *drawing_name, char const *drawing_area, const reply_func &reply)
{
    ST();

    /*
   * Check Phase
   */

    std::string id = appid;
    std::string role = drawing_name;
    std::string area = drawing_area;

    if (!g_app_list.contains(id))
    {
        reply("app doesn't request 'requestSurface' yet");
        return;
    }

    auto client = g_app_list.lookUpClient(id);

    unsigned srfc = client->surfaceID(role);
    if(srfc == INVALID_SURFACE_ID){
        HMI_ERROR("wm", "role should be set with surface");
        reply("role should be set with surface");
        return;
    }
    g_app_list.removeFloatingSurface(client->surfaceID(role));

    /*
   * Queueing Phase
   */
    unsigned current = g_app_list.currentRequestNumber();
    unsigned requested_num = g_app_list.getRequestNumber(id);
    if (requested_num != 0)
    {
        HMI_SEQ_INFO(requested_num, "%s %s %s request is already queued", id.c_str(), role.c_str(), area.c_str());
        reply("already requested");
        return;
    }

    WMRequest req = WMRequest(id, role, area, Task::TASK_ALLOCATE);
    unsigned new_req = g_app_list.addAllocateRequest(req);
    g_app_list.reqDump();

    HMI_SEQ_DEBUG(current, "%s start sequence with %s, %s", id.c_str(), role.c_str(), area.c_str());

    reply(nullptr);
    if (new_req != current)
    {
        // Add request, then invoked after the previous task is finished
        HMI_SEQ_DEBUG(new_req, "request is accepted");
        return;
    }

    /*
    * Do allocate tasks
    */
    WMError ret = this->do_transition(new_req);

    if (ret != WMError::SUCCESS)
    {
        HMI_SEQ_ERROR(new_req, errorDescription(ret));
        //this->emit_error()
    }
}

void App::api_deactivate_surface(char const *appid, char const *drawing_name, const reply_func &reply)
{
    ST();

    /*
   * Check Phase
   */
    std::string id = appid;
    std::string role = drawing_name;
    std::string area = ""; //drawing_area;

    if (!g_app_list.contains(id))
    {
        reply("app doesn't request 'requestSurface' yet");
        return;
    }
    auto client = g_app_list.lookUpClient(id);

    /*
   * Queueing Phase
   */
    unsigned current = g_app_list.currentRequestNumber();
    unsigned requested_num = g_app_list.getRequestNumber(id);
    if (requested_num != 0)
    {
        HMI_SEQ_INFO(requested_num, "%s %s %s request is already queued", id.c_str(), role.c_str(), area.c_str());
        reply("already requested");
        return;
    }

    WMRequest req = WMRequest(id, role, area, Task::TASK_RELEASE);
    unsigned new_req = g_app_list.addAllocateRequest(req);
    g_app_list.reqDump();

    HMI_SEQ_DEBUG(current, "%s start sequence with %s, %s", id.c_str(), role.c_str(), area.c_str());

    reply(nullptr);
    if (new_req != current)
    {
        // Add request, then invoked after the previous task is finished
        HMI_SEQ_DEBUG(new_req, "request is accepted");
        return;
    }

    /*
    * Do allocate tasks
    */
    WMError ret = this->do_transition(new_req);

    if (ret != WMError::SUCCESS)
    {
        HMI_SEQ_ERROR(new_req, errorDescription(ret));
        //this->emit_error()
    }
}

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::lm_enddraw(const char *drawing_name)
{
    HMI_DEBUG("wm", "end draw %s", 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]);
        if (n && *n == drawing_name)
        {
            std::swap(this->pending_end_draw[i], this->pending_end_draw[iend - 1]);
            this->pending_end_draw.resize(iend - 1);
            this->activate(this->pending_end_draw[i]);
            this->emit_flushdraw(drawing_name);
        }
    }
}

void App::do_enddraw(unsigned req_num)
{
    // get actions
    bool found;
    auto actions = g_app_list.getActions(req_num, &found);
    if (!found)
    {
        WMError err = WMError::NO_ENTRY;
        HMI_SEQ_ERROR(req_num, errorDescription(err));
        return;
    }

    HMI_SEQ_INFO(req_num, "do endDraw");

    for (const auto &act : actions)
    {
        HMI_SEQ_DEBUG(req_num, "visible %s", act.role.c_str());
        this->lm_enddraw(act.role.c_str());
    }

    HMI_SEQ_INFO(req_num, "emit flushDraw");
    /*     do
    {
        // emit flush Draw
        //emitFlushDrawToAll(&g_app_list, req_num);
        // emit status change event
    } while (!g_app_list.requestFinished());*/
}

void App::process_request()
{
    unsigned req = g_app_list.currentRequestNumber();
    HMI_SEQ_DEBUG(req, "Do next request");
    WMError rc = do_transition(req);
    if(rc != WMError::SUCCESS){
        HMI_SEQ_ERROR(req, errorDescription(rc));
    }
}

void App::api_enddraw(char const *appid, char const *drawing_name)
{
    std::string id(appid);
    std::string role(drawing_name);
    unsigned current_req = g_app_list.currentRequestNumber();
    bool result = g_app_list.setEndDrawFinished(current_req, id, role);

    if (!result)
    {
        HMI_ERROR("wm", "%s doesn't have Window Resource", id.c_str());
        return;
    }

    if (g_app_list.endDrawFullfilled(current_req))
    {
        // do task for endDraw
        //this->stop_timer();
        this->do_enddraw(current_req);

        this->stop_timer();

        g_app_list.removeRequest(current_req);
        HMI_SEQ_INFO(current_req, "Finish request");
        g_app_list.next();
        if (g_app_list.haveRequest())
        {
            this->process_request();
        }
    }
    else
    {
        HMI_SEQ_INFO(current_req, "Wait other App call endDraw");
        return;
    }
}

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

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)
{
    // For set role function
    HMI_DEBUG("wm", "Get surface pid");
    this->controller->get_surface_properties(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());
   }*/

    // search pid from surfaceID

    // pick up appid from pid from application manager

    // check appid then add it to the client
}

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

    g_app_list.removeSurface(surface_id);
}

void App::surface_properties(unsigned surface_id, unsigned pid)
{
    HMI_DEBUG("wm", "get surface properties");
    g_app_list.addFloatingSurface(surface_id, pid);
}

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); }

result<int> App::api_request_surface(char const *appid, char const *drawing_name)
{
    auto lid = this->layers.get_layer_id(std::string(drawing_name));
    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(drawing_name);
    if (!rname)
    {
        // name does not exist yet, allocate surface id...
        auto id = int(this->id_alloc.generate_id(drawing_name));
        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);
        }

        // add client into the db
        std::string appid_str(appid);
        std::string role(drawing_name);
        //g_app_list.addClient(appid_str, role);
        g_app_list.addClient(appid_str, *lid, id, role);

        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 *appid, char const *drawing_name,
                                     char const *ivi_id)
{
    ST();

    auto lid = this->layers.get_layer_id(std::string(drawing_name));
    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(drawing_name);

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

    // register pair drawing_name and ivi_id
    this->id_alloc.register_name_id(drawing_name, 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;
}

/**
 * This function is substitute of requestSurface
 * If surface creation is faster than application request of this function,
 * WM will bind surfaceID with application and role.
 * If surface creation is slower than application request of thie function,
 * WM will put Client into pending list.
 *
 * Note :
 * Application can request with pid but this is temporary solution for now.
 * This will be removed.
 * */
bool App::api_set_role(char const *appid, char const *drawing_name, unsigned pid){
    std::string id = appid;
    std::string role = drawing_name;
    unsigned surface = 0;
    WMError wm_err = WMError::UNKNOWN;
    bool ret = false;

    // get layer ID which role should be in
    auto lid = this->layers.get_layer_id(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", role.c_str());
        if (!lid)
        {
            HMI_ERROR("wm", "Drawing name does not match any role, Fallback is disabled");
            return ret;
        }
    }

    if(0 != pid){
        // search floating surfaceID from pid if pid is designated.
        // It is not good that application request with its pid
        wm_err = g_app_list.popFloatingSurface(pid, &surface);
    }
    else{
        // get floating surface with appid. If WM queries appid from pid,
        // WM can bind surface and role with appid(not implemented yet)
        //wm_err = g_app_list.popFloatingSurface(id);
    }
    if(wm_err != WMError::SUCCESS){
        HMI_ERROR("wm", "No floating surface for app: %s", id.c_str());
        g_app_list.addFloatingClient(id, *lid, role);
        HMI_NOTICE("wm", "%s : Waiting for surface creation", id.c_str());
        return ret;
    }

    ret = true;
    if (g_app_list.contains(id))
    {
        HMI_INFO("wm", "Add role: %s with surface: %d. Client %s has multi surfaces.",
                 role.c_str(), surface, id.c_str());
        wm_err = g_app_list.appendRole(id, role, surface);
        if(wm_err != WMError::SUCCESS){
            HMI_INFO("wm", errorDescription(wm_err));
        }
    }
    else{
        HMI_INFO("wm", "Create new client: %s, surface: %d into layer: %d with role: %s",
                 id.c_str(), surface, *lid, role.c_str());
        g_app_list.addClient(id, *lid, surface, role);
    }

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

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

    const auto &o_layer = this->layers.get_layer(*lid);
    auto rect = o_layer.value().rect;
    if(rect.w < 0)
    {
        rect.w = this->controller->output_size.w + 1 + rect.w;
    }
    if(rect.h < 0)
    {
        rect.h = this->controller->output_size.h + 1 + rect.h;
    }
    this->controller->surfaces[surface]->set_source_rectangle(0, 0, rect.w, rect.h);

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

    return ret;
}

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");

    // Check drawing name, surface/layer id
    auto const &surface_id = this->lookup_id(drawing_name);
    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();

        // FOR CES DEMO >>>
        if ((0 == strcmp(label, "Radio")) || (0 == strcmp(label, "MediaPlayer")) || (0 == strcmp(label, "Music")) || (0 == strcmp(label, "Navigation")))
        {
            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;
                }
            }
        }
        // <<< FOR CES DEMO
        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();

        // FOR CES DEMO >>>
        if ((0 == strcmp(label, "Radio")) || (0 == strcmp(label, "MediaPlayer")) || (0 == strcmp(label, "Music")) || (0 == strcmp(label, "Navigation")))
        {

            // 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);
        }
        // <<< FOR CES DEMO

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

void App::deactivate_main_surface()
{
    this->layers.main_surface = -1;
    std::string appid = "HomeScreen";
    this->api_deactivate_surface(appid.c_str(), this->layers.main_surface_name.c_str(), [](const char *) {});
}

bool App::can_split(struct LayoutState const &state, int new_id)
{
    if (state.main != -1 && state.main != new_id)
    {
        auto new_id_layer = this->layers.get_layer_id(new_id).value();
        auto current_id_layer = this->layers.get_layer_id(state.main).value();

        // surfaces are on separate layers, don't bother.
        if (new_id_layer != current_id_layer)
        {
            return false;
        }

        std::string const &new_id_str = this->lookup_name(new_id).value();
        std::string const &cur_id_str = this->lookup_name(state.main).value();

        auto const &layer = this->layers.get_layer(new_id_layer);

        HMI_DEBUG("wm", "layer info name: %s", layer->name.c_str());

        if (layer->layouts.empty())
        {
            return false;
        }

        for (auto i = layer->layouts.cbegin(); i != layer->layouts.cend(); i++)
        {
            HMI_DEBUG("wm", "%d main_match '%s'", new_id_layer, i->main_match.c_str());
            auto rem = std::regex(i->main_match);
            if (std::regex_match(cur_id_str, rem))
            {
                // build the second one only if the first already matched
                HMI_DEBUG("wm", "%d sub_match '%s'", new_id_layer, i->sub_match.c_str());
                auto res = std::regex(i->sub_match);
                if (std::regex_match(new_id_str, res))
                {
                    HMI_DEBUG("wm", "layout matched!");
                    return true;
                }
            }
        }
    }

    return false;
}

void App::try_layout(struct LayoutState & /*state*/,
                     struct LayoutState const &new_layout,
                     std::function<void(LayoutState const &nl)> apply)
{
    if (this->policy.layout_is_valid(new_layout))
    {
        apply(new_layout);
    }
}

/**
 * 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_properties(uint32_t surface_id, uint32_t pid)
{
    this->app->surface_properties(surface_id, pid);
}

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*/) {}

} // namespace wm