/* Interfaces to system-dependent kernel and library entries.
Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1999, 2000, 2001,
- 2003, 2004, 2005 Free Software Foundation, Inc.
+ 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
This file is part of GNU Emacs.
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, Inc., 59 Temple Place - Suite 330,
-Boston, MA 02111-1307, USA. */
+the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+Boston, MA 02110-1301, USA. */
#ifdef HAVE_CONFIG_H
#include <config.h>
#include "sysselect.h"
#include "blockinput.h"
-#undef NULL
#ifdef MAC_OS8
-/* It is essential to include stdlib.h so that this file picks up
- the correct definitions of rand, srand, and RAND_MAX.
- Otherwise random numbers will not work correctly. */
-#include <stdlib.h>
+#include <sys/param.h>
#ifndef subprocesses
/* Nonzero means delete a process right away if it exits (process.c). */
#define _P_WAIT 0
int _CRTAPI1 _spawnlp (int, const char *, const char *, ...);
int _CRTAPI1 _getpid (void);
+extern char *getwd (char *);
#endif
#ifdef NONSYSTEM_DIR_LIBRARY
SIGMASKTYPE sigprocmask_set;
+
+#if !defined (HAVE_GET_CURRENT_DIR_NAME) || defined (BROKEN_GET_CURRENT_DIR_NAME)
+
+/* Return the current working directory. Returns NULL on errors.
+ Any other returned value must be freed with free. This is used
+ only when get_current_dir_name is not defined on the system. */
+char*
+get_current_dir_name ()
+{
+ char *buf;
+ char *pwd;
+ struct stat dotstat, pwdstat;
+ /* If PWD is accurate, use it instead of calling getwd. PWD is
+ sometimes a nicer name, and using it may avoid a fatal error if a
+ parent directory is searchable but not readable. */
+ if ((pwd = getenv ("PWD")) != 0
+ && (IS_DIRECTORY_SEP (*pwd) || (*pwd && IS_DEVICE_SEP (pwd[1])))
+ && stat (pwd, &pwdstat) == 0
+ && stat (".", &dotstat) == 0
+ && dotstat.st_ino == pwdstat.st_ino
+ && dotstat.st_dev == pwdstat.st_dev
+#ifdef MAXPATHLEN
+ && strlen (pwd) < MAXPATHLEN
+#endif
+ )
+ {
+ buf = (char *) malloc (strlen (pwd) + 1);
+ if (!buf)
+ return NULL;
+ strcpy (buf, pwd);
+ }
+#ifdef HAVE_GETCWD
+ else
+ {
+ size_t buf_size = 1024;
+ buf = (char *) malloc (buf_size);
+ if (!buf)
+ return NULL;
+ for (;;)
+ {
+ if (getcwd (buf, buf_size) == buf)
+ break;
+ if (errno != ERANGE)
+ {
+ int tmp_errno = errno;
+ free (buf);
+ errno = tmp_errno;
+ return NULL;
+ }
+ buf_size *= 2;
+ buf = (char *) realloc (buf, buf_size);
+ if (!buf)
+ return NULL;
+ }
+ }
+#else
+ else
+ {
+ /* We need MAXPATHLEN here. */
+ buf = (char *) malloc (MAXPATHLEN + 1);
+ if (!buf)
+ return NULL;
+ if (getwd (buf) == NULL)
+ {
+ int tmp_errno = errno;
+ free (buf);
+ errno = tmp_errno;
+ return NULL;
+ }
+ }
+#endif
+ return buf;
+}
+#endif
+
\f
/* Discard pending input on all input descriptors. */
#ifdef FASYNC /* F_SETFL does not imply existence of FASYNC */
/* XXX Uhm, FASYNC is not used anymore here. */
+/* XXX Yeah, but you need it for SIGIO, don't you? */
void
request_sigio ()
/* XXX read_socket_hook is not global anymore. Is blocking SIGIO
bad under X? */
#if 0
- if (read_socket_hook)
+ if (noninteractive || read_socket_hook)
return;
#endif
/* XXX read_socket_hook is not global anymore. Is blocking SIGIO
bad under X? */
#if 0
- if (read_socket_hook)
+ if (noninteractive || read_socket_hook)
return;
#endif
{
int on = 1;
- if (read_socket_hook)
+ if (noninteractive || read_socket_hook)
return;
/* XXX CURTTY() is bogus here. */
{
int off = 0;
- if (read_socket_hook)
+ if (noninteractive || read_socket_hook)
return;
/* XXX CURTTY() is bogus here. */
int on = 1;
sigset_t st;
- if (read_socket_hook)
+ if (noninteractive || read_socket_hook)
return;
sigemptyset (&st);
{
int off = 0;
- if (read_socket_hook)
+ if (noninteractive || read_socket_hook)
return;
ioctl (0, FIOASYNC, &off); /* XXX This fails for multiple ttys. */
void
request_sigio ()
{
- if (read_socket_hook)
+ if (noninteractive || read_socket_hook)
return;
croak ("request_sigio");
void
unrequest_sigio ()
{
- if (read_socket_hook)
+ if (noninteractive || read_socket_hook)
return;
croak ("unrequest_sigio");
int me = getpid ();
setpgrp (0, inherited_pgroup);
+#if 0
+ /* XXX inherited_pgroup should not be zero here, but GTK seems to
+ mess this up. */
if (! inherited_pgroup)
abort (); /* Should not happen. */
+#endif
if (inherited_pgroup != me)
EMACS_SET_TTY_PGRP (fd, &me); /* XXX This only works on the controlling tty. */
setpgrp (0, me);
setbuf (tty_out->output, (char *) _sobuf);
#endif
- tty_set_terminal_modes (tty_out->display);
+ tty_set_terminal_modes (tty_out->device);
if (!tty_out->term_initted)
{
if (tty_out->term_initted && no_redraw_on_reenter)
{
+ /* XXX This seems wrong on multi-tty. */
if (display_completed)
direct_output_forward_char (0);
}
#else
#ifdef VMS
+ /* Use a fresh channel since the current one may have stale info
+ (for example, from prior to a suspend); and to avoid a dependency
+ in the init sequence. */
+ int chan;
struct sensemode tty;
- SYS$QIOW (0, fd, IO$_SENSEMODE, &tty, 0, 0,
- &tty.class, 12, 0, 0, 0, 0);
+ SYS$ASSIGN (&input_dsc, &chan, 0, 0);
+ SYS$QIOW (0, chan, IO$_SENSEMODE, &tty, 0, 0,
+ &tty.class, 12, 0, 0, 0, 0);
+ SYS$DASSGN (chan);
*widthp = tty.scr_wid;
*heightp = tty.scr_len;
else
{ /* have to do it the hard way */
int i;
- turn_off_insert (tty_out);
+ tty_turn_off_insert (tty_out);
for (i = curX (tty_out); i < FrameCols (tty_out) - 1; i++)
{
}
#endif
- tty_reset_terminal_modes (tty_out->display);
- fflush (tty_out->output);
+ tty_reset_terminal_modes (tty_out->device);
+
#ifdef BSD_SYSTEM
#ifndef BSD4_1
/* Avoid possible loss of output when changing terminal modes. */
void
request_sigio ()
{
+ if (noninteractive)
+ return;
croak ("request sigio");
}
void
unrequest_sigio ()
{
+ if (noninteractive)
+ return;
croak ("unrequest sigio");
}
void
request_sigio ()
{
+ if (noninteractive)
+ return;
sigrelse (SIGTINT);
interrupts_deferred = 0;
void
unrequest_sigio ()
{
+ if (noninteractive)
+ return;
sighold (SIGTINT);
interrupts_deferred = 1;
\f
/* Functions for VMS */
#ifdef VMS
-#include "vms-pwd.h"
#include <acldef.h>
#include <chpdef.h>
#include <jpidef.h>
HCoop / bpt / emacs.git / blobdiff