/*
 * (C) Copyright 1992, ..., 2014 the "DOSEMU-Development-Team".
 *
 * for details see file COPYING in the DOSEMU distribution
 */

/*
 * Debug level for the X interface.
 * 0 - normal / 1 - useful / 2 - too much
 */
#define DEBUG_X		0

/* "fine tuning" option for X_update_screen */
#define MAX_UNCHANGED	3

#define x_msg(x...) X_printf("X: " x)

#if DEBUG_X >= 1
#define x_deb(x...) X_printf("X: " x)
#else
#define x_deb(x...)
#endif

#if DEBUG_X >= 2
#define x_deb2(x...) X_printf("X: " x)
#else
#define x_deb2(x...)
#endif

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <limits.h>
#include <assert.h>

#include "emu.h"
#include "utilities.h"
#include "bios.h"
#include "video.h"
#include "memory.h"
#include "vgaemu.h"
#include "vgatext.h"
#include "render_priv.h"
#include "translate/translate.h"

#define MAX_TEXTS 5
static struct text_system *Text[MAX_TEXTS];
static int num_texts;

Boolean have_focus;
static unsigned prev_cursor_location = -1;
static ushort prev_cursor_shape = NO_CURSOR;
static int blink_state = 1;
static int blink_count = 8;
static int need_redraw_cursor;
static unsigned char *text_canvas;
static ushort prev_screen[MAX_COLUMNS * MAX_LINES];	/* pointer to currently displayed screen   */

#if CONFIG_SELECTION
static int sel_start_row = -1, sel_end_row =
    -1, sel_start_col, sel_end_col;
static unsigned short *sel_start = NULL, *sel_end = NULL;
static t_unicode *sel_text = NULL;
static Boolean doing_selection = FALSE, visible_selection = FALSE;
#endif


/* macros for accessing video memory. w is an ushort*
   to a character cell, attr is a byte.
*/

#define CHAR(w) (*(Bit8u *)(w))
#define ATTR(w) (*(((Bit8u *)(w))+1))

#if CONFIG_SELECTION
#define SEL_ACTIVE(w) (visible_selection && ((w) >= sel_start) && ((w) <= sel_end))
static inline Bit8u sel_attr(Bit8u a)
{
  /* adapted from Linux vgacon code */
  if (vga.mode_type == TEXT_MONO)
    a ^= ((a & 0x07) == 0x01) ? 0x70 : 0x77;
  else
    a = (a & 0x88) | ((a & 0x70) >> 4) | ((a & 0x07) << 4);
  return a;
}

#define XATTR(w) (SEL_ACTIVE(w) ? sel_attr(ATTR(w)) : ATTR(w))
#else
#define XATTR(w) (ATTR(w))
#endif

#define XREAD_WORD(w) ((XATTR(w)<<8)|CHAR(w))

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */

int register_text_system(struct text_system *text_system)
{
  assert(num_texts < MAX_TEXTS);
  Text[num_texts++] = text_system;
  return 1;
}

void text_lock(void)
{
  int i;

  for (i = 0; i < num_texts; i++) {
    if (Text[i]->flags & TEXTF_DISABLED)
      continue;
    if (Text[i]->lock)
      Text[i]->lock(Text[i]->opaque);
  }
}

void text_unlock(void)
{
  int i;

  for (i = 0; i < num_texts; i++) {
    if (Text[i]->flags & TEXTF_DISABLED)
      continue;
    if (Text[i]->unlock)
      Text[i]->unlock(Text[i]->opaque);
  }
}

/*
 * Draw a text string.
 * The attribute is the VGA color/mono text attribute.
 */
