/* Interfaces to system-dependent kernel and library entries.
- Copyright (C) 1985, 86,87,88,93,94,95, 1999, 2000, 2001
- Free Software Foundation, Inc.
+ Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1999, 2000, 2001,
+ 2003, 2004 Free Software Foundation, Inc.
This file is part of GNU Emacs.
#endif
#include <signal.h>
+#include <stdio.h>
#include <setjmp.h>
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#undef fwrite
#endif
-#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <errno.h>
-/* Get _POSIX_VDISABLE, if it is available. */
-#ifdef HAVE_UNISTD_H
-#include <unistd.h>
-#endif
-
-#ifdef HAVE_STDLIB_H
-#include <stdlib.h>
-#endif
-
#ifdef HAVE_SETPGID
#if !defined (USG) || defined (BSD_PGRPS)
#undef setpgrp
#include <sys/file.h>
#endif /* not VMS */
-#ifndef BSD4_1
-#ifdef BSD_SYSTEM /* avoid writing defined (BSD_SYSTEM) || defined (USG)
- because the vms compiler doesn't grok `defined' */
+#ifdef HAVE_FCNTL_H
#include <fcntl.h>
#endif
-#ifdef USG
-#ifndef USG5
-#include <fcntl.h>
-#endif
-#endif
-#endif /* not 4.1 bsd */
#ifndef MSDOS
#include <sys/ioctl.h>
the terminal. */
void
+#ifdef PROTOTYPES
+stuff_char (char c)
+#else
stuff_char (c)
char c;
+#endif
{
if (read_socket_hook)
return;
emacs_ospeed = sg.c_cflag & CBAUD;
#else /* neither VMS nor TERMIOS nor TERMIO */
struct sgttyb sg;
-
+
sg.sg_ospeed = B9600;
if (ioctl (input_fd, TIOCGETP, &sg) < 0)
abort ();
#endif /* not DOS_NT */
#endif /* not INIT_BAUD_RATE */
}
-
+
baud_rate = (emacs_ospeed < sizeof baud_convert / sizeof baud_convert[0]
? baud_convert[emacs_ospeed] : 9600);
if (baud_rate == 0)
* flush any pending output
* (may flush input as well; it does not matter the way we use it)
*/
-
+
void
flush_pending_output (channel)
int channel;
s.main.c_cflag = (s.main.c_cflag & ~CBAUD) | B9600; /* baud rate sanity */
#endif /* HPUX */
+#ifdef SIGNALS_VIA_CHARACTERS
+ /* the QUIT and INTR character are used in process_send_signal
+ so set them here to something useful. */
+ if (s.main.c_cc[VQUIT] == CDISABLE)
+ s.main.c_cc[VQUIT] = '\\'&037; /* Control-\ */
+ if (s.main.c_cc[VINTR] == CDISABLE)
+ s.main.c_cc[VINTR] = 'C'&037; /* Control-C */
+#endif /* not SIGNALS_VIA_CHARACTERS */
+
#ifdef AIX
/* AIX enhanced edit loses NULs, so disable it */
#ifndef IBMR2AIX
don't ignore break, but don't signal either, so it looks like NUL. */
s.main.c_iflag &= ~IGNBRK;
s.main.c_iflag &= ~BRKINT;
+ /* rms: Formerly it set s.main.c_cc[VINTR] to 0377 here
+ unconditionally. Then a SIGNALS_VIA_CHARACTERS conditional
+ would force it to 0377. That looks like duplicated code. */
+#ifndef SIGNALS_VIA_CHARACTERS
/* QUIT and INTR work better as signals, so disable character forms */
- s.main.c_cc[VINTR] = 0377;
-#ifdef SIGNALS_VIA_CHARACTERS
- /* the QUIT and INTR character are used in process_send_signal
- so set them here to something useful. */
- if (s.main.c_cc[VQUIT] == 0377)
- s.main.c_cc[VQUIT] = '\\'&037; /* Control-\ */
- if (s.main.c_cc[VINTR] == 0377)
- s.main.c_cc[VINTR] = 'C'&037; /* Control-C */
-#else /* no TIOCGPGRP or no TIOCGLTC or no TIOCGETC */
- /* QUIT and INTR work better as signals, so disable character forms */
- s.main.c_cc[VQUIT] = 0377;
- s.main.c_cc[VINTR] = 0377;
+ s.main.c_cc[VQUIT] = CDISABLE;
+ s.main.c_cc[VINTR] = CDISABLE;
s.main.c_lflag &= ~ISIG;
#endif /* no TIOCGPGRP or no TIOCGLTC or no TIOCGETC */
- s.main.c_cc[VEOL] = 0377;
+ s.main.c_cc[VEOL] = CDISABLE;
s.main.c_cflag = (s.main.c_cflag & ~CBAUD) | B9600; /* baud rate sanity */
#endif /* AIX */
save_signal_handlers (saved_handlers);
synch_process_alive = 1;
#endif /* __DJGPP__ > 1 */
-#else
+#else
pid = vfork ();
if (pid == -1)
error ("Can't spawn subshell");
}
#else /* not FASYNC, not STRIDE */
-
+
#ifdef _CX_UX
#include <termios.h>
}
#else /* ! _CX_UX */
+#ifndef MSDOS
void
request_sigio ()
croak ("request_sigio");
}
-
+
void
unrequest_sigio ()
{
croak ("unrequest_sigio");
}
-
+
+#endif /* MSDOS */
#endif /* _CX_UX */
#endif /* STRIDE */
#endif /* FASYNC */
|| ioctl (fd, TIOCLSET, &settings->lmode) < 0)
return -1;
#endif
-
+
/* We have survived the tempest. */
return 0;
}
char _sobuf[BUFSIZ];
#endif
#endif
-
+
#ifdef HAVE_LTCHARS
static struct ltchars new_ltchars = {-1,-1,-1,-1,-1,-1};
#endif
#ifdef HAVE_TCHARS
static struct tchars new_tchars = {-1,-1,-1,-1,-1,-1};
-#endif
+#endif
void
init_sys_modes ()
}
else
tty.main.c_iflag &= ~IXON; /* Disable start/stop output control */
- tty.main.c_oflag &= ~ONLCR; /* Disable map of NL to CR-NL
+ tty.main.c_oflag &= ~ONLCR; /* Disable map of NL to CR-NL
on output */
tty.main.c_oflag &= ~TAB3; /* Disable tab expansion */
#ifdef CS8
tty.main.c_line = 0;
tty.main.c_iflag &= ~ASCEDIT;
#else
- tty.main.c_cc[VSTRT] = 255;
- tty.main.c_cc[VSTOP] = 255;
- tty.main.c_cc[VSUSP] = 255;
- tty.main.c_cc[VDSUSP] = 255;
+ tty.main.c_cc[VSTRT] = CDISABLE;
+ tty.main.c_cc[VSTOP] = CDISABLE;
+ tty.main.c_cc[VSUSP] = CDISABLE;
+ tty.main.c_cc[VDSUSP] = CDISABLE;
#endif /* IBMR2AIX */
if (flow_control)
{
anything, and leaving it in breaks the meta key. Go figure. */
tty.lmode &= ~LLITOUT;
#endif
-
+
#ifdef BSD4_1
lmode = tty.lmode;
#endif
/* Return nonzero if safe to use tabs in output.
At the time this is called, init_sys_modes has not been done yet. */
-
+
int
tabs_safe_p ()
{
#ifdef TIOCGSIZE
/* SunOS - style. */
- struct ttysize size;
+ struct ttysize size;
if (ioctl (input_fd, TIOCGSIZE, &size) == -1)
*widthp = *heightp = 0;
#ifdef VMS
struct sensemode tty;
-
+
SYS$QIOW (0, input_fd, IO$_SENSEMODE, &tty, 0, 0,
&tty.class, 12, 0, 0, 0, 0);
*widthp = tty.scr_wid;
#ifdef TIOCSSIZE
/* SunOS - style. */
- struct ttysize size;
+ struct ttysize size;
size.ts_lines = height;
size.ts_cols = width;
reset_sys_modes ()
{
struct frame *sf;
-
+
if (noninteractive)
{
fflush (stdout);
return;
#endif
sf = SELECTED_FRAME ();
- cursor_to (FRAME_HEIGHT (sf) - 1, 0);
- clear_end_of_line (FRAME_WIDTH (sf));
+ cursor_to (FRAME_LINES (sf) - 1, 0);
+ clear_end_of_line (FRAME_COLS (sf));
/* clear_end_of_line may move the cursor */
- cursor_to (FRAME_HEIGHT (sf) - 1, 0);
+ cursor_to (FRAME_LINES (sf) - 1, 0);
#if defined (IBMR2AIX) && defined (AIXHFT)
{
- /* HFT devices normally use ^J as a LF/CR. We forced it to
+ /* HFT devices normally use ^J as a LF/CR. We forced it to
do the LF only. Now, we need to reset it. */
struct termio tty;
does this. Also it is known that telnet mode will hang
in such a way that Emacs must be stopped (perhaps this
is the same problem).
-
+
If TIOCREMOTE is turned off, then there is a bug in
hp-ux which sometimes loses data. Apparently the
code which blocks the master process when the internal
buffer fills up does not work. Other than this,
though, everything else seems to work fine.
-
+
Since the latter lossage is more benign, we may as well
lose that way. -- cph */
#ifdef FIONBIO
init_vms_input ()
{
int status;
-
+
if (input_fd == 0)
{
status = SYS$ASSIGN (&input_dsc, &input_fd, 0, 0);
if (c >= 0)
{
struct input_event e;
+ EVENT_INIT (e);
+
e.kind = ASCII_KEYSTROKE_EVENT;
XSETINT (e.code, c);
e.frame_or_window = selected_frame;
int time [2];
static int zero = 0;
static int large = -10000000;
-
+
LIB$EMUL (&timeval, &large, &zero, time); /* Convert to VMS format */
SYS$CANTIM (1, 0);
* will be patched by unexec to the correct value.
*
*/
-
+
#ifndef start_of_data
char *
start_of_data ()
/* Once a second, till the timer expires, check all the flagged read
* descriptors to see if any input is available. If there is some then
* set the corresponding bit in the return copy of rfds.
- */
+ */
while (1)
{
register int to_check, fd;
signal (SIGALRM, select_alarm);
select_alarmed = 0;
alarm (SELECT_PAUSE);
-
+
/* Wait for a SIGALRM (or maybe a SIGTINT) */
while (select_alarmed == 0 && *local_timeout != 0
&& process_tick == update_tick)
pause ();
}
(*local_timeout) -= SELECT_PAUSE;
-
+
/* Reset the old alarm if there was one. */
turn_on_atimers (1);
-
+
if (*local_timeout == 0) /* Stop on timer being cleared */
break;
}
/* Read keyboard input into the standard buffer,
waiting for at least one character. */
-/* Make all keyboard buffers much bigger when using a window system. */
-#ifdef HAVE_WINDOW_SYSTEM
-#define BUFFER_SIZE_FACTOR 16
-#else
-#define BUFFER_SIZE_FACTOR 1
-#endif
-
void
read_input_waiting ()
{
- struct input_event e;
int nread, i;
extern int quit_char;
if (read_socket_hook)
{
- struct input_event buf[256];
+ struct input_event hold_quit;
+
+ EVENT_INIT (hold_quit);
+ hold_quit.kind = NO_EVENT;
read_alarm_should_throw = 0;
if (! setjmp (read_alarm_throw))
- nread = (*read_socket_hook) (0, buf, 256, 1);
+ nread = (*read_socket_hook) (0, 1, &hold_quit);
else
nread = -1;
- /* 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;
- }
+ if (hold_quit.kind != NO_EVENT)
+ kbd_buffer_store_event (&hold_quit);
}
else
{
+ struct input_event e;
char buf[3];
nread = read (fileno (stdin), buf, 1);
+ EVENT_INIT (e);
/* Scan the chars for C-g and store them in kbd_buffer. */
e.kind = ASCII_KEYSTROKE_EVENT;
struct sigaction new_action, old_action;
sigemptyset (&new_action.sa_mask);
new_action.sa_handler = action;
-#if defined (SA_RESTART) && ! defined (BROKEN_SA_RESTART)
+#if defined (SA_RESTART) && ! defined (BROKEN_SA_RESTART) && !defined(SYNC_INPUT)
/* Emacs mostly works better with restartable system services. If this
flag exists, we probably want to turn it on here.
However, on some systems this resets the timeout of `select'
which means that `select' never finishes if it keeps getting signals.
BROKEN_SA_RESTART is defined on those systems. */
+ /* It's not clear why the comment above says "mostly works better". --Stef
+ When SYNC_INPUT is set, we don't want SA_RESTART because we need to poll
+ for pending input so we need long-running syscalls to be interrupted
+ after a signal that sets the interrupt_input_pending flag. */
new_action.sa_flags = SA_RESTART;
#else
new_action.sa_flags = 0;
#endif /* POSIX_SIGNALS */
\f
-#if !defined HAVE_STRSIGNAL && !defined SYS_SIGLIST_DECLARED
+#if !defined HAVE_STRSIGNAL && !HAVE_DECL_SYS_SIGLIST
static char *my_sys_siglist[NSIG];
# ifdef sys_siglist
# undef sys_siglist
sigfillset (&full_mask);
#endif
-#if !defined HAVE_STRSIGNAL && !defined SYS_SIGLIST_DECLARED
+#if !defined HAVE_STRSIGNAL && !HAVE_DECL_SYS_SIGLIST
if (! initialized)
{
# ifdef SIGABRT
sys_siglist[SIGXFSZ] = "File size limit exceeded";
# endif
}
-#endif /* !defined HAVE_STRSIGNAL && !defined SYS_SIGLIST_DECLARED */
+#endif /* !defined HAVE_STRSIGNAL && !defined HAVE_DECL_SYS_SIGLIST */
}
\f
#ifndef HAVE_RANDOM
register int rtnval;
#ifdef BSD4_1
- if (oflag & O_CREAT)
+ if (oflag & O_CREAT)
return creat (path, mode);
#endif
-
+
while ((rtnval = open (path, oflag, mode)) == -1
- && (errno == EINTR));
+ && (errno == EINTR))
+ QUIT;
return (rtnval);
}
unsigned int nbyte;
{
register int rtnval;
-
+
while ((rtnval = read (fildes, buf, nbyte)) == -1
- && (errno == EINTR));
+ && (errno == EINTR))
+ QUIT;
return (rtnval);
}
if (rtnval == -1)
{
if (errno == EINTR)
- continue;
+ {
+#ifdef SYNC_INPUT
+ /* I originally used `QUIT' but that might causes files to
+ be truncated if you hit C-g in the middle of it. --Stef */
+ if (interrupt_input_pending)
+ handle_async_input ();
+#endif
+ continue;
+ }
else
return (bytes_written ? bytes_written : -1);
}
int newd;
{
register int fd, ret;
-
+
emacs_close (newd);
#ifdef F_DUPFD
#ifndef VMS
#ifndef HAVE_GETTIMEOFDAY
#ifdef HAVE_TIMEVAL
-
+
/* ARGSUSED */
int
gettimeofday (tp, tzp)
{
extern long time ();
- tp->tv_sec = time ((long *)0);
+ tp->tv_sec = time ((long *)0);
tp->tv_usec = 0;
if (tzp != 0)
tzp->tz_minuteswest = -1;
return 0;
}
-
+
#endif
#endif
#endif
#endif /* subprocess && !HAVE_GETTIMEOFDAY && HAVE_TIMEVAL && !VMS */
-
+
/*
* This function will go away as soon as all the stubs fixed. (fnf)
*/
wait_for_termination (cpid);
}
- if (synch_process_death != 0 || synch_process_retcode != 0)
+ if (synch_process_death != 0 || synch_process_retcode != 0
+ || synch_process_termsig != 0)
{
errno = EIO; /* We don't know why, but */
return -1; /* /bin/mkdir failed */
wait_for_termination (cpid);
}
- if (synch_process_death != 0 || synch_process_retcode != 0)
+ if (synch_process_death != 0 || synch_process_retcode != 0
+ || synch_process_termsig != 0)
{
errno = EIO; /* We don't know why, but */
return -1; /* /bin/rmdir failed */
#ifdef access
#undef access
-
+
/* The following is necessary because 'access' emulation by VMS C (2.0) does
* not work correctly. (It also doesn't work well in version 2.3.)
*/
* access can treat the directory like a file. */
if (directory_file_name (path, dir_fn))
path = dir_fn;
-
+
if (mode == F_OK)
return access (path, mode);
if (user == NULL && (user = (char *) getenv ("USER")) == NULL)
static int constant = ACL$C_FILE;
DESCRIPTOR (path_desc, path);
DESCRIPTOR (user_desc, user);
-
+
flags = 0;
acces = 0;
if ((mode & X_OK) && ((stat = access (path, mode)) < 0 || mode == X_OK))
return access (filename, type);
/* Check write protection. */
-
+
#define CHECKPRIV(bit) (prvmask.bit)
#define WRITABLE(field) (! ((xab.xab$w_pro >> field) & XAB$M_NOWRITE))
}
#endif /* not VMS4_4 */
#endif /* access */
-
+
static char vtbuf[NAM$C_MAXRSS+1];
/* translate a vms file spec to a unix path */
*targ++ = '.';
*targ++ = '.';
break;
-
+
default:
*targ++ = *vfile;
break;
ufile++;
}
*targ = '\0';
-
+
return utbuf;
}
}
strcpy (pathname, ptr);
xfree (ptr);
-
+
return pathname;
}
* when this is not the desired behavior, for instance, when writing an
* auto save file (you only want one version), or when you don't have
* write permission in the directory containing the file (but the file
- * itself is writable). Hence this routine, which is equivalent to
+ * itself is writable). Hence this routine, which is equivalent to
* "close (creat (fn, 0));" on Unix if fn already exists.
*/
int
register status;
struct FAB uaf_fab;
struct RAB uaf_rab;
-
+
uaf_fab = cc$rms_fab;
uaf_rab = cc$rms_rab;
/* initialize fab fields */
register status;
struct FAB uaf_fab;
struct RAB uaf_rab;
-
+
uaf_fab = cc$rms_fab;
uaf_rab = cc$rms_rab;
/* initialize fab fields */
bits). To maintain portability, the VMS implementation of `chmod' wires
the W and D bits together. */
-
+
static struct fibdef fib; /* We need this initialized to zero */
char vms_file_written[NAM$C_MAXRSS];
/* If we're not on an HFT we shouldn't do any of this. We determine
if we are on an HFT by trying to get an HFT error code. If this
- call fails, we're not on an HFT. */
+ call fails, we're not on an HFT. */
#ifdef IBMR2AIX
if (ioctl (0, HFQERROR, &junk) < 0)
return;
}
#endif /* HAVE_STRSIGNAL */
+/* arch-tag: edb43589-4e09-4544-b325-978b5b121dcf
+ (do not change this comment) */
HCoop / bpt / emacs.git / blobdiff