/*
 *
 * DANG_BEGIN_CHANGELOG
 *
 * 1998/02/22: Video mode information is now derived directly from VGAEmu, if
 * X is active.
 *
 *  -- sw (Steffen Winterfeldt <wfeldt@suse.de>)
 *
 * DANG_END_CHANGELOG
 *
 */

#include "mousevid.h"
#include "vgaemu.h"

#define MDA_OFFS	0x10000
#define CGA_OFFS	0x18000
#define EGA_OFFS	0x00000

static struct mousevideoinfo videomodes[] =  {
	{ 0,'T',40,25,160,ORG_TEXT,CGA_OFFS },
	{ 1,'T',40,25,160,ORG_TEXT,CGA_OFFS },
	{ 2,'T',80,25,160,ORG_TEXT,CGA_OFFS },
	{ 3,'T',80,25,160,ORG_TEXT,CGA_OFFS },
	{ 4,'G',320,200,40,ORG_CGA4,CGA_OFFS },
	{ 5,'G',320,200,40,ORG_CGA4,CGA_OFFS },
	{ 6,'G',640,200,40,ORG_CGA2,CGA_OFFS },
	{ 7,'T',80,25,160,ORG_TEXT,MDA_OFFS },
	{ 8 },		/* don't think any PCjr's will run linux */
	{ 9 },		/* don't think any PCjr's will run linux */
	{ 0xA },	/* don't think any PCjr's will run linux */
	{ 0xB },	/* used during font setup */
	{ 0xC },	/* used during font setup */
	{ 0xD,'G',320,200,40,ORG_EGA16,EGA_OFFS },
	{ 0xE,'G',640,200,80,ORG_EGA16,EGA_OFFS },
	{ 0xF,'G',640,350,80,ORG_EGA16,EGA_OFFS }, /* actually mono */
	{ 0x10,'G',640,350,80,ORG_EGA16,EGA_OFFS },
	{ 0x11,'G',640,480,80,ORG_EGA16,EGA_OFFS }, /* actually mono */
	{ 0x12,'G',640,480,80,ORG_EGA16,EGA_OFFS },
	{ 0x13,'G',320,200,320,ORG_VGA,EGA_OFFS },
};

static int vesamode = -1;

void vidmouse_set_video_mode(int mode)
{
  vesamode = mode;
}

int vidmouse_get_video_mode(int mode, struct mousevideoinfo *r_vmo)
{
    *r_vmo = videomodes[mode];
    return 0;
}

int get_current_video_mode(struct mousevideoinfo *r_vmo)
{
  vga_mode_info *vmi = NULL;
  /* we catch int10; every vesa mode set calls the helper (via cx) */
  int i = READ_BYTE(BIOS_VIDEO_MODE);
  int ret;

  if(i > 0x13 || vesamode != -1) {
    /* vesa mode?:
       use the VGAEMU mode table; it may not be 100% correct for
       the console but it's right for most common modes */
    if (vesamode == -1)
      vesamode = i;
    m_printf("MOUSE: looking for vesamode %x\n", vesamode);
    vmi = vga_emu_find_mode(vesamode, NULL);
    if (vmi == NULL) {
      m_printf("MOUSE: Unknown video mode 0x%04x, no mouse cursor.\n", i);
      return i;
    }
    r_vmo->mode = vmi->VGA_mode;
    r_vmo->textgraph = vmi->mode_class == TEXT ? 'T' : 'G';
    if(vmi->mode_class == TEXT) {
      r_vmo->width = vmi->text_width;
      r_vmo->height = vmi->text_height;
      r_vmo->bytesperline = vmi->text_width * 2;
    }
    else {
      r_vmo->width = vmi->width;
      r_vmo->height = vmi->height;
      /* dword aligned */
      r_vmo->bytesperline = (vmi->width + 3) & ~3;
      if(vmi->color_bits > 8)
	r_vmo->bytesperline *= ((vmi->color_bits + 7) & ~7) >> 3;
    }
    switch(vmi->type) {
      case TEXT:
      case TEXT_MONO: r_vmo->organization = ORG_TEXT; break;
      case CGA: r_vmo->organization = ORG_CGA4; break;
      case PL1:
      case PL2:
      case PL4: r_vmo->organization = ORG_EGA16; break;
      case P8: r_vmo->organization = ORG_VGA; break;
      default: r_vmo->organization = ORG_UNKNOWN;
    }
    r_vmo->offset = ((vmi->buffer_start - 0xa000) << 4);
    ret = 0;
  }
  else
  {
    /* invalid video mode */
    if(i < 0 || i > 0x13 || !videomodes[i].textgraph) {
      m_printf("MOUSE: Unknown video mode 0x%02x, no mouse cursor.\n", i);
      return i;
    }
    ret = vidmouse_get_video_mode(i, r_vmo);
    if (r_vmo->textgraph == 'T') { /* read the size from the bios data area */
	    r_vmo->width = READ_WORD(BIOS_SCREEN_COLUMNS);
	    r_vmo->height = READ_BYTE(BIOS_ROWS_ON_SCREEN_MINUS_1) +1;
	    r_vmo->bytesperline = r_vmo->width *2;
    }
    r_vmo->offset += READ_WORD(BIOS_VIDEO_MEMORY_ADDRESS);
  }

  m_printf(
    "MOUSE: video mode 0x%02x found (%c%dx%d at 0x%04x).\n",
    r_vmo->mode, r_vmo->textgraph,
    r_vmo->width, r_vmo->height,
    r_vmo->offset + 0xa0000
  );

  /* valid video mode */
  return ret;
}