static void draw_string(int x, int y, unsigned char *text, int len,
			Bit8u attr)
{
  int i;

  x_deb2("X_draw_string: %d chars at (%d, %d), attr = 0x%02x\n",
	 len, x, y, (unsigned) attr);
  for (i = 0; i < num_texts; i++) {
    u_char charbuff[MAX_COLUMNS], *p;

    if (Text[i]->flags & TEXTF_DISABLED)
      continue;
    memcpy(charbuff, text, len);
    if (!(Text[i]->flags & TEXTF_BMAP_FONT)) {
      while ((p = memchr(charbuff, '\0', len)))
        *p = ' ';
    }
    Text[i]->Draw_string(Text[i]->opaque, x, y, charbuff, len, attr);
    if (vga.mode_type == TEXT_MONO && vga.char_height
        && (attr == 0x01 || attr == 0x09 || attr == 0x89)) {
      int ul = vga.crtc.data[0x14] & 0x1f;
      if (ul > vga.char_height - 1)
        ul = vga.char_height - 1;
      Text[i]->Draw_line(Text[i]->opaque, x, y, ul / (float)vga.char_height,
          len, attr);
    }
  }
}

/*
 * convert offset in video mem to y*scan_len+x*2
 */
static unsigned memoffs_to_location(unsigned memoffs)
{
  // FIXME: handle vga.mem.wrap as in render.c:update_graphics_screen
  if (vga.line_compare < vga.text_height &&
      memoffs < (vga.text_height - vga.line_compare) * vga.scan_len)
    return memoffs + vga.line_compare * vga.scan_len;
  return memoffs - vga.display_start;
}

/*
 * convert y*scan_len+x*2-style location to offset in video mem
 */
static unsigned location_to_memoffs(unsigned location)
{
  // FIXME: handle vga.mem.wrap as in render.c:update_graphics_screen
  if (vga.line_compare < vga.text_height &&
      location >= vga.line_compare * vga.scan_len)
    return location - vga.line_compare * vga.scan_len;
  return location + vga.display_start;
}

/*
 * check if the cursor location is within bounds and it's text mode
 */
static int check_cursor_location(unsigned cursor_location, int *x, int *y)
{
  /* no hardware cursor emulation in graphics modes (erik@sjoerd)
     or if vga.scan_len==0 (before vgaemu is fully initialized) */
  if (vga.mode_class == GRAPH || vga.scan_len == 0)
    return 0;

  *x = (cursor_location % vga.scan_len) / 2;
  *y = cursor_location / vga.scan_len;

  /* don't draw it if it's out of bounds */
  return (*y >= 0 && *y < vga.text_height && *x >= 0
	  && *x < vga.text_width);
}

/*
 * Restore a character cell (used to remove the cursor).
 * Do nothing in graphics modes.
 */
static void restore_cell(unsigned cursor_location)
{
  Bit16u *sp, *oldsp;
  u_char c;
  int x, y;

  if (!check_cursor_location(cursor_location, &x, &y))
    return;

  sp = (Bit16u *) (vga.mem.base + location_to_memoffs(cursor_location));
  oldsp = prev_screen + cursor_location / 2;
  c = CHAR(sp);

  *oldsp = XREAD_WORD(sp);
  draw_string(x, y, &c, 1, XATTR(sp));
}

/*
 * Draw the cursor (nothing in graphics modes, normal if we have focus,
 * rectangle otherwise).
 */
static void draw_cursor(void)
{
  int x, y, i;

  if (check_cursor_location
      (memoffs_to_location(vga.crtc.cursor_location), &x, &y)
      && (blink_state || !have_focus)) {
    Bit16u *cursor = (Bit16u *) (vga.mem.base + vga.crtc.cursor_location);
    for (i = 0; i < num_texts; i++) {
      if (Text[i]->flags & TEXTF_DISABLED)
        continue;
      Text[i]->Draw_cursor(Text[i]->opaque, x, y, XATTR(cursor),
		      CURSOR_START(vga.crtc.cursor_shape),
		      CURSOR_END(vga.crtc.cursor_shape), have_focus);
    }
  }
}

/*
 * Move cursor to a new position (and erase the old cursor).
 * Do nothing in graphics modes.
 */
static void redraw_cursor(void)
{
  if (prev_cursor_shape != NO_CURSOR)
    restore_cell(prev_cursor_location);

  if (vga.crtc.cursor_shape.w != NO_CURSOR)
    draw_cursor();

  prev_cursor_location = memoffs_to_location(vga.crtc.cursor_location);
  prev_cursor_shape = vga.crtc.cursor_shape.w;
}

