/*
 * Copyright 2015 Advanced Micro Devices, Inc.
 *
 * Permission is hereby granted, free of charge, to any person obtaining a
 * copy of this software and associated documentation files (the "Software"),
 * to deal in the Software without restriction, including without limitation
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
 * and/or sell copies of the Software, and to permit persons to whom the
 * Software is furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
 * THE COPYRIGHT HOLDER(S) OR AUTHOR(S) BE LIABLE FOR ANY CLAIM, DAMAGES OR
 * OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
 * ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
 * OTHER DEALINGS IN THE SOFTWARE.
 *
 * Authors: AMD
 *
 */

#include <linux/string.h>
#include <linux/acpi.h>
#if 0
#include <linux/version.h>
#endif
#include <linux/i2c.h>

#include <drm/drmP.h>
#include <drm/drm_crtc_helper.h>
#include <drm/amdgpu_drm.h>
#include <drm/drm_edid.h>

#include "dm_services.h"
#include "amdgpu.h"
#include "dc.h"
#include "amdgpu_dm.h"
#include "amdgpu_dm_irq.h"

#include "dm_helpers.h"

/* dm_helpers_parse_edid_caps
 *
 * Parse edid caps
 *
 * @edid:       [in] pointer to edid
 *  edid_caps:  [in] pointer to edid caps
 * @return
 *      void
 * */
enum dc_edid_status dm_helpers_parse_edid_caps(
                struct dc_context *ctx,
                const struct dc_edid *edid,
                struct dc_edid_caps *edid_caps)
{
        struct edid *edid_buf = (struct edid *) edid->raw_edid;
        struct cea_sad *sads;
        int sad_count = -1;
        int sadb_count = -1;
        int i = 0;
        int j = 0;
        uint8_t *sadb = NULL;

        enum dc_edid_status result = EDID_OK;

        if (!edid_caps || !edid)
                return EDID_BAD_INPUT;

        if (!drm_edid_is_valid(edid_buf))
                result = EDID_BAD_CHECKSUM;

        edid_caps->manufacturer_id = (uint16_t) edid_buf->mfg_id[0] |
                                        ((uint16_t) edid_buf->mfg_id[1])<<8;
        edid_caps->product_id = (uint16_t) edid_buf->prod_code[0] |
                                        ((uint16_t) edid_buf->prod_code[1])<<8;
        edid_caps->serial_number = edid_buf->serial;
        edid_caps->manufacture_week = edid_buf->mfg_week;
        edid_caps->manufacture_year = edid_buf->mfg_year;

        /* One of the four detailed_timings stores the monitor name. It's
         * stored in an array of length 13. */
        for (i = 0; i < 4; i++) {
                if (edid_buf->detailed_timings[i].data.other_data.type == 0xfc) {
                        while (j < 13 && edid_buf->detailed_timings[i].data.other_data.data.str.str[j]) {
                                if (edid_buf->detailed_timings[i].data.other_data.data.str.str[j] == '\n')
                                        break;

                                edid_caps->display_name[j] =
                                        edid_buf->detailed_timings[i].data.other_data.data.str.str[j];
                                j++;
                        }
                }
        }

        edid_caps->edid_hdmi = drm_detect_hdmi_monitor(
                        (struct edid *) edid->raw_edid);

        sad_count = drm_edid_to_sad((struct edid *) edid->raw_edid, &sads);
        if (sad_count <= 0) {
                DRM_INFO("SADs count is: %d, don't need to read it\n",
                                sad_count);
                return result;
        }

        edid_caps->audio_mode_count = sad_count < DC_MAX_AUDIO_DESC_COUNT ? sad_count : DC_MAX_AUDIO_DESC_COUNT;
        for (i = 0; i < edid_caps->audio_mode_count; ++i) {
                struct cea_sad *sad = &sads[i];

                edid_caps->audio_modes[i].format_code = sad->format;
                edid_caps->audio_modes[i].channel_count = sad->channels + 1;
                edid_caps->audio_modes[i].sample_rate = sad->freq;
                edid_caps->audio_modes[i].sample_size = sad->byte2;
        }

        sadb_count = drm_edid_to_speaker_allocation((struct edid *) edid->raw_edid, &sadb);

        if (sadb_count < 0) {
                DRM_ERROR("Couldn't read Speaker Allocation Data Block: %d\n", sadb_count);
                sadb_count = 0;
        }

        if (sadb_count)
                edid_caps->speaker_flags = sadb[0];
        else
                edid_caps->speaker_flags = DEFAULT_SPEAKER_LOCATION;

        kfree(sads);
        kfree(sadb);

        return result;
}

