/*
 * Copyright 2022 Frederico de Oliveira Linhares
 *
 * 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 "texture.hpp"

#include "core.hpp"
#include "vk/texture.hpp"

void
cg_free_texture(mrb_state *mrb, void* obj)
{
  auto *ptr = static_cast<std::shared_ptr<VK::Texture>*>(obj);

  ptr->~shared_ptr();
  mrb_free(mrb, ptr);
}

const struct mrb_data_type cg_texture_type = { "CG_Texture", cg_free_texture };

static mrb_value
texture_alloc(mrb_state *mrb, mrb_value klass)
{
  struct RClass *cg_cTexture = mrb_class_ptr(klass);
  enum mrb_vtype ttype = MRB_INSTANCE_TT(cg_cTexture);

  // I do not know if I need this. If things break, try uncomment this line.
  // if (ttype == 0) ttype = MRB_TT_OBJECT;
  return mrb_obj_value(
    (struct RObject*)mrb_obj_alloc(mrb, ttype, cg_cTexture));
}

static mrb_value
cg_cTexture_from_image(mrb_state *mrb, mrb_value self)
{
  struct mrb_value texture = texture_alloc(mrb, self);
  const char *file_path;
  std::shared_ptr<VK::Texture> *ptr;

  mrb_get_args(mrb, "z", &file_path);
  ptr = (std::shared_ptr<VK::Texture>*)DATA_PTR(texture);
  if(ptr) mrb_free(mrb, ptr);
  ptr = (std::shared_ptr<VK::Texture>*)mrb_malloc(
    mrb, sizeof(std::shared_ptr<VK::Texture>));
  new(ptr)std::shared_ptr<VK::Texture>(
    std::make_shared<VK::Texture>(file_path));

  mrb_data_init(texture, ptr, &cg_texture_type);
  return texture;
}

// mrb_value
// cg_cText_from_text(mrb_state *mrb, mrb_value self)
// {
//   char *text;
//   SDL_Surface *surface = nullptr;
//   mrb_bool background;
//   struct mrb_value texture = texture_alloc(mrb, self);
//   struct cg_color *tx_color_ptr, *bg_color_ptr;
//   struct cg_font *font_ptr;
//   struct cg_texture *ptr;

//   mrb_get_args(
//       mrb, "zdd|d?", &text, &font_ptr, &cg_font_type,
//       &tx_color_ptr, &cg_color_type, &bg_color_ptr, &cg_color_type,
//       &background);

//   ptr = (struct cg_texture *)DATA_PTR(texture);
//   if(ptr) mrb_free(mrb, ptr);
//   ptr = (struct cg_texture *)mrb_malloc(mrb, sizeof(struct cg_texture));

//   // Create surface.
//   if(background)
//     surface = TTF_RenderUTF8_Shaded(
//         font_ptr->data, text, tx_color_ptr->data, bg_color_ptr->data);
//   else
//     surface = TTF_RenderUTF8_Solid(font_ptr->data, text, tx_color_ptr->data);
//   if(surface == nullptr) mrb_raise(mrb, E_RUNTIME_ERROR, TTF_GetError());

//   // Convert the surface to a texture.
//   ptr->data = SDL_CreateTextureFromSurface(cg_core.renderer, surface);
//   SDL_FreeSurface(surface);
//   if(ptr->data == nullptr) mrb_raise(mrb, E_RUNTIME_ERROR, SDL_GetError());

//   SDL_QueryTexture(ptr->data, nullptr, nullptr, &ptr->width, &ptr->height);
//   mrb_data_init(texture, ptr, &cg_texture_type);
//   return texture;
// }

static mrb_value
cg_cTexture_width(mrb_state *mrb, mrb_value self)
{
  auto ptr = (std::shared_ptr<VK::Texture>*)DATA_PTR(self);
  return mrb_int_value(mrb, (*ptr)->width);
}

static mrb_value
cg_cTexture_height(mrb_state *mrb, mrb_value self)
{
  auto ptr = (std::shared_ptr<VK::Texture>*)DATA_PTR(self);
  return mrb_int_value(mrb, (*ptr)->height);
}

void
cg_texture_init(mrb_state *mrb)
{
  struct RClass *cg_m, *cg_cTexture;

  cg_m = mrb_module_get(mrb, "CandyGear");
  cg_cTexture = mrb_define_class_under(
    mrb, cg_m, "Texture", mrb->object_class);
  MRB_SET_INSTANCE_TT(cg_cTexture, MRB_TT_DATA);

  mrb_undef_class_method(mrb, cg_cTexture, "new");
  mrb_define_class_method(
    mrb, cg_cTexture, "from_image", cg_cTexture_from_image,
    MRB_ARGS_REQ(1) | MRB_ARGS_OPT(1));
  // mrb_define_class_method(
  //   mrb, cg_cTexture, "from_text", cg_cText_from_text,
  //   MRB_ARGS_REQ(3)|MRB_ARGS_OPT(1));
  mrb_define_method(
    mrb, cg_cTexture, "width", cg_cTexture_width, MRB_ARGS_NONE());
  mrb_define_method(
    mrb, cg_cTexture, "height", cg_cTexture_height, MRB_ARGS_NONE());
}