xemacs-beta: src/sysdep.c comparison

comparison src/sysdep.c @ 185:3d6bfa290dbd r20-3b19

Import from CVS: tag r20-3b19

author	cvs
date	Mon, 13 Aug 2007 09:55:28 +0200
parents	9ad43877534d
children	b405438285a2

comparison

equal deleted inserted replaced

-:bcd2674570bf
+:3d6bfa290dbd
 #endif
 #endif /* TIOCGWINSZ or ISC4_0 */
 #endif /* USG */
 #ifdef HAVE_SYS_STROPTS_H
 #include <sys/stropts.h>
 #endif /* HAVE_SYS_STROPTS_H */
 /* LPASS8 is new in 4.3, and makes cbreak mode provide all 8 bits.  */
 #ifndef LPASS8
 #define LPASS8 0
 /*
 *	flush any pending output
 *      (may flush input as well; it does not matter the way we use it)
 */
 void
 flush_pending_output (int channel)
 {
 #ifdef HAVE_TERMIOS
 /* If we try this, we get hit with SIGTTIN, because
 close_process_descs ();	/* Close Emacs's pipes/ptys */
 #endif
 #ifdef SET_EMACS_PRIORITY
 if (emacs_priority != 0)
 nice (-emacs_priority);   /* Give the new shell the default priority */
 #endif
 #ifdef MSDOS
 st = system (sh);
 sys_chdir (oldwd);
 #endif
 }
 /* Suspend a process if possible; give terminal to its superior.  */
 void
