comparison src/keyboard.c @ 83038:30ccd595ccb0

Merged in changes from CVS HEAD Patches applied: * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-98 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-99 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-100 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-101 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-102 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-78

83037:03a73693678e

    }
}

#ifndef VMS

/* Read any terminal input already buffered up by the system
   into the kbd_buffer, but do not wait.

   EXPECTED should be nonzero if the caller knows there is some input.

static int
read_avail_input (expected)
     int expected;
{
  struct input_event buf[KBD_BUFFER_SIZE];
  register int i;
  struct display *d;
  int nread = 0;
  
  for (i = 0; i < KBD_BUFFER_SIZE; i++)
    EVENT_INIT (buf[i]);

  d = display_list;
  while (d)
    {
      struct display *next = d->next_display;
      
      if (d->read_socket_hook)
        /* No need for FIONREAD or fcntl; just say don't wait.  */
        nread = (*d->read_socket_hook) (d, buf, KBD_BUFFER_SIZE, expected);

      if (nread == -2)
        {
          /* The display device terminated; it should be closed. */

          /* Kill Emacs if this was our last display. */
          if (! display_list->next_display)

      if (buf[i].kind == ASCII_KEYSTROKE_EVENT
	  && buf[i].code == quit_char)
	break;
    }

  return nread;
}

/* This is the tty way of reading available input.

     the kbd_buffer can really hold.  That may prevent loss
     of characters on some systems when input is stuffed at us.  */
  unsigned char cbuf[KBD_BUFFER_SIZE - 1];
  int n_to_read, i;
  struct tty_display_info *tty = display->display_info.tty;
  Lisp_Object frame;
  int nread = 0;
  
  if (display->type != output_termcap)
    abort ();
  
  /* XXX I think the following code should be moved to separate
     functions in system-dependent files. */
#ifdef WINDOWSNT
  return 0;
#else /* not WINDOWSNT */
#ifdef MSDOS

  cbuf[0] = dos_keyread ();
  nread = 1;
  
#else /* not MSDOS */

  if (! tty->term_initted)
    return 0;
        
  /* Determine how many characters we should *try* to read.  */
#ifdef FIONREAD
  /* Find out how much input is available.  */

      nread = emacs_read (fileno (TTY_INPUT (tty)), cbuf, n_to_read);
      /* POSIX infers that processes which are not in the session leader's
         process group won't get SIGHUP's at logout time.  BSDI adheres to
         this part standard and returns -1 from read (0) with errno==EIO
         when the control tty is taken away.
         Jeffrey Honig <[e-mail]> says this is generally safe.  */
      if (nread == -1 && errno == EIO)
        {
          return -2;          /* Close this display. */
        }
#if defined (AIX) && (! defined (aix386) && defined (_BSD))
      /* The kernel sometimes fails to deliver SIGHUP for ptys.
         This looks incorrect, but it isn't, because _BSD causes
         O_NDELAY to be defined in fcntl.h as O_NONBLOCK,
         and that causes a value other than 0 when there is no input.  */
      if (nread == 0)
        {
          return -2;          /* Close this display. */
        }
#endif
    }
  while (
         /* We used to retry the read if it was interrupted.
            But this does the wrong thing when O_NDELAY causes

    return nread;
  
#endif /* not MSDOS */
#endif /* not WINDOWSNT */
  
  /* Select the frame corresponding to the active tty.  Note that the
     value of selected_frame is not reliable here, redisplay tends to
     temporarily change it. */
  frame = tty->top_frame;
  
  for (i = 0; i < nread; i++)
    {
      buf[i].kind = ASCII_KEYSTROKE_EVENT;
      buf[i].modifiers = 0;
      if (tty->meta_key == 1 && (cbuf[i] & 0x80))
        buf[i].modifiers = meta_modifier;
      if (tty->meta_key != 2)
        cbuf[i] &= ~0x80;
      
      buf[i].code = cbuf[i];
      buf[i].frame_or_window = frame;
      buf[i].arg = Qnil;
    }

  return nread;
}

  kbd_store_ptr = kbd_buffer;
#ifdef HAVE_MOUSE
  do_mouse_tracking = Qnil;
#endif
  input_pending = 0;

  /* This means that command_loop_1 won't try to select anything the first
     time through.  */
  internal_last_event_frame = Qnil;
  Vlast_event_frame = internal_last_event_frame;

83038:30ccd595ccb0

    }
}

#ifndef VMS

/* We make the read_avail_input buffer static to avoid zeroing out the
   whole struct input_event buf on every call.  */
static struct input_event read_avail_input_buf[KBD_BUFFER_SIZE];

/* I don't know whether it is necessary, but make read_avail_input 
   re-entrant.  */
static int in_read_avail_input = 0;

