Initial revision
This commit is contained in:
Jim Blandy
parent
956ace37a8
commit
d0d6b7c506
2 changed files with 3154 additions and 0 deletions
2887
src/process.c
Normal file
2887
src/process.c
Normal file
File diff suppressed because it is too large
Load diff
267
src/systty.h
Normal file
267
src/systty.h
Normal file
|
|
@ -0,0 +1,267 @@
|
|||
/* systerm.h - System-dependent definitions for terminals.
|
||||
Copyright (C) 1992 Free Software Foundation, Inc.
|
||||
|
||||
This file is part of GNU Emacs.
|
||||
|
||||
GNU Emacs is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 1, or (at your option)
|
||||
any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with GNU Emacs; see the file COPYING. If not, write to
|
||||
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||||
|
||||
|
||||
/* Include the proper files. */
|
||||
#ifdef HAVE_TERMIO
|
||||
#include <termio.h>
|
||||
#include <fcntl.h>
|
||||
#else
|
||||
#ifdef HAVE_TERMIOS
|
||||
#include <termio.h>
|
||||
#include <termios.h>
|
||||
#else /* neither HAVE_TERMIO nor HAVE_TERMIOS */
|
||||
#ifndef VMS
|
||||
#include <sgtty.h>
|
||||
#endif /* not VMS */
|
||||
#endif /* not HAVE_TERMIOS */
|
||||
#endif /* not HAVE_TERMIO */
|
||||
|
||||
|
||||
/* Special cases - inhibiting the use of certain features. */
|
||||
|
||||
#ifdef APOLLO
|
||||
#undef TIOCSTART
|
||||
#endif
|
||||
|
||||
#ifdef BROKEN_TIOCGETC
|
||||
#undef TIOCGETC /* Avoid confusing some conditionals that test this. */
|
||||
#endif
|
||||
|
||||
/* UNIPLUS systems may have FIONREAD. */
|
||||
#ifdef UNIPLUS
|
||||
#include <sys.ioctl.h>
|
||||
#endif
|
||||
|
||||
/* Allow m- file to inhibit use of FIONREAD. */
|
||||
#ifdef BROKEN_FIONREAD
|
||||
#undef FIONREAD
|
||||
#undef ASYNC
|
||||
#endif
|
||||
|
||||
/* Interupt input is not used if there is no FIONREAD. */
|
||||
#ifndef FIONREAD
|
||||
#undef SIGIO
|
||||
#endif
|
||||
|
||||
|
||||
/* Get the number of characters queued for output. */
|
||||
|
||||
/* EMACS_OUTQSIZE(FD, int *SIZE) stores the number of characters
|
||||
queued for output to the terminal FD in *SIZE, if FD is a tty.
|
||||
Returns -1 if there was an error (i.e. FD is not a tty), 0
|
||||
otherwise. */
|
||||
#ifdef TIOCOUTQ
|
||||
#define EMACS_OUTQSIZE(fd, size) (ioctl ((fd), TIOCOUTQ, (size)))
|
||||
#endif
|
||||
|
||||
#ifdef HAVE_TERMIO
|
||||
#ifdef TCOUTQ
|
||||
#undef EMACS_OUTQSIZE
|
||||
#define EMACS_OUTQSIZE(fd, size) (ioctl ((fd), TCOUTQ, (size)))
|
||||
#endif
|
||||
#endif
|
||||
|
||||
|
||||
/* Manipulate a terminal's current process group. */
|
||||
|
||||
/* EMACS_HAVE_TTY_PGRP is true if we can get and set the tty's current
|
||||
controlling process group.
|
||||
|
||||
EMACS_GET_TTY_PGRP(int FD, int *PGID) sets *PGID the terminal FD's
|
||||
current process group. Return -1 if there is an error.
|
||||
|
||||
EMACS_SET_TTY_PGRP(int FD, int *PGID) sets the terminal FD's
|
||||
current process group to *PGID. Return -1 if there is an error. */
|
||||
|
||||
#ifdef TIOCGPGRP
|
||||
#define EMACS_HAVE_TTY_PGRP
|
||||
#else
|
||||
#ifdef HAVE_TERMIOS
|
||||
#define EMACS_HAVE_TTY_PGRP
|
||||
#endif
|
||||
#endif
|
||||
|
||||
#ifdef EMACS_HAVE_TTY_PGRP
|
||||
|
||||
#ifdef HAVE_TERMIOS
|
||||
|
||||
#define EMACS_GET_TTY_PGRP(fd, pgid) (*(pgid) = tcgetpgrp ((fd)))
|
||||
#define EMACS_SET_TTY_PGRP(fd, pgid) (*(pgid) = tcsetpgrp ((fd)))
|
||||
|
||||
#else
|
||||
#ifdef TIOCSPGRP
|
||||
|
||||
#define EMACS_GET_TTY_PGRP(fd, pgid) (ioctl ((fd), TIOCGPGRP, (pgid)))
|
||||
#define EMACS_SET_TTY_PGRP(fd, pgid) (ioctl ((fd), TIOCSPGRP, (pgid)))
|
||||
|
||||
#endif
|
||||
#endif
|
||||
|
||||
#else
|
||||
|
||||
/* Just ignore this for now and hope for the best */
|
||||
#define EMACS_GET_TTY_PGRP(fd, pgid) 0
|
||||
|
||||
#endif
|
||||
|
||||
|
||||
/* Manipulate a TTY's input/output processing parameters. */
|
||||
|
||||
/* struct emacs_tty is a structure used to hold the current tty
|
||||
parameters. If the terminal has several structures describing its
|
||||
state, for example a struct tchars, a struct sgttyb, a struct
|
||||
tchars, a struct ltchars, and a struct pagechars, struct
|
||||
emacs_tty should contain an element for each parameter struct
|
||||
that Emacs may change.
|
||||
|
||||
EMACS_GET_TTY (int FD, struct emacs_tty *P) stores the
|
||||
parameters of the tty on FD in *P.
|
||||
|
||||
EMACS_SET_TTY (int FD, struct emacs_tty *P, int waitp)
|
||||
sets the parameters of the tty on FD according to the contents of
|
||||
*P. If waitp is non-zero, we wait for all queued output to be
|
||||
written before making the change; otherwise, we forget any queued
|
||||
input and make the change immediately.
|
||||
|
||||
EMACS_TTY_TABS_OK (struct emacs_tty *P) is false iff the kernel
|
||||
expands tabs to spaces upon output; in that case, there is no
|
||||
advantage to using tabs over spaces. */
|
||||
|
||||
|
||||
|
||||
/* For each tty parameter structure that Emacs might want to save and restore,
|
||||
- include an element for it in this structure,
|
||||
- define a pair of numbered macros to get and set it and return
|
||||
true iff the call succeeded,
|
||||
- give alternative definitions for when the component is not implemented
|
||||
which always succeed, and
|
||||
- extend the definition of EMACS_{GET,SET}_TTY_CHARS to include the
|
||||
new macros. */
|
||||
|
||||
struct emacs_tty {
|
||||
|
||||
/* There is always one of the following elements, so there is no need
|
||||
for dummy get and set definitions. */
|
||||
#ifdef HAVE_TERMIOS
|
||||
struct termios main;
|
||||
#else
|
||||
#ifdef HAVE_TERMIO
|
||||
struct termio main;
|
||||
#else
|
||||
#ifdef VMS
|
||||
struct sensemode main;
|
||||
#else
|
||||
struct sgttyb main;
|
||||
#endif
|
||||
#endif
|
||||
#endif
|
||||
|
||||
#ifdef HAVE_TERMIOS
|
||||
#define HAVE_TCATTR
|
||||
#endif
|
||||
|
||||
#ifdef HAVE_TCATTR
|
||||
|
||||
#define EMACS_GET_TTY_1(fd, p) (tcgetattr ((fd), &(p)->main) != -1)
|
||||
#define EMACS_SET_TTY_1(fd, p, waitp) \
|
||||
(tcsetattr ((fd), (waitp) ? TCSAFLUSH : TCSADRAIN, &(p)->main) != -1)
|
||||
|
||||
#else
|
||||
#ifdef VMS
|
||||
|
||||
/* These definitions will really only work in sysdep.c, because of their
|
||||
use of input_iosb. I don't know enough about VMS QIO to fix this. */
|
||||
#define EMACS_GET_TTY_1(fd, p) \
|
||||
SYS$QIOW (0, (fd), IO$_SENSEMODE, (p), 0, 0, \
|
||||
&(p)->main.class, 12, 0, 0, 0, 0);
|
||||
#define EMACS_SET_TTY_1(fd, p, waitp) \
|
||||
SYS$QIOW (0, (fd), IO$_SETMODE, &input_iosb, 0, 0, \
|
||||
&(p)->main.class, 12, 0, 0, 0, 0);
|
||||
|
||||
#else
|
||||
|
||||
#define EMACS_GET_TTY_1(fd, p) (ioctl ((fd), TIOCGETP, &(p)->main) != -1)
|
||||
#define EMACS_SET_TTY_1(fd, p, waitp) \
|
||||
(ioctl ((fd), (waitp) ? TIOCSETP : TIOCSETN, &(p)->main) != -1)
|
||||
|
||||
#endif
|
||||
#endif
|
||||
|
||||
#ifdef TIOCGLTC
|
||||
struct ltchars ltchars;
|
||||
#define EMACS_GET_TTY_2(fd, p) \
|
||||
(ioctl ((fd), TIOCGLTC, &(p)->ltchars) != -1)
|
||||
#define EMACS_SET_TTY_2(fd, p, waitp) \
|
||||
(ioctl ((fd), TIOCSLTC, &(p)->ltchars) != -1)
|
||||
#else
|
||||
#define EMACS_GET_TTY_2(fd, p) 1
|
||||
#define EMACS_SET_TTY_2(fd, p, waitp) 1
|
||||
#endif /* TIOCGLTC */
|
||||
|
||||
#ifdef TIOCGETC
|
||||
struct tchars tchars;
|
||||
int lmode;
|
||||
#define EMACS_GET_TTY_3(fd, p) \
|
||||
(ioctl ((fd), TIOCGETC, &(p)->tchars) != -1 \
|
||||
&& ioctl ((fd), TIOCLGET, &(p)->lmode) != -1)
|
||||
#define EMACS_SET_TTY_3(fd, p, waitp) \
|
||||
(ioctl ((fd), TIOCSETC, &(p)->tchars) != -1 \
|
||||
&& ioctl ((fd), TIOCLSET, &(p)->lmode) != -1)
|
||||
#else
|
||||
#define EMACS_GET_TTY_3(fd, p) 1
|
||||
#define EMACS_SET_TTY_3(fd, p, waitp) 1
|
||||
#endif /* TIOCGLTC */
|
||||
|
||||
};
|
||||
|
||||
/* Define these to be a concatenation of all the EMACS_{GET,SET}_TTY
|
||||
macros. */
|
||||
#define EMACS_GET_TTY(fd, tc) \
|
||||
(EMACS_GET_TTY_1 (fd, tc) \
|
||||
&& EMACS_GET_TTY_2 (fd, tc) \
|
||||
&& EMACS_GET_TTY_3 (fd, tc))
|
||||
|
||||
#define EMACS_SET_TTY(fd, tc, waitp) \
|
||||
(EMACS_SET_TTY_1 (fd, tc, waitp) \
|
||||
&& EMACS_SET_TTY_2 (fd, tc, waitp) \
|
||||
&& EMACS_SET_TTY_3 (fd, tc, waitp))
|
||||
|
||||
|
||||
#ifdef HAVE_TERMIOS
|
||||
|
||||
#define EMACS_TTY_TABS_OK(p) (((p)->main.c_oflag & TABDLY) != TAB3)
|
||||
|
||||
#else /* not def HAVE_TERMIOS */
|
||||
#ifdef HAVE_TERMIO
|
||||
|
||||
#define EMACS_TTY_TABS_OK(p) (((p)->main.c_oflag & TABDLY) != TAB3)
|
||||
|
||||
#else /* neither HAVE_TERMIO nor HAVE_TERMIOS */
|
||||
#ifdef VMS
|
||||
|
||||
#define EMACS_TTY_TABS_OK(p) (((p)->main.tt_char & TT$M_MECHTAB) != 0)
|
||||
|
||||
#else
|
||||
|
||||
#define EMACS_TTY_TABS_OK(p) (((p)->main.sg_flags & XTABS) != XTABS)
|
||||
|
||||
#endif /* not def VMS */
|
||||
#endif /* not def HAVE_TERMIO */
|
||||
#endif /* not def HAVE_TERMIOS */
|
||||
Loading…
Add table
Reference in a new issue