struct bitmap_desc draw_bitmap_cursor(int x, int y, Bit8u attr, int start,
				      int end, Boolean focus)
{
  int i, j;
  int fg = ATTR_FG(attr);
  int len = vga.scan_len / 2 * vga.char_width;
  unsigned char *deb;

  deb = text_canvas + vga.char_width * x + len * (vga.char_height * y);
  if (focus) {
    deb += len * start;
    for (i = 0; i < end - start + 1; i++) {
      for (j = 0; j < vga.char_width; j++) {
	*deb++ = fg;
      }
      deb += len - vga.char_width;
    }
  } else {
    /* Draw only a rectangle */
    for (j = 0; j < vga.char_width; j++)
      *deb++ = fg;
    deb += len - vga.char_width;
    for (i = 0; i < vga.char_height - 2; i++) {
      *deb++ = fg;
      deb += vga.char_width - 2;
      *deb++ = fg;
      deb += len - vga.char_width;
    }
    for (j = 0; j < vga.char_width; j++)
      *deb++ = fg;
  }
  return BMP(text_canvas, vga.width, vga.height, vga.width);
}

/*
 * Draw a horizontal line (for text modes)
 * The attribute is the VGA color/mono text attribute.
 */
struct bitmap_desc draw_bitmap_line(int x, int y, float ul, int linelen,
    Bit8u attr)
{
  int fg = ATTR_FG(attr);
  int len = vga.scan_len / 2 * vga.char_width;
  unsigned char *deb;

  x = vga.char_width * x;
  y = vga.char_height * y + ul * vga.char_height;
  linelen *= vga.char_width;

  deb = text_canvas + len * y + x;
  memset(deb, fg, linelen);
  return BMP(text_canvas, vga.width, vga.height, vga.width);
}

void reset_redraw_text_screen(void)
{
  unsigned compare;
  prev_cursor_shape = NO_CURSOR;

  /* Comment Eric: If prev_screen is too small, we must update */
  /* everything continuously anyway, sigh...                   */
  /* so we better cheat and clip co / li / ..., danger >:->.   */
  if (vga.scan_len * vga.text_height > 65535) {
    if (vga.scan_len > MAX_COLUMNS * 2)
      vga.scan_len = MAX_COLUMNS * 2;
    if (vga.text_width > MAX_COLUMNS)
      vga.text_width = MAX_COLUMNS;
    if (vga.text_height > MAX_LINES)
      vga.text_height = MAX_LINES;
  }
  compare = min(vga.text_height, vga.line_compare) * vga.scan_len;
  memcpy(prev_screen, vga.mem.base + location_to_memoffs(0), compare);
  memcpy(&prev_screen[compare / 2], vga.mem.base,
	 vga.scan_len * vga.text_height - compare);
}

static void refresh_text_pal(DAC_entry * col, int index, void *udata)
{
  int i;

  for (i = 0; i < num_texts; i++) {
    if (Text[i]->flags & TEXTF_DISABLED)
      continue;
    if (Text[i]->SetPalette)
      Text[i]->SetPalette(Text[i]->opaque, col, index);
  }
}

/*
 * Reallocate color cells if a text color has changed. If no
 * free color cell is left, choose an approximate color.
 *
 * Note: Redraws the *entire* screen if at least one color has changed.
 */
static int refresh_text_palette(void)
{
  if (vga.pixel_size > 4) {
    X_printf
	("X: refresh_text_palette: invalid color size - no updates made\n");
    return -1;
  }

  return changed_vga_colors(refresh_text_pal, NULL);
}

struct bitmap_desc get_text_canvas(void)
{
  return BMP(text_canvas, vga.width, vga.height, vga.width);
}

/*
 * Redraw the entire screen (in text modes). Used only for expose events.
 * It's graphics mode counterpart is a simple put_ximage() call
 * (cf. X_handle_events). Since we now use backing store in text modes,
 * this function will likely never be called (depending on X's configuration).
 *
 * Note: It redraws the *entire* screen.
 */
