comparison src/keyboard.c @ 83047:55d4fe5962fd

Merged in changes from CVS HEAD Patches applied: * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-104 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-105 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-106 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-87

83046:8ba4eb224be7

      *kbp = current_kboard;
      /* Note that this uses F to determine which display to look at.
	 If there is no valid info, it does not store anything
	 so x remains nil.  */
      x = Qnil;
      
      /* XXX Can f or mouse_position_hook be NULL here? */
      if (f && FRAME_DISPLAY (f)->mouse_position_hook) 
        (*FRAME_DISPLAY (f)->mouse_position_hook) (&f, 0, &bar_window,
                                                   &part, &x, &y, &time);

      obj = Qnil;

	}
      else if (part == ON_LEFT_MARGIN || part == ON_RIGHT_MARGIN)
	{
	  Lisp_Object string;
	  int charpos;
	  
	  posn = (part == ON_LEFT_MARGIN) ? Qleft_margin : Qright_margin;
	  rx = wx, ry = wy;
	  string = marginal_area_string (w, part, &rx, &ry, &charpos,
					 &object, &dx, &dy, &width, &height);
	  if (STRINGP (string))

    case WHEEL_EVENT:
      {
	Lisp_Object position;
	Lisp_Object head;
	
	/* Build the position as appropriate for this mouse click.  */
	struct frame *f = XFRAME (event->frame_or_window);

	/* Ignore wheel events that were made on frame that have been
	   deleted.  */

           || readable_filtered_events (do_timers_now, filter_events));

  /* If input is being read as it arrives, and we have none, there is none.  */
  if (*addr > 0 || (interrupt_input && ! interrupts_deferred))
    return;
  
  /* Try to read some input and see how much we get.  */
  gobble_input (0);
  *addr = (!NILP (Vquit_flag)
           || readable_filtered_events (do_timers_now, filter_events));
}

    }
}

#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.

   Except on VMS, all input is read by this function.
   If interrupt_input is nonzero, this function MUST be called
   only when SIGIO is blocked.

   Returns the number of keyboard chars read, or -1 meaning
   this is a bad time to try to read 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)
            kill (getpid (), SIGHUP);

          /* XXX Is calling delete_display safe here?  It calls Fdelete_frame. */
          if (d->delete_display_hook)
            (*d->delete_display_hook) (d);
          else
            delete_display (d);
        }
      else if (nread > 0)
        {
          /* We've got input. */
          break;
        }

      d = next;
    }

  /* Scan the chars for C-g and store them in kbd_buffer.  */
  for (i = 0; i < nread; i++)
    {
      kbd_buffer_store_event (&buf[i]);
      /* Don't look at input that follows a C-g too closely.
	 This reduces lossage due to autorepeat on C-g.  */
      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.

     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
  n_to_read = dos_keysns ();
  if (n_to_read == 0)
    return 0;
  
  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.  */
  if (ioctl (fileno (TTY_INPUT (tty)), FIONREAD, &n_to_read) < 0)
    {

  fcntl (fileno (TTY_INPUT (tty)), F_SETFL, O_NDELAY);
#else
  you lose;
#endif
#endif
  
  /* Now read; for one reason or another, this will not block.
     NREAD is set to the number of chars read.  */
  do
    {
      nread = emacs_read (fileno (TTY_INPUT (tty)), cbuf, n_to_read);

                       )
#else
         0
#endif
         );
  
#ifndef FIONREAD
#if defined (USG) || defined (DGUX) || defined (CYGWIN)
  fcntl (fileno (TTY_INPUT (tty)), F_SETFL, 0);
#endif /* USG or DGUX or CYGWIN */
#endif /* no FIONREAD */
  
  if (nread <= 0)
    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;
}

#endif /* not VMS */