static void get_payload_table(
                struct amdgpu_dm_connector *aconnector,
                struct dp_mst_stream_allocation_table *proposed_table)
{
        int i;
        struct drm_dp_mst_topology_mgr *mst_mgr =
                        &aconnector->mst_port->mst_mgr;

        mutex_lock(&mst_mgr->payload_lock);

        proposed_table->stream_count = 0;

        /* number of active streams */
        for (i = 0; i < mst_mgr->max_payloads; i++) {
                if (mst_mgr->payloads[i].num_slots == 0)
                        break; /* end of vcp_id table */

                ASSERT(mst_mgr->payloads[i].payload_state !=
                                DP_PAYLOAD_DELETE_LOCAL);

                if (mst_mgr->payloads[i].payload_state == DP_PAYLOAD_LOCAL ||
                        mst_mgr->payloads[i].payload_state ==
                                        DP_PAYLOAD_REMOTE) {

                        struct dp_mst_stream_allocation *sa =
                                        &proposed_table->stream_allocations[
                                                proposed_table->stream_count];

                        sa->slot_count = mst_mgr->payloads[i].num_slots;
                        sa->vcp_id = mst_mgr->proposed_vcpis[i]->vcpi;
                        proposed_table->stream_count++;
                }
        }

        mutex_unlock(&mst_mgr->payload_lock);
}

void dm_helpers_dp_update_branch_info(
        struct dc_context *ctx,
        const struct dc_link *link)
{}

/*
 * Writes payload allocation table in immediate downstream device.
 */
bool dm_helpers_dp_mst_write_payload_allocation_table(
                struct dc_context *ctx,
                const struct dc_stream_state *stream,
                struct dp_mst_stream_allocation_table *proposed_table,
                bool enable)
{
        struct amdgpu_dm_connector *aconnector;
        struct drm_dp_mst_topology_mgr *mst_mgr;
        struct drm_dp_mst_port *mst_port;
        int slots = 0;
        bool ret;
        int clock;
        int bpp = 0;
        int pbn = 0;

        aconnector = stream->sink->priv;

        if (!aconnector || !aconnector->mst_port)
                return false;

        mst_mgr = &aconnector->mst_port->mst_mgr;

        if (!mst_mgr->mst_state)
                return false;

        mst_port = aconnector->port;

        if (enable) {
                clock = stream->timing.pix_clk_khz;

                switch (stream->timing.display_color_depth) {

                case COLOR_DEPTH_666:
                        bpp = 6;
                        break;
                case COLOR_DEPTH_888:
                        bpp = 8;
                        break;
                case COLOR_DEPTH_101010:
                        bpp = 10;
                        break;
                case COLOR_DEPTH_121212:
                        bpp = 12;
                        break;
                case COLOR_DEPTH_141414:
                        bpp = 14;
                        break;
                case COLOR_DEPTH_161616:
                        bpp = 16;
                        break;
                default:
                        ASSERT(bpp != 0);
                        break;
                }

                bpp = bpp * 3;

                /* TODO need to know link rate */

                pbn = drm_dp_calc_pbn_mode(clock, bpp);

                slots = drm_dp_find_vcpi_slots(mst_mgr, pbn);
                ret = drm_dp_mst_allocate_vcpi(mst_mgr, mst_port, pbn, slots);

                if (!ret)
                        return false;

        } else {
                drm_dp_mst_reset_vcpi_slots(mst_mgr, mst_port);
        }

        ret = drm_dp_update_payload_part1(mst_mgr);

        /* mst_mgr->->payloads are VC payload notify MST branch using DPCD or
         * AUX message. The sequence is slot 1-63 allocated sequence for each
         * stream. AMD ASIC stream slot allocation should follow the same
         * sequence. copy DRM MST allocation to dc */

        get_payload_table(aconnector, proposed_table);

        if (ret)
                return false;

        return true;
}


/*
 * Clear payload allocation table before enable MST DP link.
 */
void dm_helpers_dp_mst_clear_payload_allocation_table(
        struct dc_context *ctx,
        const struct dc_link *link)
{}

/*
 * Polls for ACT (allocation change trigger) handled and sends
 * ALLOCATE_PAYLOAD message.
 */
bool dm_helpers_dp_mst_poll_for_allocation_change_trigger(
                struct dc_context *ctx,
                const struct dc_stream_state *stream)
{
        struct amdgpu_dm_connector *aconnector;
        struct drm_dp_mst_topology_mgr *mst_mgr;
        int ret;

        aconnector = stream->sink->priv;

        if (!aconnector || !aconnector->mst_port)
                return false;

        mst_mgr = &aconnector->mst_port->mst_mgr;

        if (!mst_mgr->mst_state)
                return false;

        ret = drm_dp_check_act_status(mst_mgr);

        if (ret)
                return false;

        return true;
}