static void text_redraw_text_screen(void)
{
  Bit16u *sp, *oldsp;
  u_char charbuff[MAX_COLUMNS], *bp;
  int x, y, start_x;
  Bit8u attr;

  if (vga.mode_class == GRAPH) {
    x_msg("X_redraw_text_screen: Text refresh in graphics video mode?\n");
    return;
  }
  x_msg("X_redraw_text_screen: all\n");

  vga.reconfig.mem = 0;
  refresh_text_palette();

  if (vga.text_width > MAX_COLUMNS) {
    x_msg("X_redraw_text_screen: unable to handle %d colums\n",
	  vga.text_width);
    return;
  }

  sp = (Bit16u *) (vga.mem.base + location_to_memoffs(0));
  oldsp = prev_screen;

  x_deb("X_redraw_text_screen: mode 0x%x (%d x %d), screen_adr = %p\n",
	vga.mode, co, li, sp);

  for (y = 0; y < vga.text_height; y++) {
    x = 0;
    sp = (Bit16u *) (vga.mem.base + location_to_memoffs(y * vga.scan_len));
    do {			/* scan in a string of chars of the same attribute */
      bp = charbuff;
      start_x = x;
      attr = XATTR(sp);

      do {			/* conversion of string to X */
	*oldsp++ = XREAD_WORD(sp);
	*bp++ = CHAR(sp);
	sp++;
	x++;
      } while (XATTR(sp) == attr && x < vga.text_width);
      *bp = '\0';
      draw_string(start_x, y, charbuff, x - start_x, attr);
    } while (x < vga.text_width);
    oldsp += vga.scan_len / 2 - vga.text_width;
  }
}

void dirty_text_screen(void)
{
  memset(prev_screen, 0xff, MAX_COLUMNS * MAX_LINES * sizeof(ushort));
}

int text_is_dirty(void)
{
  unsigned char *sp;
  int ret;
  unsigned int compare;
  if (blink_count == 0 || need_redraw_cursor)
    return 1;
  sp = vga.mem.base + location_to_memoffs(0);

  if (vga.text_height <= vga.line_compare)
    return memcmp(prev_screen, sp,
		  vga.text_width * vga.text_height * sizeof(ushort));

  compare = vga.line_compare * vga.scan_len;
  ret = memcmp(prev_screen, sp, compare);
  if (ret == 0)
    ret = memcmp(&prev_screen[compare / sizeof(ushort)], vga.mem.base,
		 vga.scan_len * vga.text_height - compare);
  return ret;
}

/*
 * Redraw the cursor if it's necessary.
 * Do nothing in graphics modes.
 */
static void update_cursor(void)
{
  if (need_redraw_cursor) {
    need_redraw_cursor = FALSE;
    redraw_cursor();
  }
  if (blink_count)
    return;

  blink_count = config.X_blinkrate;
  blink_state = !blink_state;

  if (vga.crtc.cursor_shape.w != NO_CURSOR) {
    if (memoffs_to_location(vga.crtc.cursor_location) !=
	prev_cursor_location) {
      restore_cell(prev_cursor_location);
      prev_cursor_location = memoffs_to_location(vga.crtc.cursor_location);
      prev_cursor_shape = vga.crtc.cursor_shape.w;
    }

    if (blink_state)
      draw_cursor();
    else
      restore_cell(memoffs_to_location(vga.crtc.cursor_location));
  }
}

/*
 * Blink the cursor. Called from SIGALRM handler.
 * Do nothing in graphics modes.
 */
void blink_cursor()
{
  if (!have_focus)
    return;
  if (blink_count) {
    blink_count--;
    return;
  }
}

void init_text_mapper(int image_mode, int features, ColorSpaceDesc * csd)
{
  /* think 9x32 is maximum */
  text_canvas = malloc(MAX_COLUMNS * 9 * MAX_LINES * 32);
  if (text_canvas == NULL)
    error("X: cannot allocate text mode canvas for font simulation\n");
  need_redraw_cursor = TRUE;
  memset(text_canvas, 0, MAX_COLUMNS * 9 * MAX_LINES * 32);
}

void done_text_mapper(void)
{
  free(text_canvas);
}

