comparison src/msdos.c @ 12995:a3620c5ffad7

(putchar): Call internal_flush instead of _flsbuf. (DO_TERMSCRIPT): New macro to support open-termscript. (internal_flush): Corrected handling of flush in middle of escape sequences. Handle screen width > 127. (flush_escape): New function for use by internal_flush. (sys_select): New MS-DOS specific version with us timing. (EMACSCOLORS): New environment variable. (IT_clear_end_of_line): Set default face. (run_msdos_command): Restore mouse position after command. Close "backup fd"s. Corrected switch to cooked mode while running command. (mouse_on, mouse_off): Now checks have_mouse > 0. Note: "have_mouse < 0" means that a mouse is present, but it has been disabled via msdos-mouse-disable. (IT_write_glyphs): Allow esc-character itself to be printed. (event_timestamp): New function to make reliable times stamps. (sys_chdir): Skip drive letter before calling chdir. (sleep_or_kbd_hit): Handle 60 seconds time wrap. (mouse_get_pos): Return event_timestamp.

12994:bd38619285f7

int have_mouse;          /* Mouse present?		*/
static int mouse_last_x;
static int mouse_last_y;

/*  Turn off Dos' Ctrl-C checking and inhibit interpretation of control chars
    by Dos.  Determine the keyboard type.  */
int
dos_ttraw ()
{
  union REGS inregs, outregs;

  inregs.h.ah = 0xc0;
  int86 (0x15, &inregs, &outregs);
  extended_kbd = (!outregs.x.cflag) && (outregs.h.ah == 0);

  break_stat = getcbrk ();
  setcbrk (0);
  install_ctrl_break_check ();
  have_mouse = mouse_init1 ();

  inregs.x.ax = 0x4400;	/* Get IOCTL status. */
  inregs.x.bx = 0x00;	/* 0 = stdin. */
  intdos (&inregs, &outregs);
  stdin_stat = outregs.h.dl;

  inregs.x.dx = (outregs.x.dx | 0x0020) & 0x0027; /* raw mode */
  inregs.h.al = 0x01;
  intdos (&inregs, &outregs);
  return !outregs.x.cflag;
}

/*  Restore status of standard input and Ctrl-C checking.  */

dos_ttcooked ()
{
  union REGS inregs, outregs;

  setcbrk (break_stat);
  if (have_mouse) mouse_off ();

  inregs.x.ax = 0x4401;	/* Set IOCTL status.	*/
  inregs.x.bx = 0x00;	/* 0 = stdin.		*/
  inregs.x.dx = stdin_stat;
  intdos (&inregs, &outregs);
  return !outregs.x.cflag;
}