void
handle_async_input ()
{

access_keymap_keyremap (map, key, prompt, do_funcall)
     Lisp_Object map, key, prompt;
     int do_funcall;
{
  Lisp_Object next;
  
  next = access_keymap (map, key, 1, 0, 1);

  /* Handle symbol with autoload definition.  */
  if (SYMBOLP (next) && !NILP (Ffboundp (next))
      && CONSP (XSYMBOL (next)->function)

     or an array.  */
  if (SYMBOLP (next) && !NILP (Ffboundp (next))
      && (!NILP (Farrayp (XSYMBOL (next)->function))
	  || KEYMAPP (XSYMBOL (next)->function)))
    next = XSYMBOL (next)->function;
	    
  /* If the keymap gives a function, not an
     array, then call the function with one arg and use
     its value instead.  */
  if (SYMBOLP (next) && !NILP (Ffboundp (next)) && do_funcall)
    {

	    {
	      mock_input = diff + max (t, mock_input);
	      /* Adjust the function-key-map counters.  */
	      fkey.end += diff;
	      fkey.start += diff;
	      
	      goto replay_sequence;
	    }
	}

      /* If KEY is not defined in any of the keymaps,

  int width, height;
  struct gcpro gcpro1;

  if (tty_list && tty_list->next)
    error ("Suspend is not supported with multiple ttys");
  
  if (!NILP (stuffstring))
    CHECK_STRING (stuffstring);

  /* Run the functions in suspend-hook.  */
  if (!NILP (Vrun_hooks))

      Fkill_emacs (Qnil);
    }
  else
    {
      /* Otherwise, the SIGINT was probably generated by C-g.  */
      
      /* Set internal_last_event_frame to the top frame of the
         controlling tty, if we have a frame there.  We disable the
         interrupt key on secondary ttys, so the SIGINT must have come
         from the controlling tty.  */
      internal_last_event_frame = display->display_info.tty->top_frame;

  errno = old_errno;
}

/* This routine is called at interrupt level in response to C-g.
   
   It is called from the SIGINT handler or kbd_buffer_store_event.

   If `waiting_for_input' is non zero, then unless `echoing' is
   nonzero, immediately throw back to read_char.

   non-nil, it stops the job right away. */

static void
handle_interrupt ()
{
  char c; 
  struct frame *sf = SELECTED_FRAME ();

  cancel_echoing ();

  /* XXX This code needs to be revised for multi-tty support. */

{
  /* XXX This function needs to be revised for multi-device support.
     Currently it compiles fine, but its semantics are wrong.  It sets
     global parameters (e.g. interrupt_input) based on only the
     current frame's device. */
  
  if (!NILP (quit)
      && (!INTEGERP (quit) || XINT (quit) < 0 || XINT (quit) > 0400))
    error ("set-input-mode: QUIT must be an ASCII character");

#ifdef POLL_FOR_INPUT

      else if (EQ (meta, Qt))
        tty->meta_key = 1;
      else
        tty->meta_key = 2;
    }
  
  if (!NILP (quit))
    /* Don't let this value be out of range.  */
    quit_char = XINT (quit) & (NILP (meta) ? 0177 : 0377);

#ifndef DOS_NT

`set-input-mode'.  */)
     ()
{
  Lisp_Object val[4];
  struct frame *sf = XFRAME (selected_frame);
  
  val[0] = interrupt_input ? Qt : Qnil;
  if (FRAME_TERMCAP_P (sf))
    {
      val[1] = FRAME_TTY (sf)->flow_control ? Qt : Qnil;
      val[2] = (FRAME_TTY (sf)->meta_key == 2

  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;

  initial_define_lispy_key (Vspecial_event_map, "make-frame-visible",
			    "ignore-event");
  /* Handling it at such a low-level causes read_key_sequence to get
   * confused because it doesn't realize that the current_buffer was
   * changed by read_char.
   * 
   * initial_define_lispy_key (Vspecial_event_map, "select-window",
   * 			    "handle-select-window"); */
  initial_define_lispy_key (Vspecial_event_map, "save-session",
			    "handle-save-session");
}

83047:55d4fe5962fd

      *kbp = current_kboard;
      /* Note that this uses F to determine which display to look at.
	 If there is no valid info, it does not store anything
	 so x remains nil.  */
      x = Qnil;

      /* XXX Can f or mouse_position_hook be NULL here? */
      if (f && FRAME_DISPLAY (f)->mouse_position_hook)
        (*FRAME_DISPLAY (f)->mouse_position_hook) (&f, 0, &bar_window,
                                                   &part, &x, &y, &time);

      obj = Qnil;

	}
      else if (part == ON_LEFT_MARGIN || part == ON_RIGHT_MARGIN)
	{
	  Lisp_Object string;
	  int charpos;

	  posn = (part == ON_LEFT_MARGIN) ? Qleft_margin : Qright_margin;
	  rx = wx, ry = wy;
	  string = marginal_area_string (w, part, &rx, &ry, &charpos,
					 &object, &dx, &dy, &width, &height);
	  if (STRINGP (string))

    case WHEEL_EVENT:
      {
	Lisp_Object position;
	Lisp_Object head;

	/* Build the position as appropriate for this mouse click.  */
	struct frame *f = XFRAME (event->frame_or_window);

	/* Ignore wheel events that were made on frame that have been
	   deleted.  */

           || readable_filtered_events (do_timers_now, filter_events));

  /* If input is being read as it arrives, and we have none, there is none.  */
  if (*addr > 0 || (interrupt_input && ! interrupts_deferred))
    return;

  /* Try to read some input and see how much we get.  */
  gobble_input (0);
  *addr = (!NILP (Vquit_flag)
           || readable_filtered_events (do_timers_now, filter_events));
}

    }
}

#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.

   Except on VMS, all input is read by this function.
   If interrupt_input is nonzero, this function MUST be called
   only when SIGIO is blocked.

   Returns the number of keyboard chars read, or -1 meaning
   this is a bad time to try to read input.

   Typically, there are just a few available input events to be read
   here, so we really don't need to allocate and initialize a big
   buffer of input_events as we used to do.  Instead, we just allocate
   a small buffer of input events -- and then poll for more input if we
   read a full buffer of input events.  */

#define NREAD_INPUT_EVENTS 8

static int
read_avail_input (expected)
     int expected;
{
  register int i;
  int nread = 0;
  struct display *d;

  /* 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)
        {
          int discard = 0;
          int nr;

          do {
            struct input_event buf[NREAD_INPUT_EVENTS];

            for (i = 0; i < NREAD_INPUT_EVENTS; i++)
              EVENT_INIT (buf[i]);

            /* No need for FIONREAD or fcntl; just say don't wait.  */
            nr = (*d->read_socket_hook) (d, buf, NREAD_INPUT_EVENTS, expected);

            if (nr > 0)
              {
                /* We've got input. */
                nread += nr;
                expected = 0;

                /* Scan the chars for C-g and store them in kbd_buffer.  */
                for (i = 0; !discard && i < nr; i++)
                  {
                    kbd_buffer_store_event (&buf[i]);
                    /* Don't look at input that follows a C-g too closely.
                       This reduces lossage due to autorepeat on C-g.  */
                    if (buf[i].kind == ASCII_KEYSTROKE_EVENT
                        && buf[i].code == quit_char)
                      discard = 1;
                  }
              }
            else if (nr == -2)          /* Non-transient error. */
              {
                /* The display device terminated; it should be closed. */

                /* Kill Emacs if this was our last display. */
                if (! display_list->next_display)
                  /* Formerly simply reported no input, but that
                     sometimes led to a failure of Emacs to terminate.
                     SIGHUP seems appropriate if we can't reach the
                     terminal.  */
                  /* ??? Is it really right to send the signal just to
                     this process rather than to the whole process
                     group?  Perhaps on systems with FIONREAD Emacs is
                     alone in its group.  */
                  kill (getpid (), SIGHUP);

                /* XXX Is calling delete_display safe here?  It calls Fdelete_frame. */
                if (d->delete_display_hook)
                  (*d->delete_display_hook) (d);
                else
                  delete_display (d);
              }
          } while (nr == NREAD_INPUT_EVENTS);
        }

      d = next;
    }

  return nread;
}

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

     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
  n_to_read = dos_keysns ();
  if (n_to_read == 0)
    return 0;

  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.  */
  if (ioctl (fileno (TTY_INPUT (tty)), FIONREAD, &n_to_read) < 0)
    {

  fcntl (fileno (TTY_INPUT (tty)), F_SETFL, O_NDELAY);
#else
  you lose;
#endif
#endif

  /* Now read; for one reason or another, this will not block.
     NREAD is set to the number of chars read.  */
  do
    {
      nread = emacs_read (fileno (TTY_INPUT (tty)), cbuf, n_to_read);

                       )
#else
         0
#endif
         );

#ifndef FIONREAD
#if defined (USG) || defined (DGUX) || defined (CYGWIN)
  fcntl (fileno (TTY_INPUT (tty)), F_SETFL, 0);
#endif /* USG or DGUX or CYGWIN */
#endif /* no FIONREAD */

  if (nread <= 0)
    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;
}
#endif /* not VMS */

void
handle_async_input ()
{

access_keymap_keyremap (map, key, prompt, do_funcall)
     Lisp_Object map, key, prompt;
     int do_funcall;
{
  Lisp_Object next;

  next = access_keymap (map, key, 1, 0, 1);

  /* Handle symbol with autoload definition.  */
  if (SYMBOLP (next) && !NILP (Ffboundp (next))
      && CONSP (XSYMBOL (next)->function)

     or an array.  */
  if (SYMBOLP (next) && !NILP (Ffboundp (next))
      && (!NILP (Farrayp (XSYMBOL (next)->function))
	  || KEYMAPP (XSYMBOL (next)->function)))
    next = XSYMBOL (next)->function;

  /* If the keymap gives a function, not an
     array, then call the function with one arg and use
     its value instead.  */
  if (SYMBOLP (next) && !NILP (Ffboundp (next)) && do_funcall)
    {

	    {
	      mock_input = diff + max (t, mock_input);
	      /* Adjust the function-key-map counters.  */
	      fkey.end += diff;
	      fkey.start += diff;

	      goto replay_sequence;
	    }
	}

      /* If KEY is not defined in any of the keymaps,

  int width, height;
  struct gcpro gcpro1;

  if (tty_list && tty_list->next)
    error ("Suspend is not supported with multiple ttys");

  if (!NILP (stuffstring))
    CHECK_STRING (stuffstring);

  /* Run the functions in suspend-hook.  */
  if (!NILP (Vrun_hooks))

      Fkill_emacs (Qnil);
    }
  else
    {
      /* Otherwise, the SIGINT was probably generated by C-g.  */

      /* Set internal_last_event_frame to the top frame of the
         controlling tty, if we have a frame there.  We disable the
         interrupt key on secondary ttys, so the SIGINT must have come
         from the controlling tty.  */
      internal_last_event_frame = display->display_info.tty->top_frame;

  errno = old_errno;
}

/* This routine is called at interrupt level in response to C-g.

   It is called from the SIGINT handler or kbd_buffer_store_event.

   If `waiting_for_input' is non zero, then unless `echoing' is
   nonzero, immediately throw back to read_char.

   non-nil, it stops the job right away. */

static void
handle_interrupt ()
{
  char c;
  struct frame *sf = SELECTED_FRAME ();

  cancel_echoing ();

  /* XXX This code needs to be revised for multi-tty support. */

{
  /* XXX This function needs to be revised for multi-device support.
     Currently it compiles fine, but its semantics are wrong.  It sets
     global parameters (e.g. interrupt_input) based on only the
     current frame's device. */

  if (!NILP (quit)
      && (!INTEGERP (quit) || XINT (quit) < 0 || XINT (quit) > 0400))
    error ("set-input-mode: QUIT must be an ASCII character");

#ifdef POLL_FOR_INPUT

      else if (EQ (meta, Qt))
        tty->meta_key = 1;
      else
        tty->meta_key = 2;
    }

  if (!NILP (quit))
    /* Don't let this value be out of range.  */
    quit_char = XINT (quit) & (NILP (meta) ? 0177 : 0377);

#ifndef DOS_NT

`set-input-mode'.  */)
     ()
{
  Lisp_Object val[4];
  struct frame *sf = XFRAME (selected_frame);

  val[0] = interrupt_input ? Qt : Qnil;
  if (FRAME_TERMCAP_P (sf))
    {
      val[1] = FRAME_TTY (sf)->flow_control ? Qt : Qnil;
      val[2] = (FRAME_TTY (sf)->meta_key == 2

  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;

  initial_define_lispy_key (Vspecial_event_map, "make-frame-visible",
			    "ignore-event");
  /* Handling it at such a low-level causes read_key_sequence to get
   * confused because it doesn't realize that the current_buffer was
   * changed by read_char.
   *
   * initial_define_lispy_key (Vspecial_event_map, "select-window",
   * 			    "handle-select-window"); */
  initial_define_lispy_key (Vspecial_event_map, "save-session",
			    "handle-save-session");
}