//-----------------------------------------------------------------------------
//
// Copyright © 2016 Project Golan
//
// See "LICENSE" for more information.
//
//-----------------------------------------------------------------------------
//
// Context functions.
//
//-----------------------------------------------------------------------------

#include "Lth.h"

#include <ACS_ZDoom.h>
#include <stdlib.h>
#include <stdbool.h>


//----------------------------------------------------------------------------|
// Extern Functions                                                           |
//

//
// Lth_ContextNew
//
Lth_Context *Lth_ContextNew(int w, int h, Lth_HID hidBase, Lth_HID hidEnd)
{
   Lth_Context *ctx = calloc(1, sizeof(Lth_Context));
   Lth_assert(ctx != NULL);

   ctx->w = w;
   ctx->h = h;
   ctx->hid.cur = ctx->hid.base = hidBase;
   ctx->hid.end = hidEnd;

   return ctx;
}

//
// Lth_ContextMap
//
void Lth_ContextMap(Lth_Context *ctx, Lth_Window *ctrl)
{
   Lth_assert(ctx != NULL);
   Lth_assert(ctrl != NULL);

   if(ctrl->x == -1) ctrl->x = ctx->w / 2;
   if(ctrl->y == -1) ctrl->y = ctx->h / 2;

   if(ctx->map)
      Lth_LinkListInsert(&ctrl->desclink, ctrl, &ctx->map);
   else
   {
      ctx->map = &ctrl->desclink;
      ctx->map->owner = ctrl;
   }
}

//
// Lth_ContextDestroy
//
void Lth_ContextDestroy(Lth_Context *ctx)
{
   if(ctx == NULL)
      return;

   if(ctx->map)
   {
      Lth_ListFor(Lth_Control *owner, ctx->map)
      {
         Lth_LinkListRemove(list);
         if(owner) Lth_ControlDestroy(owner);
         list = next;
      }
   }

   free(ctx);
}

//
// Lth_ContextRun
//
void Lth_ContextRun(Lth_Context *ctx)
{
   Lth_assert(ctx != NULL);

   ACS_SetHudSize(ctx->w, ctx->h, true);
   ctx->hid.cur = ctx->hid.base;

   if(ctx->map)
      Lth_ListForEach(Lth_Control *owner, ctx->map)
         Lth_ControlRun(ctx, owner);
}

//
// Lth_ContextClipPush
//
void Lth_ContextClipPush(Lth_Context *ctx, int x, int y, int w, int h)
{
   Lth_assert(ctx != NULL);

   Lth_Rect rect = ctx->clip.rects[ctx->clip.num++];

   if(!(rect.x == 0 && rect.y == 0 && rect.w == 0 && rect.h == 0))
   {
      if(rect.x < x) rect.x = x;
      if(rect.y < y) rect.y = y;
      if(rect.x + rect.w > x + w) rect.w = w;
      if(rect.y + rect.h > y + h) rect.h = h;
   }
   else
   {
      rect.x = x;
      rect.y = y;
      rect.h = h;
      rect.w = w;
   }

   ctx->clip.rects[ctx->clip.num] = rect;
   ACS_SetHudClipRect(rect.x, rect.y, rect.w, rect.h);
}

//
// Lth_ContextClipPop
//
void Lth_ContextClipPop(Lth_Context *ctx)
{
   Lth_assert(ctx != NULL);

   Lth_Rect rect = ctx->clip.rects[--ctx->clip.num];
   ACS_SetHudClipRect(rect.x, rect.y, rect.w, rect.h);
}

// EOF