static unsigned short
ibmpc_translate_map[] =
{

/* Get a char from keyboard.  Function keys are put into the event queue.  */
static int
dos_rawgetc ()
{
  struct input_event event;
  struct timeval tv;
  union REGS regs;
  int ctrl_p, alt_p, shift_p;

  /* Calculate modifier bits */
  regs.h.ah = extended_kbd ? 0x12 : 0x02;
  int86 (0x16, &regs, &regs);
  ctrl_p = ((regs.h.al & 4) != 0);
  shift_p = ((regs.h.al & 3) != 0);

      /* Determine from the scan code if a keypad key was pressed.  */
      if (c >= '0' && c <= '9' && sc > 0xb)
	sc = (c == '0') ? 0xb : (c - '0' + 1), c = 0;
      else if (sc == 0x53 && c != 0xe0)
	{
	  code = 0xffae; /* Keypad decimal point/comma.  */
	  goto nonascii;
	}
      else if (sc == 0xe0)
	{
	  switch (c)
	    {
	    case 10: /* Ctrl Enter */
	    case 13:
	      sc = 0x1c;
	      break;
	    case '/':
	      sc = 0x35;

      if (c == 0
	  || c == ' '
	  || alt_p
	  || (ctrl_p && shift_p)
	  || (c == 0xe0 && sc != 0)     /* Pseudo-key */
	  || sc == 0x37                 /* Grey * */
	  || sc == 0x4a                 /* Grey - */
	  || sc == 0x4e                 /* Grey + */
	  || sc == 0x0e)                /* Back space *key*, not Ctrl-h */
      {
	if (sc >= (sizeof (ibmpc_translate_map) / sizeof (short)))
	  code = 0;
	else
	  code = ibmpc_translate_map[sc];
	if (code != 0)
	  {
	    if (code >= 0x100)
	      {
	      nonascii:
		event.kind = non_ascii_keystroke;
		event.code = (code & 0xff) + 0xff00;
	      }
	    else
	      {
		/* Don't return S- if we don't have to.  `shifted' is
		   supposed to be the shifted versions of the characters
		   in `unshifted'.  Unfortunately, this is only true for
		   US keyboard layout.  If anyone knows how to do this
		   right, please tell us.  */
		static char *unshifted
		  = "abcdefghijklmnopqrstuvwxyz,./=;[\\]'-`0123456789";
		static char *shifted
		  = "ABCDEFGHIJKLMNOPQRSTUVWXYZ<>?+:{|}\"_~)!@#$%^&*(";
		char *pos;

		if (shift_p && (pos = strchr (unshifted, code)))
		  {
		    c = shifted[pos - unshifted];
		    shift_p = 0;
		  }
		else
		  if (c == 0) c = code;
		event.kind = ascii_keystroke;
		event.code = c;
	      }
	    event.modifiers
	      = (shift_p ? shift_modifier : 0)
		+ (ctrl_p ? ctrl_modifier : 0)
		  + (alt_p ? meta_modifier : 0);
	    /* EMACS == Enter Meta Alt Control Shift */
	    XSETFRAME (event.frame_or_window, selected_frame);
	    gettimeofday (&tv, NULL);
	    event.timestamp = tv.tv_usec;
	    kbd_buffer_store_event (&event);
	  }
      } else
	return c;
    }

  if (have_mouse)
    {
      int but, press, x, y, ok;

      /* Check for mouse movement *before* buttons.  */
      mouse_check_moved ();

		      + (alt_p ? meta_modifier : 0)
			+ (press ? down_modifier : up_modifier);
		event.x = x;
		event.y = y;
		XSETFRAME (event.frame_or_window, selected_frame);
		gettimeofday (&tv, NULL);
		event.timestamp = tv.tv_usec;
		kbd_buffer_store_event (&event);
	      }
	  }
    }

{
  char *saveargv1, *saveargv2, **envv;
  char oldwd[MAXPATHLEN + 1]; /* Fixed size is safe on MSDOS.  */
  int msshell, result = -1;
  int in, out, inbak, outbak, errbak;
  Lisp_Object cmd;

  /* Get current directory as MSDOS cwd is not per-process.  */
  getwd (oldwd);

  inbak = dup (0);
  outbak = dup (1);
  errbak = dup (2);
  if (inbak < 0 || outbak < 0 || errbak < 0)
    goto done; /* Allocation might fail due to lack of descriptors.  */
  dup2 (tempin, 0);
  dup2 (tempout, 1);
  dup2 (tempout, 2);
  dos_ttcooked ();
  result = spawnve (P_WAIT, argv[0], argv, envv);
  dos_ttraw ();
  dup2 (inbak, 0);
  dup2 (outbak, 1);
  dup2 (errbak, 2);

 done:
  chdir (oldwd);
  if (msshell)
    {
      argv[1] = saveargv1;

int
sys_chdir (path)
     const char* path;
{
  int len = strlen (path);
  char *tmp = (char *) alloca (len + 1);
  /* Gotta do this extern here due to the corresponding #define: */
  extern int chdir ();

  if (*path && path[1] == ':' && (getdisk () != tolower (path[0]) - 'a'))
    setdisk (tolower (path[0]) - 'a');

  strcpy (tmp, path);
  if (strcmp (path, "/") && strcmp (path + 1, ":/") && (path[len - 1] == '/'))
    tmp[len - 1] = 0;
  return chdir (tmp);
}

/* Sleep SECS.  If KBDOK also return immediately if a key is pressed.  */
void
sleep_or_kbd_hit (secs, kbdok)
     int secs, kbdok;
{
  long clnow, clthen;
  struct timeval t;

  gettimeofday (&t, NULL);
  clnow = t.tv_sec * 100 + t.tv_usec / 10000;
  clthen = clnow + (100 * secs);

  do
    {
      gettimeofday (&t, NULL);
      clnow = t.tv_sec * 100 + t.tv_usec / 10000;
      if (kbdok && detect_input_pending ())
	return;
    }
  while (clnow < clthen);
}

/* The Emacs root directory as determined by init_environment.  */
static char emacsroot[MAXPATHLEN];

char *

     int x, y, c;
     unsigned char *s;
     unsigned char a;
{
  char *t = (char *)ScreenPrimary + 2 * (x + ScreenCols () * y);
  asm volatile
    ("  movl   %1,%%eax
        call   dosmemsetup
        movl   %%eax,%%edi
        movb   %0,%%ah

        movw   %%ax,%%gs:(%%edi)
        addl   $2,%%edi
        incl   %%esi
        decl   %%ecx
        jne    output_string1"
     : /* no output */
     : "m" (a), "g" (t), "g" (c), "g" (s)
     : "%eax", "%ecx", /* "%gs",*/ "%esi", "%edi");
}

static int internal_terminal = 0;
static int highlight;

#undef fflush

int
internal_flush (f)
     FILE *f;
{
  static char spaces[] = "                                                                                ";
  static int x;
  static int y;
  unsigned char *cp, *cp0;
  int count, i, j;

  if (internal_terminal && f == stdout)
    {
      if (have_mouse) mouse_off ();
      cp = stdout->_base;
      count = stdout->_ptr - stdout->_base;
      while (count > 0)
	{
	  switch (*cp++)
	    {
	    case 27:
	      switch (*cp++)
		{
		case '@':
		  y = *cp++;
		  x = *cp++;
		  count -= 4;
		  break;
		case 'A':
		  ScreenAttrib = *cp++;
		  count -= 3;
		  break;
		case 'B':
		  do_visible_bell (*cp++);
		  count -= 3;
		  break;
		case 'C':
		  ScreenClear ();
		  x = y = 0;
		  count -= 2;
		  break;
		case 'E':
		  i = ScreenCols () - x;
		  j = x;
		  while (i >= sizeof spaces)
		    {
		      output_string (j, y, spaces, sizeof spaces,
				     ScreenAttrib);
		      j += sizeof spaces;
		      i -= sizeof spaces;
		    }
		  if (i > 0)
		    output_string (j, y, spaces, i, ScreenAttrib);
		  count -= 2;
		  break;
		case 'R':
		  x++;
		  count -= 2;
		  break;
		case 'U':
		  y--;
		  count -= 2;
		  break;
		case 'X':
		  ScreenAttrib ^= *cp++;
		  count -= 3;
		  break;
		default:
		  count -= 2;
		}
	      break;
	    case 7:
	      write (1, "\007", 1);
	      count--;
	      break;
	    case 8:
	      x--;
	      count--;
	      break;
	    case 13:
	      x = 0;
	      count--;
	      break;
	    case 10:
	      y++;
	      count--;
	      break;
	    default:
	      cp0 = cp - 1;
	      count--;
	      while (count > 0 && *cp >= ' ')
		cp++, count--;
	      output_string (x, y, cp0, cp - cp0, ScreenAttrib);
	      x += (cp - cp0);
	    }
	}
      fpurge (stdout);
      ScreenSetCursor (y, x);
      if (have_mouse) mouse_on ();
    }
  else
    /* This is a call to the original fflush.  */
    fflush (f);
}

#ifndef HAVE_X_WINDOWS
static void
rien_du_tout ()

{
  if (visible_bell)
    {
      /* This creates an xor-mask that will swap the default fore- and
	 background colors.  */
      if (have_mouse) mouse_off ();
      do_visible_bell (((the_only_x_display.foreground_pixel
			 ^ the_only_x_display.background_pixel)
			* 0x11) & 0x7f);
      if (have_mouse) mouse_on ();
    }
  else
    /* Write it directly to ms-dos -- don't let it go through our terminal
       emulator.  This way the mouse cursor won't blink.  */
    write (1, "\007", 1);

    fp = FRAME_MODE_LINE_FACE (foo);
  else if (face <= 0 || face >= FRAME_N_COMPUTED_FACES (foo))
    fp = FRAME_DEFAULT_FACE (foo);
  else
    fp = intern_face (selected_frame, FRAME_COMPUTED_FACES (foo)[face]);
  putchar ('\e');
  putchar ('A');
  putchar ((FACE_BACKGROUND (fp) << 4) | FACE_FOREGROUND (fp));
}

static
IT_write_glyphs (GLYPH *str, int len)
{
  int face = -1;
  int newface;

  while (len > 0)
    {
      newface = FAST_GLYPH_FACE (*str);
      if (newface != face)
	IT_set_face ((face = newface));
      putchar (FAST_GLYPH_CHAR (*str));
      str++, len--;
    }
}

static
IT_clear_end_of_line (first_unused)
{
  putchar ('\e');
  putchar ('E');
}

static
IT_cursor_to (int y, int x)
{
  putchar ('\e');
  putchar ('@');
  putchar (y);
  putchar (x);
}

/* Do we need the internal terminal? */
void
internal_terminal_init ()
{
  char *term = getenv ("TERM");

#ifdef HAVE_X_WINDOWS
  if (!inhibit_window_system)
    return;
#endif

      Vwindow_system_version = make_number (1);
 
      bzero (&the_only_x_display, sizeof the_only_x_display);
      the_only_x_display.background_pixel = 7; /* White */
      the_only_x_display.foreground_pixel = 0; /* Black */
      the_only_x_display.line_height = 1;
      the_only_frame.display.x = &the_only_x_display;
      the_only_frame.output_method = output_msdos_raw;

      init_frame_faces ((FRAME_PTR) &the_only_frame);

void
mouse_on ()
{
  union REGS regs;

  regs.x.ax = 0x0001;
  int86 (0x33, &regs, &regs);
}

void
mouse_off ()
{
  union REGS regs;

  regs.x.ax = 0x0002;
  int86 (0x33, &regs, &regs);
}

void
mouse_moveto (x, y)
     int x, y;

  if (b >= mouse_button_count)
    return 0;
  regs.x.ax = 0x0006;
  regs.x.bx = mouse_button_translate[b];
  int86 (0x33, &regs, &regs);
  if (regs.x.bx)
    *xp = regs.x.cx / 8, *yp = regs.x.dx / 8;
  return (regs.x.bx != 0);
}

     enum scroll_bar_part *part;
     unsigned long *time;
{
  int ix, iy;
  union REGS regs;
  struct timeval tv;

  regs.x.ax = 0x0003;
  int86 (0x33, &regs, &regs);
  *f = selected_frame;
  *bar_window = Qnil;
  gettimeofday (&tv, NULL);
  mouse_get_xy (&ix, &iy);
  selected_frame->mouse_moved = 0;
  *x = make_number (ix);
  *y = make_number (iy);
  *time = tv.tv_usec;
}

void
mouse_check_moved ()
{

	  mouse_button_translate[0] = 0;
	  mouse_button_translate[1] = 1;
	}
      mouse_position_hook = &mouse_get_pos;
      mouse_init ();
   }
  return present;
}

#ifndef HAVE_X_WINDOWS
/* See xterm.c for more info.  */

  return menu;
}

