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

/********************************************
 * EMUMOUSE.C
 *
 * Adjusts settings of the internal mouse driver of DOSEMU
 *
 * Written by Kang-Jin Lee (lee@tengu.in-berlin.de) at 3/20/95
 * based on MOUSE.C in dosemu0.53.51 by Alan Hourihane.
 *                                      <alanh@fairlite.demon.co.uk>
 *
 * Note:
 *   There are some incompatible changes in arguments
 *   - Arguments to switch between 2 and 3 button mouse mode has
 *     changed from m to 2 and p to 3
 *   - Mouse speed value ranges from 1 to 255 mickeys
 *   - Arguments are case insensitiv
 * Modified:
 *   - Added argument h for help screen
 ********************************************/


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

#include "emu.h"
#include "memory.h"
#include "doshelpers.h"
#include "builtins.h"

#include "emumouse.h"

#define printf  com_printf
#define SETHIGH(x, v) HI_BYTE_d(x) = (v)
#define SETLO_WORD(x, v) LO_WORD(x) = (v)
#define SETLO_BYTE(x, v) LO_BYTE_d(x) = (v)
#define SETWORD(x, v) SETLO_WORD(x, v)

/* Show help screen */
static int usage(void)
{
  printf("Usage: EMUMOUSE [option]\n");
  printf("Utility to control the internal mousedriver of DOSEMU\n\n");
  printf("Options:\n");
  printf("  r       - Reset IRET.\n");
  printf("  i       - Inquire current configuration.\n");
  printf("  2       - Select 2 button mouse mode (Microsoft).\n");
  printf("  3       - Select 3 button mouse mode (e.g. Mousesystems, PS2).\n");
  printf("  x value - Set horizontal speed.\n");
  printf("  y value - Set vertical speed.\n");
  printf("  s 1|0   - Ignore VESA modes (1 - ignore, 0 - accept).\n");
  printf("  c 1|0   - Enable/disable host's cursor.\n");
  printf("  l 1|0   - Lock/unlock host's cursor visibility.\n");
  printf("  h       - Display this screen.\n");
  printf("  Mx val  - Set minimum internal horizontal resolution.\n");
  printf("  My val  - Set minimum internal vertical resolution.\n\n");
  printf("Valid range for \"value\" is from 1 (fastest) to 255 (slowest).\n\n");
  printf("Example: EMUMOUSE r a x 10 i\n");
  printf("reset, fixed speed setting, set horizontal speed to 10 and show current\n");
  printf("  configuraton of the mouse\n\n");

  return 0;
}


/* Detect internal mouse driver of Linux */
static int detectInternalMouse(void)
{
  if (!config.mouse.intdrv) {
    printf("ERROR! Internal driver option not set, enable internal driver\n");
    printf("       in dosemu.conf ($_mouse_internal option).\n");
    return 0;
  }
  return 1;
}