bool dm_helpers_dp_mst_send_payload_allocation(
                struct dc_context *ctx,
                const struct dc_stream_state *stream,
                bool enable)
{
        struct amdgpu_dm_connector *aconnector;
        struct drm_dp_mst_topology_mgr *mst_mgr;
        struct drm_dp_mst_port *mst_port;
        int ret;

        aconnector = stream->sink->priv;

        if (!aconnector || !aconnector->mst_port)
                return false;

        mst_port = aconnector->port;

        mst_mgr = &aconnector->mst_port->mst_mgr;

        if (!mst_mgr->mst_state)
                return false;

        ret = drm_dp_update_payload_part2(mst_mgr);

        if (ret)
                return false;

        if (!enable)
                drm_dp_mst_deallocate_vcpi(mst_mgr, mst_port);

        return true;
}

void dm_dtn_log_begin(struct dc_context *ctx,
        struct dc_log_buffer_ctx *log_ctx)
{
        static const char msg[] = "[dtn begin]\n";

        if (!log_ctx) {
                pr_info("%s", msg);
                return;
        }

        dm_dtn_log_append_v(ctx, log_ctx, "%s", msg);
}

void dm_dtn_log_append_v(struct dc_context *ctx,
        struct dc_log_buffer_ctx *log_ctx,
        const char *msg, ...)
{
        va_list args;
        size_t total;
        int n;

        if (!log_ctx) {
                /* No context, redirect to dmesg. */
                struct va_format vaf;

                vaf.fmt = msg;
                vaf.va = &args;

                va_start(args, msg);
                pr_info("%pV", &vaf);
                va_end(args);

                return;
        }

        /* Measure the output. */
        va_start(args, msg);
        n = vsnprintf(NULL, 0, msg, args);
        va_end(args);

        if (n <= 0)
                return;

        /* Reallocate the string buffer as needed. */
        total = log_ctx->pos + n + 1;

        if (total > log_ctx->size) {
                char *buf = (char *)kcalloc(total, sizeof(char), GFP_KERNEL);

                if (buf) {
                        memcpy(buf, log_ctx->buf, log_ctx->pos);
                        kfree(log_ctx->buf);

                        log_ctx->buf = buf;
                        log_ctx->size = total;
                }
        }

        if (!log_ctx->buf)
                return;

        /* Write the formatted string to the log buffer. */
        va_start(args, msg);
        n = vscnprintf(
                log_ctx->buf + log_ctx->pos,
                log_ctx->size - log_ctx->pos,
                msg,
                args);
        va_end(args);

        if (n > 0)
                log_ctx->pos += n;
}

void dm_dtn_log_end(struct dc_context *ctx,
        struct dc_log_buffer_ctx *log_ctx)
{
        static const char msg[] = "[dtn end]\n";

        if (!log_ctx) {
                pr_info("%s", msg);
                return;
        }

        dm_dtn_log_append_v(ctx, log_ctx, "%s", msg);
}

bool dm_helpers_dp_mst_start_top_mgr(
                struct dc_context *ctx,
                const struct dc_link *link,
                bool boot)
{
        struct amdgpu_dm_connector *aconnector = link->priv;

        if (!aconnector) {
                        DRM_ERROR("Failed to found connector for link!");
                        return false;
        }

        if (boot) {
                DRM_INFO("DM_MST: Differing MST start on aconnector: %p [id: %d]\n",
                                        aconnector, aconnector->base.base.id);
                return true;
        }

        DRM_INFO("DM_MST: starting TM on aconnector: %p [id: %d]\n",
                        aconnector, aconnector->base.base.id);

        return (drm_dp_mst_topology_mgr_set_mst(&aconnector->mst_mgr, true) == 0);
}

void dm_helpers_dp_mst_stop_top_mgr(
                struct dc_context *ctx,
                const struct dc_link *link)
{
        struct amdgpu_dm_connector *aconnector = link->priv;

        if (!aconnector) {
                        DRM_ERROR("Failed to found connector for link!");
                        return;
        }

        DRM_INFO("DM_MST: stopping TM on aconnector: %p [id: %d]\n",
                        aconnector, aconnector->base.base.id);

        if (aconnector->mst_mgr.mst_state == true)
                drm_dp_mst_topology_mgr_set_mst(&aconnector->mst_mgr, false);
}

bool dm_helpers_dp_read_dpcd(
                struct dc_context *ctx,
                const struct dc_link *link,
                uint32_t address,
                uint8_t *data,
                uint32_t size)
{

        struct amdgpu_dm_connector *aconnector = link->priv;

        if (!aconnector) {
                DRM_ERROR("Failed to found connector for link!");
                return false;
        }

        return drm_dp_dpcd_read(&aconnector->dm_dp_aux.aux, address,
                        data, size) > 0;
}