/* Read any terminal input already buffered up by the system
   into the kbd_buffer, but do not wait.

   EXPECTED should be nonzero if the caller knows there is some input.

static int
read_avail_input (expected)
     int expected;
{
  struct input_event *buf = read_avail_input_buf;
  struct input_event tmp_buf[KBD_BUFFER_SIZE];
  register int i;
  int nread = 0;
  struct display *d;
  
  /* Trivial hack to make read_avail_input re-entrant.  */
  if (in_read_avail_input++)
    {
      buf = tmp_buf;
      for (i = 0; i < KBD_BUFFER_SIZE; i++)
	EVENT_INIT (buf[i]);
    }

  /* Loop through the available displays, and call their input hooks. */
  d = display_list;
  while (d)
    {
      struct display *next = d->next_display;
      
      if (d->read_socket_hook)
        /* No need for FIONREAD or fcntl; just say don't wait.  */
        nread = (*d->read_socket_hook) (d, buf, KBD_BUFFER_SIZE, expected);

      if (nread == -2)          /* -2 means non-transient error */
        {
          /* The display device terminated; it should be closed. */

          /* Kill Emacs if this was our last display. */
          if (! display_list->next_display)

      if (buf[i].kind == ASCII_KEYSTROKE_EVENT
	  && buf[i].code == quit_char)
	break;
    }

  /* Clear used events */
  if (--in_read_avail_input == 0)
    for (i = 0; i < nread; i++)
      EVENT_INIT (buf[i]);

  return nread;
}

/* This is the tty way of reading available input.

     the kbd_buffer can really hold.  That may prevent loss
     of characters on some systems when input is stuffed at us.  */
  unsigned char cbuf[KBD_BUFFER_SIZE - 1];
  int n_to_read, i;
  struct tty_display_info *tty = display->display_info.tty;
  int nread = 0;
  
  if (display->type != output_termcap)
    abort ();
  
  /* XXX I think the following code should be moved to separate hook
     functions in system-dependent files. */
#ifdef WINDOWSNT
  return 0;
#else /* not WINDOWSNT */
#ifdef MSDOS

  cbuf[0] = dos_keyread ();
  nread = 1;
  
#else /* not MSDOS */

  if (! tty->term_initted)      /* In case we get called during bootstrap. */
    return 0;
        
  /* Determine how many characters we should *try* to read.  */
#ifdef FIONREAD
  /* Find out how much input is available.  */

      nread = emacs_read (fileno (TTY_INPUT (tty)), cbuf, n_to_read);
      /* POSIX infers that processes which are not in the session leader's
         process group won't get SIGHUP's at logout time.  BSDI adheres to
         this part standard and returns -1 from read (0) with errno==EIO
         when the control tty is taken away.
         Jeffrey Honig <[e-mail]> says this is generally safe. */
      if (nread == -1 && errno == EIO)
        return -2;          /* Close this display. */
#if defined (AIX) && (! defined (aix386) && defined (_BSD))
      /* The kernel sometimes fails to deliver SIGHUP for ptys.
         This looks incorrect, but it isn't, because _BSD causes
         O_NDELAY to be defined in fcntl.h as O_NONBLOCK,
         and that causes a value other than 0 when there is no input.  */
      if (nread == 0)
        return -2;          /* Close this display. */
#endif
    }
  while (
         /* We used to retry the read if it was interrupted.
            But this does the wrong thing when O_NDELAY causes

    return nread;
  
#endif /* not MSDOS */
#endif /* not WINDOWSNT */
  
  for (i = 0; i < nread; i++)
    {
      buf[i].kind = ASCII_KEYSTROKE_EVENT;
      buf[i].modifiers = 0;
      if (tty->meta_key == 1 && (cbuf[i] & 0x80))
        buf[i].modifiers = meta_modifier;
      if (tty->meta_key != 2)
        cbuf[i] &= ~0x80;
      
      buf[i].code = cbuf[i];
      /* Set the frame corresponding to the active tty.  Note that the
         value of selected_frame is not reliable here, redisplay tends
         to temporarily change it. */
      buf[i].frame_or_window = tty->top_frame;
      buf[i].arg = Qnil;
    }

  return nread;
}

  kbd_store_ptr = kbd_buffer;
#ifdef HAVE_MOUSE
  do_mouse_tracking = Qnil;
#endif
  input_pending = 0;
#ifndef VMS
  {
    int i;
    for (i = 0; i < KBD_BUFFER_SIZE; i++)
      EVENT_INIT (read_avail_input_buf[i]);
  }
#endif

  /* This means that command_loop_1 won't try to select anything the first
     time through.  */
  internal_last_event_frame = Qnil;
  Vlast_event_frame = internal_last_event_frame;