comparison src/sysdep.c @ 82995:039bd6989d29

Portability fixes (now it compiles & runs fine on Solaris). lib-src/emacsclient.c: Removed tty proxy kludge. Emacs should just use the same terminal as emacsclient. (ec_get_tty, ec_set_tty, master, pty_name, old_tty, tty, old_tty_valid) (tty_erase_char, quit_char, flow_control, meta_key, _sobuf, init_tty) (window_change, reset_tty, init_pty, copy_from_to) (pty_conversation): Removed. (window_change_signal): Just forward the signal to Emacs, don't do anything else. (init_signals): Don't set handlers for SIGHUP & SIGINT. (strprefix): New function. (main): Don't touch the terminal, simply tell its name to Emacs. lisp/server.el (server-frames): Changed name and semantics to server-ttys. (server-tty-live-p): New function. (server-sentinel): Delete the whole tty, not just the frame. (server-handle-delete-frame): Removed. (server-handle-delete-tty): New function. Close the client connection if the tty is deleted. (server-start): Clean up server-ttys, not server-frames. Set up delete-tty-after-functions. (server-process-filter): Set up server-ttys, not server-frames. Updated protocol for sending our pid to emacsclient. (server-buffer-done): Don't delete the client process directly, delete the tty instead, and rely on the delete-tty hook to close the connection. Otherwise the terminal could be left in a bad state. src/cm.c (cmputc): Don't abort on write errors. src/indent.c: #include <stdio.h>, for termchar.h. src/window.c: Ditto. src/xfaces.c: Ditto. src/sysdep.c (init_sigio, reset_sigio, request_sigio)[!SIGIO] (unrequest_sigio)[!SIGIO]: If SIGIO is not supported, don't do anything. (For Solaris.) (init_sys_modes): Moved tty_set_terminal_modes call back to here, disable window system check. (reset_sys_modes): Reset the terminal even if X is running. src/term.c (Vdelete_tty_after_functions): New variable. (syms_of_term): Initialize it. (Fdelete_tty): Updated docs. (delete_tty): Run delete-tty-after-functions. (term_init): Removed tty_set_terminal_modes call. git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-35

82994:44ffe551079c

      signal (saved_handlers->code, saved_handlers->handler);
      saved_handlers++;
    }
}

#ifdef F_SETFL

int old_fcntl_flags[MAXDESC];

void

void
reset_sigio (fd)
     int fd;
{
  fcntl (fd, F_SETFL, old_fcntl_flags[fd]);
}

#ifdef FASYNC		/* F_SETFL does not imply existence of FASYNC */

void
request_sigio ()
{
  if (read_socket_hook)

#endif /* MSDOS */
#endif /* _CX_UX */
#endif /* STRIDE */
#endif /* FASYNC */
#endif /* F_SETFL */

/* Saving and restoring the process group of Emacs's terminal.  */

#ifdef BSD_PGRPS

#endif

#ifdef HAVE_WINDOW_SYSTEM
  /* Emacs' window system on MSDOG uses the `internal terminal' and therefore
     needs the initialization code below.  */
  if (tty_out->input != stdin || (!read_socket_hook && EQ (Vwindow_system, Qnil)))
#endif
    {
      if (! tty_out->old_tty)
        tty_out->old_tty = (struct emacs_tty *) xmalloc (sizeof (struct emacs_tty));

     even with a call to setbuf. */
  setvbuf (TTY_OUTPUT (tty_out), (char *) _sobuf, _IOFBF, sizeof _sobuf);
#else
  setbuf (TTY_OUTPUT (tty_out), (char *) _sobuf);
#endif
#ifdef HAVE_WINDOW_SYSTEM
  /* Emacs' window system on MSDOG uses the `internal terminal' and therefore
     needs the initialization code below.  */
  if (EQ (Vwindow_system, Qnil)
#ifndef WINDOWSNT

	 hook, but still need the rest of the initialization code below.  */
      && (! read_socket_hook)
#endif
      )
#endif

  if (!tty_out->term_initted)
    {
      Lisp_Object tail, frame;
      FOR_EACH_FRAME (tail, frame)

  *heightp = ScreenRows ();
#else /* system doesn't know size */
  *widthp = 0;
  *heightp = 0;
#endif

#endif /* not VMS */
#endif /* not SunOS-style */
#endif /* not BSD-style */
}

      fflush (stdout);
      return;
    }
  if (!tty_out->term_initted)
    return;
#ifdef HAVE_WINDOW_SYSTEM
  /* Emacs' window system on MSDOG uses the `internal terminal' and therefore
     needs the clean-up code below.  */
  if (tty_out->input != stdin
      || (!EQ (Vwindow_system, Qnil)

      || read_socket_hook
#endif
          ))
    return;
#endif

  cmgoto (tty_out, FrameRows (tty_out) - 1, 0);
  tty_clear_end_of_line (tty_out, FrameCols (tty_out));
  cmgoto (tty_out, FrameRows (tty_out) - 1, 0);
  fflush (tty_out->output);
  

82995:039bd6989d29

      signal (saved_handlers->code, saved_handlers->handler);
      saved_handlers++;
    }
}