struct bitmap_desc convert_bitmap_string(int x, int y, unsigned char *text,
					 int len, Bit8u attr)
{
  unsigned src, height, xx, yy, cc, srcp, srcp2, bits;
  unsigned long fgX;
  unsigned long bgX;
  static int last_redrawn_line = -1;
  struct bitmap_desc ra = { };

  if (y >= vga.text_height)
    return ra;			/* clip */
  if (x >= vga.text_width)
    return ra;			/* clip */
  if (x + len > vga.text_width)
    len = vga.text_width - x;	/* clip */

  /* fgX = text_colors[ATTR_FG(attr)]; *//* if no remapper used */
  /* bgX = text_colors[ATTR_BG(attr)]; *//* if no remapper used */
  fgX = ATTR_FG(attr);
  bgX = ATTR_BG(attr);

  /* we could set fgX = bgX: vga.attr.data[0x10] & 0x08 enables  */
  /* blinking to be triggered by (attr & 0x80) - but the third   */
  /* condition would need to be periodically and having to redo  */
  /* all blinking chars again each time that they blink sucks.   */
  /* so we ALWAYS interpret blinking as bright background, which */
  /* is what also happens when not vga.attr.data[0x10] & 0x08... */
  /* An IDEA would be to have palette animation and use special  */
  /* colors for the bright-or-blinking background, although the  */
  /* official blink would be the foreground, not the background. */

  height = vga.char_height;	/* not font_height - should start to */
  /* remove font_height completely. It */
  /* holds the X font's size...        */
  src = vga.seq.fontofs[(attr & 8) >> 3];

  if (y != last_redrawn_line)	/* have some less output */
    X_printf("X_draw_string(x=%d y=%d len=%d attr=%d %dx%d @ 0x%04x)\n",
	     x, y, len, attr, vga.char_width, height, src);
  last_redrawn_line = y;

  if (((y + 1) * height) > vga.height) {
    v_printf("Tried to print below scanline %d (row %d)\n", vga.height, y);
    return ra;
  }
  if (((x + len) * vga.char_width) > vga.width) {
    v_printf("Tried to print past right margin\n");
    v_printf("x=%d len=%d vga.char_width=%d width=%d\n",
	     x, len, vga.char_width, vga.width);
    len = vga.width / vga.char_width - x;
  }

  /* would use vgaemu_xy2ofs, but not useable for US, NOW! */
  srcp = vga.width * y * height;
  srcp += x * vga.char_width;

  /* vgaemu -> vgaemu_put_char would edit the vga.mem.base[...] */
  /* but as vga memory is used as text buffer at this moment... */
  for (yy = 0; yy < height; yy++) {
    srcp2 = srcp;
    for (cc = 0; cc < len; cc++) {
      bits = vga.mem.base[0x20000 + src + (32 * (unsigned char) text[cc])];
      for (xx = 0; xx < 8; xx++) {
	text_canvas[srcp2++]
	    = (bits & 0x80) ? fgX : bgX;
	bits <<= 1;
      }
      if (vga.char_width >= 9) {	/* copy 8th->9th for line gfx */
	/* (only if enabled by bit... */
	if ((vga.attr.data[0x10] & 0x04) && ((text[cc] & 0xc0) == 0xc0)) {
	  text_canvas[srcp2] = text_canvas[srcp2 - 1];
	  srcp2++;
	} else {		/* ...or fill with background */
	  text_canvas[srcp2++] = bgX;
	}
	srcp2 += (vga.char_width - 9);
      }				/* (pixel-x has reached on next char now) */
    }
    srcp += vga.width;		/* next line */
    src++;			/* globally shift to the next font row!!! */
  }

  return BMP(text_canvas, vga.width, vga.height, vga.width);
}

/*
 * Update the text screen.
 */