/* Allocate some (more) memory for MENU ensuring that there is room for one
   for item.  */
static void
IT_menu_make_room (XMenu *menu)
{
  if (menu->allocated == 0)
    {

	= (int *) xrealloc (menu->panenumber, count * sizeof (int));
    }
}

/* Search the given menu structure for a given pane number.  */
static XMenu *
IT_menu_search_pane (XMenu *menu, int pane)
{
  int i;
  XMenu *try;

  for (i = 0; i < menu->count; i++)
    if (menu->submenu[i])
      if (pane == menu->panenumber[i])
	return menu->submenu[i];
      else
	if ((try = IT_menu_search_pane (menu->submenu[i], pane)))
	  return try;
  return (XMenu *) 0;
}

/* Determine how much screen space a given menu needs.  */
static void
IT_menu_calc_size (XMenu *menu, int *width, int *height)
{
  int i, h2, w2, maxsubwidth, maxheight;

  *width = menu->width + maxsubwidth;
  *height = maxheight;
}

/* Display MENU at (X,Y) using FACES. */
static void
IT_menu_display (XMenu *menu, int y, int x, int *faces)
{
  int i, j, face, width;
  GLYPH *text, *p;

  ScreenSetCursor (row, col);
  xfree (text);
}

/* Create a brand new menu structure.  */
XMenu *
XMenuCreate (Display *foo1, Window foo2, char *foo3)
{
  return IT_menu_create ();
}