#ifndef SIGIO
/* If SIGIO is broken, don't do anything. */
void
init_sigio (int fd)
{
}

void
reset_sigio (int fd)
{
}

void
request_sigio (void)
{
}

void
unrequest_sigio (void)
{
}

#else
#ifdef F_SETFL

int old_fcntl_flags[MAXDESC];

void

void
reset_sigio (fd)
     int fd;
{
#ifdef FASYNC
  fcntl (fd, F_SETFL, old_fcntl_flags[fd]);
#endif
}

#ifdef FASYNC		/* F_SETFL does not imply existence of FASYNC */
/* XXX Uhm, this FASYNC is not used anymore here. */

void
request_sigio ()
{
  if (read_socket_hook)

#endif /* MSDOS */
#endif /* _CX_UX */
#endif /* STRIDE */
#endif /* FASYNC */
#endif /* F_SETFL */
#endif /* SIGIO */

/* Saving and restoring the process group of Emacs's terminal.  */

#ifdef BSD_PGRPS

#endif

#ifdef HAVE_WINDOW_SYSTEM
  /* Emacs' window system on MSDOG uses the `internal terminal' and therefore
     needs the initialization code below.  */
  /* XXX This need to be revised for X+tty session support. */
  if (tty_out->input != stdin || (!read_socket_hook && EQ (Vwindow_system, Qnil)))
#endif
    {
      if (! tty_out->old_tty)
        tty_out->old_tty = (struct emacs_tty *) xmalloc (sizeof (struct emacs_tty));

     even with a call to setbuf. */
  setvbuf (TTY_OUTPUT (tty_out), (char *) _sobuf, _IOFBF, sizeof _sobuf);
#else
  setbuf (TTY_OUTPUT (tty_out), (char *) _sobuf);
#endif

#if 0                /* We always need this with multi-tty support. */
#ifdef HAVE_WINDOW_SYSTEM
  /* Emacs' window system on MSDOG uses the `internal terminal' and therefore
     needs the initialization code below.  */
  if (EQ (Vwindow_system, Qnil)
#ifndef WINDOWSNT

	 hook, but still need the rest of the initialization code below.  */
      && (! read_socket_hook)
#endif
      )
#endif
#endif
    tty_set_terminal_modes (tty_out);

  if (!tty_out->term_initted)
    {
      Lisp_Object tail, frame;
      FOR_EACH_FRAME (tail, frame)

  *heightp = ScreenRows ();
#else /* system doesn't know size */
  *widthp = 0;
  *heightp = 0;
#endif
#endif /* not VMS */
#endif /* not SunOS-style */
#endif /* not BSD-style */
}

      fflush (stdout);
      return;
    }
  if (!tty_out->term_initted)
    return;
#if 0                           /* We always need to do this with multi-tty support. */
#ifdef HAVE_WINDOW_SYSTEM
  /* Emacs' window system on MSDOG uses the `internal terminal' and therefore
     needs the clean-up code below.  */
  if (tty_out->input != stdin
      || (!EQ (Vwindow_system, Qnil)

      || read_socket_hook
#endif
          ))
    return;
#endif
#endif
  
  cmgoto (tty_out, FrameRows (tty_out) - 1, 0);
  tty_clear_end_of_line (tty_out, FrameCols (tty_out));
  cmgoto (tty_out, FrameRows (tty_out) - 1, 0);
  fflush (tty_out->output);