void update_text_screen(void)
{
  Bit16u *sp, *oldsp;
  u_char charbuff[MAX_COLUMNS], *bp;
  int x, y;			/* X and Y position of character being updated */
  int start_x, len, unchanged, co, cursor_row;
  unsigned start_off;
  Bit8u attr;

  static int yloop = -1;
  int numscan = 0;		/* Number of lines scanned. */

  if (!num_texts)			// not yet inited
    return;

  if (vga.reconfig.mem) {
    text_redraw_text_screen();
    vga.reconfig.mem = 0;
    return;
  } else {
    int refr = refresh_text_palette();
    if (refr)
      dirty_text_screen();
  }
  update_cursor();

  /* The highest priority is given to the current screen row for the
   * first iteration of the loop, for maximum typing response.
   * If y is out of bounds, then give it an invalid value so that it
   * can be given a different value during the loop.
   */
  y = cursor_row =
      memoffs_to_location(vga.crtc.cursor_location) / vga.scan_len;
  if ((y < 0) || (y >= vga.text_height))
    y = -1;

/*  X_printf("X: X_update_screen, co=%d, li=%d, yloop=%d, y=%d, lines=%d\n",
           co,li,yloop,y,lines);*/

  /* The following loop scans lines on the screen until the maximum number
   * of lines have been updated, or the entire screen has been scanned.
   */
  co = vga.scan_len / 2;
  while (numscan < vga.text_height) {
    /* The following sets the row to be scanned and updated, if it is not
     * the first iteration of the loop, or y has an invalid value from
     * loop pre-initialization.
     */
    if ((numscan > 0) || (y < 0)) {
      yloop = (yloop + 1) % vga.text_height;
      if (yloop == cursor_row)
	yloop = (yloop + 1) % vga.text_height;
      y = yloop;
    }
    numscan++;

    sp = (Bit16u *) (vga.mem.base + location_to_memoffs(y * vga.scan_len));
    oldsp = prev_screen + y * co;

    x = 0;
    do {
      /* find a non-matching character position */
      start_x = x;
      while (XREAD_WORD(sp) == *oldsp) {
	sp++;
	oldsp++;
	x++;
	if (x == vga.text_width)
	  goto line_done;
      }
/* now scan in a string of changed chars of the same attribute.
   To keep the number of X calls (and thus the overhead) low,
   we tolerate a few unchanged characters (up to MAX_UNCHANGED in
   a row) in the 'changed' string.
*/
      bp = charbuff;
      start_off = memoffs_to_location((u_char *) sp - vga.mem.base);
      start_x = x;
#if CONFIG_SELECTION
      /* don't show selection if the DOS app changed it */
      if (SEL_ACTIVE(sp) && *sp != *oldsp)
	visible_selection = FALSE;
#endif
      attr = XATTR(sp);
      unchanged = 0;		/* counter for unchanged chars */

      while (1) {
	*bp++ = CHAR(sp);
	*oldsp++ = XREAD_WORD(sp);
	sp++;
	x++;

	if ((XATTR(sp) != attr) || (x == vga.text_width))
	  break;
	if (XREAD_WORD(sp) == *oldsp) {
	  if (unchanged > MAX_UNCHANGED)
	    break;
	  unchanged++;
	} else {
	  unchanged = 0;
#if CONFIG_SELECTION
	  /* don't show selection if the DOS app changed it */
	  if (SEL_ACTIVE(sp) && *sp != *oldsp)
	    visible_selection = FALSE;
#endif
	}
      }
      len = x - start_x - unchanged;

      /* ok, we've got the string now send it to the X server */

      draw_string(start_x, y, charbuff, len, attr);

      if ((prev_cursor_location >= start_off) &&
	  (prev_cursor_location < start_off + len * 2)) {
	prev_cursor_shape = NO_CURSOR;
/* old cursor was overwritten */
      }
    }
    while (x < vga.text_width);
  line_done:
/* update the cursor. We do this here to avoid the cursor 'running behind'
       when using a fast key-repeat.
*/
    if (y == cursor_row) {
      if (memoffs_to_location(vga.crtc.cursor_location) !=
	  prev_cursor_location
	  || vga.crtc.cursor_shape.w != prev_cursor_shape)
	redraw_cursor();
    }
  }
}

void text_lose_focus()
{
  if (!have_focus)
    return;
  have_focus = FALSE;
  blink_state = TRUE;
  blink_count = config.X_blinkrate;
  need_redraw_cursor = TRUE;
}

void text_gain_focus()
{
  if (have_focus)
    return;
  have_focus = TRUE;
  need_redraw_cursor = TRUE;
}

#if CONFIG_SELECTION

/*
 * Calculate sel_start and sel_end pointers from sel_start | end_col | row.
 */