/* Create a new pane and place it on the outer-most level.  It is not
   clear that it should be placed out there, but I don't know what else
   to do.  */
int
XMenuAddPane (Display *foo, XMenu *menu, char *txt, int enable)
{
  int len;

  IT_menu_make_room (menu);
  menu->submenu[menu->count] = IT_menu_create ();
  menu->text[menu->count] = txt;
  menu->panenumber[menu->count] = ++menu->panecount;
  menu->count++;
  if ((len = strlen (txt)) > menu->width) menu->width = len;
  return menu->panecount;
}

/* Create a new item in a menu pane.  */
int
XMenuAddSelection (Display *bar, XMenu *menu, int pane,
		   int foo, char *txt, int enable)
{
  int len;

  IT_menu_make_room (menu);
  menu->submenu[menu->count] = (XMenu *) 0;
  menu->text[menu->count] = txt;
  menu->panenumber[menu->count] = enable;
  menu->count++;
  if ((len = strlen (txt)) > menu->width) menu->width = len;
  return XM_SUCCESS;
}

/* Decide where the menu would be placed if requested at (X,Y).  */
void
XMenuLocate (Display *foo0, XMenu *menu, int foo1, int foo2, int x, int y,
	     int *ulx, int *uly, int *width, int *height)
{
  if (menu->count == 1 && menu->submenu[0])

  *ulx = x + 1;
  *uly = y;
  *width += 2;
}

typedef struct
{
  void *screen_behind;
  XMenu *menu;
  int pane;
  int x, y;
} IT_menu_state;


