1 /* Interfaces to system-dependent kernel and library entries.
2 Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1999, 2000, 2001,
3 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
4 Free Software Foundation, Inc.
6 This file is part of GNU Emacs.
8 GNU Emacs is free software: you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation, either version 3 of the License, or
11 (at your option) any later version.
13 GNU Emacs is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
32 #endif /* HAVE_PWD_H */
35 #endif /* HAVE_LIMITS_H */
41 /* Including stdlib.h isn't necessarily enough to get srandom
42 declared, e.g. without __USE_XOPEN_EXTENDED with glibc 2. */
44 /* The w32 build defines select stuff in w32.h, which is included by
45 sys/select.h (included below). */
47 #include "sysselect.h"
50 #include "blockinput.h"
54 #define write sys_write
59 #endif /* not WINDOWSNT */
61 #include <sys/types.h>
68 #define setpgrp setpgid
72 /* Get SI_SRPC_DOMAIN, if it is available. */
73 #ifdef HAVE_SYS_SYSTEMINFO_H
74 #include <sys/systeminfo.h>
77 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida, MW Aug 1993 */
81 #include <sys/param.h>
84 extern unsigned start
__asm__ ("start");
94 #include <sys/ioctl.h>
101 #include <sys/utsname.h>
105 extern int quit_char
;
107 #include "keyboard.h"
110 #include "termhooks.h"
111 #include "termchar.h"
112 #include "termopts.h"
113 #include "dispextern.h"
115 #include "cm.h" /* for reset_sys_modes */
117 /* For serial_configure and serial_open. */
118 extern Lisp_Object QCport
, QCspeed
, QCprocess
;
119 extern Lisp_Object QCbytesize
, QCstopbits
, QCparity
, Qodd
, Qeven
;
120 extern Lisp_Object QCflowcontrol
, Qhw
, Qsw
, QCsummary
;
124 /* In process.h which conflicts with the local copy. */
126 int _cdecl
_spawnlp (int, const char *, const char *, ...);
127 int _cdecl
_getpid (void);
128 extern char *getwd (char *);
131 #include "syssignal.h"
138 #ifndef HAVE_STRUCT_UTIMBUF
139 /* We want to use utime rather than utimes, but we couldn't find the
140 structure declaration. We'll use the traditional one. */
148 /* LPASS8 is new in 4.3, and makes cbreak mode provide all 8 bits. */
153 static const int baud_convert
[] =
155 0, 50, 75, 110, 135, 150, 200, 300, 600, 1200,
156 1800, 2400, 4800, 9600, 19200, 38400
162 #if defined (HAVE_LIBNCURSES) && ! defined (NCURSES_OSPEED_T)
164 #if defined (HAVE_TERMIOS_H) && defined (GNU_LINUX)
172 void croak (char *) NO_RETURN
;
174 /* Temporary used by `sigblock' when defined in terms of signprocmask. */
176 SIGMASKTYPE sigprocmask_set
;
179 #if !defined (HAVE_GET_CURRENT_DIR_NAME) || defined (BROKEN_GET_CURRENT_DIR_NAME)
181 /* Return the current working directory. Returns NULL on errors.
182 Any other returned value must be freed with free. This is used
183 only when get_current_dir_name is not defined on the system. */
185 get_current_dir_name ()
189 struct stat dotstat
, pwdstat
;
190 /* If PWD is accurate, use it instead of calling getwd. PWD is
191 sometimes a nicer name, and using it may avoid a fatal error if a
192 parent directory is searchable but not readable. */
193 if ((pwd
= getenv ("PWD")) != 0
194 && (IS_DIRECTORY_SEP (*pwd
) || (*pwd
&& IS_DEVICE_SEP (pwd
[1])))
195 && stat (pwd
, &pwdstat
) == 0
196 && stat (".", &dotstat
) == 0
197 && dotstat
.st_ino
== pwdstat
.st_ino
198 && dotstat
.st_dev
== pwdstat
.st_dev
200 && strlen (pwd
) < MAXPATHLEN
204 buf
= (char *) malloc (strlen (pwd
) + 1);
212 size_t buf_size
= 1024;
213 buf
= (char *) malloc (buf_size
);
218 if (getcwd (buf
, buf_size
) == buf
)
222 int tmp_errno
= errno
;
228 buf
= (char *) realloc (buf
, buf_size
);
236 /* We need MAXPATHLEN here. */
237 buf
= (char *) malloc (MAXPATHLEN
+ 1);
240 if (getwd (buf
) == NULL
)
242 int tmp_errno
= errno
;
254 /* Discard pending input on all input descriptors. */
260 struct emacs_tty buf
;
265 #ifdef MSDOS /* Demacs 1.1.1 91/10/16 HIRANO Satoshi */
266 while (dos_keyread () != -1)
268 #else /* not MSDOS */
270 struct tty_display_info
*tty
;
271 for (tty
= tty_list
; tty
; tty
= tty
->next
)
273 if (tty
->input
) /* Is the device suspended? */
275 EMACS_GET_TTY (fileno (tty
->input
), &buf
);
276 EMACS_SET_TTY (fileno (tty
->input
), &buf
, 0);
280 #endif /* not MSDOS */
281 #endif /* not WINDOWSNT */
287 /* Arrange for character C to be read as the next input from
289 XXX What if we have multiple ttys?
295 if (! FRAME_TERMCAP_P (SELECTED_FRAME ()))
298 /* Should perhaps error if in batch mode */
300 ioctl (fileno (CURTTY()->input
), TIOCSTI
, &c
);
301 #else /* no TIOCSTI */
302 error ("Cannot stuff terminal input characters in this version of Unix");
303 #endif /* no TIOCSTI */
309 init_baud_rate (int fd
)
317 #else /* not DOS_NT */
323 emacs_ospeed
= cfgetospeed (&sg
);
324 #else /* not TERMIOS */
332 ioctl (fd
, TCGETA
, &sg
);
334 emacs_ospeed
= sg
.c_cflag
& CBAUD
;
335 #else /* neither TERMIOS nor TERMIO */
338 sg
.sg_ospeed
= B9600
;
339 if (ioctl (fd
, TIOCGETP
, &sg
) < 0)
341 emacs_ospeed
= sg
.sg_ospeed
;
342 #endif /* not HAVE_TERMIO */
343 #endif /* not HAVE_TERMIOS */
344 #endif /* not DOS_NT */
347 baud_rate
= (emacs_ospeed
< sizeof baud_convert
/ sizeof baud_convert
[0]
348 ? baud_convert
[emacs_ospeed
] : 9600);
356 set_exclusive_use (fd
)
360 ioctl (fd
, FIOCLEX
, 0);
362 /* Ok to do nothing if this feature does not exist */
367 wait_without_blocking ()
369 croak ("wait_without_blocking");
370 synch_process_alive
= 0;
373 #endif /* not subprocesses */
375 int wait_debugging
; /* Set nonzero to make following function work under dbx
376 (at least for bsd). */
379 wait_for_termination_signal ()
382 /* Wait for subprocess with process id `pid' to terminate and
383 make sure it will get eliminated (not remain forever as a zombie) */
386 wait_for_termination (pid
)
392 #if defined (BSD_SYSTEM) || defined (HPUX)
393 /* Note that kill returns -1 even if the process is just a zombie now.
394 But inevitably a SIGCHLD interrupt should be generated
395 and child_sig will do wait3 and make the process go away. */
396 /* There is some indication that there is a bug involved with
397 termination of subprocesses, perhaps involving a kernel bug too,
398 but no idea what it is. Just as a hunch we signal SIGCHLD to see
399 if that causes the problem to go away or get worse. */
400 sigsetmask (sigmask (SIGCHLD
));
401 if (0 > kill (pid
, 0))
403 sigsetmask (SIGEMPTYMASK
);
404 kill (getpid (), SIGCHLD
);
410 sigpause (SIGEMPTYMASK
);
411 #else /* not BSD_SYSTEM, and not HPUX version >= 6 */
415 #else /* not WINDOWSNT */
416 sigblock (sigmask (SIGCHLD
));
418 if (kill (pid
, 0) == -1 && errno
== ESRCH
)
420 sigunblock (sigmask (SIGCHLD
));
424 sigsuspend (&empty_mask
);
425 #endif /* not WINDOWSNT */
426 #endif /* not BSD_SYSTEM, and not HPUX version >= 6 */
427 #else /* not subprocesses */
429 #endif /* not subprocesses */
436 * flush any pending output
437 * (may flush input as well; it does not matter the way we use it)
441 flush_pending_output (channel
)
445 /* If we try this, we get hit with SIGTTIN, because
446 the child's tty belongs to the child's pgrp. */
449 ioctl (channel
, TCFLSH
, 1);
453 /* 3rd arg should be ignored
454 but some 4.2 kernels actually want the address of an int
455 and nonzero means something different. */
456 ioctl (channel
, TIOCFLUSH
, &zero
);
462 /* Set up the terminal at the other end of a pseudo-terminal that
463 we will be controlling an inferior through.
464 It should not echo or do line-editing, since that is done
465 in Emacs. No padding needed for insertion into an Emacs buffer. */
468 child_setup_tty (out
)
474 EMACS_GET_TTY (out
, &s
);
476 #if defined (HAVE_TERMIO) || defined (HAVE_TERMIOS)
477 s
.main
.c_oflag
|= OPOST
; /* Enable output postprocessing */
478 s
.main
.c_oflag
&= ~ONLCR
; /* Disable map of NL to CR-NL on output */
480 /* http://lists.gnu.org/archive/html/emacs-devel/2008-05/msg00406.html
481 Some versions of GNU Hurd do not have FFDLY? */
483 s
.main
.c_oflag
&= ~(NLDLY
|CRDLY
|TABDLY
|BSDLY
|VTDLY
|FFDLY
);
484 /* No output delays */
486 s
.main
.c_oflag
&= ~(NLDLY
|CRDLY
|TABDLY
|BSDLY
|VTDLY
);
487 /* No output delays */
490 s
.main
.c_lflag
&= ~ECHO
; /* Disable echo */
491 s
.main
.c_lflag
|= ISIG
; /* Enable signals */
493 s
.main
.c_iflag
&= ~IUCLC
; /* Disable downcasing on input. */
496 s
.main
.c_iflag
&= ~ISTRIP
; /* don't strip 8th bit on input */
499 s
.main
.c_oflag
&= ~OLCUC
; /* Disable upcasing on output. */
501 s
.main
.c_oflag
&= ~TAB3
; /* Disable tab expansion */
502 s
.main
.c_cflag
= (s
.main
.c_cflag
& ~CSIZE
) | CS8
; /* Don't strip 8th bit */
503 s
.main
.c_cc
[VERASE
] = CDISABLE
; /* disable erase processing */
504 s
.main
.c_cc
[VKILL
] = CDISABLE
; /* disable kill processing */
507 s
.main
.c_cflag
= (s
.main
.c_cflag
& ~CBAUD
) | B9600
; /* baud rate sanity */
510 #ifdef SIGNALS_VIA_CHARACTERS
511 /* the QUIT and INTR character are used in process_send_signal
512 so set them here to something useful. */
513 if (s
.main
.c_cc
[VQUIT
] == CDISABLE
)
514 s
.main
.c_cc
[VQUIT
] = '\\'&037; /* Control-\ */
515 if (s
.main
.c_cc
[VINTR
] == CDISABLE
)
516 s
.main
.c_cc
[VINTR
] = 'C'&037; /* Control-C */
517 #endif /* not SIGNALS_VIA_CHARACTERS */
520 /* Also, PTY overloads NUL and BREAK.
521 don't ignore break, but don't signal either, so it looks like NUL. */
522 s
.main
.c_iflag
&= ~IGNBRK
;
523 s
.main
.c_iflag
&= ~BRKINT
;
524 /* rms: Formerly it set s.main.c_cc[VINTR] to 0377 here
525 unconditionally. Then a SIGNALS_VIA_CHARACTERS conditional
526 would force it to 0377. That looks like duplicated code. */
527 s
.main
.c_cflag
= (s
.main
.c_cflag
& ~CBAUD
) | B9600
; /* baud rate sanity */
530 /* We used to enable ICANON (and set VEOF to 04), but this leads to
531 problems where process.c wants to send EOFs every once in a while
532 to force the output, which leads to weird effects when the
533 subprocess has disabled ICANON and ends up seeing those spurious
534 extra EOFs. So we don't send EOFs any more in
535 process.c:send_process, and instead we disable ICANON by default,
536 so if a subsprocess sets up ICANON, it's his problem (or the Elisp
537 package that talks to it) to deal with lines that are too long. */
538 s
.main
.c_lflag
&= ~ICANON
; /* Disable line editing and eof processing */
539 s
.main
.c_cc
[VMIN
] = 1;
540 s
.main
.c_cc
[VTIME
] = 0;
542 #else /* not HAVE_TERMIO */
544 s
.main
.sg_flags
&= ~(ECHO
| CRMOD
| ANYP
| ALLDELAY
| RAW
| LCASE
546 s
.main
.sg_flags
|= LPASS8
;
547 s
.main
.sg_erase
= 0377;
548 s
.main
.sg_kill
= 0377;
549 s
.lmode
= LLITOUT
| s
.lmode
; /* Don't strip 8th bit */
551 #endif /* not HAVE_TERMIO */
553 EMACS_SET_TTY (out
, &s
, 0);
555 #endif /* not DOS_NT */
558 #endif /* subprocesses */
560 /* Record a signal code and the handler for it. */
564 SIGTYPE (*handler
) (int);
567 static void save_signal_handlers (struct save_signal
*);
568 static void restore_signal_handlers (struct save_signal
*);
570 /* Suspend the Emacs process; give terminal to its superior. */
575 #if defined (SIGTSTP) && !defined (MSDOS)
578 int pgrp
= EMACS_GETPGRP (0);
579 EMACS_KILLPG (pgrp
, SIGTSTP
);
582 #else /* No SIGTSTP */
583 /* On a system where suspending is not implemented,
584 instead fork a subshell and let it talk directly to the terminal
588 #endif /* no SIGTSTP */
591 /* Fork a subshell. */
596 #ifdef DOS_NT /* Demacs 1.1.2 91/10/20 Manabu Higashida */
598 char oldwd
[MAXPATHLEN
+1]; /* Fixed length is safe on MSDOS. */
601 struct save_signal saved_handlers
[5];
603 unsigned char *str
= 0;
606 saved_handlers
[0].code
= SIGINT
;
607 saved_handlers
[1].code
= SIGQUIT
;
608 saved_handlers
[2].code
= SIGTERM
;
610 saved_handlers
[3].code
= SIGIO
;
611 saved_handlers
[4].code
= 0;
613 saved_handlers
[3].code
= 0;
616 /* Mentioning current_buffer->buffer would mean including buffer.h,
617 which somehow wedges the hp compiler. So instead... */
619 dir
= intern ("default-directory");
620 if (NILP (Fboundp (dir
)))
622 dir
= Fsymbol_value (dir
);
626 dir
= expand_and_dir_to_file (Funhandled_file_name_directory (dir
), Qnil
);
627 str
= (unsigned char *) alloca (SCHARS (dir
) + 2);
629 bcopy (SDATA (dir
), str
, len
);
630 if (str
[len
- 1] != '/') str
[len
++] = '/';
636 save_signal_handlers (saved_handlers
);
637 synch_process_alive
= 1;
641 error ("Can't spawn subshell");
648 #ifdef DOS_NT /* MW, Aug 1993 */
651 sh
= (char *) egetenv ("SUSPEND"); /* KFS, 1994-12-14 */
654 sh
= (char *) egetenv ("SHELL");
658 /* Use our buffer's default directory for the subshell. */
660 chdir ((char *) str
);
663 close_process_descs (); /* Close Emacs's pipes/ptys */
666 #ifdef SET_EMACS_PRIORITY
668 extern EMACS_INT emacs_priority
;
670 if (emacs_priority
< 0)
671 nice (-emacs_priority
);
675 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida */
677 char *epwd
= getenv ("PWD");
678 char old_pwd
[MAXPATHLEN
+1+4];
680 /* If PWD is set, pass it with corrected value. */
683 strcpy (old_pwd
, epwd
);
684 if (str
[len
- 1] == '/')
686 setenv ("PWD", str
, 1);
691 putenv (old_pwd
); /* restore previous value */
693 #else /* not MSDOS */
695 /* Waits for process completion */
696 pid
= _spawnlp (_P_WAIT
, sh
, sh
, NULL
);
699 write (1, "Can't execute subshell", 22);
700 #else /* not WINDOWSNT */
701 execlp (sh
, sh
, (char *) 0);
702 write (1, "Can't execute subshell", 22);
704 #endif /* not WINDOWSNT */
705 #endif /* not MSDOS */
708 /* Do this now if we did not do it before. */
710 save_signal_handlers (saved_handlers
);
711 synch_process_alive
= 1;
715 wait_for_termination (pid
);
717 restore_signal_handlers (saved_handlers
);
718 synch_process_alive
= 0;
722 save_signal_handlers (saved_handlers
)
723 struct save_signal
*saved_handlers
;
725 while (saved_handlers
->code
)
727 saved_handlers
->handler
728 = (SIGTYPE (*) (int)) signal (saved_handlers
->code
, SIG_IGN
);
734 restore_signal_handlers (saved_handlers
)
735 struct save_signal
*saved_handlers
;
737 while (saved_handlers
->code
)
739 signal (saved_handlers
->code
, saved_handlers
->handler
);
745 /* If SIGIO is broken, don't do anything. */
762 unrequest_sigio (void)
769 int old_fcntl_flags
[MAXDESC
];
776 old_fcntl_flags
[fd
] = fcntl (fd
, F_GETFL
, 0) & ~FASYNC
;
777 fcntl (fd
, F_SETFL
, old_fcntl_flags
[fd
] | FASYNC
);
779 interrupts_deferred
= 0;
787 fcntl (fd
, F_SETFL
, old_fcntl_flags
[fd
]);
791 #ifdef FASYNC /* F_SETFL does not imply existence of FASYNC */
792 /* XXX Uhm, FASYNC is not used anymore here. */
793 /* XXX Yeah, but you need it for SIGIO, don't you? */
802 sigunblock (sigmask (SIGWINCH
));
804 sigunblock (sigmask (SIGIO
));
806 interrupts_deferred
= 0;
810 unrequest_sigio (void)
815 #if 0 /* XXX What's wrong with blocking SIGIO under X? */
821 sigblock (sigmask (SIGWINCH
));
823 sigblock (sigmask (SIGIO
));
824 interrupts_deferred
= 1;
827 #else /* no FASYNC */
833 if (noninteractive
|| read_socket_hook
)
836 croak ("request_sigio");
842 if (noninteractive
|| read_socket_hook
)
845 croak ("unrequest_sigio");
854 /* Getting and setting emacs_tty structures. */
856 /* Set *TC to the parameters associated with the terminal FD.
857 Return zero if all's well, or -1 if we ran into an error we
858 couldn't deal with. */
860 emacs_get_tty (fd
, settings
)
862 struct emacs_tty
*settings
;
864 /* Retrieve the primary parameters - baud rate, character size, etcetera. */
866 /* We have those nifty POSIX tcmumbleattr functions. */
867 bzero (&settings
->main
, sizeof (settings
->main
));
868 if (tcgetattr (fd
, &settings
->main
) < 0)
873 /* The SYSV-style interface? */
874 if (ioctl (fd
, TCGETA
, &settings
->main
) < 0)
879 /* I give up - I hope you have the BSD ioctls. */
880 if (ioctl (fd
, TIOCGETP
, &settings
->main
) < 0)
882 #endif /* not DOS_NT */
886 /* Suivant - Do we have to get struct ltchars data? */
888 if (ioctl (fd
, TIOCGLTC
, &settings
->ltchars
) < 0)
892 /* How about a struct tchars and a wordful of lmode bits? */
894 if (ioctl (fd
, TIOCGETC
, &settings
->tchars
) < 0
895 || ioctl (fd
, TIOCLGET
, &settings
->lmode
) < 0)
899 /* We have survived the tempest. */
904 /* Set the parameters of the tty on FD according to the contents of
905 *SETTINGS. If FLUSHP is non-zero, we discard input.
906 Return 0 if all went well, and -1 if anything failed. */
909 emacs_set_tty (fd
, settings
, flushp
)
911 struct emacs_tty
*settings
;
914 /* Set the primary parameters - baud rate, character size, etcetera. */
917 /* We have those nifty POSIX tcmumbleattr functions.
918 William J. Smith <wjs@wiis.wang.com> writes:
919 "POSIX 1003.1 defines tcsetattr to return success if it was
920 able to perform any of the requested actions, even if some
921 of the requested actions could not be performed.
922 We must read settings back to ensure tty setup properly.
923 AIX requires this to keep tty from hanging occasionally." */
924 /* This make sure that we don't loop indefinitely in here. */
925 for (i
= 0 ; i
< 10 ; i
++)
926 if (tcsetattr (fd
, flushp
? TCSAFLUSH
: TCSADRAIN
, &settings
->main
) < 0)
937 bzero (&new, sizeof (new));
938 /* Get the current settings, and see if they're what we asked for. */
939 tcgetattr (fd
, &new);
940 /* We cannot use memcmp on the whole structure here because under
941 * aix386 the termios structure has some reserved field that may
944 if ( new.c_iflag
== settings
->main
.c_iflag
945 && new.c_oflag
== settings
->main
.c_oflag
946 && new.c_cflag
== settings
->main
.c_cflag
947 && new.c_lflag
== settings
->main
.c_lflag
948 && memcmp (new.c_cc
, settings
->main
.c_cc
, NCCS
) == 0)
956 /* The SYSV-style interface? */
957 if (ioctl (fd
, flushp
? TCSETAF
: TCSETAW
, &settings
->main
) < 0)
962 /* I give up - I hope you have the BSD ioctls. */
963 if (ioctl (fd
, (flushp
) ? TIOCSETP
: TIOCSETN
, &settings
->main
) < 0)
965 #endif /* not DOS_NT */
970 /* Suivant - Do we have to get struct ltchars data? */
972 if (ioctl (fd
, TIOCSLTC
, &settings
->ltchars
) < 0)
976 /* How about a struct tchars and a wordful of lmode bits? */
978 if (ioctl (fd
, TIOCSETC
, &settings
->tchars
) < 0
979 || ioctl (fd
, TIOCLSET
, &settings
->lmode
) < 0)
983 /* We have survived the tempest. */
990 int old_fcntl_owner
[MAXDESC
];
991 #endif /* F_SETOWN */
993 /* This may also be defined in stdio,
994 but if so, this does no harm,
995 and using the same name avoids wasting the other one's space. */
998 unsigned char _sobuf
[BUFSIZ
+8];
1000 char _sobuf
[BUFSIZ
];
1004 static struct ltchars new_ltchars
= {-1,-1,-1,-1,-1,-1};
1007 static struct tchars new_tchars
= {-1,-1,-1,-1,-1,-1};
1010 /* Initialize the terminal mode on all tty devices that are currently
1014 init_all_sys_modes (void)
1016 struct tty_display_info
*tty
;
1017 for (tty
= tty_list
; tty
; tty
= tty
->next
)
1018 init_sys_modes (tty
);
1021 /* Initialize the terminal mode on the given tty device. */
1024 init_sys_modes (tty_out
)
1025 struct tty_display_info
*tty_out
;
1027 struct emacs_tty tty
;
1029 Vtty_erase_char
= Qnil
;
1034 if (!tty_out
->output
)
1035 return; /* The tty is suspended. */
1037 if (! tty_out
->old_tty
)
1038 tty_out
->old_tty
= (struct emacs_tty
*) xmalloc (sizeof (struct emacs_tty
));
1040 EMACS_GET_TTY (fileno (tty_out
->input
), tty_out
->old_tty
);
1042 tty
= *tty_out
->old_tty
;
1044 #if defined (HAVE_TERMIO) || defined (HAVE_TERMIOS)
1045 XSETINT (Vtty_erase_char
, tty
.main
.c_cc
[VERASE
]);
1047 tty
.main
.c_iflag
|= (IGNBRK
); /* Ignore break condition */
1048 tty
.main
.c_iflag
&= ~ICRNL
; /* Disable map of CR to NL on input */
1049 #ifdef INLCR /* I'm just being cautious,
1050 since I can't check how widespread INLCR is--rms. */
1051 tty
.main
.c_iflag
&= ~INLCR
; /* Disable map of NL to CR on input */
1054 tty
.main
.c_iflag
&= ~ISTRIP
; /* don't strip 8th bit on input */
1056 tty
.main
.c_lflag
&= ~ECHO
; /* Disable echo */
1057 tty
.main
.c_lflag
&= ~ICANON
; /* Disable erase/kill processing */
1059 tty
.main
.c_lflag
&= ~IEXTEN
; /* Disable other editing characters. */
1061 tty
.main
.c_lflag
|= ISIG
; /* Enable signals */
1062 if (tty_out
->flow_control
)
1064 tty
.main
.c_iflag
|= IXON
; /* Enable start/stop output control */
1066 tty
.main
.c_iflag
&= ~IXANY
;
1070 tty
.main
.c_iflag
&= ~IXON
; /* Disable start/stop output control */
1071 tty
.main
.c_oflag
&= ~ONLCR
; /* Disable map of NL to CR-NL
1073 tty
.main
.c_oflag
&= ~TAB3
; /* Disable tab expansion */
1075 if (tty_out
->meta_key
)
1077 tty
.main
.c_cflag
|= CS8
; /* allow 8th bit on input */
1078 tty
.main
.c_cflag
&= ~PARENB
;/* Don't check parity */
1081 if (tty_out
->input
== stdin
)
1083 tty
.main
.c_cc
[VINTR
] = quit_char
; /* C-g (usually) gives SIGINT */
1084 /* Set up C-g for both SIGQUIT and SIGINT.
1085 We don't know which we will get, but we handle both alike
1086 so which one it really gives us does not matter. */
1087 tty
.main
.c_cc
[VQUIT
] = quit_char
;
1091 /* We normally don't get interrupt or quit signals from tty
1092 devices other than our controlling terminal; therefore,
1093 we must handle C-g as normal input. Unfortunately, this
1094 means that the interrupt and quit feature must be
1095 disabled on secondary ttys, or we would not even see the
1098 Note that even though emacsclient could have special code
1099 to pass SIGINT to Emacs, we should _not_ enable
1100 interrupt/quit keys for emacsclient frames. This means
1101 that we can't break out of loops in C code from a
1102 secondary tty frame, but we can always decide what
1103 display the C-g came from, which is more important from a
1104 usability point of view. (Consider the case when two
1105 people work together using the same Emacs instance.) */
1106 tty
.main
.c_cc
[VINTR
] = CDISABLE
;
1107 tty
.main
.c_cc
[VQUIT
] = CDISABLE
;
1109 tty
.main
.c_cc
[VMIN
] = 1; /* Input should wait for at least 1 char */
1110 tty
.main
.c_cc
[VTIME
] = 0; /* no matter how long that takes. */
1112 tty
.main
.c_cc
[VSWTCH
] = CDISABLE
; /* Turn off shell layering use
1116 #if defined (__mips__) || defined (HAVE_TCATTR)
1118 tty
.main
.c_cc
[VSUSP
] = CDISABLE
; /* Turn off mips handling of C-z. */
1121 tty
.main
.c_cc
[V_DSUSP
] = CDISABLE
; /* Turn off mips handling of C-y. */
1122 #endif /* V_DSUSP */
1123 #ifdef VDSUSP /* Some systems have VDSUSP, some have V_DSUSP. */
1124 tty
.main
.c_cc
[VDSUSP
] = CDISABLE
;
1127 tty
.main
.c_cc
[VLNEXT
] = CDISABLE
;
1130 tty
.main
.c_cc
[VREPRINT
] = CDISABLE
;
1131 #endif /* VREPRINT */
1133 tty
.main
.c_cc
[VWERASE
] = CDISABLE
;
1134 #endif /* VWERASE */
1136 tty
.main
.c_cc
[VDISCARD
] = CDISABLE
;
1137 #endif /* VDISCARD */
1139 if (tty_out
->flow_control
)
1142 tty
.main
.c_cc
[VSTART
] = '\021';
1145 tty
.main
.c_cc
[VSTOP
] = '\023';
1151 tty
.main
.c_cc
[VSTART
] = CDISABLE
;
1154 tty
.main
.c_cc
[VSTOP
] = CDISABLE
;
1157 #endif /* mips or HAVE_TCATTR */
1160 tty
.main
.c_cc
[VSTRT
] = CDISABLE
;
1161 tty
.main
.c_cc
[VSTOP
] = CDISABLE
;
1162 tty
.main
.c_cc
[VSUSP
] = CDISABLE
;
1163 tty
.main
.c_cc
[VDSUSP
] = CDISABLE
;
1164 if (tty_out
->flow_control
)
1167 tty
.main
.c_cc
[VSTART
] = '\021';
1170 tty
.main
.c_cc
[VSTOP
] = '\023';
1173 /* Also, PTY overloads NUL and BREAK.
1174 don't ignore break, but don't signal either, so it looks like NUL.
1175 This really serves a purpose only if running in an XTERM window
1176 or via TELNET or the like, but does no harm elsewhere. */
1177 tty
.main
.c_iflag
&= ~IGNBRK
;
1178 tty
.main
.c_iflag
&= ~BRKINT
;
1180 #else /* if not HAVE_TERMIO */
1182 XSETINT (Vtty_erase_char
, tty
.main
.sg_erase
);
1183 tty
.main
.sg_flags
&= ~(ECHO
| CRMOD
| XTABS
);
1185 tty
.main
.sg_flags
|= ANYP
;
1186 tty
.main
.sg_flags
|= interrupt_input
? RAW
: CBREAK
;
1187 #endif /* not DOS_NT */
1188 #endif /* not HAVE_TERMIO */
1190 /* If going to use CBREAK mode, we must request C-g to interrupt
1191 and turn off start and stop chars, etc. If not going to use
1192 CBREAK mode, do this anyway so as to turn off local flow
1193 control for user coming over network on 4.2; in this case,
1194 only t_stopc and t_startc really matter. */
1197 /* Note: if not using CBREAK mode, it makes no difference how we
1199 tty
.tchars
= new_tchars
;
1200 tty
.tchars
.t_intrc
= quit_char
;
1201 if (tty_out
->flow_control
)
1203 tty
.tchars
.t_startc
= '\021';
1204 tty
.tchars
.t_stopc
= '\023';
1207 tty
.lmode
= LDECCTQ
| LLITOUT
| LPASS8
| LNOFLSH
| tty_out
->old_tty
.lmode
;
1209 #endif /* HAVE_TCHARS */
1210 #endif /* not HAVE_TERMIO */
1213 tty
.ltchars
= new_ltchars
;
1214 #endif /* HAVE_LTCHARS */
1215 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida, MW Aug 1993 */
1216 if (!tty_out
->term_initted
)
1217 internal_terminal_init ();
1218 dos_ttraw (tty_out
);
1221 EMACS_SET_TTY (fileno (tty_out
->input
), &tty
, 0);
1223 /* This code added to insure that, if flow-control is not to be used,
1224 we have an unlocked terminal at the start. */
1227 if (!tty_out
->flow_control
) ioctl (fileno (tty_out
->input
), TCXONC
, 1);
1230 if (!tty_out
->flow_control
) ioctl (fileno (tty_out
->input
), TIOCSTART
, 0);
1233 #if defined (HAVE_TERMIOS) || defined (HPUX)
1235 if (!tty_out
->flow_control
) tcflow (fileno (tty_out
->input
), TCOON
);
1240 #ifdef F_GETOWN /* F_SETFL does not imply existence of F_GETOWN */
1241 if (interrupt_input
)
1243 old_fcntl_owner
[fileno (tty_out
->input
)] =
1244 fcntl (fileno (tty_out
->input
), F_GETOWN
, 0);
1245 fcntl (fileno (tty_out
->input
), F_SETOWN
, getpid ());
1246 init_sigio (fileno (tty_out
->input
));
1248 if (gpm_tty
== tty_out
)
1250 /* Arrange for mouse events to give us SIGIO signals. */
1251 fcntl (gpm_fd
, F_SETOWN
, getpid ());
1252 fcntl (gpm_fd
, F_SETFL
, fcntl (gpm_fd
, F_GETFL
, 0) | O_NONBLOCK
);
1253 init_sigio (gpm_fd
);
1255 #endif /* HAVE_GPM */
1257 #endif /* F_GETOWN */
1258 #endif /* F_SETFL */
1261 /* This symbol is defined on recent USG systems.
1262 Someone says without this call USG won't really buffer the file
1263 even with a call to setbuf. */
1264 setvbuf (tty_out
->output
, (char *) _sobuf
, _IOFBF
, sizeof _sobuf
);
1266 setbuf (tty_out
->output
, (char *) _sobuf
);
1269 if (tty_out
->terminal
->set_terminal_modes_hook
)
1270 tty_out
->terminal
->set_terminal_modes_hook (tty_out
->terminal
);
1272 if (!tty_out
->term_initted
)
1274 Lisp_Object tail
, frame
;
1275 FOR_EACH_FRAME (tail
, frame
)
1277 /* XXX This needs to be revised. */
1278 if (FRAME_TERMCAP_P (XFRAME (frame
))
1279 && FRAME_TTY (XFRAME (frame
)) == tty_out
)
1280 init_frame_faces (XFRAME (frame
));
1284 if (tty_out
->term_initted
&& no_redraw_on_reenter
)
1286 /* We used to call "direct_output_forward_char(0)" here,
1287 but it's not clear why, since it may not do anything anyway. */
1291 Lisp_Object tail
, frame
;
1293 FOR_EACH_FRAME (tail
, frame
)
1295 if ((FRAME_TERMCAP_P (XFRAME (frame
))
1296 || FRAME_MSDOS_P (XFRAME (frame
)))
1297 && FRAME_TTY (XFRAME (frame
)) == tty_out
)
1298 FRAME_GARBAGED_P (XFRAME (frame
)) = 1;
1302 tty_out
->term_initted
= 1;
1305 /* Return nonzero if safe to use tabs in output.
1306 At the time this is called, init_sys_modes has not been done yet. */
1309 tabs_safe_p (int fd
)
1311 struct emacs_tty etty
;
1313 EMACS_GET_TTY (fd
, &etty
);
1314 return EMACS_TTY_TABS_OK (&etty
);
1317 /* Get terminal size from system.
1318 Store number of lines into *HEIGHTP and width into *WIDTHP.
1319 We store 0 if there's no valid information. */
1322 get_tty_size (int fd
, int *widthp
, int *heightp
)
1328 struct winsize size
;
1330 if (ioctl (fd
, TIOCGWINSZ
, &size
) == -1)
1331 *widthp
= *heightp
= 0;
1334 *widthp
= size
.ws_col
;
1335 *heightp
= size
.ws_row
;
1341 /* SunOS - style. */
1342 struct ttysize size
;
1344 if (ioctl (fd
, TIOCGSIZE
, &size
) == -1)
1345 *widthp
= *heightp
= 0;
1348 *widthp
= size
.ts_cols
;
1349 *heightp
= size
.ts_lines
;
1354 *widthp
= ScreenCols ();
1355 *heightp
= ScreenRows ();
1356 #else /* system doesn't know size */
1360 #endif /* not SunOS-style */
1361 #endif /* not BSD-style */
1364 /* Set the logical window size associated with descriptor FD
1365 to HEIGHT and WIDTH. This is used mainly with ptys. */
1368 set_window_size (fd
, height
, width
)
1369 int fd
, height
, width
;
1374 struct winsize size
;
1375 size
.ws_row
= height
;
1376 size
.ws_col
= width
;
1378 if (ioctl (fd
, TIOCSWINSZ
, &size
) == -1)
1379 return 0; /* error */
1386 /* SunOS - style. */
1387 struct ttysize size
;
1388 size
.ts_lines
= height
;
1389 size
.ts_cols
= width
;
1391 if (ioctl (fd
, TIOCGSIZE
, &size
) == -1)
1397 #endif /* not SunOS-style */
1398 #endif /* not BSD-style */
1403 /* Prepare all terminal devices for exiting Emacs. */
1406 reset_all_sys_modes (void)
1408 struct tty_display_info
*tty
;
1409 for (tty
= tty_list
; tty
; tty
= tty
->next
)
1410 reset_sys_modes (tty
);
1413 /* Prepare the terminal for closing it; move the cursor to the
1414 bottom of the frame, turn off interrupt-driven I/O, etc. */
1417 reset_sys_modes (tty_out
)
1418 struct tty_display_info
*tty_out
;
1425 if (!tty_out
->term_initted
)
1428 if (!tty_out
->output
)
1429 return; /* The tty is suspended. */
1431 /* Go to and clear the last line of the terminal. */
1433 cmgoto (tty_out
, FrameRows (tty_out
) - 1, 0);
1435 /* Code adapted from tty_clear_end_of_line. */
1436 if (tty_out
->TS_clr_line
)
1438 emacs_tputs (tty_out
, tty_out
->TS_clr_line
, 1, cmputc
);
1441 { /* have to do it the hard way */
1443 tty_turn_off_insert (tty_out
);
1445 for (i
= curX (tty_out
); i
< FrameCols (tty_out
) - 1; i
++)
1447 fputc (' ', tty_out
->output
);
1451 cmgoto (tty_out
, FrameRows (tty_out
) - 1, 0);
1452 fflush (tty_out
->output
);
1454 if (tty_out
->terminal
->reset_terminal_modes_hook
)
1455 tty_out
->terminal
->reset_terminal_modes_hook (tty_out
->terminal
);
1458 /* Avoid possible loss of output when changing terminal modes. */
1459 fsync (fileno (tty_out
->output
));
1463 #ifdef F_SETOWN /* F_SETFL does not imply existence of F_SETOWN */
1464 if (interrupt_input
)
1466 reset_sigio (fileno (tty_out
->input
));
1467 fcntl (fileno (tty_out
->input
), F_SETOWN
,
1468 old_fcntl_owner
[fileno (tty_out
->input
)]);
1470 #endif /* F_SETOWN */
1472 fcntl (fileno (tty_out
->input
), F_SETFL
,
1473 fcntl (fileno (tty_out
->input
), F_GETFL
, 0) & ~O_NDELAY
);
1475 #endif /* F_SETFL */
1477 if (tty_out
->old_tty
)
1478 while (EMACS_SET_TTY (fileno (tty_out
->input
),
1479 tty_out
->old_tty
, 0) < 0 && errno
== EINTR
)
1482 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida */
1490 /* Set up the proper status flags for use of a pty. */
1496 /* I'm told that TOICREMOTE does not mean control chars
1497 "can't be sent" but rather that they don't have
1498 input-editing or signaling effects.
1499 That should be good, because we have other ways
1500 to do those things in Emacs.
1501 However, telnet mode seems not to work on 4.2.
1502 So TIOCREMOTE is turned off now. */
1504 /* Under hp-ux, if TIOCREMOTE is turned on, some calls
1505 will hang. In particular, the "timeout" feature (which
1506 causes a read to return if there is no data available)
1507 does this. Also it is known that telnet mode will hang
1508 in such a way that Emacs must be stopped (perhaps this
1509 is the same problem).
1511 If TIOCREMOTE is turned off, then there is a bug in
1512 hp-ux which sometimes loses data. Apparently the
1513 code which blocks the master process when the internal
1514 buffer fills up does not work. Other than this,
1515 though, everything else seems to work fine.
1517 Since the latter lossage is more benign, we may as well
1518 lose that way. -- cph */
1520 #if defined(UNIX98_PTYS)
1523 ioctl (fd
, FIONBIO
, &on
);
1528 #endif /* HAVE_PTYS */
1530 #if !defined(CANNOT_DUMP) || !defined(SYSTEM_MALLOC)
1531 /* Some systems that cannot dump also cannot implement these. */
1534 * Return the address of the start of the text segment prior to
1535 * doing an unexec. After unexec the return value is undefined.
1536 * See crt0.c for further explanation and _start.
1540 #if !(defined (__NetBSD__) && defined (__ELF__))
1541 #ifndef HAVE_TEXT_START
1546 return ((char *) TEXT_START
);
1548 extern int _start ();
1549 return ((char *) _start
);
1550 #endif /* TEXT_START */
1552 #endif /* not HAVE_TEXT_START */
1556 * Return the address of the start of the data segment prior to
1557 * doing an unexec. After unexec the return value is undefined.
1558 * See crt0.c for further information and definition of data_start.
1560 * Apparently, on BSD systems this is etext at startup. On
1561 * USG systems (swapping) this is highly mmu dependent and
1562 * is also dependent on whether or not the program is running
1563 * with shared text. Generally there is a (possibly large)
1564 * gap between end of text and start of data with shared text.
1566 * On Uniplus+ systems with shared text, data starts at a
1567 * fixed address. Each port (from a given oem) is generally
1568 * different, and the specific value of the start of data can
1569 * be obtained via the UniPlus+ specific "uvar" system call,
1570 * however the method outlined in crt0.c seems to be more portable.
1572 * Probably what will have to happen when a USG unexec is available,
1573 * at least on UniPlus, is temacs will have to be made unshared so
1574 * that text and data are contiguous. Then once loadup is complete,
1575 * unexec will produce a shared executable where the data can be
1576 * at the normal shared text boundary and the startofdata variable
1577 * will be patched by unexec to the correct value.
1581 #ifndef start_of_data
1586 return ((char *) DATA_START
);
1588 #ifdef ORDINARY_LINK
1590 * This is a hack. Since we're not linking crt0.c or pre_crt0.c,
1591 * data_start isn't defined. We take the address of environ, which
1592 * is known to live at or near the start of the system crt0.c, and
1593 * we don't sweat the handful of bytes that might lose.
1595 extern char **environ
;
1597 return ((char *) &environ
);
1599 extern int data_start
;
1600 return ((char *) &data_start
);
1601 #endif /* ORDINARY_LINK */
1602 #endif /* DATA_START */
1604 #endif /* start_of_data */
1605 #endif /* NEED_STARTS (not CANNOT_DUMP or not SYSTEM_MALLOC) */
1607 /* init_system_name sets up the string for the Lisp function
1608 system-name to return. */
1610 extern Lisp_Object Vsystem_name
;
1613 #include <sys/socket.h>
1615 #endif /* HAVE_SOCKETS */
1618 #ifndef HAVE_H_ERRNO
1621 #endif /* TRY_AGAIN */
1626 #ifndef HAVE_GETHOSTNAME
1629 Vsystem_name
= build_string (uts
.nodename
);
1630 #else /* HAVE_GETHOSTNAME */
1631 unsigned int hostname_size
= 256;
1632 char *hostname
= (char *) alloca (hostname_size
);
1634 /* Try to get the host name; if the buffer is too short, try
1635 again. Apparently, the only indication gethostname gives of
1636 whether the buffer was large enough is the presence or absence
1637 of a '\0' in the string. Eech. */
1640 gethostname (hostname
, hostname_size
- 1);
1641 hostname
[hostname_size
- 1] = '\0';
1643 /* Was the buffer large enough for the '\0'? */
1644 if (strlen (hostname
) < hostname_size
- 1)
1647 hostname_size
<<= 1;
1648 hostname
= (char *) alloca (hostname_size
);
1651 /* Turn the hostname into the official, fully-qualified hostname.
1652 Don't do this if we're going to dump; this can confuse system
1653 libraries on some machines and make the dumped emacs core dump. */
1656 #endif /* not CANNOT_DUMP */
1657 if (! index (hostname
, '.'))
1660 #ifdef HAVE_GETADDRINFO
1661 struct addrinfo
*res
;
1662 struct addrinfo hints
;
1665 memset (&hints
, 0, sizeof(hints
));
1666 hints
.ai_socktype
= SOCK_STREAM
;
1667 hints
.ai_flags
= AI_CANONNAME
;
1669 for (count
= 0;; count
++)
1671 if ((ret
= getaddrinfo (hostname
, NULL
, &hints
, &res
)) == 0
1672 || ret
!= EAI_AGAIN
)
1677 Fsleep_for (make_number (1), Qnil
);
1682 struct addrinfo
*it
= res
;
1685 char *fqdn
= it
->ai_canonname
;
1686 if (fqdn
&& index (fqdn
, '.')
1687 && strcmp (fqdn
, "localhost.localdomain") != 0)
1693 hostname
= alloca (strlen (it
->ai_canonname
) + 1);
1694 strcpy (hostname
, it
->ai_canonname
);
1698 #else /* !HAVE_GETADDRINFO */
1700 for (count
= 0;; count
++)
1706 hp
= gethostbyname (hostname
);
1708 if (! (hp
== 0 && h_errno
== TRY_AGAIN
))
1715 Fsleep_for (make_number (1), Qnil
);
1720 char *fqdn
= (char *) hp
->h_name
;
1722 if (!index (fqdn
, '.'))
1724 /* We still don't have a fully qualified domain name.
1725 Try to find one in the list of alternate names */
1726 char **alias
= hp
->h_aliases
;
1728 && (!index (*alias
, '.')
1729 || !strcmp (*alias
, "localhost.localdomain")))
1736 #endif /* !HAVE_GETADDRINFO */
1738 #endif /* HAVE_SOCKETS */
1739 Vsystem_name
= build_string (hostname
);
1740 #endif /* HAVE_GETHOSTNAME */
1743 for (p
= SDATA (Vsystem_name
); *p
; p
++)
1744 if (*p
== ' ' || *p
== '\t')
1750 #if !defined (HAVE_SELECT)
1752 #include "sysselect.h"
1755 #if defined (HAVE_X_WINDOWS) && !defined (HAVE_SELECT)
1756 /* Cause explanatory error message at compile time,
1757 since the select emulation is not good enough for X. */
1758 int *x
= &x_windows_lose_if_no_select_system_call
;
1761 /* Emulate as much as select as is possible under 4.1 and needed by Gnu Emacs
1762 * Only checks read descriptors.
1764 /* How long to wait between checking fds in select */
1765 #define SELECT_PAUSE 1
1768 /* For longjmp'ing back to read_input_waiting. */
1770 jmp_buf read_alarm_throw
;
1772 /* Nonzero if the alarm signal should throw back to read_input_waiting.
1773 The read_socket_hook function sets this to 1 while it is waiting. */
1775 int read_alarm_should_throw
;
1781 signal (SIGALRM
, SIG_IGN
);
1782 SIGNAL_THREAD_CHECK (SIGALRM
);
1783 if (read_alarm_should_throw
)
1784 longjmp (read_alarm_throw
, 1);
1788 /* Only rfds are checked. */
1790 sys_select (nfds
, rfds
, wfds
, efds
, timeout
)
1792 SELECT_TYPE
*rfds
, *wfds
, *efds
;
1793 EMACS_TIME
*timeout
;
1795 /* XXX This needs to be updated for multi-tty support. Is there
1796 anybody who needs to emulate select these days? */
1801 extern int proc_buffered_char
[];
1802 #ifndef subprocesses
1803 int process_tick
= 0, update_tick
= 0;
1805 extern int process_tick
, update_tick
;
1809 #if defined (HAVE_SELECT) && defined (HAVE_X_WINDOWS)
1810 /* If we're using X, then the native select will work; we only need the
1811 emulation for non-X usage. */
1812 if (!NILP (Vinitial_window_system
))
1813 return select (nfds
, rfds
, wfds
, efds
, timeout
);
1815 timeoutval
= timeout
? EMACS_SECS (*timeout
) : 100000;
1816 local_timeout
= &timeoutval
;
1828 /* If we are looking only for the terminal, with no timeout,
1829 just read it and wait -- that's more efficient. */
1830 if (*local_timeout
== 100000 && process_tick
== update_tick
1831 && FD_ISSET (0, &orfds
))
1834 for (fd
= 1; fd
< nfds
; ++fd
)
1835 if (FD_ISSET (fd
, &orfds
))
1837 if (! detect_input_pending ())
1838 read_input_waiting ();
1844 /* Once a second, till the timer expires, check all the flagged read
1845 * descriptors to see if any input is available. If there is some then
1846 * set the corresponding bit in the return copy of rfds.
1850 register int to_check
, fd
;
1854 for (to_check
= nfds
, fd
= 0; --to_check
>= 0; fd
++)
1856 if (FD_ISSET (fd
, &orfds
))
1858 int avail
= 0, status
= 0;
1861 avail
= detect_input_pending (); /* Special keyboard handler */
1865 status
= ioctl (fd
, FIONREAD
, &avail
);
1866 #else /* no FIONREAD */
1867 /* Hoping it will return -1 if nothing available
1868 or 0 if all 0 chars requested are read. */
1869 if (proc_buffered_char
[fd
] >= 0)
1873 avail
= read (fd
, &buf
, 1);
1875 proc_buffered_char
[fd
] = buf
;
1877 #endif /* no FIONREAD */
1879 if (status
>= 0 && avail
> 0)
1887 if (*local_timeout
== 0 || ravail
!= 0 || process_tick
!= update_tick
)
1890 turn_on_atimers (0);
1891 signal (SIGALRM
, select_alarm
);
1893 alarm (SELECT_PAUSE
);
1895 /* Wait for a SIGALRM (or maybe a SIGTINT) */
1896 while (select_alarmed
== 0 && *local_timeout
!= 0
1897 && process_tick
== update_tick
)
1899 /* If we are interested in terminal input,
1900 wait by reading the terminal.
1901 That makes instant wakeup for terminal input at least. */
1902 if (FD_ISSET (0, &orfds
))
1904 read_input_waiting ();
1905 if (detect_input_pending ())
1911 (*local_timeout
) -= SELECT_PAUSE
;
1913 /* Reset the old alarm if there was one. */
1914 turn_on_atimers (1);
1916 if (*local_timeout
== 0) /* Stop on timer being cleared */
1921 #endif /* not WINDOWSNT */
1923 /* Read keyboard input into the standard buffer,
1924 waiting for at least one character. */
1927 read_input_waiting ()
1929 /* XXX This needs to be updated for multi-tty support. Is there
1930 anybody who needs to emulate select these days? */
1932 extern int quit_char
;
1934 if (read_socket_hook
)
1936 struct input_event hold_quit
;
1938 EVENT_INIT (hold_quit
);
1939 hold_quit
.kind
= NO_EVENT
;
1941 read_alarm_should_throw
= 0;
1942 if (! setjmp (read_alarm_throw
))
1943 nread
= (*read_socket_hook
) (0, 1, &hold_quit
);
1947 if (hold_quit
.kind
!= NO_EVENT
)
1948 kbd_buffer_store_event (&hold_quit
);
1952 struct input_event e
;
1954 nread
= read (fileno (stdin
), buf
, 1);
1957 /* Scan the chars for C-g and store them in kbd_buffer. */
1958 e
.kind
= ASCII_KEYSTROKE_EVENT
;
1959 e
.frame_or_window
= selected_frame
;
1961 for (i
= 0; i
< nread
; i
++)
1963 /* Convert chars > 0177 to meta events if desired.
1964 We do this under the same conditions that read_avail_input does. */
1965 if (read_socket_hook
== 0)
1967 /* If the user says she has a meta key, then believe her. */
1968 if (meta_key
== 1 && (buf
[i
] & 0x80))
1969 e
.modifiers
= meta_modifier
;
1974 XSETINT (e
.code
, buf
[i
]);
1975 kbd_buffer_store_event (&e
);
1976 /* Don't look at input that follows a C-g too closely.
1977 This reduces lossage due to autorepeat on C-g. */
1978 if (buf
[i
] == quit_char
)
1984 #if !defined (HAVE_SELECT)
1985 #define select sys_select
1988 #endif /* not HAVE_SELECT */
1989 #endif /* not MSDOS */
1991 /* POSIX signals support - DJB */
1992 /* Anyone with POSIX signals should have ANSI C declarations */
1994 sigset_t empty_mask
, full_mask
;
1999 sys_signal (int signal_number
, signal_handler_t action
)
2001 struct sigaction new_action
, old_action
;
2002 sigemptyset (&new_action
.sa_mask
);
2003 new_action
.sa_handler
= action
;
2004 new_action
.sa_flags
= 0;
2005 #if defined (SA_RESTART)
2006 /* Emacs mostly works better with restartable system services. If this
2007 flag exists, we probably want to turn it on here.
2008 However, on some systems this resets the timeout of `select'
2009 which means that `select' never finishes if it keeps getting signals.
2010 BROKEN_SA_RESTART is defined on those systems. */
2011 /* It's not clear why the comment above says "mostly works better". --Stef
2012 When SYNC_INPUT is set, we don't want SA_RESTART because we need to poll
2013 for pending input so we need long-running syscalls to be interrupted
2014 after a signal that sets the interrupt_input_pending flag. */
2015 /* Non-interactive keyboard input goes through stdio, where we always
2016 want restartable system calls. */
2017 # if defined (BROKEN_SA_RESTART) || defined(SYNC_INPUT)
2020 new_action
.sa_flags
= SA_RESTART
;
2022 sigaction (signal_number
, &new_action
, &old_action
);
2023 return (old_action
.sa_handler
);
2026 #endif /* WINDOWSNT */
2029 /* If we're compiling with GCC, we don't need this function, since it
2030 can be written as a macro. */
2032 sys_sigmask (int sig
)
2035 sigemptyset (&mask
);
2036 sigaddset (&mask
, sig
);
2041 /* I'd like to have these guys return pointers to the mask storage in here,
2042 but there'd be trouble if the code was saving multiple masks. I'll be
2043 safe and pass the structure. It normally won't be more than 2 bytes
2047 sys_sigblock (sigset_t new_mask
)
2050 sigprocmask (SIG_BLOCK
, &new_mask
, &old_mask
);
2055 sys_sigunblock (sigset_t new_mask
)
2058 sigprocmask (SIG_UNBLOCK
, &new_mask
, &old_mask
);
2063 sys_sigsetmask (sigset_t new_mask
)
2066 sigprocmask (SIG_SETMASK
, &new_mask
, &old_mask
);
2071 #if !defined HAVE_STRSIGNAL && !HAVE_DECL_SYS_SIGLIST
2072 static char *my_sys_siglist
[NSIG
];
2076 # define sys_siglist my_sys_siglist
2082 sigemptyset (&empty_mask
);
2083 sigfillset (&full_mask
);
2085 #if !defined HAVE_STRSIGNAL && !HAVE_DECL_SYS_SIGLIST
2089 sys_siglist
[SIGABRT
] = "Aborted";
2092 sys_siglist
[SIGAIO
] = "LAN I/O interrupt";
2095 sys_siglist
[SIGALRM
] = "Alarm clock";
2098 sys_siglist
[SIGBUS
] = "Bus error";
2101 sys_siglist
[SIGCLD
] = "Child status changed";
2104 sys_siglist
[SIGCHLD
] = "Child status changed";
2107 sys_siglist
[SIGCONT
] = "Continued";
2110 sys_siglist
[SIGDANGER
] = "Swap space dangerously low";
2113 sys_siglist
[SIGDGNOTIFY
] = "Notification message in queue";
2116 sys_siglist
[SIGEMT
] = "Emulation trap";
2119 sys_siglist
[SIGFPE
] = "Arithmetic exception";
2122 sys_siglist
[SIGFREEZE
] = "SIGFREEZE";
2125 sys_siglist
[SIGGRANT
] = "Monitor mode granted";
2128 sys_siglist
[SIGHUP
] = "Hangup";
2131 sys_siglist
[SIGILL
] = "Illegal instruction";
2134 sys_siglist
[SIGINT
] = "Interrupt";
2137 sys_siglist
[SIGIO
] = "I/O possible";
2140 sys_siglist
[SIGIOINT
] = "I/O intervention required";
2143 sys_siglist
[SIGIOT
] = "IOT trap";
2146 sys_siglist
[SIGKILL
] = "Killed";
2149 sys_siglist
[SIGLOST
] = "Resource lost";
2152 sys_siglist
[SIGLWP
] = "SIGLWP";
2155 sys_siglist
[SIGMSG
] = "Monitor mode data available";
2158 sys_siglist
[SIGWIND
] = "SIGPHONE";
2161 sys_siglist
[SIGPIPE
] = "Broken pipe";
2164 sys_siglist
[SIGPOLL
] = "Pollable event occurred";
2167 sys_siglist
[SIGPROF
] = "Profiling timer expired";
2170 sys_siglist
[SIGPTY
] = "PTY I/O interrupt";
2173 sys_siglist
[SIGPWR
] = "Power-fail restart";
2176 sys_siglist
[SIGQUIT
] = "Quit";
2179 sys_siglist
[SIGRETRACT
] = "Need to relinguish monitor mode";
2182 sys_siglist
[SIGSAK
] = "Secure attention";
2185 sys_siglist
[SIGSEGV
] = "Segmentation violation";
2188 sys_siglist
[SIGSOUND
] = "Sound completed";
2191 sys_siglist
[SIGSTOP
] = "Stopped (signal)";
2194 sys_siglist
[SIGSTP
] = "Stopped (user)";
2197 sys_siglist
[SIGSYS
] = "Bad argument to system call";
2200 sys_siglist
[SIGTERM
] = "Terminated";
2203 sys_siglist
[SIGTHAW
] = "SIGTHAW";
2206 sys_siglist
[SIGTRAP
] = "Trace/breakpoint trap";
2209 sys_siglist
[SIGTSTP
] = "Stopped (user)";
2212 sys_siglist
[SIGTTIN
] = "Stopped (tty input)";
2215 sys_siglist
[SIGTTOU
] = "Stopped (tty output)";
2218 sys_siglist
[SIGURG
] = "Urgent I/O condition";
2221 sys_siglist
[SIGUSR1
] = "User defined signal 1";
2224 sys_siglist
[SIGUSR2
] = "User defined signal 2";
2227 sys_siglist
[SIGVTALRM
] = "Virtual timer expired";
2230 sys_siglist
[SIGWAITING
] = "Process's LWPs are blocked";
2233 sys_siglist
[SIGWINCH
] = "Window size changed";
2236 sys_siglist
[SIGWIND
] = "SIGWIND";
2239 sys_siglist
[SIGXCPU
] = "CPU time limit exceeded";
2242 sys_siglist
[SIGXFSZ
] = "File size limit exceeded";
2245 #endif /* !defined HAVE_STRSIGNAL && !defined HAVE_DECL_SYS_SIGLIST */
2254 /* Figure out how many bits the system's random number generator uses.
2255 `random' and `lrand48' are assumed to return 31 usable bits.
2256 BSD `rand' returns a 31 bit value but the low order bits are unusable;
2257 so we'll shift it and treat it like the 15-bit USG `rand'. */
2261 # define RAND_BITS 31
2262 # else /* !HAVE_RANDOM */
2263 # ifdef HAVE_LRAND48
2264 # define RAND_BITS 31
2265 # define random lrand48
2266 # else /* !HAVE_LRAND48 */
2267 # define RAND_BITS 15
2268 # if RAND_MAX == 32767
2269 # define random rand
2270 # else /* RAND_MAX != 32767 */
2271 # if RAND_MAX == 2147483647
2272 # define random() (rand () >> 16)
2273 # else /* RAND_MAX != 2147483647 */
2275 # define random rand
2277 # define random() (rand () >> 16)
2279 # endif /* RAND_MAX != 2147483647 */
2280 # endif /* RAND_MAX != 32767 */
2281 # endif /* !HAVE_LRAND48 */
2282 # endif /* !HAVE_RANDOM */
2283 #endif /* !RAND_BITS */
2290 srandom ((unsigned int)arg
);
2292 # ifdef HAVE_LRAND48
2295 srand ((unsigned int)arg
);
2301 * Build a full Emacs-sized word out of whatever we've got.
2302 * This suffices even for a 64-bit architecture with a 15-bit rand.
2307 long val
= random ();
2308 #if VALBITS > RAND_BITS
2309 val
= (val
<< RAND_BITS
) ^ random ();
2310 #if VALBITS > 2*RAND_BITS
2311 val
= (val
<< RAND_BITS
) ^ random ();
2312 #if VALBITS > 3*RAND_BITS
2313 val
= (val
<< RAND_BITS
) ^ random ();
2314 #if VALBITS > 4*RAND_BITS
2315 val
= (val
<< RAND_BITS
) ^ random ();
2316 #endif /* need at least 5 */
2317 #endif /* need at least 4 */
2318 #endif /* need at least 3 */
2319 #endif /* need at least 2 */
2320 return val
& ((1L << VALBITS
) - 1);
2323 #ifndef HAVE_STRERROR
2329 extern char *sys_errlist
[];
2330 extern int sys_nerr
;
2332 if (errnum
>= 0 && errnum
< sys_nerr
)
2333 return sys_errlist
[errnum
];
2334 return (char *) "Unknown error";
2336 #endif /* not WINDOWSNT */
2337 #endif /* ! HAVE_STRERROR */
2340 emacs_open (path
, oflag
, mode
)
2344 register int rtnval
;
2346 while ((rtnval
= open (path
, oflag
, mode
)) == -1
2347 && (errno
== EINTR
))
2357 register int rtnval
;
2359 while ((rtnval
= close (fd
)) == -1
2360 && (errno
== EINTR
))
2363 /* If close is interrupted SunOS 4.1 may or may not have closed the
2364 file descriptor. If it did the second close will fail with
2365 errno = EBADF. That means we have succeeded. */
2366 if (rtnval
== -1 && did_retry
&& errno
== EBADF
)
2373 emacs_read (fildes
, buf
, nbyte
)
2378 register int rtnval
;
2380 while ((rtnval
= read (fildes
, buf
, nbyte
)) == -1
2381 && (errno
== EINTR
))
2387 emacs_write (fildes
, buf
, nbyte
)
2392 register int rtnval
, bytes_written
;
2398 rtnval
= write (fildes
, buf
, nbyte
);
2405 /* I originally used `QUIT' but that might causes files to
2406 be truncated if you hit C-g in the middle of it. --Stef */
2407 process_pending_signals ();
2412 return (bytes_written
? bytes_written
: -1);
2417 bytes_written
+= rtnval
;
2419 return (bytes_written
);
2424 * All of the following are for USG.
2426 * On USG systems the system calls are INTERRUPTIBLE by signals
2427 * that the user program has elected to catch. Thus the system call
2428 * must be retried in these cases. To handle this without massive
2429 * changes in the source code, we remap the standard system call names
2430 * to names for our own functions in sysdep.c that do the system call
2431 * with retries. Actually, for portability reasons, it is good
2432 * programming practice, as this example shows, to limit all actual
2433 * system calls to a single occurrence in the source. Sure, this
2434 * adds an extra level of function call overhead but it is almost
2435 * always negligible. Fred Fish, Unisoft Systems Inc.
2439 * Warning, this function may not duplicate 4.2 action properly
2440 * under error conditions.
2444 /* In 4.1, param.h fails to define this. */
2445 #define MAXPATHLEN 1024
2454 char *npath
, *spath
;
2455 extern char *getcwd ();
2457 BLOCK_INPUT
; /* getcwd uses malloc */
2458 spath
= npath
= getcwd ((char *) 0, MAXPATHLEN
);
2464 /* On Altos 3068, getcwd can return @hostname/dir, so discard
2465 up to first slash. Should be harmless on other systems. */
2466 while (*npath
&& *npath
!= '/')
2468 strcpy (pathname
, npath
);
2469 free (spath
); /* getcwd uses malloc */
2474 #endif /* HAVE_GETWD */
2477 * Emulate rename using unlink/link. Note that this is
2478 * only partially correct. Also, doesn't enforce restriction
2479 * that files be of same type (regular->regular, dir->dir, etc).
2488 if (access (from
, 0) == 0)
2491 if (link (from
, to
) == 0)
2492 if (unlink (from
) == 0)
2501 #if defined(HPUX) && !defined(HAVE_PERROR)
2503 /* HPUX curses library references perror, but as far as we know
2504 it won't be called. Anyway this definition will do for now. */
2509 #endif /* HPUX and not HAVE_PERROR */
2514 * Emulate BSD dup2. First close newd if it already exists.
2515 * Then, attempt to dup oldd. If not successful, call dup2 recursively
2516 * until we are, then close the unsuccessful ones.
2523 register int fd
, ret
;
2528 return fcntl (oldd
, F_DUPFD
, newd
);
2535 ret
= dup2 (old
,new);
2541 #endif /* not HAVE_DUP2 */
2544 * Gettimeofday. Simulate as much as possible. Only accurate
2545 * to nearest second. Emacs doesn't use tzp so ignore it for now.
2546 * Only needed when subprocesses are defined.
2550 #ifndef HAVE_GETTIMEOFDAY
2555 gettimeofday (tp
, tzp
)
2557 struct timezone
*tzp
;
2559 extern long time ();
2561 tp
->tv_sec
= time ((long *)0);
2564 tzp
->tz_minuteswest
= -1;
2570 #endif /* subprocess && !HAVE_GETTIMEOFDAY && HAVE_TIMEVAL */
2573 * This function will go away as soon as all the stubs fixed. (fnf)
2580 printf ("%s not yet implemented\r\n", badfunc
);
2581 reset_all_sys_modes ();
2587 /* Directory routines for systems that don't have them. */
2589 #ifdef SYSV_SYSTEM_DIR
2593 #if !defined (HAVE_CLOSEDIR)
2596 closedir (DIR *dirp
/* stream from opendir */)
2600 rtnval
= emacs_close (dirp
->dd_fd
);
2601 xfree ((char *) dirp
);
2605 #endif /* not HAVE_CLOSEDIR */
2606 #endif /* SYSV_SYSTEM_DIR */
2610 set_file_times (filename
, atime
, mtime
)
2611 const char *filename
;
2612 EMACS_TIME atime
, mtime
;
2615 struct timeval tv
[2];
2618 return utimes (filename
, tv
);
2619 #else /* not HAVE_UTIMES */
2621 utb
.actime
= EMACS_SECS (atime
);
2622 utb
.modtime
= EMACS_SECS (mtime
);
2623 return utime (filename
, &utb
);
2624 #endif /* not HAVE_UTIMES */
2627 /* mkdir and rmdir functions, for systems which don't have them. */
2631 * Written by Robert Rother, Mariah Corporation, August 1985.
2633 * If you want it, it's yours. All I ask in return is that if you
2634 * figure out how to do this in a Bourne Shell script you send me
2636 * sdcsvax!rmr or rmr@uscd
2638 * Severely hacked over by John Gilmore to make a 4.2BSD compatible
2639 * subroutine. 11Mar86; hoptoad!gnu
2641 * Modified by rmtodd@uokmax 6-28-87 -- when making an already existing dir,
2642 * subroutine didn't return EEXIST. It does now.
2649 mkdir (dpath
, dmode
)
2653 int cpid
, status
, fd
;
2654 struct stat statbuf
;
2656 if (stat (dpath
, &statbuf
) == 0)
2658 errno
= EEXIST
; /* Stat worked, so it already exists */
2662 /* If stat fails for a reason other than non-existence, return error */
2663 if (errno
!= ENOENT
)
2666 synch_process_alive
= 1;
2667 switch (cpid
= fork ())
2670 case -1: /* Error in fork */
2671 return (-1); /* Errno is set already */
2673 case 0: /* Child process */
2675 * Cheap hack to set mode of new directory. Since this
2676 * child process is going away anyway, we zap its umask.
2677 * FIXME, this won't suffice to set SUID, SGID, etc. on this
2678 * directory. Does anybody care?
2680 status
= umask (0); /* Get current umask */
2681 status
= umask (status
| (0777 & ~dmode
)); /* Set for mkdir */
2682 fd
= emacs_open ("/dev/null", O_RDWR
, 0);
2689 execl ("/bin/mkdir", "mkdir", dpath
, (char *) 0);
2690 _exit (-1); /* Can't exec /bin/mkdir */
2692 default: /* Parent process */
2693 wait_for_termination (cpid
);
2696 if (synch_process_death
!= 0 || synch_process_retcode
!= 0
2697 || synch_process_termsig
!= 0)
2699 errno
= EIO
; /* We don't know why, but */
2700 return -1; /* /bin/mkdir failed */
2705 #endif /* not HAVE_MKDIR */
2712 int cpid
, status
, fd
;
2713 struct stat statbuf
;
2715 if (stat (dpath
, &statbuf
) != 0)
2717 /* Stat just set errno. We don't have to */
2721 synch_process_alive
= 1;
2722 switch (cpid
= fork ())
2725 case -1: /* Error in fork */
2726 return (-1); /* Errno is set already */
2728 case 0: /* Child process */
2729 fd
= emacs_open ("/dev/null", O_RDWR
, 0);
2736 execl ("/bin/rmdir", "rmdir", dpath
, (char *) 0);
2737 _exit (-1); /* Can't exec /bin/rmdir */
2739 default: /* Parent process */
2740 wait_for_termination (cpid
);
2743 if (synch_process_death
!= 0 || synch_process_retcode
!= 0
2744 || synch_process_termsig
!= 0)
2746 errno
= EIO
; /* We don't know why, but */
2747 return -1; /* /bin/rmdir failed */
2752 #endif /* !HAVE_RMDIR */
2755 #ifndef HAVE_STRSIGNAL
2762 if (0 <= code
&& code
< NSIG
)
2764 /* Cast to suppress warning if the table has const char *. */
2765 signame
= (char *) sys_siglist
[code
];
2770 #endif /* HAVE_STRSIGNAL */
2773 /* For make-serial-process */
2774 int serial_open (char *port
)
2778 fd
= emacs_open ((char*) port
,
2791 error ("Could not open %s: %s",
2792 port
, emacs_strerror (errno
));
2795 ioctl (fd
, TIOCEXCL
, (char *) 0);
2800 #endif /* TERMIOS */
2804 #if !defined (HAVE_CFMAKERAW)
2805 /* Workaround for targets which are missing cfmakeraw. */
2806 /* Pasted from man page. */
2807 static void cfmakeraw (struct termios
*termios_p
)
2809 termios_p
->c_iflag
&= ~(IGNBRK
|BRKINT
|PARMRK
|ISTRIP
|INLCR
|IGNCR
|ICRNL
|IXON
);
2810 termios_p
->c_oflag
&= ~OPOST
;
2811 termios_p
->c_lflag
&= ~(ECHO
|ECHONL
|ICANON
|ISIG
|IEXTEN
);
2812 termios_p
->c_cflag
&= ~(CSIZE
|PARENB
);
2813 termios_p
->c_cflag
|= CS8
;
2815 #endif /* !defined (HAVE_CFMAKERAW */
2817 #if !defined (HAVE_CFSETSPEED)
2818 /* Workaround for targets which are missing cfsetspeed. */
2819 static int cfsetspeed (struct termios
*termios_p
, speed_t vitesse
)
2821 return (cfsetispeed (termios_p
, vitesse
)
2822 + cfsetospeed (termios_p
, vitesse
));
2826 /* For serial-process-configure */
2828 serial_configure (struct Lisp_Process
*p
,
2829 Lisp_Object contact
)
2831 Lisp_Object childp2
= Qnil
;
2832 Lisp_Object tem
= Qnil
;
2833 struct termios attr
;
2835 char summary
[4] = "???"; /* This usually becomes "8N1". */
2837 childp2
= Fcopy_sequence (p
->childp
);
2839 /* Read port attributes and prepare default configuration. */
2840 err
= tcgetattr (p
->outfd
, &attr
);
2842 error ("tcgetattr() failed: %s", emacs_strerror (errno
));
2844 #if defined (CLOCAL)
2845 attr
.c_cflag
|= CLOCAL
;
2848 attr
.c_cflag
|= CREAD
;
2851 /* Configure speed. */
2852 if (!NILP (Fplist_member (contact
, QCspeed
)))
2853 tem
= Fplist_get (contact
, QCspeed
);
2855 tem
= Fplist_get (p
->childp
, QCspeed
);
2857 err
= cfsetspeed (&attr
, XINT (tem
));
2859 error ("cfsetspeed(%d) failed: %s", XINT (tem
), emacs_strerror (errno
));
2860 childp2
= Fplist_put (childp2
, QCspeed
, tem
);
2862 /* Configure bytesize. */
2863 if (!NILP (Fplist_member (contact
, QCbytesize
)))
2864 tem
= Fplist_get (contact
, QCbytesize
);
2866 tem
= Fplist_get (p
->childp
, QCbytesize
);
2868 tem
= make_number (8);
2870 if (XINT (tem
) != 7 && XINT (tem
) != 8)
2871 error (":bytesize must be nil (8), 7, or 8");
2872 summary
[0] = XINT(tem
) + '0';
2873 #if defined (CSIZE) && defined (CS7) && defined (CS8)
2874 attr
.c_cflag
&= ~CSIZE
;
2875 attr
.c_cflag
|= ((XINT (tem
) == 7) ? CS7
: CS8
);
2877 /* Don't error on bytesize 8, which should be set by cfmakeraw. */
2878 if (XINT (tem
) != 8)
2879 error ("Bytesize cannot be changed");
2881 childp2
= Fplist_put (childp2
, QCbytesize
, tem
);
2883 /* Configure parity. */
2884 if (!NILP (Fplist_member (contact
, QCparity
)))
2885 tem
= Fplist_get (contact
, QCparity
);
2887 tem
= Fplist_get (p
->childp
, QCparity
);
2888 if (!NILP (tem
) && !EQ (tem
, Qeven
) && !EQ (tem
, Qodd
))
2889 error (":parity must be nil (no parity), `even', or `odd'");
2890 #if defined (PARENB) && defined (PARODD) && defined (IGNPAR) && defined (INPCK)
2891 attr
.c_cflag
&= ~(PARENB
| PARODD
);
2892 attr
.c_iflag
&= ~(IGNPAR
| INPCK
);
2897 else if (EQ (tem
, Qeven
))
2900 attr
.c_cflag
|= PARENB
;
2901 attr
.c_iflag
|= (IGNPAR
| INPCK
);
2903 else if (EQ (tem
, Qodd
))
2906 attr
.c_cflag
|= (PARENB
| PARODD
);
2907 attr
.c_iflag
|= (IGNPAR
| INPCK
);
2910 /* Don't error on no parity, which should be set by cfmakeraw. */
2912 error ("Parity cannot be configured");
2914 childp2
= Fplist_put (childp2
, QCparity
, tem
);
2916 /* Configure stopbits. */
2917 if (!NILP (Fplist_member (contact
, QCstopbits
)))
2918 tem
= Fplist_get (contact
, QCstopbits
);
2920 tem
= Fplist_get (p
->childp
, QCstopbits
);
2922 tem
= make_number (1);
2924 if (XINT (tem
) != 1 && XINT (tem
) != 2)
2925 error (":stopbits must be nil (1 stopbit), 1, or 2");
2926 summary
[2] = XINT (tem
) + '0';
2927 #if defined (CSTOPB)
2928 attr
.c_cflag
&= ~CSTOPB
;
2929 if (XINT (tem
) == 2)
2930 attr
.c_cflag
|= CSTOPB
;
2932 /* Don't error on 1 stopbit, which should be set by cfmakeraw. */
2933 if (XINT (tem
) != 1)
2934 error ("Stopbits cannot be configured");
2936 childp2
= Fplist_put (childp2
, QCstopbits
, tem
);
2938 /* Configure flowcontrol. */
2939 if (!NILP (Fplist_member (contact
, QCflowcontrol
)))
2940 tem
= Fplist_get (contact
, QCflowcontrol
);
2942 tem
= Fplist_get (p
->childp
, QCflowcontrol
);
2943 if (!NILP (tem
) && !EQ (tem
, Qhw
) && !EQ (tem
, Qsw
))
2944 error (":flowcontrol must be nil (no flowcontrol), `hw', or `sw'");
2945 #if defined (CRTSCTS)
2946 attr
.c_cflag
&= ~CRTSCTS
;
2948 #if defined (CNEW_RTSCTS)
2949 attr
.c_cflag
&= ~CNEW_RTSCTS
;
2951 #if defined (IXON) && defined (IXOFF)
2952 attr
.c_iflag
&= ~(IXON
| IXOFF
);
2956 /* Already configured. */
2958 else if (EQ (tem
, Qhw
))
2960 #if defined (CRTSCTS)
2961 attr
.c_cflag
|= CRTSCTS
;
2962 #elif defined (CNEW_RTSCTS)
2963 attr
.c_cflag
|= CNEW_RTSCTS
;
2965 error ("Hardware flowcontrol (RTS/CTS) not supported");
2968 else if (EQ (tem
, Qsw
))
2970 #if defined (IXON) && defined (IXOFF)
2971 attr
.c_iflag
|= (IXON
| IXOFF
);
2973 error ("Software flowcontrol (XON/XOFF) not supported");
2976 childp2
= Fplist_put (childp2
, QCflowcontrol
, tem
);
2978 /* Activate configuration. */
2979 err
= tcsetattr (p
->outfd
, TCSANOW
, &attr
);
2981 error ("tcsetattr() failed: %s", emacs_strerror (errno
));
2983 childp2
= Fplist_put (childp2
, QCsummary
, build_string (summary
));
2984 p
->childp
= childp2
;
2987 #endif /* TERMIOS */
2989 /* System depended enumeration of and access to system processes a-la ps(1). */
2993 /* Process enumeration and access via /proc. */
2996 list_system_processes ()
2998 Lisp_Object procdir
, match
, proclist
, next
;
2999 struct gcpro gcpro1
, gcpro2
;
3000 register Lisp_Object tail
;
3002 GCPRO2 (procdir
, match
);
3003 /* For every process on the system, there's a directory in the
3004 "/proc" pseudo-directory whose name is the numeric ID of that
3006 procdir
= build_string ("/proc");
3007 match
= build_string ("[0-9]+");
3008 proclist
= directory_files_internal (procdir
, Qnil
, match
, Qt
, 0, Qnil
);
3010 /* `proclist' gives process IDs as strings. Destructively convert
3011 each string into a number. */
3012 for (tail
= proclist
; CONSP (tail
); tail
= next
)
3015 XSETCAR (tail
, Fstring_to_number (XCAR (tail
), Qnil
));
3019 /* directory_files_internal returns the files in reverse order; undo
3021 proclist
= Fnreverse (proclist
);
3025 /* The WINDOWSNT implementation is in w32.c.
3026 The MSDOS implementation is in dosfns.c. */
3027 #elif !defined (WINDOWSNT) && !defined (MSDOS)
3030 list_system_processes ()
3035 #endif /* !defined (WINDOWSNT) */
3039 time_from_jiffies (unsigned long long tval
, long hz
,
3040 time_t *sec
, unsigned *usec
)
3042 unsigned long long ullsec
;
3046 tval
-= ullsec
* hz
;
3047 /* Careful: if HZ > 1 million, then integer division by it yields zero. */
3049 *usec
= tval
* 1000000 / hz
;
3051 *usec
= tval
/ (hz
/ 1000000);
3055 ltime_from_jiffies (unsigned long long tval
, long hz
)
3060 time_from_jiffies (tval
, hz
, &sec
, &usec
);
3062 return list3 (make_number ((sec
>> 16) & 0xffff),
3063 make_number (sec
& 0xffff),
3064 make_number (usec
));
3068 get_up_time (time_t *sec
, unsigned *usec
)
3075 fup
= fopen ("/proc/uptime", "r");
3079 double uptime
, idletime
;
3081 /* The numbers in /proc/uptime use C-locale decimal point, but
3082 we already set ourselves to the C locale (see `fixup_locale'
3084 if (2 <= fscanf (fup
, "%lf %lf", &uptime
, &idletime
))
3087 *usec
= (uptime
- *sec
) * 1000000;
3094 #define MAJOR(d) (((unsigned)(d) >> 8) & 0xfff)
3095 #define MINOR(d) (((unsigned)(d) & 0xff) | (((unsigned)(d) & 0xfff00000) >> 12))
3098 procfs_ttyname (int rdev
)
3101 char name
[PATH_MAX
];
3104 fdev
= fopen ("/proc/tty/drivers", "r");
3109 unsigned long minor_beg
, minor_end
;
3110 char minor
[25]; /* 2 32-bit numbers + dash */
3113 while (!feof (fdev
) && !ferror (fdev
))
3115 if (3 <= fscanf (fdev
, "%*s %s %u %s %*s\n", name
, &major
, minor
)
3116 && major
== MAJOR (rdev
))
3118 minor_beg
= strtoul (minor
, &endp
, 0);
3120 minor_end
= minor_beg
;
3121 else if (*endp
== '-')
3122 minor_end
= strtoul (endp
+ 1, &endp
, 0);
3126 if (MINOR (rdev
) >= minor_beg
&& MINOR (rdev
) <= minor_end
)
3128 sprintf (name
+ strlen (name
), "%u", MINOR (rdev
));
3136 return build_string (name
);
3139 static unsigned long
3140 procfs_get_total_memory (void)
3143 unsigned long retval
= 2 * 1024 * 1024; /* default: 2GB */
3146 fmem
= fopen ("/proc/meminfo", "r");
3150 unsigned long entry_value
;
3151 char entry_name
[20]; /* the longest I saw is 13+1 */
3153 while (!feof (fmem
) && !ferror (fmem
))
3155 if (2 <= fscanf (fmem
, "%s %lu kB\n", entry_name
, &entry_value
)
3156 && strcmp (entry_name
, "MemTotal:") == 0)
3158 retval
= entry_value
;
3169 system_process_attributes (Lisp_Object pid
)
3171 char procfn
[PATH_MAX
], fn
[PATH_MAX
];
3175 long clocks_per_sec
;
3177 char procbuf
[1025], *p
, *q
;
3180 const char *cmd
= NULL
;
3181 char *cmdline
= NULL
;
3182 size_t cmdsize
= 0, cmdline_size
;
3184 int proc_id
, ppid
, uid
, gid
, pgrp
, sess
, tty
, tpgid
, thcount
;
3185 unsigned long long utime
, stime
, cutime
, cstime
, start
;
3186 long priority
, nice
, rss
;
3187 unsigned long minflt
, majflt
, cminflt
, cmajflt
, vsize
;
3190 EMACS_TIME tnow
, tstart
, tboot
, telapsed
;
3192 Lisp_Object attrs
= Qnil
;
3193 Lisp_Object cmd_str
, decoded_cmd
, tem
;
3194 struct gcpro gcpro1
, gcpro2
;
3195 EMACS_INT uid_eint
, gid_eint
;
3197 CHECK_NUMBER_OR_FLOAT (pid
);
3198 proc_id
= FLOATP (pid
) ? XFLOAT_DATA (pid
) : XINT (pid
);
3199 sprintf (procfn
, "/proc/%u", proc_id
);
3200 if (stat (procfn
, &st
) < 0)
3203 GCPRO2 (attrs
, decoded_cmd
);
3207 /* Use of EMACS_INT stops GCC whining about limited range of data type. */
3209 attrs
= Fcons (Fcons (Qeuid
, make_fixnum_or_float (uid_eint
)), attrs
);
3211 pw
= getpwuid (uid
);
3214 attrs
= Fcons (Fcons (Quser
, build_string (pw
->pw_name
)), attrs
);
3218 attrs
= Fcons (Fcons (Qegid
, make_fixnum_or_float (gid_eint
)), attrs
);
3220 gr
= getgrgid (gid
);
3223 attrs
= Fcons (Fcons (Qgroup
, build_string (gr
->gr_name
)), attrs
);
3225 strcpy (fn
, procfn
);
3226 procfn_end
= fn
+ strlen (fn
);
3227 strcpy (procfn_end
, "/stat");
3228 fd
= emacs_open (fn
, O_RDONLY
, 0);
3229 if (fd
>= 0 && (nread
= emacs_read (fd
, procbuf
, sizeof(procbuf
) - 1)) > 0)
3231 procbuf
[nread
] = '\0';
3234 p
= strchr (p
, '(');
3237 q
= strrchr (p
+ 1, ')');
3252 /* Command name is encoded in locale-coding-system; decode it. */
3253 cmd_str
= make_unibyte_string (cmd
, cmdsize
);
3254 decoded_cmd
= code_convert_string_norecord (cmd_str
,
3255 Vlocale_coding_system
, 0);
3256 attrs
= Fcons (Fcons (Qcomm
, decoded_cmd
), attrs
);
3260 EMACS_INT ppid_eint
, pgrp_eint
, sess_eint
, tpgid_eint
, thcount_eint
;
3262 /* state ppid pgrp sess tty tpgid . minflt cminflt majflt cmajflt utime stime cutime cstime priority nice thcount . start vsize rss */
3263 sscanf (p
, "%c %d %d %d %d %d %*u %lu %lu %lu %lu %Lu %Lu %Lu %Lu %ld %ld %d %*d %Lu %lu %ld",
3264 &c
, &ppid
, &pgrp
, &sess
, &tty
, &tpgid
,
3265 &minflt
, &cminflt
, &majflt
, &cmajflt
,
3266 &utime
, &stime
, &cutime
, &cstime
,
3267 &priority
, &nice
, &thcount
, &start
, &vsize
, &rss
);
3272 state_str
[1] = '\0';
3273 tem
= build_string (state_str
);
3274 attrs
= Fcons (Fcons (Qstate
, tem
), attrs
);
3276 /* Stops GCC whining about limited range of data type. */
3281 thcount_eint
= thcount
;
3282 attrs
= Fcons (Fcons (Qppid
, make_fixnum_or_float (ppid_eint
)), attrs
);
3283 attrs
= Fcons (Fcons (Qpgrp
, make_fixnum_or_float (pgrp_eint
)), attrs
);
3284 attrs
= Fcons (Fcons (Qsess
, make_fixnum_or_float (sess_eint
)), attrs
);
3285 attrs
= Fcons (Fcons (Qttname
, procfs_ttyname (tty
)), attrs
);
3286 attrs
= Fcons (Fcons (Qtpgid
, make_fixnum_or_float (tpgid_eint
)), attrs
);
3287 attrs
= Fcons (Fcons (Qminflt
, make_fixnum_or_float (minflt
)), attrs
);
3288 attrs
= Fcons (Fcons (Qmajflt
, make_fixnum_or_float (majflt
)), attrs
);
3289 attrs
= Fcons (Fcons (Qcminflt
, make_fixnum_or_float (cminflt
)), attrs
);
3290 attrs
= Fcons (Fcons (Qcmajflt
, make_fixnum_or_float (cmajflt
)), attrs
);
3291 clocks_per_sec
= sysconf (_SC_CLK_TCK
);
3292 if (clocks_per_sec
< 0)
3293 clocks_per_sec
= 100;
3294 attrs
= Fcons (Fcons (Qutime
,
3295 ltime_from_jiffies (utime
, clocks_per_sec
)),
3297 attrs
= Fcons (Fcons (Qstime
,
3298 ltime_from_jiffies (stime
, clocks_per_sec
)),
3300 attrs
= Fcons (Fcons (Qtime
,
3301 ltime_from_jiffies (stime
+utime
, clocks_per_sec
)),
3303 attrs
= Fcons (Fcons (Qcutime
,
3304 ltime_from_jiffies (cutime
, clocks_per_sec
)),
3306 attrs
= Fcons (Fcons (Qcstime
,
3307 ltime_from_jiffies (cstime
, clocks_per_sec
)),
3309 attrs
= Fcons (Fcons (Qctime
,
3310 ltime_from_jiffies (cstime
+cutime
, clocks_per_sec
)),
3312 attrs
= Fcons (Fcons (Qpri
, make_number (priority
)), attrs
);
3313 attrs
= Fcons (Fcons (Qnice
, make_number (nice
)), attrs
);
3314 attrs
= Fcons (Fcons (Qthcount
, make_fixnum_or_float (thcount_eint
)), attrs
);
3315 EMACS_GET_TIME (tnow
);
3316 get_up_time (&sec
, &usec
);
3317 EMACS_SET_SECS (telapsed
, sec
);
3318 EMACS_SET_USECS (telapsed
, usec
);
3319 EMACS_SUB_TIME (tboot
, tnow
, telapsed
);
3320 time_from_jiffies (start
, clocks_per_sec
, &sec
, &usec
);
3321 EMACS_SET_SECS (tstart
, sec
);
3322 EMACS_SET_USECS (tstart
, usec
);
3323 EMACS_ADD_TIME (tstart
, tboot
, tstart
);
3324 attrs
= Fcons (Fcons (Qstart
,
3326 ((EMACS_SECS (tstart
) >> 16) & 0xffff),
3328 (EMACS_SECS (tstart
) & 0xffff),
3330 (EMACS_USECS (tstart
)))),
3332 attrs
= Fcons (Fcons (Qvsize
, make_fixnum_or_float (vsize
/1024)), attrs
);
3333 attrs
= Fcons (Fcons (Qrss
, make_fixnum_or_float (4*rss
)), attrs
);
3334 EMACS_SUB_TIME (telapsed
, tnow
, tstart
);
3335 attrs
= Fcons (Fcons (Qetime
,
3337 ((EMACS_SECS (telapsed
) >> 16) & 0xffff),
3339 (EMACS_SECS (telapsed
) & 0xffff),
3341 (EMACS_USECS (telapsed
)))),
3343 time_from_jiffies (utime
+ stime
, clocks_per_sec
, &sec
, &usec
);
3344 pcpu
= (sec
+ usec
/ 1000000.0) / (EMACS_SECS (telapsed
) + EMACS_USECS (telapsed
) / 1000000.0);
3347 attrs
= Fcons (Fcons (Qpcpu
, make_float (100 * pcpu
)), attrs
);
3348 pmem
= 4.0 * 100 * rss
/ procfs_get_total_memory ();
3351 attrs
= Fcons (Fcons (Qpmem
, make_float (pmem
)), attrs
);
3358 strcpy (procfn_end
, "/cmdline");
3359 fd
= emacs_open (fn
, O_RDONLY
, 0);
3362 for (cmdline_size
= 0; emacs_read (fd
, &c
, 1) == 1; cmdline_size
++)
3364 if (isspace (c
) || c
== '\\')
3365 cmdline_size
++; /* for later quoting, see below */
3369 cmdline
= xmalloc (cmdline_size
+ 1);
3370 lseek (fd
, 0L, SEEK_SET
);
3372 if ((nread
= read (fd
, cmdline
, cmdline_size
)) >= 0)
3373 cmdline
[nread
++] = '\0';
3376 /* Assigning zero to `nread' makes us skip the following
3377 two loops, assign zero to cmdline_size, and enter the
3378 following `if' clause that handles unknown command
3382 /* We don't want trailing null characters. */
3383 for (p
= cmdline
+ nread
- 1; p
> cmdline
&& !*p
; p
--)
3385 for (p
= cmdline
; p
< cmdline
+ nread
; p
++)
3387 /* Escape-quote whitespace and backslashes. */
3388 if (isspace (*p
) || *p
== '\\')
3390 memmove (p
+ 1, p
, nread
- (p
- cmdline
));
3394 else if (*p
== '\0')
3397 cmdline_size
= nread
;
3404 cmdsize
= strlen (cmd
);
3405 cmdline_size
= cmdsize
+ 2;
3406 cmdline
= xmalloc (cmdline_size
+ 1);
3407 strcpy (cmdline
, "[");
3408 strcat (strncat (cmdline
, cmd
, cmdsize
), "]");
3411 /* Command line is encoded in locale-coding-system; decode it. */
3412 cmd_str
= make_unibyte_string (cmdline
, cmdline_size
);
3413 decoded_cmd
= code_convert_string_norecord (cmd_str
,
3414 Vlocale_coding_system
, 0);
3416 attrs
= Fcons (Fcons (Qargs
, decoded_cmd
), attrs
);
3423 #elif defined (SOLARIS2) && defined (HAVE_PROCFS)
3425 /* The <procfs.h> header does not like to be included if _LP64 is defined and
3426 __FILE_OFFSET_BITS == 64. This is an ugly workaround that. */
3427 #if !defined (_LP64) && defined (_FILE_OFFSET_BITS) && (_FILE_OFFSET_BITS == 64)
3428 #define PROCFS_FILE_OFFSET_BITS_HACK 1
3429 #undef _FILE_OFFSET_BITS
3431 #define PROCFS_FILE_OFFSET_BITS_HACK 0
3436 #if PROCFS_FILE_OFFSET_BITS_HACK == 1
3437 #define _FILE_OFFSET_BITS 64
3438 #endif /* PROCFS_FILE_OFFSET_BITS_HACK == 1 */
3441 system_process_attributes (Lisp_Object pid
)
3443 char procfn
[PATH_MAX
], fn
[PATH_MAX
];
3448 struct psinfo pinfo
;
3451 int proc_id
, uid
, gid
;
3452 Lisp_Object attrs
= Qnil
;
3453 Lisp_Object decoded_cmd
, tem
;
3454 struct gcpro gcpro1
, gcpro2
;
3455 EMACS_INT uid_eint
, gid_eint
;
3457 CHECK_NUMBER_OR_FLOAT (pid
);
3458 proc_id
= FLOATP (pid
) ? XFLOAT_DATA (pid
) : XINT (pid
);
3459 sprintf (procfn
, "/proc/%u", proc_id
);
3460 if (stat (procfn
, &st
) < 0)
3463 GCPRO2 (attrs
, decoded_cmd
);
3467 /* Use of EMACS_INT stops GCC whining about limited range of data type. */
3469 attrs
= Fcons (Fcons (Qeuid
, make_fixnum_or_float (uid_eint
)), attrs
);
3471 pw
= getpwuid (uid
);
3474 attrs
= Fcons (Fcons (Quser
, build_string (pw
->pw_name
)), attrs
);
3478 attrs
= Fcons (Fcons (Qegid
, make_fixnum_or_float (gid_eint
)), attrs
);
3480 gr
= getgrgid (gid
);
3483 attrs
= Fcons (Fcons (Qgroup
, build_string (gr
->gr_name
)), attrs
);
3485 strcpy (fn
, procfn
);
3486 procfn_end
= fn
+ strlen (fn
);
3487 strcpy (procfn_end
, "/psinfo");
3488 fd
= emacs_open (fn
, O_RDONLY
, 0);
3490 && (nread
= read (fd
, (char*)&pinfo
, sizeof(struct psinfo
)) > 0))
3492 attrs
= Fcons (Fcons (Qppid
, make_fixnum_or_float (pinfo
.pr_ppid
)), attrs
);
3493 attrs
= Fcons (Fcons (Qpgrp
, make_fixnum_or_float (pinfo
.pr_pgid
)), attrs
);
3494 attrs
= Fcons (Fcons (Qsess
, make_fixnum_or_float (pinfo
.pr_sid
)), attrs
);
3498 state_str
[0] = pinfo
.pr_lwp
.pr_sname
;
3499 state_str
[1] = '\0';
3500 tem
= build_string (state_str
);
3501 attrs
= Fcons (Fcons (Qstate
, tem
), attrs
);
3504 /* FIXME: missing Qttyname. psinfo.pr_ttydev is a dev_t,
3505 need to get a string from it. */
3507 /* FIXME: missing: Qtpgid */
3519 Are they available? */
3521 attrs
= Fcons (Fcons (Qtime
,
3522 list3 (make_number (pinfo
.pr_time
.tv_sec
>> 16),
3523 make_number (pinfo
.pr_time
.tv_sec
& 0xffff),
3524 make_number (pinfo
.pr_time
.tv_nsec
))),
3527 attrs
= Fcons (Fcons (Qctime
,
3528 list3 (make_number (pinfo
.pr_ctime
.tv_sec
>> 16),
3529 make_number (pinfo
.pr_ctime
.tv_sec
& 0xffff),
3530 make_number (pinfo
.pr_ctime
.tv_nsec
))),
3533 attrs
= Fcons (Fcons (Qpri
, make_number (pinfo
.pr_lwp
.pr_pri
)), attrs
);
3534 attrs
= Fcons (Fcons (Qnice
, make_number (pinfo
.pr_lwp
.pr_nice
)), attrs
);
3535 attrs
= Fcons (Fcons (Qthcount
, make_fixnum_or_float (pinfo
.pr_nlwp
)), attrs
);
3537 attrs
= Fcons (Fcons (Qstart
,
3538 list3 (make_number (pinfo
.pr_start
.tv_sec
>> 16),
3539 make_number (pinfo
.pr_start
.tv_sec
& 0xffff),
3540 make_number (pinfo
.pr_start
.tv_nsec
))),
3542 attrs
= Fcons (Fcons (Qvsize
, make_fixnum_or_float (pinfo
.pr_size
)), attrs
);
3543 attrs
= Fcons (Fcons (Qrss
, make_fixnum_or_float (pinfo
.pr_rssize
)), attrs
);
3545 /* pr_pctcpu and pr_pctmem are encoded as a fixed point 16 bit number in [0 ... 1]. */
3546 attrs
= Fcons (Fcons (Qpcpu
, (pinfo
.pr_pctcpu
* 100.0) / (double)0x8000), attrs
);
3547 attrs
= Fcons (Fcons (Qpmem
, (pinfo
.pr_pctmem
* 100.0) / (double)0x8000), attrs
);
3550 = code_convert_string_norecord (make_unibyte_string (pinfo
.pr_fname
,
3551 strlen (pinfo
.pr_fname
)),
3552 Vlocale_coding_system
, 0);
3553 attrs
= Fcons (Fcons (Qcomm
, decoded_cmd
), attrs
);
3555 = code_convert_string_norecord (make_unibyte_string (pinfo
.pr_psargs
,
3556 strlen (pinfo
.pr_psargs
)),
3557 Vlocale_coding_system
, 0);
3558 attrs
= Fcons (Fcons (Qargs
, decoded_cmd
), attrs
);
3568 /* The WINDOWSNT implementation is in w32.c.
3569 The MSDOS implementation is in dosfns.c. */
3570 #elif !defined (WINDOWSNT) && !defined (MSDOS)
3573 system_process_attributes (Lisp_Object pid
)
3578 #endif /* !defined (WINDOWSNT) */
3581 /* arch-tag: edb43589-4e09-4544-b325-978b5b121dcf
3582 (do not change this comment) */