int emumouse_main(int argc, char *argv[])
{
  struct vm86_regs regs;
  int i, value;

  if (argc == 1)
    return usage();

  switch (argv[1][0]) {
    case '?':
    case 'H':
    case 'h':
      return usage();
      break;
    default:
      break;
  }


  if (!detectInternalMouse()) return 1;

  i = 1;

  while (i < argc)
  {
    switch(argv[i][0]) {

      case 'S':
      case 's': {
	int val;
	i++;
	if (i == argc) {
	  printf("ERROR! No value for \"s\" found.\n");
	  return(1);
	}
	val = argv[i][0] - '0';
	printf("Ignore VESA modes: %i\n", val);
	SETLO_BYTE(regs.ecx, val);
	SETWORD(regs.ebx, 0x0006);
	mouse_helper(&regs);
	break;
      }

      case 'R':
      case 'r':
	mouse_client_reset();
	printf("Resetting iret.\n");
	SETWORD(regs.ebx, 0x0000);
	mouse_helper(&regs);
	break;

      case 'I':
      case 'i':
	printf("\nCurrent mouse setting:\n");
	SETWORD(regs.ebx, 0x0003);
	mouse_helper(&regs);
	if (HI_BYTE_d(regs.ebx) == 0x10)
	  printf("  2 button mouse mode (Microsoft)\n");
	else
	  printf("  3 button mouse mode (e.g. Mousesystems, PS2)\n");
	printf  ("  Horizontal Speed (X) - %d\n", LO_BYTE_d(regs.ecx));
	printf  ("  Vertical Speed   (Y) - %d\n", HI_BYTE_d(regs.ecx));
	printf  ("  Ignore VESA modes    - %s\n\n", LO_BYTE_d(regs.edx) ? "yes" : "no");
	SETWORD(regs.ebx, 0x0007);
	mouse_helper(&regs);
	if (LO_WORD(regs.eax) == 0) {
	  printf  ("  Minimum Internal Horizontal Resolution - %d\n", LO_WORD(regs.ecx));
          printf  ("  Minimum Internal Vertical Resolution   - %d\n", LO_WORD(regs.edx));
	}
	break;

      case '3':
	printf("Selecting 3 button mouse mode (e.g. Mousesystems, PS2).\n");
	SETWORD(regs.ebx, 0x0002);
	mouse_helper(&regs);
	if (LO_BYTE_d(regs.eax) == 0xff) {
	  printf("ERROR! Cannot select 3 button mouse mode, \"emulate3buttons\" not set\n");
	  printf("       in /etc/dosemu.conf, try e.g.\n");
	  printf("       'mouse { ps2 device /dev/mouse internaldriver emulate3buttons }'\n");
	  return (1);
	}
	break;

      case '2':
	printf("Selecting 2 button mouse mode (Microsoft).\n");
	SETWORD(regs.ebx, 0x0001);
	mouse_helper(&regs);
	break;

      case 'Y':
      case 'y':
	i++;
	if (i == argc) {
	  printf("ERROR! No value for \"y\" found.\n");
	  return(1);
	}
	value = atoi(argv[i]);
	printf("Selecting vertical speed to %d.\n", value);
	SETWORD(regs.ebx, 0x0004);
	SETLO_BYTE(regs.ecx, value);
	mouse_helper(&regs);
	if (LO_WORD(regs.eax) == 1) {
	  printf("ERROR! Selected speed is out of range. Unable to set speed.\n");
	  return(1);
	}
	break;

      case 'X':
      case 'x':
	i++;
	if (i == argc) {
	  printf("ERROR! No value for \"x\" found.\n");
	  return(1);
	}
	value = atoi(argv[i]);
	printf("Selecting horizontal speed to %d.\n", value);
	SETWORD(regs.ebx, 0x0005);
	SETLO_BYTE(regs.ecx, value);
	mouse_helper(&regs);
	if (LO_WORD(regs.eax) == 1) {
	  printf("ERROR! Selected speed is out of range. Unable to set speed.\n");
	  return(1);
	}
	break;

      case 'M':
      case 'm':
        switch (argv[i][1]) {
	case 'X':
	case 'x':
	  i++;
	  if (i == argc) {
	    printf("ERROR! No value for \"Mx\" found.\n");
	    return(1);
	  }
	  value = atoi(argv[i]);
	  printf("Selecting minimum horizontal resolution to %d.\n", value);
	  SETWORD(regs.ebx, 0x0007);
	  mouse_helper(&regs);
	  if (LO_WORD(regs.eax) == 1) {
	    printf("ERROR! Setting minimum horizontal resolution not supported.\n");
	    break;
	  }
	  SETWORD(regs.ebx, 0x0008);
	  SETWORD(regs.ecx, value);
	  mouse_helper(&regs);
	  if (LO_WORD(regs.eax) == 1) {
	    printf("ERROR! Setting minimum horizontal resolution not supported.\n");
	    break;
	  }
	  break;

	case 'Y':
	case 'y':
	  i++;
	  if (i == argc) {
	    printf("ERROR! No value for \"My\" found.\n");
	    return(1);
	  }
	  value = atoi(argv[i]);
	  printf("Selecting minimum vertical resolution to %d.\n", value);
	  SETWORD(regs.ebx, 0x0007);
	  mouse_helper(&regs);
	  if (LO_WORD(regs.eax) == 1) {
	    printf("ERROR! Setting minimum vertical resolution not supported.\n");
	    break;
	  }
	  SETWORD(regs.ebx, 0x0008);
	  SETWORD(regs.edx, value);
	  mouse_helper(&regs);
	  if (LO_WORD(regs.eax) == 1) {
	    printf("ERROR! Setting minimum vertical resolution not supported.\n");
	    break;
	  }
	  break;

	default:
          printf("ERROR! Unknown option \"%s\".\n\n", argv[i]);
	  return usage();
	  /* never reached */
	  break;
	}
	break;

      case 'C':
      case 'c':
	i++;
	if (i == argc) {
	  printf("ERROR! No value found.\n");
	  return(1);
	}
	value = atoi(argv[i]);
	SETWORD(regs.ebx, 0x0009);
	SETWORD(regs.ecx, value);
	mouse_helper(&regs);
	break;

      case 'L':
      case 'l':
	i++;
	if (i == argc) {
	  printf("ERROR! No value found.\n");
	  return(1);
	}
	value = atoi(argv[i]);
	SETWORD(regs.ebx, 0x000a);
	SETWORD(regs.ecx, value);
	mouse_helper(&regs);
	break;

      default:
	printf("ERROR! Unknown option \"%s\".\n\n", argv[i]);
	return usage();
	/* never reached */
	break;

    } /* switch */
    i++;
  } /* while */
  return (0);
}