1 /* Interfaces to system-dependent kernel and library entries.
2 Copyright (C) 1985-1988, 1993-1995, 1999-2012
3 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
22 #define SYSTIME_INLINE EXTERN_INLINE
29 #endif /* HAVE_PWD_H */
33 #include <allocator.h>
35 #include <careadlinkat.h>
36 #include <ignore-value.h>
40 #include "sysselect.h"
41 #include "blockinput.h"
44 #include <sys/param.h>
45 #include <sys/sysctl.h>
50 #include <sys/resource.h>
56 #define write sys_write
58 #define STDERR_FILENO fileno(GetStdHandle(STD_ERROR_HANDLE))
61 #endif /* not WINDOWSNT */
63 #include <sys/types.h>
67 /* Get SI_SRPC_DOMAIN, if it is available. */
68 #ifdef HAVE_SYS_SYSTEMINFO_H
69 #include <sys/systeminfo.h>
72 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida, MW Aug 1993 */
74 #include <sys/param.h>
83 #ifdef HAVE_SYS_UTSNAME_H
84 #include <sys/utsname.h>
86 #endif /* HAVE_SYS_UTSNAME_H */
91 #include "termhooks.h"
94 #include "dispextern.h"
96 #include "cm.h" /* for reset_sys_modes */
100 /* In process.h which conflicts with the local copy. */
102 int _cdecl
_spawnlp (int, const char *, const char *, ...);
103 int _cdecl
_getpid (void);
104 extern char *getwd (char *);
107 #include "syssignal.h"
110 static int emacs_get_tty (int, struct emacs_tty
*);
111 static int emacs_set_tty (int, struct emacs_tty
*, int);
113 /* ULLONG_MAX is missing on Red Hat Linux 7.3; see Bug#11781. */
115 #define ULLONG_MAX TYPE_MAXIMUM (unsigned long long int)
118 /* Declare here, including term.h is problematic on some systems. */
119 extern void tputs (const char *, int, int (*)(int));
121 static const int baud_convert
[] =
123 0, 50, 75, 110, 135, 150, 200, 300, 600, 1200,
124 1800, 2400, 4800, 9600, 19200, 38400
128 #if !defined (HAVE_GET_CURRENT_DIR_NAME) || defined (BROKEN_GET_CURRENT_DIR_NAME)
130 /* Return the current working directory. Returns NULL on errors.
131 Any other returned value must be freed with free. This is used
132 only when get_current_dir_name is not defined on the system. */
134 get_current_dir_name (void)
138 struct stat dotstat
, pwdstat
;
139 /* If PWD is accurate, use it instead of calling getwd. PWD is
140 sometimes a nicer name, and using it may avoid a fatal error if a
141 parent directory is searchable but not readable. */
142 if ((pwd
= getenv ("PWD")) != 0
143 && (IS_DIRECTORY_SEP (*pwd
) || (*pwd
&& IS_DEVICE_SEP (pwd
[1])))
144 && stat (pwd
, &pwdstat
) == 0
145 && stat (".", &dotstat
) == 0
146 && dotstat
.st_ino
== pwdstat
.st_ino
147 && dotstat
.st_dev
== pwdstat
.st_dev
149 && strlen (pwd
) < MAXPATHLEN
153 buf
= malloc (strlen (pwd
) + 1);
161 size_t buf_size
= 1024;
162 buf
= malloc (buf_size
);
167 if (getcwd (buf
, buf_size
) == buf
)
171 int tmp_errno
= errno
;
177 buf
= realloc (buf
, buf_size
);
185 /* We need MAXPATHLEN here. */
186 buf
= malloc (MAXPATHLEN
+ 1);
189 if (getwd (buf
) == NULL
)
191 int tmp_errno
= errno
;
203 /* Discard pending input on all input descriptors. */
206 discard_tty_input (void)
209 struct emacs_tty buf
;
214 #ifdef MSDOS /* Demacs 1.1.1 91/10/16 HIRANO Satoshi */
215 while (dos_keyread () != -1)
217 #else /* not MSDOS */
219 struct tty_display_info
*tty
;
220 for (tty
= tty_list
; tty
; tty
= tty
->next
)
222 if (tty
->input
) /* Is the device suspended? */
224 emacs_get_tty (fileno (tty
->input
), &buf
);
225 emacs_set_tty (fileno (tty
->input
), &buf
, 0);
229 #endif /* not MSDOS */
230 #endif /* not WINDOWSNT */
236 /* Arrange for character C to be read as the next input from
238 XXX What if we have multiple ttys?
244 if (! FRAME_TERMCAP_P (SELECTED_FRAME ()))
247 /* Should perhaps error if in batch mode */
249 ioctl (fileno (CURTTY()->input
), TIOCSTI
, &c
);
250 #else /* no TIOCSTI */
251 error ("Cannot stuff terminal input characters in this version of Unix");
252 #endif /* no TIOCSTI */
258 init_baud_rate (int fd
)
268 #else /* not DOS_NT */
273 emacs_ospeed
= cfgetospeed (&sg
);
274 #endif /* not DOS_NT */
277 baud_rate
= (emacs_ospeed
< sizeof baud_convert
/ sizeof baud_convert
[0]
278 ? baud_convert
[emacs_ospeed
] : 9600);
288 wait_for_termination_1 (pid_t pid
, int interruptible
)
295 #else /* not WINDOWSNT */
297 int wait_result
= waitpid (pid
, &status
, 0);
305 record_child_status_change (wait_result
, status
);
309 #endif /* not WINDOWSNT */
315 /* Wait for subprocess with process id `pid' to terminate and
316 make sure it will get eliminated (not remain forever as a zombie) */
319 wait_for_termination (pid_t pid
)
321 wait_for_termination_1 (pid
, 0);
324 /* Like the above, but allow keyboard interruption. */
326 interruptible_wait_for_termination (pid_t pid
)
328 wait_for_termination_1 (pid
, 1);
332 * flush any pending output
333 * (may flush input as well; it does not matter the way we use it)
337 flush_pending_output (int channel
)
339 /* FIXME: maybe this function should be removed */
342 /* Set up the terminal at the other end of a pseudo-terminal that
343 we will be controlling an inferior through.
344 It should not echo or do line-editing, since that is done
345 in Emacs. No padding needed for insertion into an Emacs buffer. */
348 child_setup_tty (int out
)
353 emacs_get_tty (out
, &s
);
354 s
.main
.c_oflag
|= OPOST
; /* Enable output postprocessing */
355 s
.main
.c_oflag
&= ~ONLCR
; /* Disable map of NL to CR-NL on output */
357 /* http://lists.gnu.org/archive/html/emacs-devel/2008-05/msg00406.html
358 Some versions of GNU Hurd do not have FFDLY? */
360 s
.main
.c_oflag
&= ~(NLDLY
|CRDLY
|TABDLY
|BSDLY
|VTDLY
|FFDLY
);
361 /* No output delays */
363 s
.main
.c_oflag
&= ~(NLDLY
|CRDLY
|TABDLY
|BSDLY
|VTDLY
);
364 /* No output delays */
367 s
.main
.c_lflag
&= ~ECHO
; /* Disable echo */
368 s
.main
.c_lflag
|= ISIG
; /* Enable signals */
370 s
.main
.c_iflag
&= ~IUCLC
; /* Disable downcasing on input. */
373 s
.main
.c_iflag
&= ~ISTRIP
; /* don't strip 8th bit on input */
376 s
.main
.c_oflag
&= ~OLCUC
; /* Disable upcasing on output. */
378 s
.main
.c_oflag
&= ~TAB3
; /* Disable tab expansion */
379 s
.main
.c_cflag
= (s
.main
.c_cflag
& ~CSIZE
) | CS8
; /* Don't strip 8th bit */
380 s
.main
.c_cc
[VERASE
] = CDISABLE
; /* disable erase processing */
381 s
.main
.c_cc
[VKILL
] = CDISABLE
; /* disable kill processing */
384 s
.main
.c_cflag
= (s
.main
.c_cflag
& ~CBAUD
) | B9600
; /* baud rate sanity */
387 #ifdef SIGNALS_VIA_CHARACTERS
388 /* the QUIT and INTR character are used in process_send_signal
389 so set them here to something useful. */
390 if (s
.main
.c_cc
[VQUIT
] == CDISABLE
)
391 s
.main
.c_cc
[VQUIT
] = '\\'&037; /* Control-\ */
392 if (s
.main
.c_cc
[VINTR
] == CDISABLE
)
393 s
.main
.c_cc
[VINTR
] = 'C'&037; /* Control-C */
394 #endif /* not SIGNALS_VIA_CHARACTERS */
397 /* Also, PTY overloads NUL and BREAK.
398 don't ignore break, but don't signal either, so it looks like NUL. */
399 s
.main
.c_iflag
&= ~IGNBRK
;
400 s
.main
.c_iflag
&= ~BRKINT
;
401 /* rms: Formerly it set s.main.c_cc[VINTR] to 0377 here
402 unconditionally. Then a SIGNALS_VIA_CHARACTERS conditional
403 would force it to 0377. That looks like duplicated code. */
404 s
.main
.c_cflag
= (s
.main
.c_cflag
& ~CBAUD
) | B9600
; /* baud rate sanity */
407 /* We originally enabled ICANON (and set VEOF to 04), and then had
408 process.c send additional EOF chars to flush the output when faced
409 with long lines, but this leads to weird effects when the
410 subprocess has disabled ICANON and ends up seeing those spurious
411 extra EOFs. So we don't send EOFs any more in
412 process.c:send_process. First we tried to disable ICANON by
413 default, so if a subsprocess sets up ICANON, it's his problem (or
414 the Elisp package that talks to it) to deal with lines that are
415 too long. But this disables some features, such as the ability
416 to send EOF signals. So we re-enabled ICANON but there is no
417 more "send eof to flush" going on (which is wrong and unportable
418 in itself). The correct way to handle too much output is to
419 buffer what could not be written and then write it again when
420 select returns ok for writing. This has it own set of
421 problems. Write is now asynchronous, is that a problem? How much
422 do we buffer, and what do we do when that limit is reached? */
424 s
.main
.c_lflag
|= ICANON
; /* Enable line editing and eof processing */
425 s
.main
.c_cc
[VEOF
] = 'D'&037; /* Control-D */
426 #if 0 /* These settings only apply to non-ICANON mode. */
427 s
.main
.c_cc
[VMIN
] = 1;
428 s
.main
.c_cc
[VTIME
] = 0;
431 emacs_set_tty (out
, &s
, 0);
432 #endif /* not WINDOWSNT */
434 #endif /* not MSDOS */
437 /* Record a signal code and the action for it. */
441 struct sigaction action
;
444 static void save_signal_handlers (struct save_signal
*);
445 static void restore_signal_handlers (struct save_signal
*);
447 /* Suspend the Emacs process; give terminal to its superior. */
452 #if defined (SIGTSTP) && !defined (MSDOS)
455 int pgrp
= EMACS_GETPGRP (0);
456 EMACS_KILLPG (pgrp
, SIGTSTP
);
459 #else /* No SIGTSTP */
460 /* On a system where suspending is not implemented,
461 instead fork a subshell and let it talk directly to the terminal
465 #endif /* no SIGTSTP */
468 /* Fork a subshell. */
473 #ifdef DOS_NT /* Demacs 1.1.2 91/10/20 Manabu Higashida */
475 char oldwd
[MAXPATHLEN
+1]; /* Fixed length is safe on MSDOS. */
478 struct save_signal saved_handlers
[5];
480 unsigned char *volatile str_volatile
= 0;
484 saved_handlers
[0].code
= SIGINT
;
485 saved_handlers
[1].code
= SIGQUIT
;
486 saved_handlers
[2].code
= SIGTERM
;
488 saved_handlers
[3].code
= SIGIO
;
489 saved_handlers
[4].code
= 0;
491 saved_handlers
[3].code
= 0;
494 /* Mentioning current_buffer->buffer would mean including buffer.h,
495 which somehow wedges the hp compiler. So instead... */
497 dir
= intern ("default-directory");
498 if (NILP (Fboundp (dir
)))
500 dir
= Fsymbol_value (dir
);
504 dir
= expand_and_dir_to_file (Funhandled_file_name_directory (dir
), Qnil
);
505 str_volatile
= str
= alloca (SCHARS (dir
) + 2);
507 memcpy (str
, SDATA (dir
), len
);
508 if (str
[len
- 1] != '/') str
[len
++] = '/';
514 save_signal_handlers (saved_handlers
);
515 synch_process_alive
= 1;
519 error ("Can't spawn subshell");
526 #ifdef DOS_NT /* MW, Aug 1993 */
529 sh
= (char *) egetenv ("SUSPEND"); /* KFS, 1994-12-14 */
532 sh
= (char *) egetenv ("SHELL");
536 /* Use our buffer's default directory for the subshell. */
538 if (str
&& chdir ((char *) str
) != 0)
541 ignore_value (write (1, "Can't chdir\n", 12));
546 close_process_descs (); /* Close Emacs's pipes/ptys */
548 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida */
550 char *epwd
= getenv ("PWD");
551 char old_pwd
[MAXPATHLEN
+1+4];
553 /* If PWD is set, pass it with corrected value. */
556 strcpy (old_pwd
, epwd
);
557 if (str
[len
- 1] == '/')
559 setenv ("PWD", str
, 1);
562 chdir (oldwd
); /* FIXME: Do the right thing on chdir failure. */
564 putenv (old_pwd
); /* restore previous value */
566 #else /* not MSDOS */
568 /* Waits for process completion */
569 pid
= _spawnlp (_P_WAIT
, sh
, sh
, NULL
);
570 chdir (oldwd
); /* FIXME: Do the right thing on chdir failure. */
572 write (1, "Can't execute subshell", 22);
573 #else /* not WINDOWSNT */
574 execlp (sh
, sh
, (char *) 0);
575 ignore_value (write (1, "Can't execute subshell", 22));
577 #endif /* not WINDOWSNT */
578 #endif /* not MSDOS */
581 /* Do this now if we did not do it before. */
583 save_signal_handlers (saved_handlers
);
584 synch_process_alive
= 1;
588 wait_for_termination (pid
);
590 restore_signal_handlers (saved_handlers
);
591 synch_process_alive
= 0;
595 save_signal_handlers (struct save_signal
*saved_handlers
)
597 while (saved_handlers
->code
)
599 struct sigaction action
;
600 emacs_sigaction_init (&action
, SIG_IGN
);
601 sigaction (saved_handlers
->code
, &action
, &saved_handlers
->action
);
607 restore_signal_handlers (struct save_signal
*saved_handlers
)
609 while (saved_handlers
->code
)
611 sigaction (saved_handlers
->code
, &saved_handlers
->action
, 0);
617 static int old_fcntl_flags
[MAXDESC
];
624 old_fcntl_flags
[fd
] = fcntl (fd
, F_GETFL
, 0) & ~FASYNC
;
625 fcntl (fd
, F_SETFL
, old_fcntl_flags
[fd
] | FASYNC
);
626 interrupts_deferred
= 0;
634 fcntl (fd
, F_SETFL
, old_fcntl_flags
[fd
]);
647 sigemptyset (&unblocked
);
649 sigaddset (&unblocked
, SIGWINCH
);
651 sigaddset (&unblocked
, SIGIO
);
652 pthread_sigmask (SIG_UNBLOCK
, &unblocked
, 0);
654 interrupts_deferred
= 0;
659 unrequest_sigio (void)
667 sigemptyset (&blocked
);
669 sigaddset (&blocked
, SIGWINCH
);
671 sigaddset (&blocked
, SIGIO
);
672 pthread_sigmask (SIG_BLOCK
, &blocked
, 0);
673 interrupts_deferred
= 1;
681 signal (SIGIO
, SIG_IGN
);
686 /* Getting and setting emacs_tty structures. */
688 /* Set *TC to the parameters associated with the terminal FD.
689 Return zero if all's well, or -1 if we ran into an error we
690 couldn't deal with. */
692 emacs_get_tty (int fd
, struct emacs_tty
*settings
)
694 /* Retrieve the primary parameters - baud rate, character size, etcetera. */
696 /* We have those nifty POSIX tcmumbleattr functions. */
697 memset (&settings
->main
, 0, sizeof (settings
->main
));
698 if (tcgetattr (fd
, &settings
->main
) < 0)
702 /* We have survived the tempest. */
707 /* Set the parameters of the tty on FD according to the contents of
708 *SETTINGS. If FLUSHP is non-zero, we discard input.
709 Return 0 if all went well, and -1 if anything failed. */
712 emacs_set_tty (int fd
, struct emacs_tty
*settings
, int flushp
)
714 /* Set the primary parameters - baud rate, character size, etcetera. */
717 /* We have those nifty POSIX tcmumbleattr functions.
718 William J. Smith <wjs@wiis.wang.com> writes:
719 "POSIX 1003.1 defines tcsetattr to return success if it was
720 able to perform any of the requested actions, even if some
721 of the requested actions could not be performed.
722 We must read settings back to ensure tty setup properly.
723 AIX requires this to keep tty from hanging occasionally." */
724 /* This make sure that we don't loop indefinitely in here. */
725 for (i
= 0 ; i
< 10 ; i
++)
726 if (tcsetattr (fd
, flushp
? TCSAFLUSH
: TCSADRAIN
, &settings
->main
) < 0)
737 memset (&new, 0, sizeof (new));
738 /* Get the current settings, and see if they're what we asked for. */
739 tcgetattr (fd
, &new);
740 /* We cannot use memcmp on the whole structure here because under
741 * aix386 the termios structure has some reserved field that may
744 if ( new.c_iflag
== settings
->main
.c_iflag
745 && new.c_oflag
== settings
->main
.c_oflag
746 && new.c_cflag
== settings
->main
.c_cflag
747 && new.c_lflag
== settings
->main
.c_lflag
748 && memcmp (new.c_cc
, settings
->main
.c_cc
, NCCS
) == 0)
755 /* We have survived the tempest. */
762 static int old_fcntl_owner
[MAXDESC
];
763 #endif /* F_SETOWN */
765 /* This may also be defined in stdio,
766 but if so, this does no harm,
767 and using the same name avoids wasting the other one's space. */
770 unsigned char _sobuf
[BUFSIZ
+8];
775 /* Initialize the terminal mode on all tty devices that are currently
779 init_all_sys_modes (void)
781 struct tty_display_info
*tty
;
782 for (tty
= tty_list
; tty
; tty
= tty
->next
)
783 init_sys_modes (tty
);
786 /* Initialize the terminal mode on the given tty device. */
789 init_sys_modes (struct tty_display_info
*tty_out
)
791 struct emacs_tty tty
;
792 Lisp_Object terminal
;
794 Vtty_erase_char
= Qnil
;
799 if (!tty_out
->output
)
800 return; /* The tty is suspended. */
802 if (! tty_out
->old_tty
)
803 tty_out
->old_tty
= xmalloc (sizeof *tty_out
->old_tty
);
805 emacs_get_tty (fileno (tty_out
->input
), tty_out
->old_tty
);
807 tty
= *tty_out
->old_tty
;
809 #if !defined (DOS_NT)
810 XSETINT (Vtty_erase_char
, tty
.main
.c_cc
[VERASE
]);
812 tty
.main
.c_iflag
|= (IGNBRK
); /* Ignore break condition */
813 tty
.main
.c_iflag
&= ~ICRNL
; /* Disable map of CR to NL on input */
814 #ifdef INLCR /* I'm just being cautious,
815 since I can't check how widespread INLCR is--rms. */
816 tty
.main
.c_iflag
&= ~INLCR
; /* Disable map of NL to CR on input */
819 tty
.main
.c_iflag
&= ~ISTRIP
; /* don't strip 8th bit on input */
821 tty
.main
.c_lflag
&= ~ECHO
; /* Disable echo */
822 tty
.main
.c_lflag
&= ~ICANON
; /* Disable erase/kill processing */
824 tty
.main
.c_lflag
&= ~IEXTEN
; /* Disable other editing characters. */
826 tty
.main
.c_lflag
|= ISIG
; /* Enable signals */
827 if (tty_out
->flow_control
)
829 tty
.main
.c_iflag
|= IXON
; /* Enable start/stop output control */
831 tty
.main
.c_iflag
&= ~IXANY
;
835 tty
.main
.c_iflag
&= ~IXON
; /* Disable start/stop output control */
836 tty
.main
.c_oflag
&= ~ONLCR
; /* Disable map of NL to CR-NL
838 tty
.main
.c_oflag
&= ~TAB3
; /* Disable tab expansion */
840 if (tty_out
->meta_key
)
842 tty
.main
.c_cflag
|= CS8
; /* allow 8th bit on input */
843 tty
.main
.c_cflag
&= ~PARENB
;/* Don't check parity */
847 XSETTERMINAL(terminal
, tty_out
->terminal
);
848 if (!NILP (Fcontrolling_tty_p (terminal
)))
850 tty
.main
.c_cc
[VINTR
] = quit_char
; /* C-g (usually) gives SIGINT */
851 /* Set up C-g for both SIGQUIT and SIGINT.
852 We don't know which we will get, but we handle both alike
853 so which one it really gives us does not matter. */
854 tty
.main
.c_cc
[VQUIT
] = quit_char
;
858 /* We normally don't get interrupt or quit signals from tty
859 devices other than our controlling terminal; therefore,
860 we must handle C-g as normal input. Unfortunately, this
861 means that the interrupt and quit feature must be
862 disabled on secondary ttys, or we would not even see the
865 Note that even though emacsclient could have special code
866 to pass SIGINT to Emacs, we should _not_ enable
867 interrupt/quit keys for emacsclient frames. This means
868 that we can't break out of loops in C code from a
869 secondary tty frame, but we can always decide what
870 display the C-g came from, which is more important from a
871 usability point of view. (Consider the case when two
872 people work together using the same Emacs instance.) */
873 tty
.main
.c_cc
[VINTR
] = CDISABLE
;
874 tty
.main
.c_cc
[VQUIT
] = CDISABLE
;
876 tty
.main
.c_cc
[VMIN
] = 1; /* Input should wait for at least 1 char */
877 tty
.main
.c_cc
[VTIME
] = 0; /* no matter how long that takes. */
879 tty
.main
.c_cc
[VSWTCH
] = CDISABLE
; /* Turn off shell layering use
884 tty
.main
.c_cc
[VSUSP
] = CDISABLE
; /* Turn off handling of C-z. */
887 tty
.main
.c_cc
[V_DSUSP
] = CDISABLE
; /* Turn off handling of C-y. */
889 #ifdef VDSUSP /* Some systems have VDSUSP, some have V_DSUSP. */
890 tty
.main
.c_cc
[VDSUSP
] = CDISABLE
;
893 tty
.main
.c_cc
[VLNEXT
] = CDISABLE
;
896 tty
.main
.c_cc
[VREPRINT
] = CDISABLE
;
897 #endif /* VREPRINT */
899 tty
.main
.c_cc
[VWERASE
] = CDISABLE
;
902 tty
.main
.c_cc
[VDISCARD
] = CDISABLE
;
903 #endif /* VDISCARD */
905 if (tty_out
->flow_control
)
908 tty
.main
.c_cc
[VSTART
] = '\021';
911 tty
.main
.c_cc
[VSTOP
] = '\023';
917 tty
.main
.c_cc
[VSTART
] = CDISABLE
;
920 tty
.main
.c_cc
[VSTOP
] = CDISABLE
;
925 tty
.main
.c_cc
[VSTRT
] = CDISABLE
;
926 tty
.main
.c_cc
[VSTOP
] = CDISABLE
;
927 tty
.main
.c_cc
[VSUSP
] = CDISABLE
;
928 tty
.main
.c_cc
[VDSUSP
] = CDISABLE
;
929 if (tty_out
->flow_control
)
932 tty
.main
.c_cc
[VSTART
] = '\021';
935 tty
.main
.c_cc
[VSTOP
] = '\023';
938 /* Also, PTY overloads NUL and BREAK.
939 don't ignore break, but don't signal either, so it looks like NUL.
940 This really serves a purpose only if running in an XTERM window
941 or via TELNET or the like, but does no harm elsewhere. */
942 tty
.main
.c_iflag
&= ~IGNBRK
;
943 tty
.main
.c_iflag
&= ~BRKINT
;
945 #endif /* not DOS_NT */
947 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida, MW Aug 1993 */
948 if (!tty_out
->term_initted
)
949 internal_terminal_init ();
953 emacs_set_tty (fileno (tty_out
->input
), &tty
, 0);
955 /* This code added to insure that, if flow-control is not to be used,
956 we have an unlocked terminal at the start. */
959 if (!tty_out
->flow_control
) ioctl (fileno (tty_out
->input
), TCXONC
, 1);
962 if (!tty_out
->flow_control
) ioctl (fileno (tty_out
->input
), TIOCSTART
, 0);
965 #if !defined (DOS_NT)
967 if (!tty_out
->flow_control
) tcflow (fileno (tty_out
->input
), TCOON
);
972 #ifdef F_GETOWN /* F_SETFL does not imply existence of F_GETOWN */
975 old_fcntl_owner
[fileno (tty_out
->input
)] =
976 fcntl (fileno (tty_out
->input
), F_GETOWN
, 0);
977 fcntl (fileno (tty_out
->input
), F_SETOWN
, getpid ());
978 init_sigio (fileno (tty_out
->input
));
980 if (gpm_tty
== tty_out
)
982 /* Arrange for mouse events to give us SIGIO signals. */
983 fcntl (gpm_fd
, F_SETOWN
, getpid ());
984 fcntl (gpm_fd
, F_SETFL
, fcntl (gpm_fd
, F_GETFL
, 0) | O_NONBLOCK
);
987 #endif /* HAVE_GPM */
989 #endif /* F_GETOWN */
993 /* This symbol is defined on recent USG systems.
994 Someone says without this call USG won't really buffer the file
995 even with a call to setbuf. */
996 setvbuf (tty_out
->output
, (char *) _sobuf
, _IOFBF
, sizeof _sobuf
);
998 setbuf (tty_out
->output
, (char *) _sobuf
);
1001 if (tty_out
->terminal
->set_terminal_modes_hook
)
1002 tty_out
->terminal
->set_terminal_modes_hook (tty_out
->terminal
);
1004 if (!tty_out
->term_initted
)
1006 Lisp_Object tail
, frame
;
1007 FOR_EACH_FRAME (tail
, frame
)
1009 /* XXX This needs to be revised. */
1010 if (FRAME_TERMCAP_P (XFRAME (frame
))
1011 && FRAME_TTY (XFRAME (frame
)) == tty_out
)
1012 init_frame_faces (XFRAME (frame
));
1016 if (tty_out
->term_initted
&& no_redraw_on_reenter
)
1018 /* We used to call "direct_output_forward_char(0)" here,
1019 but it's not clear why, since it may not do anything anyway. */
1023 Lisp_Object tail
, frame
;
1025 FOR_EACH_FRAME (tail
, frame
)
1027 if ((FRAME_TERMCAP_P (XFRAME (frame
))
1028 || FRAME_MSDOS_P (XFRAME (frame
)))
1029 && FRAME_TTY (XFRAME (frame
)) == tty_out
)
1030 FRAME_GARBAGED_P (XFRAME (frame
)) = 1;
1034 tty_out
->term_initted
= 1;
1037 /* Return nonzero if safe to use tabs in output.
1038 At the time this is called, init_sys_modes has not been done yet. */
1041 tabs_safe_p (int fd
)
1043 struct emacs_tty etty
;
1045 emacs_get_tty (fd
, &etty
);
1048 return ((etty
.main
.c_oflag
& TABDLY
) != TAB3
);
1049 #else /* not TABDLY */
1051 #endif /* not TABDLY */
1057 /* Get terminal size from system.
1058 Store number of lines into *HEIGHTP and width into *WIDTHP.
1059 We store 0 if there's no valid information. */
1062 get_tty_size (int fd
, int *widthp
, int *heightp
)
1064 #if defined TIOCGWINSZ
1067 struct winsize size
;
1069 if (ioctl (fd
, TIOCGWINSZ
, &size
) == -1)
1070 *widthp
= *heightp
= 0;
1073 *widthp
= size
.ws_col
;
1074 *heightp
= size
.ws_row
;
1077 #elif defined TIOCGSIZE
1079 /* SunOS - style. */
1080 struct ttysize size
;
1082 if (ioctl (fd
, TIOCGSIZE
, &size
) == -1)
1083 *widthp
= *heightp
= 0;
1086 *widthp
= size
.ts_cols
;
1087 *heightp
= size
.ts_lines
;
1090 #elif defined WINDOWSNT
1092 CONSOLE_SCREEN_BUFFER_INFO info
;
1093 if (GetConsoleScreenBufferInfo (GetStdHandle (STD_OUTPUT_HANDLE
), &info
))
1095 *widthp
= info
.srWindow
.Right
- info
.srWindow
.Left
+ 1;
1096 *heightp
= info
.srWindow
.Bottom
- info
.srWindow
.Top
+ 1;
1099 *widthp
= *heightp
= 0;
1103 *widthp
= ScreenCols ();
1104 *heightp
= ScreenRows ();
1106 #else /* system doesn't know size */
1114 /* Set the logical window size associated with descriptor FD
1115 to HEIGHT and WIDTH. This is used mainly with ptys. */
1118 set_window_size (int fd
, int height
, int width
)
1123 struct winsize size
;
1124 size
.ws_row
= height
;
1125 size
.ws_col
= width
;
1127 if (ioctl (fd
, TIOCSWINSZ
, &size
) == -1)
1128 return 0; /* error */
1135 /* SunOS - style. */
1136 struct ttysize size
;
1137 size
.ts_lines
= height
;
1138 size
.ts_cols
= width
;
1140 if (ioctl (fd
, TIOCGSIZE
, &size
) == -1)
1146 #endif /* not SunOS-style */
1147 #endif /* not BSD-style */
1152 /* Prepare all terminal devices for exiting Emacs. */
1155 reset_all_sys_modes (void)
1157 struct tty_display_info
*tty
;
1158 for (tty
= tty_list
; tty
; tty
= tty
->next
)
1159 reset_sys_modes (tty
);
1162 /* Prepare the terminal for closing it; move the cursor to the
1163 bottom of the frame, turn off interrupt-driven I/O, etc. */
1166 reset_sys_modes (struct tty_display_info
*tty_out
)
1173 if (!tty_out
->term_initted
)
1176 if (!tty_out
->output
)
1177 return; /* The tty is suspended. */
1179 /* Go to and clear the last line of the terminal. */
1181 cmgoto (tty_out
, FrameRows (tty_out
) - 1, 0);
1183 /* Code adapted from tty_clear_end_of_line. */
1184 if (tty_out
->TS_clr_line
)
1186 emacs_tputs (tty_out
, tty_out
->TS_clr_line
, 1, cmputc
);
1189 { /* have to do it the hard way */
1191 tty_turn_off_insert (tty_out
);
1193 for (i
= curX (tty_out
); i
< FrameCols (tty_out
) - 1; i
++)
1195 fputc (' ', tty_out
->output
);
1199 cmgoto (tty_out
, FrameRows (tty_out
) - 1, 0);
1200 fflush (tty_out
->output
);
1202 if (tty_out
->terminal
->reset_terminal_modes_hook
)
1203 tty_out
->terminal
->reset_terminal_modes_hook (tty_out
->terminal
);
1206 /* Avoid possible loss of output when changing terminal modes. */
1207 fsync (fileno (tty_out
->output
));
1211 #ifdef F_SETOWN /* F_SETFL does not imply existence of F_SETOWN */
1212 if (interrupt_input
)
1214 reset_sigio (fileno (tty_out
->input
));
1215 fcntl (fileno (tty_out
->input
), F_SETOWN
,
1216 old_fcntl_owner
[fileno (tty_out
->input
)]);
1218 #endif /* F_SETOWN */
1220 fcntl (fileno (tty_out
->input
), F_SETFL
,
1221 fcntl (fileno (tty_out
->input
), F_GETFL
, 0) & ~O_NDELAY
);
1223 #endif /* F_SETFL */
1225 if (tty_out
->old_tty
)
1226 while (emacs_set_tty (fileno (tty_out
->input
),
1227 tty_out
->old_tty
, 0) < 0 && errno
== EINTR
)
1230 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida */
1238 /* Set up the proper status flags for use of a pty. */
1243 /* I'm told that TOICREMOTE does not mean control chars
1244 "can't be sent" but rather that they don't have
1245 input-editing or signaling effects.
1246 That should be good, because we have other ways
1247 to do those things in Emacs.
1248 However, telnet mode seems not to work on 4.2.
1249 So TIOCREMOTE is turned off now. */
1251 /* Under hp-ux, if TIOCREMOTE is turned on, some calls
1252 will hang. In particular, the "timeout" feature (which
1253 causes a read to return if there is no data available)
1254 does this. Also it is known that telnet mode will hang
1255 in such a way that Emacs must be stopped (perhaps this
1256 is the same problem).
1258 If TIOCREMOTE is turned off, then there is a bug in
1259 hp-ux which sometimes loses data. Apparently the
1260 code which blocks the master process when the internal
1261 buffer fills up does not work. Other than this,
1262 though, everything else seems to work fine.
1264 Since the latter lossage is more benign, we may as well
1265 lose that way. -- cph */
1267 #if defined (UNIX98_PTYS)
1270 ioctl (fd
, FIONBIO
, &on
);
1275 #endif /* HAVE_PTYS */
1278 #include <sys/socket.h>
1280 #endif /* HAVE_SOCKETS */
1283 #ifndef HAVE_H_ERRNO
1286 #endif /* TRY_AGAIN */
1289 init_system_name (void)
1291 #ifndef HAVE_GETHOSTNAME
1294 Vsystem_name
= build_string (uts
.nodename
);
1295 #else /* HAVE_GETHOSTNAME */
1296 unsigned int hostname_size
= 256;
1297 char *hostname
= alloca (hostname_size
);
1299 /* Try to get the host name; if the buffer is too short, try
1300 again. Apparently, the only indication gethostname gives of
1301 whether the buffer was large enough is the presence or absence
1302 of a '\0' in the string. Eech. */
1305 gethostname (hostname
, hostname_size
- 1);
1306 hostname
[hostname_size
- 1] = '\0';
1308 /* Was the buffer large enough for the '\0'? */
1309 if (strlen (hostname
) < hostname_size
- 1)
1312 hostname_size
<<= 1;
1313 hostname
= alloca (hostname_size
);
1316 /* Turn the hostname into the official, fully-qualified hostname.
1317 Don't do this if we're going to dump; this can confuse system
1318 libraries on some machines and make the dumped emacs core dump. */
1321 #endif /* not CANNOT_DUMP */
1322 if (! strchr (hostname
, '.'))
1325 #ifdef HAVE_GETADDRINFO
1326 struct addrinfo
*res
;
1327 struct addrinfo hints
;
1330 memset (&hints
, 0, sizeof (hints
));
1331 hints
.ai_socktype
= SOCK_STREAM
;
1332 hints
.ai_flags
= AI_CANONNAME
;
1334 for (count
= 0;; count
++)
1336 if ((ret
= getaddrinfo (hostname
, NULL
, &hints
, &res
)) == 0
1337 || ret
!= EAI_AGAIN
)
1342 Fsleep_for (make_number (1), Qnil
);
1347 struct addrinfo
*it
= res
;
1350 char *fqdn
= it
->ai_canonname
;
1351 if (fqdn
&& strchr (fqdn
, '.')
1352 && strcmp (fqdn
, "localhost.localdomain") != 0)
1358 hostname
= alloca (strlen (it
->ai_canonname
) + 1);
1359 strcpy (hostname
, it
->ai_canonname
);
1363 #else /* !HAVE_GETADDRINFO */
1365 for (count
= 0;; count
++)
1371 hp
= gethostbyname (hostname
);
1373 if (! (hp
== 0 && h_errno
== TRY_AGAIN
))
1380 Fsleep_for (make_number (1), Qnil
);
1385 char *fqdn
= (char *) hp
->h_name
;
1387 if (!strchr (fqdn
, '.'))
1389 /* We still don't have a fully qualified domain name.
1390 Try to find one in the list of alternate names */
1391 char **alias
= hp
->h_aliases
;
1393 && (!strchr (*alias
, '.')
1394 || !strcmp (*alias
, "localhost.localdomain")))
1401 #endif /* !HAVE_GETADDRINFO */
1403 #endif /* HAVE_SOCKETS */
1404 Vsystem_name
= build_string (hostname
);
1405 #endif /* HAVE_GETHOSTNAME */
1408 for (p
= SDATA (Vsystem_name
); *p
; p
++)
1409 if (*p
== ' ' || *p
== '\t')
1414 sigset_t empty_mask
;
1416 static struct sigaction process_fatal_action
;
1419 emacs_sigaction_flags (void)
1422 /* SA_RESTART causes interruptible functions with timeouts (e.g.,
1423 'select') to reset their timeout on some platforms (e.g.,
1424 HP-UX 11), which is not what we want. Also, when Emacs is
1425 interactive, we don't want SA_RESTART because we need to poll
1426 for pending input so we need long-running syscalls to be interrupted
1427 after a signal that sets pending_signals.
1429 Non-interactive keyboard input goes through stdio, where we
1430 always want restartable system calls. */
1437 /* Store into *ACTION a signal action suitable for Emacs, with handler
1440 emacs_sigaction_init (struct sigaction
*action
, signal_handler_t handler
)
1442 sigemptyset (&action
->sa_mask
);
1444 /* When handling a signal, block nonfatal system signals that are caught
1445 by Emacs. This makes race conditions less likely. */
1446 sigaddset (&action
->sa_mask
, SIGALRM
);
1448 sigaddset (&action
->sa_mask
, SIGCHLD
);
1451 sigaddset (&action
->sa_mask
, SIGDANGER
);
1453 #ifdef PROFILER_CPU_SUPPORT
1454 sigaddset (&action
->sa_mask
, SIGPROF
);
1457 sigaddset (&action
->sa_mask
, SIGWINCH
);
1459 if (! noninteractive
)
1461 sigaddset (&action
->sa_mask
, SIGINT
);
1462 sigaddset (&action
->sa_mask
, SIGQUIT
);
1464 sigaddset (&action
->sa_mask
, SIGIO
);
1468 if (! IEEE_FLOATING_POINT
)
1469 sigaddset (&action
->sa_mask
, SIGFPE
);
1471 action
->sa_handler
= handler
;
1472 action
->sa_flags
= emacs_sigaction_flags ();
1475 #ifdef FORWARD_SIGNAL_TO_MAIN_THREAD
1476 static pthread_t main_thread
;
1479 /* SIG has arrived at the current process. Deliver it to the main
1480 thread, which should handle it with HANDLER.
1482 If we are on the main thread, handle the signal SIG with HANDLER.
1483 Otherwise, redirect the signal to the main thread, blocking it from
1484 this thread. POSIX says any thread can receive a signal that is
1485 associated with a process, process group, or asynchronous event.
1486 On GNU/Linux that is not true, but for other systems (FreeBSD at
1489 deliver_process_signal (int sig
, signal_handler_t handler
)
1491 /* Preserve errno, to avoid race conditions with signal handlers that
1492 might change errno. Races can occur even in single-threaded hosts. */
1493 int old_errno
= errno
;
1495 bool on_main_thread
= true;
1496 #ifdef FORWARD_SIGNAL_TO_MAIN_THREAD
1497 if (! pthread_equal (pthread_self (), main_thread
))
1500 sigemptyset (&blocked
);
1501 sigaddset (&blocked
, sig
);
1502 pthread_sigmask (SIG_BLOCK
, &blocked
, 0);
1503 pthread_kill (main_thread
, sig
);
1504 on_main_thread
= false;
1513 /* Static location to save a fatal backtrace in a thread.
1514 FIXME: If two subsidiary threads fail simultaneously, the resulting
1515 backtrace may be garbage. */
1516 enum { BACKTRACE_LIMIT_MAX
= 500 };
1517 static void *thread_backtrace_buffer
[BACKTRACE_LIMIT_MAX
+ 1];
1518 static int thread_backtrace_npointers
;
1520 /* SIG has arrived at the current thread.
1521 If we are on the main thread, handle the signal SIG with HANDLER.
1522 Otherwise, this is a fatal error in the handling thread. */
1524 deliver_thread_signal (int sig
, signal_handler_t handler
)
1526 int old_errno
= errno
;
1528 #ifdef FORWARD_SIGNAL_TO_MAIN_THREAD
1529 if (! pthread_equal (pthread_self (), main_thread
))
1531 thread_backtrace_npointers
1532 = backtrace (thread_backtrace_buffer
, BACKTRACE_LIMIT_MAX
);
1533 sigaction (sig
, &process_fatal_action
, 0);
1534 pthread_kill (main_thread
, sig
);
1536 /* Avoid further damage while the main thread is exiting. */
1538 sigsuspend (&empty_mask
);
1546 #if !defined HAVE_STRSIGNAL && !HAVE_DECL_SYS_SIGLIST
1547 static char *my_sys_siglist
[NSIG
];
1551 # define sys_siglist my_sys_siglist
1554 /* Handle bus errors, invalid instruction, etc. */
1556 handle_fatal_signal (int sig
)
1558 terminate_due_to_signal (sig
, 40);
1562 deliver_fatal_signal (int sig
)
1564 deliver_process_signal (sig
, handle_fatal_signal
);
1568 deliver_fatal_thread_signal (int sig
)
1570 deliver_thread_signal (sig
, handle_fatal_signal
);
1573 static _Noreturn
void
1574 handle_arith_signal (int sig
)
1576 pthread_sigmask (SIG_SETMASK
, &empty_mask
, 0);
1577 xsignal0 (Qarith_error
);
1581 deliver_arith_signal (int sig
)
1583 deliver_thread_signal (sig
, handle_arith_signal
);
1586 /* Treat SIG as a terminating signal, unless it is already ignored and
1587 we are in --batch mode. Among other things, this makes nohup work. */
1589 maybe_fatal_sig (int sig
)
1591 bool catch_sig
= !noninteractive
;
1594 struct sigaction old_action
;
1595 sigaction (sig
, 0, &old_action
);
1596 catch_sig
= old_action
.sa_handler
!= SIG_IGN
;
1599 sigaction (sig
, &process_fatal_action
, 0);
1603 init_signals (bool dumping
)
1605 struct sigaction thread_fatal_action
;
1606 struct sigaction action
;
1608 sigemptyset (&empty_mask
);
1610 #ifdef FORWARD_SIGNAL_TO_MAIN_THREAD
1611 main_thread
= pthread_self ();
1614 #if !defined HAVE_STRSIGNAL && !HAVE_DECL_SYS_SIGLIST
1617 sys_siglist
[SIGABRT
] = "Aborted";
1619 sys_siglist
[SIGAIO
] = "LAN I/O interrupt";
1622 sys_siglist
[SIGALRM
] = "Alarm clock";
1625 sys_siglist
[SIGBUS
] = "Bus error";
1628 sys_siglist
[SIGCLD
] = "Child status changed";
1631 sys_siglist
[SIGCHLD
] = "Child status changed";
1634 sys_siglist
[SIGCONT
] = "Continued";
1637 sys_siglist
[SIGDANGER
] = "Swap space dangerously low";
1640 sys_siglist
[SIGDGNOTIFY
] = "Notification message in queue";
1643 sys_siglist
[SIGEMT
] = "Emulation trap";
1645 sys_siglist
[SIGFPE
] = "Arithmetic exception";
1647 sys_siglist
[SIGFREEZE
] = "SIGFREEZE";
1650 sys_siglist
[SIGGRANT
] = "Monitor mode granted";
1653 sys_siglist
[SIGHUP
] = "Hangup";
1655 sys_siglist
[SIGILL
] = "Illegal instruction";
1656 sys_siglist
[SIGINT
] = "Interrupt";
1658 sys_siglist
[SIGIO
] = "I/O possible";
1661 sys_siglist
[SIGIOINT
] = "I/O intervention required";
1664 sys_siglist
[SIGIOT
] = "IOT trap";
1667 sys_siglist
[SIGKILL
] = "Killed";
1670 sys_siglist
[SIGLOST
] = "Resource lost";
1673 sys_siglist
[SIGLWP
] = "SIGLWP";
1676 sys_siglist
[SIGMSG
] = "Monitor mode data available";
1679 sys_siglist
[SIGWIND
] = "SIGPHONE";
1682 sys_siglist
[SIGPIPE
] = "Broken pipe";
1685 sys_siglist
[SIGPOLL
] = "Pollable event occurred";
1688 sys_siglist
[SIGPROF
] = "Profiling timer expired";
1691 sys_siglist
[SIGPTY
] = "PTY I/O interrupt";
1694 sys_siglist
[SIGPWR
] = "Power-fail restart";
1697 sys_siglist
[SIGQUIT
] = "Quit";
1700 sys_siglist
[SIGRETRACT
] = "Need to relinquish monitor mode";
1703 sys_siglist
[SIGSAK
] = "Secure attention";
1705 sys_siglist
[SIGSEGV
] = "Segmentation violation";
1707 sys_siglist
[SIGSOUND
] = "Sound completed";
1710 sys_siglist
[SIGSTOP
] = "Stopped (signal)";
1713 sys_siglist
[SIGSTP
] = "Stopped (user)";
1716 sys_siglist
[SIGSYS
] = "Bad argument to system call";
1718 sys_siglist
[SIGTERM
] = "Terminated";
1720 sys_siglist
[SIGTHAW
] = "SIGTHAW";
1723 sys_siglist
[SIGTRAP
] = "Trace/breakpoint trap";
1726 sys_siglist
[SIGTSTP
] = "Stopped (user)";
1729 sys_siglist
[SIGTTIN
] = "Stopped (tty input)";
1732 sys_siglist
[SIGTTOU
] = "Stopped (tty output)";
1735 sys_siglist
[SIGURG
] = "Urgent I/O condition";
1738 sys_siglist
[SIGUSR1
] = "User defined signal 1";
1741 sys_siglist
[SIGUSR2
] = "User defined signal 2";
1744 sys_siglist
[SIGVTALRM
] = "Virtual timer expired";
1747 sys_siglist
[SIGWAITING
] = "Process's LWPs are blocked";
1750 sys_siglist
[SIGWINCH
] = "Window size changed";
1753 sys_siglist
[SIGWIND
] = "SIGWIND";
1756 sys_siglist
[SIGXCPU
] = "CPU time limit exceeded";
1759 sys_siglist
[SIGXFSZ
] = "File size limit exceeded";
1762 #endif /* !defined HAVE_STRSIGNAL && !defined HAVE_DECL_SYS_SIGLIST */
1764 /* Don't alter signal handlers if dumping. On some machines,
1765 changing signal handlers sets static data that would make signals
1766 fail to work right when the dumped Emacs is run. */
1770 sigfillset (&process_fatal_action
.sa_mask
);
1771 process_fatal_action
.sa_handler
= deliver_fatal_signal
;
1772 process_fatal_action
.sa_flags
= emacs_sigaction_flags ();
1774 sigfillset (&thread_fatal_action
.sa_mask
);
1775 thread_fatal_action
.sa_handler
= deliver_fatal_thread_signal
;
1776 thread_fatal_action
.sa_flags
= process_fatal_action
.sa_flags
;
1778 /* SIGINT may need special treatment on MS-Windows. See
1779 http://lists.gnu.org/archive/html/emacs-devel/2010-09/msg01062.html
1780 Please update the doc of kill-emacs, kill-emacs-hook, and
1781 NEWS if you change this. */
1783 maybe_fatal_sig (SIGHUP
);
1784 maybe_fatal_sig (SIGINT
);
1785 maybe_fatal_sig (SIGTERM
);
1787 /* Emacs checks for write errors, so it can safely ignore SIGPIPE.
1788 However, in batch mode leave SIGPIPE alone, as that causes Emacs
1789 to behave more like typical batch applications do. */
1790 if (! noninteractive
)
1791 signal (SIGPIPE
, SIG_IGN
);
1793 sigaction (SIGQUIT
, &process_fatal_action
, 0);
1794 sigaction (SIGILL
, &thread_fatal_action
, 0);
1795 sigaction (SIGTRAP
, &thread_fatal_action
, 0);
1797 /* Typically SIGFPE is thread-specific and is fatal, like SIGILL.
1798 But on a non-IEEE host SIGFPE can come from a trap in the Lisp
1799 interpreter's floating point operations, so treat SIGFPE as an
1800 arith-error if it arises in the main thread. */
1801 if (IEEE_FLOATING_POINT
)
1802 sigaction (SIGFPE
, &thread_fatal_action
, 0);
1805 emacs_sigaction_init (&action
, deliver_arith_signal
);
1806 sigaction (SIGFPE
, &action
, 0);
1810 add_user_signal (SIGUSR1
, "sigusr1");
1813 add_user_signal (SIGUSR2
, "sigusr2");
1815 sigaction (SIGABRT
, &thread_fatal_action
, 0);
1817 sigaction (SIGPRE
, &thread_fatal_action
, 0);
1820 sigaction (SIGORE
, &thread_fatal_action
, 0);
1823 sigaction (SIGUME
, &thread_fatal_action
, 0);
1826 sigaction (SIGDLK
, &process_fatal_action
, 0);
1829 sigaction (SIGCPULIM
, &process_fatal_action
, 0);
1832 sigaction (SIGIOT
, &thread_fatal_action
, 0);
1835 sigaction (SIGEMT
, &thread_fatal_action
, 0);
1838 sigaction (SIGBUS
, &thread_fatal_action
, 0);
1840 sigaction (SIGSEGV
, &thread_fatal_action
, 0);
1842 sigaction (SIGSYS
, &thread_fatal_action
, 0);
1844 sigaction (SIGTERM
, &process_fatal_action
, 0);
1846 signal (SIGPROF
, SIG_IGN
);
1849 sigaction (SIGVTALRM
, &process_fatal_action
, 0);
1852 sigaction (SIGXCPU
, &process_fatal_action
, 0);
1855 sigaction (SIGXFSZ
, &process_fatal_action
, 0);
1859 /* This just means available memory is getting low. */
1860 emacs_sigaction_init (&action
, deliver_danger_signal
);
1861 sigaction (SIGDANGER
, &action
, 0);
1864 /* AIX-specific signals. */
1866 sigaction (SIGGRANT
, &process_fatal_action
, 0);
1869 sigaction (SIGMIGRATE
, &process_fatal_action
, 0);
1872 sigaction (SIGMSG
, &process_fatal_action
, 0);
1875 sigaction (SIGRETRACT
, &process_fatal_action
, 0);
1878 sigaction (SIGSAK
, &process_fatal_action
, 0);
1881 sigaction (SIGSOUND
, &process_fatal_action
, 0);
1884 sigaction (SIGTALRM
, &thread_fatal_action
, 0);
1894 /* Figure out how many bits the system's random number generator uses.
1895 `random' and `lrand48' are assumed to return 31 usable bits.
1896 BSD `rand' returns a 31 bit value but the low order bits are unusable;
1897 so we'll shift it and treat it like the 15-bit USG `rand'. */
1901 # define RAND_BITS 31
1902 # else /* !HAVE_RANDOM */
1903 # ifdef HAVE_LRAND48
1904 # define RAND_BITS 31
1905 # define random lrand48
1906 # else /* !HAVE_LRAND48 */
1907 # define RAND_BITS 15
1908 # if RAND_MAX == 32767
1909 # define random rand
1910 # else /* RAND_MAX != 32767 */
1911 # if RAND_MAX == 2147483647
1912 # define random() (rand () >> 16)
1913 # else /* RAND_MAX != 2147483647 */
1915 # define random rand
1917 # define random() (rand () >> 16)
1919 # endif /* RAND_MAX != 2147483647 */
1920 # endif /* RAND_MAX != 32767 */
1921 # endif /* !HAVE_LRAND48 */
1922 # endif /* !HAVE_RANDOM */
1923 #endif /* !RAND_BITS */
1926 seed_random (void *seed
, ptrdiff_t seed_size
)
1928 #if defined HAVE_RANDOM || ! defined HAVE_LRAND48
1929 unsigned int arg
= 0;
1933 unsigned char *argp
= (unsigned char *) &arg
;
1934 unsigned char *seedp
= seed
;
1936 for (i
= 0; i
< seed_size
; i
++)
1937 argp
[i
% sizeof arg
] ^= seedp
[i
];
1941 # ifdef HAVE_LRAND48
1952 EMACS_TIME t
= current_emacs_time ();
1953 uintmax_t v
= getpid () ^ EMACS_SECS (t
) ^ EMACS_NSECS (t
);
1954 seed_random (&v
, sizeof v
);
1958 * Return a nonnegative random integer out of whatever we've got.
1959 * It contains enough bits to make a random (signed) Emacs fixnum.
1960 * This suffices even for a 64-bit architecture with a 15-bit rand.
1967 for (i
= 0; i
< (FIXNUM_BITS
+ RAND_BITS
- 1) / RAND_BITS
; i
++)
1968 val
= (random () ^ (val
<< RAND_BITS
)
1969 ^ (val
>> (BITS_PER_EMACS_INT
- RAND_BITS
)));
1970 val
^= val
>> (BITS_PER_EMACS_INT
- FIXNUM_BITS
);
1971 return val
& INTMASK
;
1974 #ifndef HAVE_SNPRINTF
1975 /* Approximate snprintf as best we can on ancient hosts that lack it. */
1977 snprintf (char *buf
, size_t bufsize
, char const *format
, ...)
1979 ptrdiff_t size
= min (bufsize
, PTRDIFF_MAX
);
1980 ptrdiff_t nbytes
= size
- 1;
1985 va_start (ap
, format
);
1986 nbytes
= doprnt (buf
, size
, format
, 0, ap
);
1990 if (nbytes
== size
- 1)
1992 /* Calculate the length of the string that would have been created
1993 had the buffer been large enough. */
1994 char stackbuf
[4000];
1996 ptrdiff_t bsize
= sizeof stackbuf
;
1997 va_start (ap
, format
);
1998 nbytes
= evxprintf (&b
, &bsize
, stackbuf
, -1, format
, ap
);
2004 if (INT_MAX
< nbytes
)
2017 /* If a backtrace is available, output the top lines of it to stderr.
2018 Do not output more than BACKTRACE_LIMIT or BACKTRACE_LIMIT_MAX lines.
2019 This function may be called from a signal handler, so it should
2020 not invoke async-unsafe functions like malloc. */
2022 emacs_backtrace (int backtrace_limit
)
2024 void *main_backtrace_buffer
[BACKTRACE_LIMIT_MAX
+ 1];
2025 int bounded_limit
= min (backtrace_limit
, BACKTRACE_LIMIT_MAX
);
2029 if (thread_backtrace_npointers
)
2031 buffer
= thread_backtrace_buffer
;
2032 npointers
= thread_backtrace_npointers
;
2036 buffer
= main_backtrace_buffer
;
2037 npointers
= backtrace (buffer
, bounded_limit
+ 1);
2042 ignore_value (write (STDERR_FILENO
, "\nBacktrace:\n", 12));
2043 backtrace_symbols_fd (buffer
, npointers
, STDERR_FILENO
);
2044 if (bounded_limit
< npointers
)
2045 ignore_value (write (STDERR_FILENO
, "...\n", 4));
2053 terminate_due_to_signal (SIGABRT
, 10);
2058 emacs_open (const char *path
, int oflag
, int mode
)
2060 register int rtnval
;
2062 while ((rtnval
= open (path
, oflag
, mode
)) == -1
2063 && (errno
== EINTR
))
2069 emacs_close (int fd
)
2072 register int rtnval
;
2074 while ((rtnval
= close (fd
)) == -1
2075 && (errno
== EINTR
))
2078 /* If close is interrupted SunOS 4.1 may or may not have closed the
2079 file descriptor. If it did the second close will fail with
2080 errno = EBADF. That means we have succeeded. */
2081 if (rtnval
== -1 && did_retry
&& errno
== EBADF
)
2087 /* Maximum number of bytes to read or write in a single system call.
2088 This works around a serious bug in Linux kernels before 2.6.16; see
2089 <https://bugzilla.redhat.com/show_bug.cgi?format=multiple&id=612839>.
2090 It's likely to work around similar bugs in other operating systems, so do it
2091 on all platforms. Round INT_MAX down to a page size, with the conservative
2092 assumption that page sizes are at most 2**18 bytes (any kernel with a
2093 page size larger than that shouldn't have the bug). */
2094 #ifndef MAX_RW_COUNT
2095 #define MAX_RW_COUNT (INT_MAX >> 18 << 18)
2098 /* Read from FILEDESC to a buffer BUF with size NBYTE, retrying if interrupted.
2099 Return the number of bytes read, which might be less than NBYTE.
2100 On error, set errno and return -1. */
2102 emacs_read (int fildes
, char *buf
, ptrdiff_t nbyte
)
2104 register ssize_t rtnval
;
2106 /* There is no need to check against MAX_RW_COUNT, since no caller ever
2107 passes a size that large to emacs_read. */
2109 while ((rtnval
= read (fildes
, buf
, nbyte
)) == -1
2110 && (errno
== EINTR
))
2115 /* Write to FILEDES from a buffer BUF with size NBYTE, retrying if interrupted
2116 or if a partial write occurs. Return the number of bytes written, setting
2117 errno if this is less than NBYTE. */
2119 emacs_write (int fildes
, const char *buf
, ptrdiff_t nbyte
)
2122 ptrdiff_t bytes_written
;
2128 rtnval
= write (fildes
, buf
, min (nbyte
, MAX_RW_COUNT
));
2134 /* I originally used `QUIT' but that might causes files to
2135 be truncated if you hit C-g in the middle of it. --Stef */
2136 if (pending_signals
)
2137 process_pending_signals ();
2146 bytes_written
+= rtnval
;
2149 return (bytes_written
);
2152 static struct allocator
const emacs_norealloc_allocator
=
2153 { xmalloc
, NULL
, xfree
, memory_full
};
2155 /* Get the symbolic link value of FILENAME. Return a pointer to a
2156 NUL-terminated string. If readlink fails, return NULL and set
2157 errno. If the value fits in INITIAL_BUF, return INITIAL_BUF.
2158 Otherwise, allocate memory and return a pointer to that memory. If
2159 memory allocation fails, diagnose and fail without returning. If
2160 successful, store the length of the symbolic link into *LINKLEN. */
2162 emacs_readlink (char const *filename
, char initial_buf
[READLINK_BUFSIZE
])
2164 return careadlinkat (AT_FDCWD
, filename
, initial_buf
, READLINK_BUFSIZE
,
2165 &emacs_norealloc_allocator
, careadlinkatcwd
);
2170 * All of the following are for USG.
2172 * On USG systems the system calls are INTERRUPTIBLE by signals
2173 * that the user program has elected to catch. Thus the system call
2174 * must be retried in these cases. To handle this without massive
2175 * changes in the source code, we remap the standard system call names
2176 * to names for our own functions in sysdep.c that do the system call
2177 * with retries. Actually, for portability reasons, it is good
2178 * programming practice, as this example shows, to limit all actual
2179 * system calls to a single occurrence in the source. Sure, this
2180 * adds an extra level of function call overhead but it is almost
2181 * always negligible. Fred Fish, Unisoft Systems Inc.
2185 * Warning, this function may not duplicate 4.2 action properly
2186 * under error conditions.
2189 #if !defined (HAVE_GETWD) || defined (BROKEN_GETWD)
2192 /* In 4.1, param.h fails to define this. */
2193 #define MAXPATHLEN 1024
2197 getwd (char *pathname
)
2199 char *npath
, *spath
;
2200 extern char *getcwd (char *, size_t);
2202 block_input (); /* getcwd uses malloc */
2203 spath
= npath
= getcwd ((char *) 0, MAXPATHLEN
);
2209 /* On Altos 3068, getcwd can return @hostname/dir, so discard
2210 up to first slash. Should be harmless on other systems. */
2211 while (*npath
&& *npath
!= '/')
2213 strcpy (pathname
, npath
);
2214 free (spath
); /* getcwd uses malloc */
2219 #endif /* !defined (HAVE_GETWD) || defined (BROKEN_GETWD) */
2222 /* Directory routines for systems that don't have them. */
2224 #ifdef HAVE_DIRENT_H
2228 #if !defined (HAVE_CLOSEDIR)
2231 closedir (DIR *dirp
/* stream from opendir */)
2235 rtnval
= emacs_close (dirp
->dd_fd
);
2240 #endif /* not HAVE_CLOSEDIR */
2241 #endif /* HAVE_DIRENT_H */
2244 /* Return a struct timeval that is roughly equivalent to T.
2245 Use the least timeval not less than T.
2246 Return an extremal value if the result would overflow. */
2248 make_timeval (EMACS_TIME t
)
2251 tv
.tv_sec
= t
.tv_sec
;
2252 tv
.tv_usec
= t
.tv_nsec
/ 1000;
2254 if (t
.tv_nsec
% 1000 != 0)
2256 if (tv
.tv_usec
< 999999)
2258 else if (tv
.tv_sec
< TYPE_MAXIMUM (time_t))
2268 /* Set the access and modification time stamps of FD (a.k.a. FILE) to be
2269 ATIME and MTIME, respectively.
2270 FD must be either negative -- in which case it is ignored --
2271 or a file descriptor that is open on FILE.
2272 If FD is nonnegative, then FILE can be NULL. */
2274 set_file_times (int fd
, const char *filename
,
2275 EMACS_TIME atime
, EMACS_TIME mtime
)
2277 struct timespec timespec
[2];
2278 timespec
[0] = atime
;
2279 timespec
[1] = mtime
;
2280 return fdutimens (fd
, filename
, timespec
);
2283 #ifndef HAVE_STRSIGNAL
2285 strsignal (int code
)
2289 if (0 <= code
&& code
< NSIG
)
2291 /* Cast to suppress warning if the table has const char *. */
2292 signame
= (char *) sys_siglist
[code
];
2297 #endif /* HAVE_STRSIGNAL */
2300 /* For make-serial-process */
2302 serial_open (char *port
)
2306 fd
= emacs_open ((char*) port
,
2319 error ("Could not open %s: %s",
2320 port
, emacs_strerror (errno
));
2323 ioctl (fd
, TIOCEXCL
, (char *) 0);
2329 #if !defined (HAVE_CFMAKERAW)
2330 /* Workaround for targets which are missing cfmakeraw. */
2331 /* Pasted from man page. */
2333 cfmakeraw (struct termios
*termios_p
)
2335 termios_p
->c_iflag
&= ~(IGNBRK
|BRKINT
|PARMRK
|ISTRIP
|INLCR
|IGNCR
|ICRNL
|IXON
);
2336 termios_p
->c_oflag
&= ~OPOST
;
2337 termios_p
->c_lflag
&= ~(ECHO
|ECHONL
|ICANON
|ISIG
|IEXTEN
);
2338 termios_p
->c_cflag
&= ~(CSIZE
|PARENB
);
2339 termios_p
->c_cflag
|= CS8
;
2341 #endif /* !defined (HAVE_CFMAKERAW */
2343 #if !defined (HAVE_CFSETSPEED)
2344 /* Workaround for targets which are missing cfsetspeed. */
2346 cfsetspeed (struct termios
*termios_p
, speed_t vitesse
)
2348 return (cfsetispeed (termios_p
, vitesse
)
2349 + cfsetospeed (termios_p
, vitesse
));
2353 /* For serial-process-configure */
2355 serial_configure (struct Lisp_Process
*p
,
2356 Lisp_Object contact
)
2358 Lisp_Object childp2
= Qnil
;
2359 Lisp_Object tem
= Qnil
;
2360 struct termios attr
;
2362 char summary
[4] = "???"; /* This usually becomes "8N1". */
2364 childp2
= Fcopy_sequence (p
->childp
);
2366 /* Read port attributes and prepare default configuration. */
2367 err
= tcgetattr (p
->outfd
, &attr
);
2369 error ("tcgetattr() failed: %s", emacs_strerror (errno
));
2371 #if defined (CLOCAL)
2372 attr
.c_cflag
|= CLOCAL
;
2375 attr
.c_cflag
|= CREAD
;
2378 /* Configure speed. */
2379 if (!NILP (Fplist_member (contact
, QCspeed
)))
2380 tem
= Fplist_get (contact
, QCspeed
);
2382 tem
= Fplist_get (p
->childp
, QCspeed
);
2384 err
= cfsetspeed (&attr
, XINT (tem
));
2386 error ("cfsetspeed(%"pI
"d) failed: %s", XINT (tem
),
2387 emacs_strerror (errno
));
2388 childp2
= Fplist_put (childp2
, QCspeed
, tem
);
2390 /* Configure bytesize. */
2391 if (!NILP (Fplist_member (contact
, QCbytesize
)))
2392 tem
= Fplist_get (contact
, QCbytesize
);
2394 tem
= Fplist_get (p
->childp
, QCbytesize
);
2396 tem
= make_number (8);
2398 if (XINT (tem
) != 7 && XINT (tem
) != 8)
2399 error (":bytesize must be nil (8), 7, or 8");
2400 summary
[0] = XINT (tem
) + '0';
2401 #if defined (CSIZE) && defined (CS7) && defined (CS8)
2402 attr
.c_cflag
&= ~CSIZE
;
2403 attr
.c_cflag
|= ((XINT (tem
) == 7) ? CS7
: CS8
);
2405 /* Don't error on bytesize 8, which should be set by cfmakeraw. */
2406 if (XINT (tem
) != 8)
2407 error ("Bytesize cannot be changed");
2409 childp2
= Fplist_put (childp2
, QCbytesize
, tem
);
2411 /* Configure parity. */
2412 if (!NILP (Fplist_member (contact
, QCparity
)))
2413 tem
= Fplist_get (contact
, QCparity
);
2415 tem
= Fplist_get (p
->childp
, QCparity
);
2416 if (!NILP (tem
) && !EQ (tem
, Qeven
) && !EQ (tem
, Qodd
))
2417 error (":parity must be nil (no parity), `even', or `odd'");
2418 #if defined (PARENB) && defined (PARODD) && defined (IGNPAR) && defined (INPCK)
2419 attr
.c_cflag
&= ~(PARENB
| PARODD
);
2420 attr
.c_iflag
&= ~(IGNPAR
| INPCK
);
2425 else if (EQ (tem
, Qeven
))
2428 attr
.c_cflag
|= PARENB
;
2429 attr
.c_iflag
|= (IGNPAR
| INPCK
);
2431 else if (EQ (tem
, Qodd
))
2434 attr
.c_cflag
|= (PARENB
| PARODD
);
2435 attr
.c_iflag
|= (IGNPAR
| INPCK
);
2438 /* Don't error on no parity, which should be set by cfmakeraw. */
2440 error ("Parity cannot be configured");
2442 childp2
= Fplist_put (childp2
, QCparity
, tem
);
2444 /* Configure stopbits. */
2445 if (!NILP (Fplist_member (contact
, QCstopbits
)))
2446 tem
= Fplist_get (contact
, QCstopbits
);
2448 tem
= Fplist_get (p
->childp
, QCstopbits
);
2450 tem
= make_number (1);
2452 if (XINT (tem
) != 1 && XINT (tem
) != 2)
2453 error (":stopbits must be nil (1 stopbit), 1, or 2");
2454 summary
[2] = XINT (tem
) + '0';
2455 #if defined (CSTOPB)
2456 attr
.c_cflag
&= ~CSTOPB
;
2457 if (XINT (tem
) == 2)
2458 attr
.c_cflag
|= CSTOPB
;
2460 /* Don't error on 1 stopbit, which should be set by cfmakeraw. */
2461 if (XINT (tem
) != 1)
2462 error ("Stopbits cannot be configured");
2464 childp2
= Fplist_put (childp2
, QCstopbits
, tem
);
2466 /* Configure flowcontrol. */
2467 if (!NILP (Fplist_member (contact
, QCflowcontrol
)))
2468 tem
= Fplist_get (contact
, QCflowcontrol
);
2470 tem
= Fplist_get (p
->childp
, QCflowcontrol
);
2471 if (!NILP (tem
) && !EQ (tem
, Qhw
) && !EQ (tem
, Qsw
))
2472 error (":flowcontrol must be nil (no flowcontrol), `hw', or `sw'");
2473 #if defined (CRTSCTS)
2474 attr
.c_cflag
&= ~CRTSCTS
;
2476 #if defined (CNEW_RTSCTS)
2477 attr
.c_cflag
&= ~CNEW_RTSCTS
;
2479 #if defined (IXON) && defined (IXOFF)
2480 attr
.c_iflag
&= ~(IXON
| IXOFF
);
2484 /* Already configured. */
2486 else if (EQ (tem
, Qhw
))
2488 #if defined (CRTSCTS)
2489 attr
.c_cflag
|= CRTSCTS
;
2490 #elif defined (CNEW_RTSCTS)
2491 attr
.c_cflag
|= CNEW_RTSCTS
;
2493 error ("Hardware flowcontrol (RTS/CTS) not supported");
2496 else if (EQ (tem
, Qsw
))
2498 #if defined (IXON) && defined (IXOFF)
2499 attr
.c_iflag
|= (IXON
| IXOFF
);
2501 error ("Software flowcontrol (XON/XOFF) not supported");
2504 childp2
= Fplist_put (childp2
, QCflowcontrol
, tem
);
2506 /* Activate configuration. */
2507 err
= tcsetattr (p
->outfd
, TCSANOW
, &attr
);
2509 error ("tcsetattr() failed: %s", emacs_strerror (errno
));
2511 childp2
= Fplist_put (childp2
, QCsummary
, build_string (summary
));
2512 pset_childp (p
, childp2
);
2514 #endif /* not DOS_NT */
2516 /* System depended enumeration of and access to system processes a-la ps(1). */
2520 /* Process enumeration and access via /proc. */
2523 list_system_processes (void)
2525 Lisp_Object procdir
, match
, proclist
, next
;
2526 struct gcpro gcpro1
, gcpro2
;
2527 register Lisp_Object tail
;
2529 GCPRO2 (procdir
, match
);
2530 /* For every process on the system, there's a directory in the
2531 "/proc" pseudo-directory whose name is the numeric ID of that
2533 procdir
= build_string ("/proc");
2534 match
= build_string ("[0-9]+");
2535 proclist
= directory_files_internal (procdir
, Qnil
, match
, Qt
, 0, Qnil
);
2537 /* `proclist' gives process IDs as strings. Destructively convert
2538 each string into a number. */
2539 for (tail
= proclist
; CONSP (tail
); tail
= next
)
2542 XSETCAR (tail
, Fstring_to_number (XCAR (tail
), Qnil
));
2546 /* directory_files_internal returns the files in reverse order; undo
2548 proclist
= Fnreverse (proclist
);
2552 #elif defined BSD_SYSTEM
2555 list_system_processes (void)
2557 #if defined DARWIN_OS || defined __NetBSD__ || defined __OpenBSD__
2558 int mib
[] = {CTL_KERN
, KERN_PROC
, KERN_PROC_ALL
};
2560 int mib
[] = {CTL_KERN
, KERN_PROC
, KERN_PROC_PROC
};
2563 struct kinfo_proc
*procs
;
2566 struct gcpro gcpro1
;
2567 Lisp_Object proclist
= Qnil
;
2569 if (sysctl (mib
, 3, NULL
, &len
, NULL
, 0) != 0)
2572 procs
= xmalloc (len
);
2573 if (sysctl (mib
, 3, procs
, &len
, NULL
, 0) != 0)
2580 len
/= sizeof (struct kinfo_proc
);
2581 for (i
= 0; i
< len
; i
++)
2583 #if defined DARWIN_OS || defined __NetBSD__
2584 proclist
= Fcons (make_fixnum_or_float (procs
[i
].kp_proc
.p_pid
), proclist
);
2585 #elif defined __OpenBSD__
2586 proclist
= Fcons (make_fixnum_or_float (procs
[i
].p_pid
), proclist
);
2588 proclist
= Fcons (make_fixnum_or_float (procs
[i
].ki_pid
), proclist
);
2598 /* The WINDOWSNT implementation is in w32.c.
2599 The MSDOS implementation is in dosfns.c. */
2600 #elif !defined (WINDOWSNT) && !defined (MSDOS)
2603 list_system_processes (void)
2608 #endif /* !defined (WINDOWSNT) */
2612 time_from_jiffies (unsigned long long tval
, long hz
)
2614 unsigned long long s
= tval
/ hz
;
2615 unsigned long long frac
= tval
% hz
;
2618 if (TYPE_MAXIMUM (time_t) < s
)
2620 if (LONG_MAX
- 1 <= ULLONG_MAX
/ EMACS_TIME_RESOLUTION
2621 || frac
<= ULLONG_MAX
/ EMACS_TIME_RESOLUTION
)
2622 ns
= frac
* EMACS_TIME_RESOLUTION
/ hz
;
2625 /* This is reachable only in the unlikely case that HZ * HZ
2626 exceeds ULLONG_MAX. It calculates an approximation that is
2627 guaranteed to be in range. */
2628 long hz_per_ns
= (hz
/ EMACS_TIME_RESOLUTION
2629 + (hz
% EMACS_TIME_RESOLUTION
!= 0));
2630 ns
= frac
/ hz_per_ns
;
2633 return make_emacs_time (s
, ns
);
2637 ltime_from_jiffies (unsigned long long tval
, long hz
)
2639 EMACS_TIME t
= time_from_jiffies (tval
, hz
);
2640 return make_lisp_time (t
);
2647 EMACS_TIME up
= make_emacs_time (0, 0);
2650 fup
= fopen ("/proc/uptime", "r");
2654 unsigned long long upsec
, upfrac
, idlesec
, idlefrac
;
2655 int upfrac_start
, upfrac_end
, idlefrac_start
, idlefrac_end
;
2657 if (fscanf (fup
, "%llu.%n%llu%n %llu.%n%llu%n",
2658 &upsec
, &upfrac_start
, &upfrac
, &upfrac_end
,
2659 &idlesec
, &idlefrac_start
, &idlefrac
, &idlefrac_end
)
2662 if (TYPE_MAXIMUM (time_t) < upsec
)
2664 upsec
= TYPE_MAXIMUM (time_t);
2665 upfrac
= EMACS_TIME_RESOLUTION
- 1;
2669 int upfraclen
= upfrac_end
- upfrac_start
;
2670 for (; upfraclen
< LOG10_EMACS_TIME_RESOLUTION
; upfraclen
++)
2672 for (; LOG10_EMACS_TIME_RESOLUTION
< upfraclen
; upfraclen
--)
2674 upfrac
= min (upfrac
, EMACS_TIME_RESOLUTION
- 1);
2676 up
= make_emacs_time (upsec
, upfrac
);
2685 #define MAJOR(d) (((unsigned)(d) >> 8) & 0xfff)
2686 #define MINOR(d) (((unsigned)(d) & 0xff) | (((unsigned)(d) & 0xfff00000) >> 12))
2689 procfs_ttyname (int rdev
)
2692 char name
[PATH_MAX
];
2695 fdev
= fopen ("/proc/tty/drivers", "r");
2700 unsigned long minor_beg
, minor_end
;
2701 char minor
[25]; /* 2 32-bit numbers + dash */
2704 while (!feof (fdev
) && !ferror (fdev
))
2706 if (3 <= fscanf (fdev
, "%*s %s %u %s %*s\n", name
, &major
, minor
)
2707 && major
== MAJOR (rdev
))
2709 minor_beg
= strtoul (minor
, &endp
, 0);
2711 minor_end
= minor_beg
;
2712 else if (*endp
== '-')
2713 minor_end
= strtoul (endp
+ 1, &endp
, 0);
2717 if (MINOR (rdev
) >= minor_beg
&& MINOR (rdev
) <= minor_end
)
2719 sprintf (name
+ strlen (name
), "%u", MINOR (rdev
));
2727 return build_string (name
);
2730 static unsigned long
2731 procfs_get_total_memory (void)
2734 unsigned long retval
= 2 * 1024 * 1024; /* default: 2GB */
2737 fmem
= fopen ("/proc/meminfo", "r");
2741 unsigned long entry_value
;
2742 char entry_name
[20]; /* the longest I saw is 13+1 */
2744 while (!feof (fmem
) && !ferror (fmem
))
2746 if (2 <= fscanf (fmem
, "%s %lu kB\n", entry_name
, &entry_value
)
2747 && strcmp (entry_name
, "MemTotal:") == 0)
2749 retval
= entry_value
;
2760 system_process_attributes (Lisp_Object pid
)
2762 char procfn
[PATH_MAX
], fn
[PATH_MAX
];
2766 long clocks_per_sec
;
2768 char procbuf
[1025], *p
, *q
;
2771 static char const default_cmd
[] = "???";
2772 const char *cmd
= default_cmd
;
2773 int cmdsize
= sizeof default_cmd
- 1;
2774 char *cmdline
= NULL
;
2775 ptrdiff_t cmdline_size
;
2778 int ppid
, pgrp
, sess
, tty
, tpgid
, thcount
;
2781 unsigned long long u_time
, s_time
, cutime
, cstime
, start
;
2782 long priority
, niceness
, rss
;
2783 unsigned long minflt
, majflt
, cminflt
, cmajflt
, vsize
;
2784 EMACS_TIME tnow
, tstart
, tboot
, telapsed
, us_time
;
2786 Lisp_Object attrs
= Qnil
;
2787 Lisp_Object cmd_str
, decoded_cmd
, tem
;
2788 struct gcpro gcpro1
, gcpro2
;
2790 CHECK_NUMBER_OR_FLOAT (pid
);
2791 CONS_TO_INTEGER (pid
, pid_t
, proc_id
);
2792 sprintf (procfn
, "/proc/%"pMd
, proc_id
);
2793 if (stat (procfn
, &st
) < 0)
2796 GCPRO2 (attrs
, decoded_cmd
);
2800 attrs
= Fcons (Fcons (Qeuid
, make_fixnum_or_float (uid
)), attrs
);
2802 pw
= getpwuid (uid
);
2805 attrs
= Fcons (Fcons (Quser
, build_string (pw
->pw_name
)), attrs
);
2808 attrs
= Fcons (Fcons (Qegid
, make_fixnum_or_float (gid
)), attrs
);
2810 gr
= getgrgid (gid
);
2813 attrs
= Fcons (Fcons (Qgroup
, build_string (gr
->gr_name
)), attrs
);
2815 strcpy (fn
, procfn
);
2816 procfn_end
= fn
+ strlen (fn
);
2817 strcpy (procfn_end
, "/stat");
2818 fd
= emacs_open (fn
, O_RDONLY
, 0);
2819 if (fd
>= 0 && (nread
= emacs_read (fd
, procbuf
, sizeof (procbuf
) - 1)) > 0)
2821 procbuf
[nread
] = '\0';
2824 p
= strchr (p
, '(');
2827 q
= strrchr (p
+ 1, ')');
2837 /* Command name is encoded in locale-coding-system; decode it. */
2838 cmd_str
= make_unibyte_string (cmd
, cmdsize
);
2839 decoded_cmd
= code_convert_string_norecord (cmd_str
,
2840 Vlocale_coding_system
, 0);
2841 attrs
= Fcons (Fcons (Qcomm
, decoded_cmd
), attrs
);
2845 EMACS_INT ppid_eint
, pgrp_eint
, sess_eint
, tpgid_eint
, thcount_eint
;
2847 /* state ppid pgrp sess tty tpgid . minflt cminflt majflt cmajflt utime stime cutime cstime priority nice thcount . start vsize rss */
2848 sscanf (p
, "%c %d %d %d %d %d %*u %lu %lu %lu %lu %Lu %Lu %Lu %Lu %ld %ld %d %*d %Lu %lu %ld",
2849 &c
, &ppid
, &pgrp
, &sess
, &tty
, &tpgid
,
2850 &minflt
, &cminflt
, &majflt
, &cmajflt
,
2851 &u_time
, &s_time
, &cutime
, &cstime
,
2852 &priority
, &niceness
, &thcount
, &start
, &vsize
, &rss
);
2857 state_str
[1] = '\0';
2858 tem
= build_string (state_str
);
2859 attrs
= Fcons (Fcons (Qstate
, tem
), attrs
);
2861 /* Stops GCC whining about limited range of data type. */
2866 thcount_eint
= thcount
;
2867 attrs
= Fcons (Fcons (Qppid
, make_fixnum_or_float (ppid_eint
)), attrs
);
2868 attrs
= Fcons (Fcons (Qpgrp
, make_fixnum_or_float (pgrp_eint
)), attrs
);
2869 attrs
= Fcons (Fcons (Qsess
, make_fixnum_or_float (sess_eint
)), attrs
);
2870 attrs
= Fcons (Fcons (Qttname
, procfs_ttyname (tty
)), attrs
);
2871 attrs
= Fcons (Fcons (Qtpgid
, make_fixnum_or_float (tpgid_eint
)), attrs
);
2872 attrs
= Fcons (Fcons (Qminflt
, make_fixnum_or_float (minflt
)), attrs
);
2873 attrs
= Fcons (Fcons (Qmajflt
, make_fixnum_or_float (majflt
)), attrs
);
2874 attrs
= Fcons (Fcons (Qcminflt
, make_fixnum_or_float (cminflt
)), attrs
);
2875 attrs
= Fcons (Fcons (Qcmajflt
, make_fixnum_or_float (cmajflt
)), attrs
);
2876 clocks_per_sec
= sysconf (_SC_CLK_TCK
);
2877 if (clocks_per_sec
< 0)
2878 clocks_per_sec
= 100;
2879 attrs
= Fcons (Fcons (Qutime
,
2880 ltime_from_jiffies (u_time
, clocks_per_sec
)),
2882 attrs
= Fcons (Fcons (Qstime
,
2883 ltime_from_jiffies (s_time
, clocks_per_sec
)),
2885 attrs
= Fcons (Fcons (Qtime
,
2886 ltime_from_jiffies (s_time
+ u_time
,
2889 attrs
= Fcons (Fcons (Qcutime
,
2890 ltime_from_jiffies (cutime
, clocks_per_sec
)),
2892 attrs
= Fcons (Fcons (Qcstime
,
2893 ltime_from_jiffies (cstime
, clocks_per_sec
)),
2895 attrs
= Fcons (Fcons (Qctime
,
2896 ltime_from_jiffies (cstime
+cutime
, clocks_per_sec
)),
2898 attrs
= Fcons (Fcons (Qpri
, make_number (priority
)), attrs
);
2899 attrs
= Fcons (Fcons (Qnice
, make_number (niceness
)), attrs
);
2900 attrs
= Fcons (Fcons (Qthcount
, make_fixnum_or_float (thcount_eint
)), attrs
);
2901 tnow
= current_emacs_time ();
2902 telapsed
= get_up_time ();
2903 tboot
= sub_emacs_time (tnow
, telapsed
);
2904 tstart
= time_from_jiffies (start
, clocks_per_sec
);
2905 tstart
= add_emacs_time (tboot
, tstart
);
2906 attrs
= Fcons (Fcons (Qstart
, make_lisp_time (tstart
)), attrs
);
2907 attrs
= Fcons (Fcons (Qvsize
, make_fixnum_or_float (vsize
/1024)), attrs
);
2908 attrs
= Fcons (Fcons (Qrss
, make_fixnum_or_float (4*rss
)), attrs
);
2909 telapsed
= sub_emacs_time (tnow
, tstart
);
2910 attrs
= Fcons (Fcons (Qetime
, make_lisp_time (telapsed
)), attrs
);
2911 us_time
= time_from_jiffies (u_time
+ s_time
, clocks_per_sec
);
2912 pcpu
= (EMACS_TIME_TO_DOUBLE (us_time
)
2913 / EMACS_TIME_TO_DOUBLE (telapsed
));
2916 attrs
= Fcons (Fcons (Qpcpu
, make_float (100 * pcpu
)), attrs
);
2917 pmem
= 4.0 * 100 * rss
/ procfs_get_total_memory ();
2920 attrs
= Fcons (Fcons (Qpmem
, make_float (pmem
)), attrs
);
2927 strcpy (procfn_end
, "/cmdline");
2928 fd
= emacs_open (fn
, O_RDONLY
, 0);
2932 for (cmdline_size
= 0; cmdline_size
< STRING_BYTES_BOUND
; cmdline_size
++)
2934 if (emacs_read (fd
, &ch
, 1) != 1)
2937 if (c_isspace (c
) || c
== '\\')
2938 cmdline_size
++; /* for later quoting, see below */
2942 cmdline
= xmalloc (cmdline_size
+ 1);
2943 lseek (fd
, 0L, SEEK_SET
);
2945 if ((nread
= read (fd
, cmdline
, cmdline_size
)) >= 0)
2946 cmdline
[nread
++] = '\0';
2949 /* Assigning zero to `nread' makes us skip the following
2950 two loops, assign zero to cmdline_size, and enter the
2951 following `if' clause that handles unknown command
2955 /* We don't want trailing null characters. */
2956 for (p
= cmdline
+ nread
; p
> cmdline
+ 1 && !p
[-1]; p
--)
2958 for (p
= cmdline
; p
< cmdline
+ nread
; p
++)
2960 /* Escape-quote whitespace and backslashes. */
2961 if (c_isspace (*p
) || *p
== '\\')
2963 memmove (p
+ 1, p
, nread
- (p
- cmdline
));
2967 else if (*p
== '\0')
2970 cmdline_size
= nread
;
2974 cmdline_size
= cmdsize
+ 2;
2975 cmdline
= xmalloc (cmdline_size
+ 1);
2976 sprintf (cmdline
, "[%.*s]", cmdsize
, cmd
);
2979 /* Command line is encoded in locale-coding-system; decode it. */
2980 cmd_str
= make_unibyte_string (cmdline
, cmdline_size
);
2981 decoded_cmd
= code_convert_string_norecord (cmd_str
,
2982 Vlocale_coding_system
, 0);
2984 attrs
= Fcons (Fcons (Qargs
, decoded_cmd
), attrs
);
2991 #elif defined (SOLARIS2) && defined (HAVE_PROCFS)
2993 /* The <procfs.h> header does not like to be included if _LP64 is defined and
2994 __FILE_OFFSET_BITS == 64. This is an ugly workaround that. */
2995 #if !defined (_LP64) && defined (_FILE_OFFSET_BITS) && (_FILE_OFFSET_BITS == 64)
2996 #define PROCFS_FILE_OFFSET_BITS_HACK 1
2997 #undef _FILE_OFFSET_BITS
2999 #define PROCFS_FILE_OFFSET_BITS_HACK 0
3004 #if PROCFS_FILE_OFFSET_BITS_HACK == 1
3005 #define _FILE_OFFSET_BITS 64
3006 #ifdef _FILE_OFFSET_BITS /* Avoid unused-macro warnings. */
3008 #endif /* PROCFS_FILE_OFFSET_BITS_HACK == 1 */
3011 system_process_attributes (Lisp_Object pid
)
3013 char procfn
[PATH_MAX
], fn
[PATH_MAX
];
3018 struct psinfo pinfo
;
3024 Lisp_Object attrs
= Qnil
;
3025 Lisp_Object decoded_cmd
, tem
;
3026 struct gcpro gcpro1
, gcpro2
;
3028 CHECK_NUMBER_OR_FLOAT (pid
);
3029 CONS_TO_INTEGER (pid
, pid_t
, proc_id
);
3030 sprintf (procfn
, "/proc/%"pMd
, proc_id
);
3031 if (stat (procfn
, &st
) < 0)
3034 GCPRO2 (attrs
, decoded_cmd
);
3038 attrs
= Fcons (Fcons (Qeuid
, make_fixnum_or_float (uid
)), attrs
);
3040 pw
= getpwuid (uid
);
3043 attrs
= Fcons (Fcons (Quser
, build_string (pw
->pw_name
)), attrs
);
3046 attrs
= Fcons (Fcons (Qegid
, make_fixnum_or_float (gid
)), attrs
);
3048 gr
= getgrgid (gid
);
3051 attrs
= Fcons (Fcons (Qgroup
, build_string (gr
->gr_name
)), attrs
);
3053 strcpy (fn
, procfn
);
3054 procfn_end
= fn
+ strlen (fn
);
3055 strcpy (procfn_end
, "/psinfo");
3056 fd
= emacs_open (fn
, O_RDONLY
, 0);
3058 && (nread
= read (fd
, (char*)&pinfo
, sizeof (struct psinfo
)) > 0))
3060 attrs
= Fcons (Fcons (Qppid
, make_fixnum_or_float (pinfo
.pr_ppid
)), attrs
);
3061 attrs
= Fcons (Fcons (Qpgrp
, make_fixnum_or_float (pinfo
.pr_pgid
)), attrs
);
3062 attrs
= Fcons (Fcons (Qsess
, make_fixnum_or_float (pinfo
.pr_sid
)), attrs
);
3066 state_str
[0] = pinfo
.pr_lwp
.pr_sname
;
3067 state_str
[1] = '\0';
3068 tem
= build_string (state_str
);
3069 attrs
= Fcons (Fcons (Qstate
, tem
), attrs
);
3072 /* FIXME: missing Qttyname. psinfo.pr_ttydev is a dev_t,
3073 need to get a string from it. */
3075 /* FIXME: missing: Qtpgid */
3087 Are they available? */
3089 attrs
= Fcons (Fcons (Qtime
, make_lisp_time (pinfo
.pr_time
)), attrs
);
3090 attrs
= Fcons (Fcons (Qctime
, make_lisp_time (pinfo
.pr_ctime
)), attrs
);
3091 attrs
= Fcons (Fcons (Qpri
, make_number (pinfo
.pr_lwp
.pr_pri
)), attrs
);
3092 attrs
= Fcons (Fcons (Qnice
, make_number (pinfo
.pr_lwp
.pr_nice
)), attrs
);
3093 attrs
= Fcons (Fcons (Qthcount
, make_fixnum_or_float (pinfo
.pr_nlwp
)), attrs
);
3095 attrs
= Fcons (Fcons (Qstart
, make_lisp_time (pinfo
.pr_start
)), attrs
);
3096 attrs
= Fcons (Fcons (Qvsize
, make_fixnum_or_float (pinfo
.pr_size
)), attrs
);
3097 attrs
= Fcons (Fcons (Qrss
, make_fixnum_or_float (pinfo
.pr_rssize
)), attrs
);
3099 /* pr_pctcpu and pr_pctmem are unsigned integers in the
3100 range 0 .. 2**15, representing 0.0 .. 1.0. */
3101 attrs
= Fcons (Fcons (Qpcpu
, make_float (100.0 / 0x8000 * pinfo
.pr_pctcpu
)), attrs
);
3102 attrs
= Fcons (Fcons (Qpmem
, make_float (100.0 / 0x8000 * pinfo
.pr_pctmem
)), attrs
);
3105 = code_convert_string_norecord (make_unibyte_string (pinfo
.pr_fname
,
3106 strlen (pinfo
.pr_fname
)),
3107 Vlocale_coding_system
, 0);
3108 attrs
= Fcons (Fcons (Qcomm
, decoded_cmd
), attrs
);
3110 = code_convert_string_norecord (make_unibyte_string (pinfo
.pr_psargs
,
3111 strlen (pinfo
.pr_psargs
)),
3112 Vlocale_coding_system
, 0);
3113 attrs
= Fcons (Fcons (Qargs
, decoded_cmd
), attrs
);
3123 #elif defined __FreeBSD__
3126 timeval_to_EMACS_TIME (struct timeval t
)
3128 return make_emacs_time (t
.tv_sec
, t
.tv_usec
* 1000);
3132 make_lisp_timeval (struct timeval t
)
3134 return make_lisp_time (timeval_to_EMACS_TIME (t
));
3138 system_process_attributes (Lisp_Object pid
)
3141 int pagesize
= getpagesize ();
3148 char args
[MAXPATHLEN
];
3151 int mib
[4] = {CTL_KERN
, KERN_PROC
, KERN_PROC_PID
};
3152 struct kinfo_proc proc
;
3153 size_t proclen
= sizeof proc
;
3155 struct gcpro gcpro1
, gcpro2
;
3156 Lisp_Object attrs
= Qnil
;
3157 Lisp_Object decoded_comm
;
3159 CHECK_NUMBER_OR_FLOAT (pid
);
3160 CONS_TO_INTEGER (pid
, int, proc_id
);
3163 if (sysctl (mib
, 4, &proc
, &proclen
, NULL
, 0) != 0)
3166 GCPRO2 (attrs
, decoded_comm
);
3168 attrs
= Fcons (Fcons (Qeuid
, make_fixnum_or_float (proc
.ki_uid
)), attrs
);
3171 pw
= getpwuid (proc
.ki_uid
);
3174 attrs
= Fcons (Fcons (Quser
, build_string (pw
->pw_name
)), attrs
);
3176 attrs
= Fcons (Fcons (Qegid
, make_fixnum_or_float (proc
.ki_svgid
)), attrs
);
3179 gr
= getgrgid (proc
.ki_svgid
);
3182 attrs
= Fcons (Fcons (Qgroup
, build_string (gr
->gr_name
)), attrs
);
3184 decoded_comm
= code_convert_string_norecord
3185 (make_unibyte_string (proc
.ki_comm
, strlen (proc
.ki_comm
)),
3186 Vlocale_coding_system
, 0);
3188 attrs
= Fcons (Fcons (Qcomm
, decoded_comm
), attrs
);
3190 char state
[2] = {'\0', '\0'};
3191 switch (proc
.ki_stat
)
3213 attrs
= Fcons (Fcons (Qstate
, build_string (state
)), attrs
);
3216 attrs
= Fcons (Fcons (Qppid
, make_fixnum_or_float (proc
.ki_ppid
)), attrs
);
3217 attrs
= Fcons (Fcons (Qpgrp
, make_fixnum_or_float (proc
.ki_pgid
)), attrs
);
3218 attrs
= Fcons (Fcons (Qsess
, make_fixnum_or_float (proc
.ki_sid
)), attrs
);
3221 ttyname
= proc
.ki_tdev
== NODEV
? NULL
: devname (proc
.ki_tdev
, S_IFCHR
);
3224 attrs
= Fcons (Fcons (Qtty
, build_string (ttyname
)), attrs
);
3226 attrs
= Fcons (Fcons (Qtpgid
, make_fixnum_or_float (proc
.ki_tpgid
)), attrs
);
3227 attrs
= Fcons (Fcons (Qminflt
, make_fixnum_or_float (proc
.ki_rusage
.ru_minflt
)), attrs
);
3228 attrs
= Fcons (Fcons (Qmajflt
, make_fixnum_or_float (proc
.ki_rusage
.ru_majflt
)), attrs
);
3229 attrs
= Fcons (Fcons (Qcminflt
, make_number (proc
.ki_rusage_ch
.ru_minflt
)), attrs
);
3230 attrs
= Fcons (Fcons (Qcmajflt
, make_number (proc
.ki_rusage_ch
.ru_majflt
)), attrs
);
3232 attrs
= Fcons (Fcons (Qutime
, make_lisp_timeval (proc
.ki_rusage
.ru_utime
)),
3234 attrs
= Fcons (Fcons (Qstime
, make_lisp_timeval (proc
.ki_rusage
.ru_stime
)),
3236 t
= add_emacs_time (timeval_to_EMACS_TIME (proc
.ki_rusage
.ru_utime
),
3237 timeval_to_EMACS_TIME (proc
.ki_rusage
.ru_stime
));
3238 attrs
= Fcons (Fcons (Qtime
, make_lisp_time (t
)), attrs
);
3240 attrs
= Fcons (Fcons (Qcutime
,
3241 make_lisp_timeval (proc
.ki_rusage_ch
.ru_utime
)),
3243 attrs
= Fcons (Fcons (Qcstime
,
3244 make_lisp_timeval (proc
.ki_rusage_ch
.ru_utime
)),
3246 t
= add_emacs_time (timeval_to_EMACS_TIME (proc
.ki_rusage_ch
.ru_utime
),
3247 timeval_to_EMACS_TIME (proc
.ki_rusage_ch
.ru_stime
));
3248 attrs
= Fcons (Fcons (Qctime
, make_lisp_time (t
)), attrs
);
3250 attrs
= Fcons (Fcons (Qthcount
, make_fixnum_or_float (proc
.ki_numthreads
)),
3252 attrs
= Fcons (Fcons (Qpri
, make_number (proc
.ki_pri
.pri_native
)), attrs
);
3253 attrs
= Fcons (Fcons (Qnice
, make_number (proc
.ki_nice
)), attrs
);
3254 attrs
= Fcons (Fcons (Qstart
, make_lisp_timeval (proc
.ki_start
)), attrs
);
3255 attrs
= Fcons (Fcons (Qvsize
, make_number (proc
.ki_size
>> 10)), attrs
);
3256 attrs
= Fcons (Fcons (Qrss
, make_number (proc
.ki_rssize
* pagesize
>> 10)),
3259 now
= current_emacs_time ();
3260 t
= sub_emacs_time (now
, timeval_to_EMACS_TIME (proc
.ki_start
));
3261 attrs
= Fcons (Fcons (Qetime
, make_lisp_time (t
)), attrs
);
3263 len
= sizeof fscale
;
3264 if (sysctlbyname ("kern.fscale", &fscale
, &len
, NULL
, 0) == 0)
3269 if (sysctlbyname ("kern.ccpu", &ccpu
, &len
, NULL
, 0) == 0)
3271 pcpu
= (100.0 * proc
.ki_pctcpu
/ fscale
3272 / (1 - exp (proc
.ki_swtime
* log ((double) ccpu
/ fscale
))));
3273 attrs
= Fcons (Fcons (Qpcpu
, make_fixnum_or_float (pcpu
)), attrs
);
3277 len
= sizeof npages
;
3278 if (sysctlbyname ("hw.availpages", &npages
, &len
, NULL
, 0) == 0)
3280 double pmem
= (proc
.ki_flag
& P_INMEM
3281 ? 100.0 * proc
.ki_rssize
/ npages
3283 attrs
= Fcons (Fcons (Qpmem
, make_fixnum_or_float (pmem
)), attrs
);
3286 mib
[2] = KERN_PROC_ARGS
;
3288 if (sysctl (mib
, 4, args
, &len
, NULL
, 0) == 0)
3291 for (i
= 0; i
< len
; i
++)
3293 if (! args
[i
] && i
< len
- 1)
3298 (code_convert_string_norecord
3299 (build_unibyte_string (args
),
3300 Vlocale_coding_system
, 0));
3302 attrs
= Fcons (Fcons (Qargs
, decoded_comm
), attrs
);
3309 /* The WINDOWSNT implementation is in w32.c.
3310 The MSDOS implementation is in dosfns.c. */
3311 #elif !defined (WINDOWSNT) && !defined (MSDOS)
3314 system_process_attributes (Lisp_Object pid
)
3319 #endif /* !defined (WINDOWSNT) */