bool dm_helpers_dp_write_dpcd(
                struct dc_context *ctx,
                const struct dc_link *link,
                uint32_t address,
                const uint8_t *data,
                uint32_t size)
{
        struct amdgpu_dm_connector *aconnector = link->priv;

        if (!aconnector) {
                DRM_ERROR("Failed to found connector for link!");
                return false;
        }

        return drm_dp_dpcd_write(&aconnector->dm_dp_aux.aux,
                        address, (uint8_t *)data, size) > 0;
}

bool dm_helpers_submit_i2c(
                struct dc_context *ctx,
                const struct dc_link *link,
                struct i2c_command *cmd)
{
        struct amdgpu_dm_connector *aconnector = link->priv;
        struct i2c_msg *msgs;
        int i = 0;
        int num = cmd->number_of_payloads;
        bool result;

        if (!aconnector) {
                DRM_ERROR("Failed to found connector for link!");
                return false;
        }

        msgs = kcalloc(num, sizeof(struct i2c_msg), GFP_KERNEL);

        if (!msgs)
                return false;

        for (i = 0; i < num; i++) {
                msgs[i].flags = cmd->payloads[i].write ? 0 : I2C_M_RD;
                msgs[i].addr = cmd->payloads[i].address;
                msgs[i].len = cmd->payloads[i].length;
                msgs[i].buf = cmd->payloads[i].data;
        }

        result = i2c_transfer(&aconnector->i2c->base, msgs, num) == num;

        kfree(msgs);

        return result;
}

bool dm_helpers_is_dp_sink_present(struct dc_link *link)
{
        bool dp_sink_present;
        struct amdgpu_dm_connector *aconnector = link->priv;

        if (!aconnector) {
                BUG_ON("Failed to found connector for link!");
                return true;
        }

        mutex_lock(&aconnector->dm_dp_aux.aux.hw_mutex);
        dp_sink_present = dc_link_is_dp_sink_present(link);
        mutex_unlock(&aconnector->dm_dp_aux.aux.hw_mutex);
        return dp_sink_present;
}

enum dc_edid_status dm_helpers_read_local_edid(
                struct dc_context *ctx,
                struct dc_link *link,
                struct dc_sink *sink)
{
        struct amdgpu_dm_connector *aconnector = link->priv;
        struct i2c_adapter *ddc;
        int retry = 3;
        enum dc_edid_status edid_status;
        struct edid *edid;

        if (link->aux_mode)
                ddc = &aconnector->dm_dp_aux.aux.ddc;
        else
                ddc = &aconnector->i2c->base;

        /* some dongles read edid incorrectly the first time,
         * do check sum and retry to make sure read correct edid.
         */
        do {

                edid = drm_get_edid(&aconnector->base, ddc);

                if (!edid)
                        return EDID_NO_RESPONSE;

                sink->dc_edid.length = EDID_LENGTH * (edid->extensions + 1);
                memmove(sink->dc_edid.raw_edid, (uint8_t *)edid, sink->dc_edid.length);

                /* We don't need the original edid anymore */
                kfree(edid);

                edid_status = dm_helpers_parse_edid_caps(
                                                ctx,
                                                &sink->dc_edid,
                                                &sink->edid_caps);

        } while (edid_status == EDID_BAD_CHECKSUM && --retry > 0);

        if (edid_status != EDID_OK)
                DRM_ERROR("EDID err: %d, on connector: %s",
                                edid_status,
                                aconnector->base.name);
        if (link->aux_mode) {
                union test_request test_request = { {0} };
                union test_response test_response = { {0} };

                dm_helpers_dp_read_dpcd(ctx,
                                        link,
                                        DP_TEST_REQUEST,
                                        &test_request.raw,
                                        sizeof(union test_request));

                if (!test_request.bits.EDID_READ)
                        return edid_status;

                test_response.bits.EDID_CHECKSUM_WRITE = 1;

                dm_helpers_dp_write_dpcd(ctx,
                                        link,
                                        DP_TEST_EDID_CHECKSUM,
                                        &sink->dc_edid.raw_edid[sink->dc_edid.length-1],
                                        1);

                dm_helpers_dp_write_dpcd(ctx,
                                        link,
                                        DP_TEST_RESPONSE,
                                        &test_response.raw,
                                        sizeof(test_response));

        }

        return edid_status;
}

void dm_set_dcn_clocks(struct dc_context *ctx, struct dc_clocks *clks)
{
        /* TODO: something */
}