static void calculate_selection(void)
{
  unsigned start, end;
  int co = vga.scan_len / 2;

  if ((sel_end_row < sel_start_row) ||
      ((sel_end_row == sel_start_row) && (sel_end_col < sel_start_col))) {
    if (sel_start_col == 0) {
	assert(sel_start_row && sel_end_row < sel_start_row);
	sel_start_row--;
	sel_start_col = co;
    }
    start =
	location_to_memoffs(sel_end_row * vga.scan_len + sel_end_col * 2);
    end =
	location_to_memoffs(sel_start_row * vga.scan_len +
			    (sel_start_col - 1) * 2);
  } else {
    if (sel_end_col == 0) {
	assert(sel_end_row && sel_end_row > sel_start_row);
	sel_end_row--;
	sel_end_col = co;
    }
    start =
	location_to_memoffs(sel_start_row * vga.scan_len +
			    sel_start_col * 2);
    end =
	location_to_memoffs(sel_end_row * vga.scan_len +
			    (sel_end_col - 1) * 2);
  }
  sel_start = (Bit16u *) (vga.mem.base + start);
  sel_end = (Bit16u *) (vga.mem.base + end);
}


/*
 * Clear visible part of selection (but not the selection text buffer).
 */
static void clear_visible_selection(void)
{
  visible_selection = FALSE;
}


/*
 * Free the selection text buffer.
 */
void clear_selection_data(void)
{
  X_printf("X: Selection data cleared\n");
  if (sel_text != NULL) {
    free(sel_text);
    sel_text = NULL;
  }
  doing_selection = FALSE;
  clear_visible_selection();
}


/*
 * Check if we should clear selection.
 * Clear if cursor is in or before selected area.
*/
void clear_if_in_selection()
{
  unsigned cursor_row, cursor_col;

  if (!visible_selection)
    return;

  cursor_row =
      memoffs_to_location(vga.crtc.cursor_location) / vga.scan_len;
  cursor_col =
      (memoffs_to_location(vga.crtc.cursor_location) % vga.scan_len) / 2;
  X_printf("X:clear check selection , cursor at %d %d\n", cursor_col,
	   cursor_row);
  if (((sel_start_row <= cursor_row) && (cursor_row <= sel_end_row)
       && (sel_start_col <= cursor_col) && (cursor_col <= sel_end_col)) ||
      /* cursor either inside selectio */
      ((cursor_row <= sel_start_row) && (cursor_col <= sel_start_col)))
    /* or infront of selection */
  {
    X_printf("X:selection clear, key-event!\n");
    clear_visible_selection();
  }
}


/*
 * Start the selection process (mouse button 1 pressed).
 */
void start_selection(int col, int row)
{
  sel_start_col = sel_end_col = col;
  sel_start_row = sel_end_row = row;
  doing_selection = visible_selection = TRUE;
  X_printf("X:start selection , start %d %d, end %d %d\n",
	   sel_start_col, sel_start_row, sel_end_col, sel_end_row);
}


/*
 * Extend the selection (mouse motion).
 */
void extend_selection(int col, int row)
{
  if (!doing_selection)
    return;
  if ((sel_end_col == col) && (sel_end_row == row))
    return;
  sel_end_col = col;
  sel_end_row = row;
  X_printf("X:extend selection , start %d %d, end %d %d\n",
	   sel_start_col, sel_start_row, sel_end_col, sel_end_row);
  calculate_selection();	// make selection visible
}


/*
 * Start extending the selection (mouse button 3 pressed).
 */
void start_extend_selection(int col, int row)
{
  /* Try to extend selection, visibility is handled by extend_selection */
  if (!visible_selection)
    return;
  doing_selection = TRUE;
  if ((sel_end_col == col) && (sel_end_row == row))
    return;
  if (row < sel_start_row || (row == sel_start_row && col < sel_start_col)) {
    sel_start_col = col;
    sel_start_row = row;
  } else {
    sel_end_col = col;
    sel_end_row = row;
  }
  X_printf("X:extend selection , start %d %d, end %d %d\n",
	   sel_start_col, sel_start_row, sel_end_col, sel_end_row);
  calculate_selection();	// make selection visible
}