/* Display menu, wait for user's response, and return that response.  */
int
XMenuActivate (Display *foo, XMenu *menu, int *pane, int *selidx,
	       int x0, int y0, unsigned ButtonMask, char **txt)
{
  IT_menu_state *state;
  int statecount;
  int x, y, i, b;
  int screensize;
  int faces[4], selectface;
  int leave, result, onepane;

  /* Just in case we got here without a mouse present...  */
  if (!have_mouse)
    return XM_IA_SELECT;

  state = alloca (menu->panecount * sizeof (IT_menu_state));
  screensize = ScreenRows () * ScreenCols () * 2;
  faces[0]
    = compute_glyph_face (&the_only_frame,
			  face_name_id_number
			  (&the_only_frame,

    xfree (state[statecount].screen_behind);
  return result;
}

/* Dispose of a menu.  */
void
XMenuDestroy (Display *foo, XMenu *menu)
{
  int i;
  if (menu->allocated)

      xfree (menu->panenumber);
    }
  xfree (menu);
}

int x_pixel_width (struct frame *f)
{
  return FRAME_WIDTH(f);
}

int x_pixel_height (struct frame *f)
{
  return FRAME_HEIGHT(f);
}
#endif /* !HAVE_X_WINDOWS */

#endif /* MSDOS */

12995:a3620c5ffad7

int have_mouse;          /* Mouse present?		*/
static int mouse_last_x;
static int mouse_last_y;

#define DO_TERMSCRIPT	/* define if you want open-termscript to work on msdos */

/* Standard putchar may call _flsbuf which doesn't go through
   fflush's overlayed internal_flush routine. */
#undef putchar
#define putchar(x) \
  (--(stdout)->_cnt>=0? \
  ((int)((unsigned char)((*(stdout)->_ptr++=(unsigned)(x))))): \
  (internal_flush (stdout), --(stdout)->_cnt, *(stdout)->_ptr++=(unsigned)(x)))

static void
mouse_get_xy (int *x, int *y);

/*  Turn off Dos' Ctrl-C checking and inhibit interpretation of control chars
    by Dos.  Determine the keyboard type.  */
int
dos_ttraw ()
{
  union REGS inregs, outregs;
  static int only_once = 1;
  
  if (only_once) {
    inregs.h.ah = 0xc0;
    int86 (0x15, &inregs, &outregs);
    extended_kbd = (!outregs.x.cflag) && (outregs.h.ah == 0);
  }
  
  break_stat = getcbrk ();
  setcbrk (0);
  install_ctrl_break_check ();

  if (only_once)
    have_mouse = mouse_init1 ();

  inregs.x.ax = 0x4400;		/* Get IOCTL status. */
  inregs.x.bx = 0x00;		/* 0 = stdin. */
  intdos (&inregs, &outregs);
  stdin_stat = outregs.h.dl;

  only_once = 0;
  
  inregs.x.dx = stdin_stat | 0x0020; /* raw mode */
  inregs.x.ax = 0x4401;		/* Set IOCTL status */
  intdos (&inregs, &outregs);
  return !outregs.x.cflag;
}

/*  Restore status of standard input and Ctrl-C checking.  */

dos_ttcooked ()
{
  union REGS inregs, outregs;

  setcbrk (break_stat);
  mouse_off ();

  inregs.x.ax = 0x4401;	/* Set IOCTL status.	*/
  inregs.x.bx = 0x00;	/* 0 = stdin.		*/
  inregs.x.dx = stdin_stat;
  intdos (&inregs, &outregs);
  return !outregs.x.cflag;
}

/* generate a reliable event timestamp, KFS 1995-07-06 */

static unsigned long
event_timestamp ()
{
  struct time t;
  unsigned long s;
	
  gettime (&t);
  s = t.ti_min;
  s *= 60;
  s += t.ti_sec;
  s *= 1000;
  s += t.ti_hund * 10;
	
  return s;
}

static unsigned short
ibmpc_translate_map[] =
{

/* Get a char from keyboard.  Function keys are put into the event queue.  */
static int
dos_rawgetc ()
{
  struct input_event event;
  union REGS regs;
  int ctrl_p, alt_p, shift_p;
  
  /* Calculate modifier bits */
  regs.h.ah = extended_kbd ? 0x12 : 0x02;
  int86 (0x16, &regs, &regs);
  ctrl_p = ((regs.h.al & 4) != 0);
  shift_p = ((regs.h.al & 3) != 0);

      /* Determine from the scan code if a keypad key was pressed.  */
      if (c >= '0' && c <= '9' && sc > 0xb)
	sc = (c == '0') ? 0xb : (c - '0' + 1), c = 0;
      else if (sc == 0x53 && c != 0xe0)
	{
	  code = 0xffae;	/* Keypad decimal point/comma.  */
	  goto nonascii;
	}
      else if (sc == 0xe0)
	{
	  switch (c)
	    {
	    case 10:		/* Ctrl Enter */
	    case 13:
	      sc = 0x1c;
	      break;
	    case '/':
	      sc = 0x35;

      if (c == 0
	  || c == ' '
	  || alt_p
	  || (ctrl_p && shift_p)
	  || (c == 0xe0 && sc != 0) /* Pseudo-key */
	  || sc == 0x37		/* Grey * */
	  || sc == 0x4a		/* Grey - */
	  || sc == 0x4e		/* Grey + */
	  || sc == 0x0e)	/* Back space *key*, not Ctrl-h */
	{
	  if (sc >= (sizeof (ibmpc_translate_map) / sizeof (short)))
	    code = 0;
	  else
	    code = ibmpc_translate_map[sc];
	  if (code != 0)
	    {
	      if (code >= 0x100)
		{
		nonascii:
		  event.kind = non_ascii_keystroke;
		  event.code = (code & 0xff) + 0xff00;
		}
	      else
		{
		  /* Don't return S- if we don't have to.  `shifted' is
		     supposed to be the shifted versions of the characters
		     in `unshifted'.  Unfortunately, this is only true for
		     US keyboard layout.  If anyone knows how to do this
		     right, please tell us.  */
		  static char *unshifted
		    = "abcdefghijklmnopqrstuvwxyz,./=;[\\]'-`0123456789";
		  static char *shifted
		    = "ABCDEFGHIJKLMNOPQRSTUVWXYZ<>?+:{|}\"_~)!@#$%^&*(";
		  char *pos;

		  if (shift_p && (pos = strchr (unshifted, code)))
		    {
		      c = shifted[pos - unshifted];
		      shift_p = 0;
		    }
		  else
		    if (c == 0) c = code;
		  event.kind = ascii_keystroke;
		  event.code = c;
		}
	      event.modifiers
		= (shift_p ? shift_modifier : 0)
		  + (ctrl_p ? ctrl_modifier : 0)
		    + (alt_p ? meta_modifier : 0);
	      /* EMACS == Enter Meta Alt Control Shift */
	      XSETFRAME (event.frame_or_window, selected_frame);
	      event.timestamp = event_timestamp ();
	      kbd_buffer_store_event (&event);
	    }
	} else
	  return c;
    }

  if (have_mouse > 0)
    {
      int but, press, x, y, ok;

      /* Check for mouse movement *before* buttons.  */
      mouse_check_moved ();

		      + (alt_p ? meta_modifier : 0)
			+ (press ? down_modifier : up_modifier);
		event.x = x;
		event.y = y;
		XSETFRAME (event.frame_or_window, selected_frame);
		event.timestamp = event_timestamp ();
		kbd_buffer_store_event (&event);
	      }
	  }
    }

{
  char *saveargv1, *saveargv2, **envv;
  char oldwd[MAXPATHLEN + 1]; /* Fixed size is safe on MSDOS.  */
  int msshell, result = -1;
  int in, out, inbak, outbak, errbak;
  int x, y;
  Lisp_Object cmd;

  /* Get current directory as MSDOS cwd is not per-process.  */
  getwd (oldwd);

  inbak = dup (0);
  outbak = dup (1);
  errbak = dup (2);
  if (inbak < 0 || outbak < 0 || errbak < 0)
    goto done; /* Allocation might fail due to lack of descriptors.  */

  if (have_mouse > 0)
    {
      mouse_get_xy (&x, &y);
      mouse_off ();
    }
  dos_ttcooked();	/* do it here while 0 = stdin */
  
  dup2 (tempin, 0);
  dup2 (tempout, 1);
  dup2 (tempout, 2);

  result = spawnve (P_WAIT, argv[0], argv, envv);

  dup2 (inbak, 0);
  dup2 (outbak, 1);
  dup2 (errbak, 2);
  close (inbak);
  close (outbak);
  close (errbak);

  dos_ttraw();
  if (have_mouse > 0) {
    mouse_init ();
    mouse_moveto (x, y);
  }
  
 done:
  chdir (oldwd);
  if (msshell)
    {
      argv[1] = saveargv1;

int
sys_chdir (path)
     const char* path;
{
  int len = strlen (path);
  char *tmp = (char *)path;
  /* Gotta do this extern here due to the corresponding #define: */
  extern int chdir ();

  if (*tmp && tmp[1] == ':')
    {
      if (getdisk () != tolower (tmp[0]) - 'a')
	setdisk (tolower (tmp[0]) - 'a');
      tmp += 2;			/* strip drive: KFS 1995-07-06 */
      len -= 2;
    }
  
  if (len > 1 && (tmp[len - 1] == '/'))
    {
      char *tmp1 = (char *) alloca (len + 1);
      strcpy (tmp1, tmp);
      tmp1[len - 1] = 0;
      tmp = tmp1;
    }
  return chdir (tmp);
}

#ifndef HAVE_SELECT
#include "sysselect.h"

/* Only event queue is checked.  */
int
sys_select (nfds, rfds, wfds, efds, timeout)
     int nfds;
     SELECT_TYPE *rfds, *wfds, *efds;
     EMACS_TIME *timeout;
{
  SELECT_TYPE orfds;
  long timeoutval, clnow, cllast;
  struct time t;

  FD_ZERO (&orfds);
  if (rfds)
    {
      orfds = *rfds;
      FD_ZERO (rfds);
    }
  if (wfds)
    FD_ZERO (wfds);
  if (efds)
    FD_ZERO (efds);

  if (nfds != 1 || !FD_ISSET (0, &orfds))
    abort ();
  
  /* If we are looking only for the terminal, with no timeout,
     just read it and wait -- that's more efficient.  */
  if (!timeout)
    {
      while (! detect_input_pending ());
    }
  else
    {
      timeoutval = EMACS_SECS (*timeout) * 100 + EMACS_USECS (*timeout) / 10000;
      gettime (&t);
      cllast = t.ti_sec * 100 + t.ti_hund;

      while (!detect_input_pending ())
	{
	  gettime (&t);
	  clnow = t.ti_sec * 100 + t.ti_hund;
	  if (clnow < cllast) /* time wrap */
	    timeoutval -= clnow + 6000 - cllast;
	  else
	    timeoutval -= clnow - cllast;
	  if (timeoutval <= 0)  /* Stop on timer being cleared */
	    return 0;
	  cllast = clnow;
	}
    }
  
  FD_SET (0, rfds);
  return 1;
}
#endif

/* The Emacs root directory as determined by init_environment.  */
static char emacsroot[MAXPATHLEN];

char *

     int x, y, c;
     unsigned char *s;
     unsigned char a;
{
  char *t = (char *)ScreenPrimary + 2 * (x + ScreenCols () * y);
#ifdef DO_TERMSCRIPT
  if (termscript)
    {
      fprintf (termscript, "<%d@%dx%d>", c, x, y);
      fwrite (s, sizeof (unsigned char), c, termscript);
    }
#endif  
  asm volatile
    ("  movl   %1,%%eax
        call   dosmemsetup
        movl   %%eax,%%edi
        movb   %0,%%ah

        movw   %%ax,%%gs:(%%edi)
        addl   $2,%%edi
        incl   %%esi
        decl   %%ecx
        jne    output_string1"
     :				/* no output */
     : "m" (a), "g" (t), "g" (c), "g" (s)
     : "%eax", "%ecx",		/* "%gs",*/ "%esi", "%edi");
}

static int internal_terminal = 0;
static int highlight;

#undef fflush

static int	/* number of characters used by escape; -1 if incomplete */
flush_escape (resume, cp, count, xp, yp)
     int resume;
     unsigned char *cp;
     int count;
     int *xp;
     int *yp;
{
  static char spaces[] = "                                                                                ";
  static unsigned char esc_cmd[8];
  static int esc_count = 0;
  int esc_needed;
  int i, j, used = 0;
  
  if (!resume)
    {
      esc_cmd[0] = '\e';
      esc_count = 1;
      used++;
    }
  
  while (esc_count < 2)
    {
      if (used == count)
	return -1;
      esc_cmd[esc_count++] = *cp++;
      used++;
    }

  switch (esc_cmd[1])
    {
    case '@':
      esc_needed = 4;
      break;
    case 'A':
    case 'B':
    case 'X':
      esc_needed = 3;
      break;
    default:
      esc_needed = 2;
      break;
    }

  while (esc_count < esc_needed)
    {
      if (used == count)
	return -1;
      esc_cmd[esc_count++] = *cp++;
      used++;
    }
  
  switch (esc_cmd[1])
    {
    case '@':
      *yp = esc_cmd[2];
      *xp = esc_cmd[3];
      break;
    case 'A':
      ScreenAttrib = esc_cmd[2];
      break;
    case 'B':
      do_visible_bell (esc_cmd[2]);
      break;
    case 'C':
      ScreenClear ();
      *xp = *yp = 0;
      break;
    case 'E':
      i = ScreenCols () - *xp;
      j = *xp;
      while (i >= sizeof spaces)
	{
	  output_string (j, *yp, spaces, sizeof spaces, ScreenAttrib);
	  j += sizeof spaces;
	  i -= sizeof spaces;
	}
      if (i > 0)
	output_string (j, *yp, spaces, i, ScreenAttrib);
      break;
    case 'R':
      ++*xp;
      break;
    case 'U':
      --*yp;
      break;
    case 'X':
      ScreenAttrib ^= esc_cmd[2];
      break;
    case '\e':
      output_string (*xp, *yp, &esc_cmd[1], 1, ScreenAttrib);
      ++*xp;
      break;
    }

  esc_count = 0;
  return used;
}

int
internal_flush (f)
     FILE *f;
{
  static int x;
  static int y;
  static int resume_esc = 0;
  unsigned char *cp, *cp0;
  int count, i;

  if (!internal_terminal || f != stdout)
    {
      /* This is a call to the original fflush.  */
      fflush (f);
      return;
    }
  
  mouse_off ();
  cp = stdout->_base;
  count = stdout->_ptr - stdout->_base;

#ifdef DO_TERMSCRIPT
  if (termscript)
    fprintf (termscript, "\n<FLUSH%s %d>\n", resume_esc ? " RESUME" : "", count);
#endif
  
  if (resume_esc)
    {
      i = flush_escape (1, cp, count, &x, &y);
      if (i < 0)
	count = 0;
      else
	{
	  resume_esc = 0;
	  count -= i;
	  cp += i;
	}
    }
  
  while (count > 0)
    {
      switch (*cp++)
	{
	case 27:
	  i = flush_escape (0, cp, count, &x, &y);
	  if (i < 0)
	    {
	      resume_esc = 1;
	      count = 0;
	    }
	  else
	    {
	      count -= i;
	      cp += i - 1;
	    }
	  break;
	case 7:
	  write (1, "\007", 1);
	  count--;
	  break;
	case 8:
	  x--;
	  count--;
	  break;
	case 13:
	  x = 0;
	  count--;
	  break;
	case 10:
	  y++;
	  count--;
	  break;
	default:
	  cp0 = cp - 1;
	  count--;
	  while (count > 0 && *cp >= ' ')
	    cp++, count--;
	  output_string (x, y, cp0, cp - cp0, ScreenAttrib);
	  x += (cp - cp0);
	}
    }
  fpurge (stdout);
  ScreenSetCursor (y, x);
  mouse_on ();
}

#ifndef HAVE_X_WINDOWS
static void
rien_du_tout ()

{
  if (visible_bell)
    {
      /* This creates an xor-mask that will swap the default fore- and
	 background colors.  */
      mouse_off ();
      do_visible_bell (((the_only_x_display.foreground_pixel
			 ^ the_only_x_display.background_pixel)
			* 0x11) & 0x7f);
      mouse_on ();
    }
  else
    /* Write it directly to ms-dos -- don't let it go through our terminal
       emulator.  This way the mouse cursor won't blink.  */
    write (1, "\007", 1);

    fp = FRAME_MODE_LINE_FACE (foo);
  else if (face <= 0 || face >= FRAME_N_COMPUTED_FACES (foo))
    fp = FRAME_DEFAULT_FACE (foo);
  else
    fp = intern_face (selected_frame, FRAME_COMPUTED_FACES (foo)[face]);
#ifdef DO_TERMSCRIPT
  if (termscript)
    fprintf (termscript, "<FACE:%d:%d>", FACE_FOREGROUND (fp), FACE_BACKGROUND (fp));
#endif
  putchar ('\e');
  putchar ('A');
  putchar ((FACE_BACKGROUND (fp) << 4) | FACE_FOREGROUND (fp));
}

static
IT_write_glyphs (GLYPH *str, int len)
{
  int face = -1;
  int newface;
  int ch;
  
  while (len > 0)
    {
      newface = FAST_GLYPH_FACE (*str);
      if (newface != face)
	IT_set_face ((face = newface));
      ch = FAST_GLYPH_CHAR (*str);
#ifdef DO_TERMSCRIPT
      if (termscript)
	fputc (ch, termscript);
#endif      
      if (ch == '\e') putchar (ch);	/* allow esc to be printed */
      putchar (ch);
      str++, len--;
    }
}

static
IT_clear_end_of_line (first_unused)
{
  IT_set_face (0);
#ifdef DO_TERMSCRIPT
  if (termscript)
    fprintf (termscript, "<CLR:EOL>");
#endif
  putchar ('\e');
  putchar ('E');
}

static
IT_cursor_to (int y, int x)
{
#ifdef DO_TERMSCRIPT
  if (termscript)
    fprintf (termscript, "\n<XY=%dx%d>", x, y);
#endif
  putchar ('\e');
  putchar ('@');
  putchar (y);
  putchar (x);
}

/* Do we need the internal terminal? */
void
internal_terminal_init ()
{
  char *term = getenv ("TERM");
  char *colors;
  
#ifdef HAVE_X_WINDOWS
  if (!inhibit_window_system)
    return;
#endif

      Vwindow_system_version = make_number (1);
 
      bzero (&the_only_x_display, sizeof the_only_x_display);
      the_only_x_display.background_pixel = 7; /* White */
      the_only_x_display.foreground_pixel = 0; /* Black */
      colors = getenv ("EMACSCOLORS");
      if (colors && strlen (colors) >=2)
	{
	  the_only_x_display.foreground_pixel = colors[0] & 0x07;
	  the_only_x_display.background_pixel = colors[1] & 0x07;
	}
      the_only_x_display.line_height = 1;
      the_only_frame.display.x = &the_only_x_display;
      the_only_frame.output_method = output_msdos_raw;

      init_frame_faces ((FRAME_PTR) &the_only_frame);

void
mouse_on ()
{
  union REGS regs;

  if (have_mouse > 0)
    {
      regs.x.ax = 0x0001;
      int86 (0x33, &regs, &regs);
    }
}

void
mouse_off ()
{
  union REGS regs;

  if (have_mouse > 0)
    {
      regs.x.ax = 0x0002;
      int86 (0x33, &regs, &regs);
    }
}

void
mouse_moveto (x, y)
     int x, y;

  if (b >= mouse_button_count)
    return 0;
  regs.x.ax = 0x0006;
  regs.x.bx = mouse_button_translate[b];
  int86 (0x33, &regs, &regs);
#if 0
  if (regs.x.ax & (1 << mouse_button_translate[b]))
    regs.x.bx = 0;	/* if mouse is still pressed, ignore release */
#endif
  if (regs.x.bx)
    *xp = regs.x.cx / 8, *yp = regs.x.dx / 8;
  return (regs.x.bx != 0);
}

     enum scroll_bar_part *part;
     unsigned long *time;
{
  int ix, iy;
  union REGS regs;

  regs.x.ax = 0x0003;
  int86 (0x33, &regs, &regs);
  *f = selected_frame;
  *bar_window = Qnil;
  mouse_get_xy (&ix, &iy);
  selected_frame->mouse_moved = 0;
  *x = make_number (ix);
  *y = make_number (iy);
  *time = event_timestamp ();
}

void
mouse_check_moved ()
{

	  mouse_button_translate[0] = 0;
	  mouse_button_translate[1] = 1;
	}
      mouse_position_hook = &mouse_get_pos;
      mouse_init ();
    }
  return present;
}

#ifndef HAVE_X_WINDOWS
/* See xterm.c for more info.  */

  return menu;
}

/* Allocate some (more) memory for MENU ensuring that there is room for one
   for item.  */

static void
IT_menu_make_room (XMenu *menu)
{
  if (menu->allocated == 0)
    {

	= (int *) xrealloc (menu->panenumber, count * sizeof (int));
    }
}

/* Search the given menu structure for a given pane number.  */

static XMenu *
IT_menu_search_pane (XMenu *menu, int pane)
{
  int i;
  XMenu *try;

  for (i = 0; i < menu->count; i++)
    if (menu->submenu[i])
      {
	if (pane == menu->panenumber[i])
	  return menu->submenu[i];
	else if ((try = IT_menu_search_pane (menu->submenu[i], pane)))
	  return try;
      }
  return (XMenu *) 0;
}

/* Determine how much screen space a given menu needs.  */

static void
IT_menu_calc_size (XMenu *menu, int *width, int *height)
{
  int i, h2, w2, maxsubwidth, maxheight;

  *width = menu->width + maxsubwidth;
  *height = maxheight;
}

/* Display MENU at (X,Y) using FACES. */

static void
IT_menu_display (XMenu *menu, int y, int x, int *faces)
{
  int i, j, face, width;
  GLYPH *text, *p;

  ScreenSetCursor (row, col);
  xfree (text);
}

/* Create a brand new menu structure.  */

XMenu *
XMenuCreate (Display *foo1, Window foo2, char *foo3)
{
  return IT_menu_create ();
}

/* Create a new pane and place it on the outer-most level.  It is not
   clear that it should be placed out there, but I don't know what else
   to do.  */

int
XMenuAddPane (Display *foo, XMenu *menu, char *txt, int enable)
{
  int len;

  IT_menu_make_room (menu);
  menu->submenu[menu->count] = IT_menu_create ();
  menu->text[menu->count] = txt;
  menu->panenumber[menu->count] = ++menu->panecount;
  menu->count++;
  if ((len = strlen (txt)) > menu->width)
    menu->width = len;
  return menu->panecount;
}

/* Create a new item in a menu pane.  */

int
XMenuAddSelection (Display *bar, XMenu *menu, int pane,
		   int foo, char *txt, int enable)
{
  int len;

  IT_menu_make_room (menu);
  menu->submenu[menu->count] = (XMenu *) 0;
  menu->text[menu->count] = txt;
  menu->panenumber[menu->count] = enable;
  menu->count++;
  if ((len = strlen (txt)) > menu->width)
    menu->width = len;
  return XM_SUCCESS;
}

/* Decide where the menu would be placed if requested at (X,Y).  */

void
XMenuLocate (Display *foo0, XMenu *menu, int foo1, int foo2, int x, int y,
	     int *ulx, int *uly, int *width, int *height)
{
  if (menu->count == 1 && menu->submenu[0])

  *ulx = x + 1;
  *uly = y;
  *width += 2;
}

struct IT_menu_state
{
  void *screen_behind;
  XMenu *menu;
  int pane;
  int x, y;
};


/* Display menu, wait for user's response, and return that response.  */

int
XMenuActivate (Display *foo, XMenu *menu, int *pane, int *selidx,
	       int x0, int y0, unsigned ButtonMask, char **txt)
{
  struct IT_menu_state *state;
  int statecount;
  int x, y, i, b;
  int screensize;
  int faces[4], selectface;
  int leave, result, onepane;

  /* Just in case we got here without a mouse present...  */
  if (have_mouse <= 0)
    return XM_IA_SELECT;

  state = alloca (menu->panecount * sizeof (struct IT_menu_state));
  screensize = ScreenRows () * ScreenCols () * 2;
  faces[0]
    = compute_glyph_face (&the_only_frame,
			  face_name_id_number
			  (&the_only_frame,

    xfree (state[statecount].screen_behind);
  return result;
}

/* Dispose of a menu.  */

void
XMenuDestroy (Display *foo, XMenu *menu)
{
  int i;
  if (menu->allocated)

      xfree (menu->panenumber);
    }
  xfree (menu);
}

int
x_pixel_width (struct frame *f)
{
  return FRAME_WIDTH (f);
}

int
x_pixel_height (struct frame *f)
{
  return FRAME_HEIGHT (f);
}
#endif /* !HAVE_X_WINDOWS */

#endif /* MSDOS */