// Copyright 2019 The Fuchsia Authors. All rights reserved.
// Use of this source code is governed by a BSD-style license that can be
// found in the LICENSE file.

#include <fuchsia/sysinfo/c/fidl.h>
#include <stdlib.h>
#include <string.h>
#include <zircon/status.h>
#include <zircon/threads.h>

#include <ddk/binding.h>
#include <ddk/debug.h>
#include <ddk/driver.h>
#include <ddk/metadata.h>
#include <ddk/platform-defs.h>

#include "acpi.h"
#include "smbios.h"
#include "sysmem.h"

zx_handle_t root_resource_handle;

typedef struct {
  pbus_protocol_t pbus;
  zx_device_t* parent;
  zx_device_t* sys_root;
  zx_device_t* acpi_root;
} pbus_x86_t;

static void x86_root_release(void* ctx) {
  pbus_x86_t* x86 = ctx;

  free(x86);
}

static zx_protocol_device_t acpi_root_device_proto = {
    .version = DEVICE_OPS_VERSION,
    .release = x86_root_release,
};

static zx_status_t sys_device_suspend(void* ctx, uint32_t flags) { return acpi_suspend(flags); }

static int x86_start_thread(void* arg) {
  pbus_x86_t* x86 = arg;
  zx_status_t status = publish_sysmem(&x86->pbus);
  if (status != ZX_OK) {
    zxlogf(ERROR, "publish_sysmem failed: %d\n", status);
    goto fail;
  }
  return publish_acpi_devices(x86->parent, x86->sys_root, x86->acpi_root);

fail:
  return status;
}

static zx_status_t x86_bind(void* ctx, zx_device_t* parent) {
  // Please do not use get_root_resource() in new code. See ZX-1467.
  root_resource_handle = get_root_resource();

  pbus_x86_t* x86 = calloc(1, sizeof(pbus_x86_t));
  if (!x86) {
    return ZX_ERR_NO_MEMORY;
  }

  zx_status_t status = device_get_protocol(parent, ZX_PROTOCOL_PBUS, &x86->pbus);
  if (status != ZX_OK) {
    free(x86);
    return ZX_ERR_NOT_SUPPORTED;
  }

  // Do ACPI init.
  status = acpi_init();
  if (status != ZX_OK) {
    free(x86);
    zxlogf(ERROR, "%s: failed to initialize ACPI %d \n", __func__, status);
    return ZX_ERR_INTERNAL;
  }

  // TODO(ZX-4858): Remove this use of device_get_parent().  For now, suppress this
  // deprecation warning to not spam the build logs
#pragma GCC diagnostic push
#pragma GCC diagnostic ignored "-Wdeprecated-declarations"
  zx_device_t* sys_root = device_get_parent(parent);
#pragma GCC diagnostic pop
  if (sys_root == NULL) {
    free(x86);
    zxlogf(ERROR, "%s: failed to find parent node of platform (expected sys)\n", __func__);
    return ZX_ERR_INTERNAL;
  }

  // publish acpi root
  device_add_args_t args2 = {
      .version = DEVICE_ADD_ARGS_VERSION,
      .name = "acpi",
      .ctx = x86,
      .ops = &acpi_root_device_proto,
      .flags = DEVICE_ADD_NON_BINDABLE,
  };

  zx_device_t* acpi_root = NULL;
  // We create the acpi root under /dev/sys/platform, and pci gets
  // created under /dev/sys (to preserve compatibility).
  status = device_add(parent, &args2, &acpi_root);
  if (status != ZX_OK) {
    free(x86);
    zxlogf(ERROR, "acpi: error %d in device_add(sys/platform/acpi)\n", status);
    return status;
  }

  char board_name[fuchsia_sysinfo_SYSINFO_BOARD_NAME_LEN + 1];
  size_t board_name_actual = 0;
  status = smbios_get_board_name(board_name, sizeof(board_name), &board_name_actual);
  if (status != ZX_OK) {
    if (status == ZX_ERR_BUFFER_TOO_SMALL) {
      zxlogf(INFO, "acpi: smbios board name too big for sysinfo\n");
    } else if (status != ZX_ERR_NOT_FOUND) {
      zxlogf(ERROR, "acpi: smbios board name could not be read: %s\n",
             zx_status_get_string(status));
    }
    strcpy(board_name, "pc");
    board_name_actual = strlen(board_name) + 1;
  }

  // Publish board name to sysinfo driver
  status = device_publish_metadata(acpi_root, "/dev/misc/sysinfo", DEVICE_METADATA_BOARD_NAME,
                                   board_name, board_name_actual);
  if (status != ZX_OK) {
    zxlogf(ERROR, "device_publish_metadata(board_name) failed: %d\n", status);
  }

  // Inform platform bus of our board name.
  pbus_board_info_t board_info = {};
  strlcpy(board_info.board_name, board_name, sizeof(board_info.board_name));
  pbus_set_board_info(&x86->pbus, &board_info);

  x86->sys_root = sys_root;
  x86->acpi_root = acpi_root;
  x86->parent = parent;
  thrd_t t;
  int thrd_rc = thrd_create_with_name(&t, x86_start_thread, x86, "x86_start_thread");
  if (thrd_rc != thrd_success) {
    status = thrd_status_to_zx_status(thrd_rc);
    zxlogf(ERROR, "%s: Failed to create start thread: %d\n", __func__, status);
    goto fail;
  }

  // Set the "sys" suspend op in platform-bus.
  // The devmgr coordinator code that arranges ordering in which the suspend hooks
  // are called makes sure the suspend hook attached to sys/ is called dead last,
  // (coordinator.cpp:BuildSuspendList()). If move this suspend hook elsewhere,
  // we must make sure that the coordinator code arranges for this suspend op to be
  // called last.
  pbus_sys_suspend_t suspend = {sys_device_suspend, NULL};
  status = pbus_register_sys_suspend_callback(&x86->pbus, &suspend);
  if (status != ZX_OK) {
    zxlogf(ERROR, "%s: Could not register suspend callback: %d\n", __func__, status);
  }

  return ZX_OK;
fail:
  return status;
}

static zx_driver_ops_t x86_driver_ops = {
    .version = DRIVER_OPS_VERSION,
    .bind = x86_bind,
};

ZIRCON_DRIVER_BEGIN(acpi_bus, x86_driver_ops, "zircon", "0.1", 3)
BI_ABORT_IF(NE, BIND_PROTOCOL, ZX_PROTOCOL_PBUS),
    BI_ABORT_IF(NE, BIND_PLATFORM_DEV_VID, PDEV_VID_INTEL),
    BI_MATCH_IF(EQ, BIND_PLATFORM_DEV_PID, PDEV_PID_X86), ZIRCON_DRIVER_END(acpi_bus)