static void save_selection(int col1, int row1, int col2, int row2)
{
  int row, col, line_start_col, line_end_col, co;
  u_char *sel_text_dos, *sel_text_ptr;
  t_unicode *sel_text_unicode, *prev_sel_text_unicode;
  size_t sel_space, sel_text_bytes;
  u_char *p;
  Bit16u *screen_adr;

  struct char_set_state video_state;	/* must not have any... */

  struct char_set *video_charset = trconfig.video_mem_charset;

  init_charset_state(&video_state, video_charset);

  co = vga.scan_len / 2;
  screen_adr = (Bit16u *) vga.mem.base;
  p = sel_text_dos = malloc(vga.text_width);
  sel_space = (row2 - row1 + 1) * (co + 1) * MB_LEN_MAX + 1;
  sel_text_unicode = sel_text = malloc(sel_space * sizeof(t_unicode));

  /* Copy the text data. */
  for (row = row1; (row <= row2); row++) {
    prev_sel_text_unicode = sel_text_unicode;
    line_start_col = ((row == row1) ? col1 : 0);
    line_end_col = ((row == row2) ? col2 : vga.text_width - 1);
    p = sel_text_ptr = sel_text_dos;
    for (col = line_start_col; (col <= line_end_col); col++) {
      *p++ =
	  CHAR(screen_adr +
		location_to_memoffs(2 * (row * co + col)) / 2);
    }
    sel_text_bytes = line_end_col - line_start_col + 1;
    while (sel_text_bytes) {
      t_unicode symbol;
      size_t result;
      /* If we hit any run with what we have */
      result = charset_to_unicode(&video_state, &symbol,
				  sel_text_ptr, sel_text_bytes);
      if (result == -1) {
	warn("save_selection unfinished\n");
	break;
      }
      sel_text_bytes -= result;
      sel_text_ptr += result;
      *sel_text_unicode++ = symbol;
    }
    /* Remove end-of-line spaces and add a newline. */
    if (col == vga.text_width) {
      sel_text_unicode--;
      while ((*sel_text_unicode == ' ') &&
	     (sel_text_unicode > prev_sel_text_unicode)) {
	sel_text_unicode--;
	sel_space++;
      }
      sel_text_unicode++;
      if (!sel_space) {
	error("BUG: pasting OOM\n");
	leavedos(91);
      }
      *sel_text_unicode++ = '\n';
      sel_space--;
    }
  }
  free(sel_text_dos);
  if (!sel_space) {
    error("BUG: pasting OOM2\n");
    leavedos(91);
  }
  *sel_text_unicode = '\0';
  sel_space--;

  cleanup_charset_state(&video_state);
}

/*
 * Copy the selected text to sel_text, and inform the X server about it.
 */
static void save_selection_data(void)
{
  int col1, row1, col2, row2;
  unsigned start_loc, end_loc;

  if ((sel_end - sel_start) < 0) {
    visible_selection = FALSE;
    return;
  }
  start_loc = memoffs_to_location((Bit8u *) sel_start - vga.mem.base);
  end_loc = memoffs_to_location((Bit8u *) sel_end - vga.mem.base);
  row1 = start_loc / vga.scan_len;
  row2 = end_loc / vga.scan_len;
  col1 = (start_loc % vga.scan_len) / 2;
  col2 = (end_loc % vga.scan_len) / 2;

  /* Allocate space for text. */
  if (sel_text != NULL)
    free(sel_text);

  save_selection(col1, row1, col2, row2);

  v_printf("VGAEMU: Selection, %d,%d->%d,%d\n", col1, row1, col2, row2);
}


/*
 * End of selection (button released).
 */
t_unicode *end_selection()
{
  if (!doing_selection)
    return NULL;
  doing_selection = FALSE;
  calculate_selection();
  save_selection_data();
  return sel_text;
}

/*
 * Convert X coordinate to column, with bounds checking.
 */
int x_to_col(int x, int w_x_res)
{
  int col = x * vga.text_width / w_x_res;
  if (col < 0)
    col = 0;
  else if (col >= vga.text_width)
    col = vga.text_width - 1;
  return (col);
}


/*
 * Convert Y coordinate to row, with bounds checking.
 */
int y_to_row(int y, int w_y_res)
{
  int row = y * vga.text_height / w_y_res;
  if (row < 0)
    row = 0;
  else if (row >= vga.text_height)
    row = vga.text_height - 1;
  return (row);
}

#endif				/* CONFIG_SELECTION */