-sys_suspend_process (process)
+sys_suspend_process (int process)
-int process;
 {
 /* I don't doubt that it is possible to suspend processes on
 * VMS machines or thost that use USG_JOBCTRL,
 * but I don't know how to do it, so...
 */
 return 1;
 #elif defined (TIOCSSIZE)
 /* SunOS - style.  */
 struct ttysize size;
 size.ts_lines = height;
 size.ts_cols = width;
 if (ioctl (fd, TIOCGSIZE, &size) == -1)
 return 0;
 will hang.  In particular, the "timeout" feature (which
 causes a read to return if there is no data available)
 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 */
 #if defined (FIONBIO) && defined (SYSV_PTYS)
 {
 int on = 1;
 int input_fd = CONSOLE_TTY_DATA (con)->infd;
 #ifdef MSDOS
 DEVICE_TTY_DATA (d)->ospeed = 15;
 #elif defined (VMS)
 struct vms_sensemode sg;
 SYS$QIOW (0, input_fd, IO$_SENSEMODE, &sg, 0, 0,
 	      &sg.class, 12, 0, 0, 0, 0 );
 DEVICE_TTY_DATA (d)->ospeed = sg.xmit_baud;
 #elif defined (HAVE_TERMIOS)
 struct termios sg;
 sg.c_cflag = B9600;
 tcgetattr (input_fd, &sg);
 DEVICE_TTY_DATA (d)->ospeed = cfgetospeed (&sg);
 # if defined (USE_GETOBAUD) && defined (getobaud)
 /* m88k-motorola-sysv3 needs this (ghazi@noc.rutgers.edu) 9/1/94. */
 if (DEVICE_TTY_DATA (d)->ospeed == 0)
 DEVICE_TTY_DATA (d)->ospeed = getobaud (sg.c_cflag);
 # endif
 #elif defined (HAVE_TERMIO)
 struct termio sg;
 sg.c_cflag = B9600;
 # ifdef HAVE_TCATTR
 tcgetattr (input_fd, &sg);
 # else
 ioctl (input_fd, TCGETA, &sg);
 # endif
 DEVICE_TTY_DATA (d)->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 ();
 DEVICE_TTY_DATA (d)->ospeed = sg.sg_ospeed;
 #endif
 }
 DEVICE_BAUD_RATE (d) =
 (DEVICE_TTY_DATA (d)->ospeed < sizeof baud_convert / sizeof baud_convert[0]
 ? baud_convert[DEVICE_TTY_DATA (d)->ospeed]
 : 9600);
 if (DEVICE_TTY_P (d))
 {
 	ioctl_status = ioctl (filedesc, FIOSSAIOSTAT, &off);
 }
 else
 {
 	ioctl_status = ioctl (filedesc, FIOASYNC, &off);
 }
 }
 #elif defined (FIOASYNC)
 So go ahead and put ourselves into our own process group.  This
 will fail if we're already in our own process group, but who cares.
 Also record whether we were in our own process group. (In general,
 we will already be in our own process group if we were started from
 a job-control shell like csh, but not if we were started from sh).
 If we succeeded in changing our process group, then we will no
 longer be in the foreground process group of our controlling
 terminal.  Therefore, if we have a console open onto this terminal,
 we have to change the controlling terminal's foreground process
 group (otherwise we will get stopped with a SIGTTIN signal when
 On systems without TIOCNOTTY and without
 setsid(), we don't need to do anything more to
 disconnect our controlling terminal.  Here is
 what the man page for termio(7) from a SYSV 3.2
 system says:
 "The first terminal file opened by the process group leader
 of a terminal file not already associated with a process
 group becomes the control terminal for that process group.
 The control terminal plays a special role in handling quit
 and interrupt signals, as discussed below.  The control
 terminal is inherited by a child process during a fork(2).
 A process can break this association by changing its process
 group using setpgrp(2)."
 */
 #  endif /* not HAVE_SETSID */
 }
 #ifdef HAVE_TCHARS
 if (ioctl (fd, TIOCSETC, &settings->tchars) < 0
 || ioctl (fd, TIOCLSET, &settings->lmode) < 0)
 return -1;
 #endif
 /* We have survived the tempest.  */
 return 0;
 }
 #endif /* WINDOWSNT */
 #elif (defined(USG) && !defined(LINUX) && !defined(_SCO_DS)) || defined(IRIX5)
 extern unsigned char _sobuf[BUFSIZ+8];
 #else
 char _sobuf[BUFSIZ];
 #endif
 #if defined (TIOCGLTC) && defined (HAVE_LTCHARS) /* HAVE_LTCHARS */
 static struct ltchars new_ltchars = {-1,-1,-1,-1,-1,-1};
 #endif
 #ifdef TIOCGETC /* HAVE_TCHARS */
 #ifdef HAVE_TCHARS
 static struct tchars new_tchars = {-1,-1,-1,-1,-1,-1};
 #endif
 #endif
 static void
 tty_init_sys_modes_on_device (struct device *d)
 {
 struct emacs_tty tty;
 tty.main.c_iflag &= ~IXANY;
 #endif /* IXANY */
 }
 else
 tty.main.c_iflag &= ~IXON;	/* Disable start/stop output control */
 tty.main.c_oflag &= ~ONLCR;	/* Disable map of NL to CR-NL
 				   on output */
 tty.main.c_oflag &= ~TAB3;	/* Disable tab expansion */
 #ifdef CS8
 if (TTY_FLAGS (con).meta_key)
 {
 #ifdef SET_LINE_DISCIPLINE
 /* Need to explicitely request TERMIODISC line discipline or
 Ultrix's termios does not work correctly.  */
 tty.main.c_line = SET_LINE_DISCIPLINE;
 #endif
 #ifdef AIX
 #ifndef IBMR2AIX
 /* AIX enhanced edit loses NULs, so disable it. */
 tty.main.c_line = 0;
 tty.main.c_iflag &= ~ASCEDIT;
 tty.main.sg_flags |= ANYP;
 /* #### should we be using RAW mode here? */
 tty.main.sg_flags |= /* interrupt_input ? RAW : */ CBREAK;
 #endif /* not MSDOS */
 #endif /* not HAVE_TERMIO */
 /* If going to use CBREAK mode, we must request C-g to interrupt
 and turn off start and stop chars, etc.  If not going to use
 CBREAK mode, do this anyway so as to turn off local flow
 control for user coming over network on 4.2; in this case,
 only t_stopc and t_startc really matter.  */
 if (TTY_FLAGS (con).flow_control)
 {
 tty.tchars.t_startc = '\021';
 tty.tchars.t_stopc = '\023';
 }
 tty.lmode = LDECCTQ | LLITOUT | LPASS8 | LNOFLSH |
 CONSOLE_TTY_DATA (con)->old_tty.lmode;
 #if defined (ultrix) || defined (__bsdi__)
 /* Under Ultrix 4.2a, leaving this out doesn't seem to hurt
 anything, and leaving it in breaks the meta key.  Go figure.  */
 /* Turning off ONLCR is enough under BSD/386.  Leave the general
 output post-processing flag alone since for some reason it
 doesn't get reset after XEmacs goes away. */
 tty.lmode &= ~LLITOUT;
 #endif
 #endif /* HAVE_TCHARS */
 #endif /* not HAVE_TERMIO */
 #ifdef HAVE_LTCHARS
 tty.ltchars = new_ltchars;
 #endif /* HAVE_LTCHARS */
 #ifdef MSDOS
 internal_terminal_init ();
 dos_ttraw ();
 #endif
 EMACS_SET_TTY (input_fd, &tty, 0);
 /* This code added to insure that, if flow-control is not to be used,
 we have an unlocked terminal at the start. */
 #ifdef TCXONC
 if (!TTY_FLAGS (con).flow_control) ioctl (input_fd, TCXONC, 1);
 #endif
 #ifndef APOLLO
 #ifdef TIOCSTART
 if (!TTY_FLAGS (con).flow_control) ioctl (input_fd, TIOCSTART, 0);
 #endif
 #endif
 #if defined (HAVE_TERMIOS) || defined (HPUX9)
 #ifdef TCOON
 if (!TTY_FLAGS (con).flow_control) tcflow (input_fd, TCOON);
 #endif
 #endif
 {
 /* IBM's HFT device usually thinks a ^J should be LF/CR.
 We need it to be only LF.  This is the way that is
 done. */
 struct termio tty;
 if (ioctl (output_fd, HFTGETID, &tty) != -1)
 write (output_fd, "\033[20l", 5);
 }
 #endif
 #endif
 Lisp_Object devcons;
 CONSOLE_DEVICE_LOOP (devcons, con)
 {
 struct device *d = XDEVICE (XCAR (devcons));
 init_one_device (d);
 }
 }
 void
 #if 0 /* not currently used */
 /* 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 (struct device *d)
 {
 #ifdef HAVE_TTY
 if (DEVICE_TTY_P (d))
 {
 struct emacs_tty tty;
 EMACS_GET_TTY (DEVICE_INFD (d), &tty);
 return EMACS_TTY_TABS_OK (&tty);
 }
 #endif
 return 1;
 #ifdef TIOCGWINSZ
 {
 /* BSD-style.  */
 struct winsize size;
 if (ioctl (input_fd, TIOCGWINSZ, &size) == -1)
 *widthp = *heightp = 0;
 else
 {
 	*widthp = size.ws_col;
 }
 #else
 #ifdef TIOCGSIZE
 {
 /* SunOS - style.  */
 struct ttysize size;
 if (ioctl (input_fd, TIOCGSIZE, &size) == -1)
 *widthp = *heightp = 0;
 else
 {
 	*widthp = size.ts_cols;
 }
 #else
 #ifdef VMS
 {
 struct vms_sensemode tty;
 SYS$QIOW (0, input_fd, IO$_SENSEMODE, &tty, 0, 0,
 	      &tty.class, 12, 0, 0, 0, 0);
 *widthp = tty.scr_wid;
 *heightp = tty.scr_len;
 }
 input_fd = CONSOLE_TTY_DATA (con)->infd;
 output_fd = CONSOLE_TTY_DATA (con)->outfd;
 #if defined (IBMR2AIX) && defined (AIXHFT)
 {
 /* HFT consoles normally use ^J as a LF/CR.  We forced it to
 do the LF only.  Now, we need to reset it. */
 struct termio tty;
 if (ioctl (output_fd, HFTGETID, &tty) != -1)
 write (output_fd, "\033[20h", 5);
 }
 #endif
 tty_redisplay_shutdown (con);
 /* reset_tty_modes() flushes the connection at its end. */
 reset_tty_modes (con);
 #if defined (BSD)
 /* Avoid possible loss of output when changing terminal modes.  */
 fsync (output_fd);
 #endif
 while (EMACS_SET_TTY (input_fd, &CONSOLE_TTY_DATA (con)->old_tty, 0)
 	 < 0 && errno == EINTR)
 ;
 #ifdef MSDOS
 dos_ttcooked ();
 #endif
 #ifdef SET_LINE_DISCIPLINE
 /* Ultrix's termios *ignores* any line discipline except TERMIODISC.
 A different old line discipline is therefore not restored, yet.
 Restore the old line discipline by hand.  */
 ioctl (input_fd, TIOCSETD, &old_tty.main.c_line);
 Lisp_Object devcons;
 CONSOLE_DEVICE_LOOP (devcons, con)
 {
 struct device *d = XDEVICE (XCAR (devcons));
 reset_one_device (d);
 }
 }
 void
 Lisp_Object concons;
 CONSOLE_LOOP (concons)
 {
 struct console *con = XCONSOLE (XCAR (concons));
 reset_one_console (con);
 }
 unmunge_process_groups ();
 }
 assert (CONSOLE_TTY_P (con));
 input_fd = CONSOLE_TTY_DATA (con)->infd;
 /* 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. */
 #ifdef IBMR2AIX
 if (ioctl (input_fd, HFQERROR, &junk) < 0)
 return;
 #else /* not IBMR2AIX */
 if (ioctl (input_fd, HFQEIO, 0) < 0)
 void
 init_vms_input (void)
 {
 /* #### broken. */
 int status;
 if (input_fd == 0)
 {
 status = SYS$ASSIGN (&vms_input_dsc, &input_fd, 0, 0);
 if (! (status & 1))
 	LIB$STOP (status);
 #ifdef ASTDEBUG
 if (vms_input_count == 25)
 exit (1);
 printf ("Ast # %d,", vms_input_count);
 printf (" iosb = %x, %x, %x, %x",
 	  vms_input_iosb.offset, vms_input_iosb.status,
 vms_input_iosb.termlen, vms_input_iosb.term);
 #endif
 if (vms_input_iosb.offset)
 {
 c = vms_input_buffer;
 *	doing an unexec.  After unexec the return value is undefined.
 *	See crt0.c for further explanation and _start.
 *
 */
+#ifdef __cplusplus
+extern "C" int _start ();
+#else
+extern int _start ();
+#endif
 #ifndef HAVE_TEXT_START
 char *
 start_of_text (void)
 {
 #ifdef TEXT_START
 #else
 #ifdef GOULD
 extern csrt ();
 return ((char *) csrt);
 #else /* not GOULD */
-extern int _start ();
 return ((char *) _start);
 #endif /* GOULD */
 #endif /* TEXT_START */
 }
 #endif /* not HAVE_TEXT_START */
 *	unexec will produce a shared executable where the data can be
 *	at the normal shared text boundry and the startofdata variable
 *	will be patched by unexec to the correct value.
 *
 */
 void *
 start_of_data (void)
 {
 #ifdef DATA_START
 return ((char *) DATA_START);
 /*
 *	Return the address of the end of the text segment prior to
 *	doing an unexec.  After unexec the return value is undefined.
 */
 char *
 end_of_text (void)
 {
 #ifdef TEXT_END
 return ((char *) TEXT_END);
 #else
 extern int etext;
 return ((char *) &etext);
 #endif
 }
 /*
 *	Return the address of the end of the data segment prior to
 *	doing an unexec.  After unexec the return value is undefined.
 */
 /* BSD 4.1 crap deleted.  4.2 was released in 1983, for God's sake!  I
 can't imagine that anyone is actually running that OS any more.
 You can't use X under it (I think) because there's no select().
 Anyway, the signal stuff has all been changed.  If someone wants to
 get this stuff working again, look in the FSF Emacs sources. */
 /* POSIX signals support - DJB */
 #ifdef HAVE_SIGPROCMASK
 /* #### Is there any reason this is static global rather than local? */
 int
 sys_open (CONST char *path, int oflag, ...)
 {
 int mode;
 va_list ap;
 va_start (ap, oflag);
 mode = va_arg (ap, int);
 va_end (ap);
 PATHNAME_CONVERT_OUT (path);
 #ifdef VMS
 return vms_write (fildes, buf, nbyte);
 #else
 int rtnval;
 int bytes_written = 0;
-CONST char *b = buf;
+CONST char *b = (CONST char *) buf;
 /* No harm in looping regardless of the INTERRUPTIBLE_IO setting. */
 while (nbyte > 0)
 {
 rtnval = write (fildes, b, nbyte);
 #ifdef ENCAPSULATE_READDIR
 DIRENTRY *
 sys_readdir (DIR *dirp)
 {
 DIRENTRY *rtnval;
 /* Apparently setting errno is necessary on some systems?
 Maybe readdir() doesn't always set errno ?! */
 while (!(errno = 0, rtnval = readdir (dirp))
 return NULL;
 {
 Extcount external_len;
 int ascii_filename_p = 1;
 CONST Extbyte * CONST external_name = (CONST Extbyte *) rtnval->d_name;
 /* Optimize for the common all-ASCII case, computing len en passant */
 for (external_len = 0; external_name[external_len] ; external_len++)
 {
 if (!BYTE_ASCII_P (external_name[external_len]))
 ascii_filename_p = 0;
 }
 if (ascii_filename_p)
 return rtnval;
 { /* Non-ASCII filename */
-static bufbyte_dynarr *internal_DIRENTRY;
+static Bufbyte_dynarr *internal_DIRENTRY;
 CONST Bufbyte *internal_name;
 Bytecount internal_len;
 if (!internal_DIRENTRY)
 internal_DIRENTRY = Dynarr_new (Bufbyte);
 else
 int
 sys_execvp (CONST char *path, char * CONST * argv)
 {
 int i, argc;
 CONST char ** new_argv;
 PATHNAME_CONVERT_OUT (path);
 for (argc = 0; argv[argc]; argc++)
 ;
-new_argv = (CONST char **) alloca ( (argc + 1) * sizeof (* new_argv));
+new_argv = alloca_array (CONST char *, argc + 1);
 for (i = 0; i < argc; i++)
 GET_C_CHARPTR_EXT_FILENAME_DATA_ALLOCA (argv[i], new_argv[i]);
 new_argv[argc] = NULL;
 return execvp (path, (char **) new_argv);
 }
 int
 dup2 (int oldd, int newd)
 {
 int fd, ret;
 sys_close (newd);
 #ifdef F_DUPFD
 fd = fcntl (oldd, F_DUPFD, newd);
 if (fd != newd)
 *	Gettimeofday.  Simulate as much as possible.  Only accurate
 *	to nearest second.  Emacs doesn't use tzp so ignore it for now.
 */
 #if !defined (HAVE_GETTIMEOFDAY)
 int
 gettimeofday (struct timeval *tp, struct timezone *tzp)
 {
 extern long time ();
 tp->tv_sec = time ((long *)0);
 tp->tv_usec = 0;
 if (tzp != 0)
 tzp->tz_minuteswest = -1;
 return (0);
 }
 #endif /* !HAVE_GETTIMEOFDAY */
 /* No need to encapsulate utime and utimes explicitly because all
 access to those functions goes through the following. */
 int
 set_file_times (char *filename, EMACS_TIME atime, EMACS_TIME mtime)
 return buf;
 }
 #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.)
 */
 #ifdef VMS4_4
 /* translate possible directory spec into .DIR file name, so brain-dead
 * 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)
 return -1;
 {
 unsigned short int dummy;
 item itemlst[3];
 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 stat;
 if (mode & R_OK)
 if (type != 2)		/* not checking write access */
 return access (filename, type);
 /* Check write protection. */
 #define	CHECKPRIV(bit)    (prvmask.bit)
 #define	WRITEABLE(field)  (! ((xab.xab$w_pro >> field) & XAB$M_NOWRITE))
 /* Find privilege bits */
 status = SYS$SETPRV (0, 0, 0, prvmask);
 return -1;	/* Not writeable */
 }
 #endif /* not VMS4_4 */
 #endif /* access */
 static char vtbuf[NAM$C_MAXRSS+1];
 /* translate a vms file spec to a unix path */
 char *
 sys_translate_vms (char *vfile)
 	  case '-':
 	    *targ++ = '.';
 	    *targ++ = '.';
 	    break;
 	  default:
 	    *targ++ = *vfile;
 	    break;
 	  }
 vfile++;
 	  break;
 	}
 ufile++;
 }
 *targ = '\0';
 return utbuf;
 }
 char *
 getwd (char *pathname)
 * The VMS C library routine creat actually creates a new version of an
 * existing file rather than truncating the old version.  There are times
 * 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
 * "close (creat (fn, 0));" on Unix if fn already exists.
 */
 int
 vms_truncate (char *fn)
 {
 get_uaf_name (char *uname)
 {
 status;
 struct FAB uaf_fab;
 struct RAB uaf_rab;
 uaf_fab = cc$rms_fab;
 uaf_rab = cc$rms_rab;
 /* initialize fab fields */
 uaf_fab.fab$l_fna = "SYS$SYSTEM:SYSUAF.DAT";
 uaf_fab.fab$b_fns = 21;
 get_uaf_uic (unsigned long uic)
 {
 status;
 struct FAB uaf_fab;
 struct RAB uaf_rab;
 uaf_fab = cc$rms_fab;
 uaf_rab = cc$rms_rab;
 /* initialize fab fields */
 uaf_fab.fab$l_fna = "SYS$SYSTEM:SYSUAF.DAT";
 uaf_fab.fab$b_fns = 21;
 We could use the chmod function, but Eunichs uses 3 bits per user category
 to describe the protection, and VMS uses 4 (write and delete are separate
 bits).  To maintain portability, the VMS implementation of `chmod' wires
 the W and D bits together.  */
 static char vms_file_written[NAM$C_MAXRSS];
 int
 rename_sans_version (char *from, char *to)
 {

Mercurial > hg > xemacs-beta

comparison src/sysdep.c @ 185:3d6bfa290dbd r20-3b19