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 #endif /* not WINDOWSNT */
60 #include <sys/types.h>
64 /* Get SI_SRPC_DOMAIN, if it is available. */
65 #ifdef HAVE_SYS_SYSTEMINFO_H
66 #include <sys/systeminfo.h>
69 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida, MW Aug 1993 */
71 #include <sys/param.h>
80 #ifdef HAVE_SYS_UTSNAME_H
81 #include <sys/utsname.h>
83 #endif /* HAVE_SYS_UTSNAME_H */
88 #include "termhooks.h"
91 #include "dispextern.h"
93 #include "cm.h" /* for reset_sys_modes */
97 /* In process.h which conflicts with the local copy. */
99 int _cdecl
_spawnlp (int, const char *, const char *, ...);
100 int _cdecl
_getpid (void);
101 extern char *getwd (char *);
104 #include "syssignal.h"
107 static int emacs_get_tty (int, struct emacs_tty
*);
108 static int emacs_set_tty (int, struct emacs_tty
*, int);
110 /* ULLONG_MAX is missing on Red Hat Linux 7.3; see Bug#11781. */
112 #define ULLONG_MAX TYPE_MAXIMUM (unsigned long long int)
115 /* Declare here, including term.h is problematic on some systems. */
116 extern void tputs (const char *, int, int (*)(int));
118 static const int baud_convert
[] =
120 0, 50, 75, 110, 135, 150, 200, 300, 600, 1200,
121 1800, 2400, 4800, 9600, 19200, 38400
125 #if !defined (HAVE_GET_CURRENT_DIR_NAME) || defined (BROKEN_GET_CURRENT_DIR_NAME)
127 /* Return the current working directory. Returns NULL on errors.
128 Any other returned value must be freed with free. This is used
129 only when get_current_dir_name is not defined on the system. */
131 get_current_dir_name (void)
135 struct stat dotstat
, pwdstat
;
136 /* If PWD is accurate, use it instead of calling getwd. PWD is
137 sometimes a nicer name, and using it may avoid a fatal error if a
138 parent directory is searchable but not readable. */
139 if ((pwd
= getenv ("PWD")) != 0
140 && (IS_DIRECTORY_SEP (*pwd
) || (*pwd
&& IS_DEVICE_SEP (pwd
[1])))
141 && stat (pwd
, &pwdstat
) == 0
142 && stat (".", &dotstat
) == 0
143 && dotstat
.st_ino
== pwdstat
.st_ino
144 && dotstat
.st_dev
== pwdstat
.st_dev
146 && strlen (pwd
) < MAXPATHLEN
150 buf
= malloc (strlen (pwd
) + 1);
158 size_t buf_size
= 1024;
159 buf
= malloc (buf_size
);
164 if (getcwd (buf
, buf_size
) == buf
)
168 int tmp_errno
= errno
;
174 buf
= realloc (buf
, buf_size
);
182 /* We need MAXPATHLEN here. */
183 buf
= malloc (MAXPATHLEN
+ 1);
186 if (getwd (buf
) == NULL
)
188 int tmp_errno
= errno
;
200 /* Discard pending input on all input descriptors. */
203 discard_tty_input (void)
206 struct emacs_tty buf
;
211 #ifdef MSDOS /* Demacs 1.1.1 91/10/16 HIRANO Satoshi */
212 while (dos_keyread () != -1)
214 #else /* not MSDOS */
216 struct tty_display_info
*tty
;
217 for (tty
= tty_list
; tty
; tty
= tty
->next
)
219 if (tty
->input
) /* Is the device suspended? */
221 emacs_get_tty (fileno (tty
->input
), &buf
);
222 emacs_set_tty (fileno (tty
->input
), &buf
, 0);
226 #endif /* not MSDOS */
227 #endif /* not WINDOWSNT */
233 /* Arrange for character C to be read as the next input from
235 XXX What if we have multiple ttys?
241 if (! FRAME_TERMCAP_P (SELECTED_FRAME ()))
244 /* Should perhaps error if in batch mode */
246 ioctl (fileno (CURTTY()->input
), TIOCSTI
, &c
);
247 #else /* no TIOCSTI */
248 error ("Cannot stuff terminal input characters in this version of Unix");
249 #endif /* no TIOCSTI */
255 init_baud_rate (int fd
)
265 #else /* not DOS_NT */
270 emacs_ospeed
= cfgetospeed (&sg
);
271 #endif /* not DOS_NT */
274 baud_rate
= (emacs_ospeed
< sizeof baud_convert
/ sizeof baud_convert
[0]
275 ? baud_convert
[emacs_ospeed
] : 9600);
285 wait_for_termination_1 (pid_t pid
, int interruptible
)
292 #else /* not WINDOWSNT */
294 int wait_result
= waitpid (pid
, &status
, 0);
302 record_child_status_change (wait_result
, status
);
306 #endif /* not WINDOWSNT */
312 /* Wait for subprocess with process id `pid' to terminate and
313 make sure it will get eliminated (not remain forever as a zombie) */
316 wait_for_termination (pid_t pid
)
318 wait_for_termination_1 (pid
, 0);
321 /* Like the above, but allow keyboard interruption. */
323 interruptible_wait_for_termination (pid_t pid
)
325 wait_for_termination_1 (pid
, 1);
329 * flush any pending output
330 * (may flush input as well; it does not matter the way we use it)
334 flush_pending_output (int channel
)
336 /* FIXME: maybe this function should be removed */
339 /* Set up the terminal at the other end of a pseudo-terminal that
340 we will be controlling an inferior through.
341 It should not echo or do line-editing, since that is done
342 in Emacs. No padding needed for insertion into an Emacs buffer. */
345 child_setup_tty (int out
)
350 emacs_get_tty (out
, &s
);
351 s
.main
.c_oflag
|= OPOST
; /* Enable output postprocessing */
352 s
.main
.c_oflag
&= ~ONLCR
; /* Disable map of NL to CR-NL on output */
354 /* http://lists.gnu.org/archive/html/emacs-devel/2008-05/msg00406.html
355 Some versions of GNU Hurd do not have FFDLY? */
357 s
.main
.c_oflag
&= ~(NLDLY
|CRDLY
|TABDLY
|BSDLY
|VTDLY
|FFDLY
);
358 /* No output delays */
360 s
.main
.c_oflag
&= ~(NLDLY
|CRDLY
|TABDLY
|BSDLY
|VTDLY
);
361 /* No output delays */
364 s
.main
.c_lflag
&= ~ECHO
; /* Disable echo */
365 s
.main
.c_lflag
|= ISIG
; /* Enable signals */
367 s
.main
.c_iflag
&= ~IUCLC
; /* Disable downcasing on input. */
370 s
.main
.c_iflag
&= ~ISTRIP
; /* don't strip 8th bit on input */
373 s
.main
.c_oflag
&= ~OLCUC
; /* Disable upcasing on output. */
375 s
.main
.c_oflag
&= ~TAB3
; /* Disable tab expansion */
376 s
.main
.c_cflag
= (s
.main
.c_cflag
& ~CSIZE
) | CS8
; /* Don't strip 8th bit */
377 s
.main
.c_cc
[VERASE
] = CDISABLE
; /* disable erase processing */
378 s
.main
.c_cc
[VKILL
] = CDISABLE
; /* disable kill processing */
381 s
.main
.c_cflag
= (s
.main
.c_cflag
& ~CBAUD
) | B9600
; /* baud rate sanity */
384 #ifdef SIGNALS_VIA_CHARACTERS
385 /* the QUIT and INTR character are used in process_send_signal
386 so set them here to something useful. */
387 if (s
.main
.c_cc
[VQUIT
] == CDISABLE
)
388 s
.main
.c_cc
[VQUIT
] = '\\'&037; /* Control-\ */
389 if (s
.main
.c_cc
[VINTR
] == CDISABLE
)
390 s
.main
.c_cc
[VINTR
] = 'C'&037; /* Control-C */
391 #endif /* not SIGNALS_VIA_CHARACTERS */
394 /* Also, PTY overloads NUL and BREAK.
395 don't ignore break, but don't signal either, so it looks like NUL. */
396 s
.main
.c_iflag
&= ~IGNBRK
;
397 s
.main
.c_iflag
&= ~BRKINT
;
398 /* rms: Formerly it set s.main.c_cc[VINTR] to 0377 here
399 unconditionally. Then a SIGNALS_VIA_CHARACTERS conditional
400 would force it to 0377. That looks like duplicated code. */
401 s
.main
.c_cflag
= (s
.main
.c_cflag
& ~CBAUD
) | B9600
; /* baud rate sanity */
404 /* We originally enabled ICANON (and set VEOF to 04), and then had
405 process.c send additional EOF chars to flush the output when faced
406 with long lines, but this leads to weird effects when the
407 subprocess has disabled ICANON and ends up seeing those spurious
408 extra EOFs. So we don't send EOFs any more in
409 process.c:send_process. First we tried to disable ICANON by
410 default, so if a subsprocess sets up ICANON, it's his problem (or
411 the Elisp package that talks to it) to deal with lines that are
412 too long. But this disables some features, such as the ability
413 to send EOF signals. So we re-enabled ICANON but there is no
414 more "send eof to flush" going on (which is wrong and unportable
415 in itself). The correct way to handle too much output is to
416 buffer what could not be written and then write it again when
417 select returns ok for writing. This has it own set of
418 problems. Write is now asynchronous, is that a problem? How much
419 do we buffer, and what do we do when that limit is reached? */
421 s
.main
.c_lflag
|= ICANON
; /* Enable line editing and eof processing */
422 s
.main
.c_cc
[VEOF
] = 'D'&037; /* Control-D */
423 #if 0 /* These settings only apply to non-ICANON mode. */
424 s
.main
.c_cc
[VMIN
] = 1;
425 s
.main
.c_cc
[VTIME
] = 0;
428 emacs_set_tty (out
, &s
, 0);
429 #endif /* not WINDOWSNT */
431 #endif /* not MSDOS */
434 /* Record a signal code and the action for it. */
438 struct sigaction action
;
441 static void save_signal_handlers (struct save_signal
*);
442 static void restore_signal_handlers (struct save_signal
*);
444 /* Suspend the Emacs process; give terminal to its superior. */
449 #if defined (SIGTSTP) && !defined (MSDOS)
452 int pgrp
= EMACS_GETPGRP (0);
453 EMACS_KILLPG (pgrp
, SIGTSTP
);
456 #else /* No SIGTSTP */
457 /* On a system where suspending is not implemented,
458 instead fork a subshell and let it talk directly to the terminal
462 #endif /* no SIGTSTP */
465 /* Fork a subshell. */
470 #ifdef DOS_NT /* Demacs 1.1.2 91/10/20 Manabu Higashida */
472 char oldwd
[MAXPATHLEN
+1]; /* Fixed length is safe on MSDOS. */
475 struct save_signal saved_handlers
[5];
477 unsigned char *volatile str_volatile
= 0;
481 saved_handlers
[0].code
= SIGINT
;
482 saved_handlers
[1].code
= SIGQUIT
;
483 saved_handlers
[2].code
= SIGTERM
;
485 saved_handlers
[3].code
= SIGIO
;
486 saved_handlers
[4].code
= 0;
488 saved_handlers
[3].code
= 0;
491 /* Mentioning current_buffer->buffer would mean including buffer.h,
492 which somehow wedges the hp compiler. So instead... */
494 dir
= intern ("default-directory");
495 if (NILP (Fboundp (dir
)))
497 dir
= Fsymbol_value (dir
);
501 dir
= expand_and_dir_to_file (Funhandled_file_name_directory (dir
), Qnil
);
502 str_volatile
= str
= alloca (SCHARS (dir
) + 2);
504 memcpy (str
, SDATA (dir
), len
);
505 if (str
[len
- 1] != '/') str
[len
++] = '/';
511 save_signal_handlers (saved_handlers
);
512 synch_process_alive
= 1;
516 error ("Can't spawn subshell");
523 #ifdef DOS_NT /* MW, Aug 1993 */
526 sh
= (char *) egetenv ("SUSPEND"); /* KFS, 1994-12-14 */
529 sh
= (char *) egetenv ("SHELL");
533 /* Use our buffer's default directory for the subshell. */
535 if (str
&& chdir ((char *) str
) != 0)
538 ignore_value (write (1, "Can't chdir\n", 12));
543 close_process_descs (); /* Close Emacs's pipes/ptys */
545 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida */
547 char *epwd
= getenv ("PWD");
548 char old_pwd
[MAXPATHLEN
+1+4];
550 /* If PWD is set, pass it with corrected value. */
553 strcpy (old_pwd
, epwd
);
554 if (str
[len
- 1] == '/')
556 setenv ("PWD", str
, 1);
559 chdir (oldwd
); /* FIXME: Do the right thing on chdir failure. */
561 putenv (old_pwd
); /* restore previous value */
563 #else /* not MSDOS */
565 /* Waits for process completion */
566 pid
= _spawnlp (_P_WAIT
, sh
, sh
, NULL
);
567 chdir (oldwd
); /* FIXME: Do the right thing on chdir failure. */
569 write (1, "Can't execute subshell", 22);
570 #else /* not WINDOWSNT */
571 execlp (sh
, sh
, (char *) 0);
572 ignore_value (write (1, "Can't execute subshell", 22));
574 #endif /* not WINDOWSNT */
575 #endif /* not MSDOS */
578 /* Do this now if we did not do it before. */
580 save_signal_handlers (saved_handlers
);
581 synch_process_alive
= 1;
585 wait_for_termination (pid
);
587 restore_signal_handlers (saved_handlers
);
588 synch_process_alive
= 0;
592 save_signal_handlers (struct save_signal
*saved_handlers
)
594 while (saved_handlers
->code
)
596 struct sigaction action
;
597 emacs_sigaction_init (&action
, SIG_IGN
);
598 sigaction (saved_handlers
->code
, &action
, &saved_handlers
->action
);
604 restore_signal_handlers (struct save_signal
*saved_handlers
)
606 while (saved_handlers
->code
)
608 sigaction (saved_handlers
->code
, &saved_handlers
->action
, 0);
614 static int old_fcntl_flags
[MAXDESC
];
621 old_fcntl_flags
[fd
] = fcntl (fd
, F_GETFL
, 0) & ~FASYNC
;
622 fcntl (fd
, F_SETFL
, old_fcntl_flags
[fd
] | FASYNC
);
623 interrupts_deferred
= 0;
631 fcntl (fd
, F_SETFL
, old_fcntl_flags
[fd
]);
644 sigemptyset (&unblocked
);
646 sigaddset (&unblocked
, SIGWINCH
);
648 sigaddset (&unblocked
, SIGIO
);
649 pthread_sigmask (SIG_UNBLOCK
, &unblocked
, 0);
651 interrupts_deferred
= 0;
656 unrequest_sigio (void)
664 sigemptyset (&blocked
);
666 sigaddset (&blocked
, SIGWINCH
);
668 sigaddset (&blocked
, SIGIO
);
669 pthread_sigmask (SIG_BLOCK
, &blocked
, 0);
670 interrupts_deferred
= 1;
678 signal (SIGIO
, SIG_IGN
);
683 /* Getting and setting emacs_tty structures. */
685 /* Set *TC to the parameters associated with the terminal FD.
686 Return zero if all's well, or -1 if we ran into an error we
687 couldn't deal with. */
689 emacs_get_tty (int fd
, struct emacs_tty
*settings
)
691 /* Retrieve the primary parameters - baud rate, character size, etcetera. */
693 /* We have those nifty POSIX tcmumbleattr functions. */
694 memset (&settings
->main
, 0, sizeof (settings
->main
));
695 if (tcgetattr (fd
, &settings
->main
) < 0)
699 /* We have survived the tempest. */
704 /* Set the parameters of the tty on FD according to the contents of
705 *SETTINGS. If FLUSHP is non-zero, we discard input.
706 Return 0 if all went well, and -1 if anything failed. */
709 emacs_set_tty (int fd
, struct emacs_tty
*settings
, int flushp
)
711 /* Set the primary parameters - baud rate, character size, etcetera. */
714 /* We have those nifty POSIX tcmumbleattr functions.
715 William J. Smith <wjs@wiis.wang.com> writes:
716 "POSIX 1003.1 defines tcsetattr to return success if it was
717 able to perform any of the requested actions, even if some
718 of the requested actions could not be performed.
719 We must read settings back to ensure tty setup properly.
720 AIX requires this to keep tty from hanging occasionally." */
721 /* This make sure that we don't loop indefinitely in here. */
722 for (i
= 0 ; i
< 10 ; i
++)
723 if (tcsetattr (fd
, flushp
? TCSAFLUSH
: TCSADRAIN
, &settings
->main
) < 0)
734 memset (&new, 0, sizeof (new));
735 /* Get the current settings, and see if they're what we asked for. */
736 tcgetattr (fd
, &new);
737 /* We cannot use memcmp on the whole structure here because under
738 * aix386 the termios structure has some reserved field that may
741 if ( new.c_iflag
== settings
->main
.c_iflag
742 && new.c_oflag
== settings
->main
.c_oflag
743 && new.c_cflag
== settings
->main
.c_cflag
744 && new.c_lflag
== settings
->main
.c_lflag
745 && memcmp (new.c_cc
, settings
->main
.c_cc
, NCCS
) == 0)
752 /* We have survived the tempest. */
759 static int old_fcntl_owner
[MAXDESC
];
760 #endif /* F_SETOWN */
762 /* This may also be defined in stdio,
763 but if so, this does no harm,
764 and using the same name avoids wasting the other one's space. */
767 unsigned char _sobuf
[BUFSIZ
+8];
772 /* Initialize the terminal mode on all tty devices that are currently
776 init_all_sys_modes (void)
778 struct tty_display_info
*tty
;
779 for (tty
= tty_list
; tty
; tty
= tty
->next
)
780 init_sys_modes (tty
);
783 /* Initialize the terminal mode on the given tty device. */
786 init_sys_modes (struct tty_display_info
*tty_out
)
788 struct emacs_tty tty
;
789 Lisp_Object terminal
;
791 Vtty_erase_char
= Qnil
;
796 if (!tty_out
->output
)
797 return; /* The tty is suspended. */
799 if (! tty_out
->old_tty
)
800 tty_out
->old_tty
= xmalloc (sizeof *tty_out
->old_tty
);
802 emacs_get_tty (fileno (tty_out
->input
), tty_out
->old_tty
);
804 tty
= *tty_out
->old_tty
;
806 #if !defined (DOS_NT)
807 XSETINT (Vtty_erase_char
, tty
.main
.c_cc
[VERASE
]);
809 tty
.main
.c_iflag
|= (IGNBRK
); /* Ignore break condition */
810 tty
.main
.c_iflag
&= ~ICRNL
; /* Disable map of CR to NL on input */
811 #ifdef INLCR /* I'm just being cautious,
812 since I can't check how widespread INLCR is--rms. */
813 tty
.main
.c_iflag
&= ~INLCR
; /* Disable map of NL to CR on input */
816 tty
.main
.c_iflag
&= ~ISTRIP
; /* don't strip 8th bit on input */
818 tty
.main
.c_lflag
&= ~ECHO
; /* Disable echo */
819 tty
.main
.c_lflag
&= ~ICANON
; /* Disable erase/kill processing */
821 tty
.main
.c_lflag
&= ~IEXTEN
; /* Disable other editing characters. */
823 tty
.main
.c_lflag
|= ISIG
; /* Enable signals */
824 if (tty_out
->flow_control
)
826 tty
.main
.c_iflag
|= IXON
; /* Enable start/stop output control */
828 tty
.main
.c_iflag
&= ~IXANY
;
832 tty
.main
.c_iflag
&= ~IXON
; /* Disable start/stop output control */
833 tty
.main
.c_oflag
&= ~ONLCR
; /* Disable map of NL to CR-NL
835 tty
.main
.c_oflag
&= ~TAB3
; /* Disable tab expansion */
837 if (tty_out
->meta_key
)
839 tty
.main
.c_cflag
|= CS8
; /* allow 8th bit on input */
840 tty
.main
.c_cflag
&= ~PARENB
;/* Don't check parity */
844 XSETTERMINAL(terminal
, tty_out
->terminal
);
845 if (!NILP (Fcontrolling_tty_p (terminal
)))
847 tty
.main
.c_cc
[VINTR
] = quit_char
; /* C-g (usually) gives SIGINT */
848 /* Set up C-g for both SIGQUIT and SIGINT.
849 We don't know which we will get, but we handle both alike
850 so which one it really gives us does not matter. */
851 tty
.main
.c_cc
[VQUIT
] = quit_char
;
855 /* We normally don't get interrupt or quit signals from tty
856 devices other than our controlling terminal; therefore,
857 we must handle C-g as normal input. Unfortunately, this
858 means that the interrupt and quit feature must be
859 disabled on secondary ttys, or we would not even see the
862 Note that even though emacsclient could have special code
863 to pass SIGINT to Emacs, we should _not_ enable
864 interrupt/quit keys for emacsclient frames. This means
865 that we can't break out of loops in C code from a
866 secondary tty frame, but we can always decide what
867 display the C-g came from, which is more important from a
868 usability point of view. (Consider the case when two
869 people work together using the same Emacs instance.) */
870 tty
.main
.c_cc
[VINTR
] = CDISABLE
;
871 tty
.main
.c_cc
[VQUIT
] = CDISABLE
;
873 tty
.main
.c_cc
[VMIN
] = 1; /* Input should wait for at least 1 char */
874 tty
.main
.c_cc
[VTIME
] = 0; /* no matter how long that takes. */
876 tty
.main
.c_cc
[VSWTCH
] = CDISABLE
; /* Turn off shell layering use
881 tty
.main
.c_cc
[VSUSP
] = CDISABLE
; /* Turn off handling of C-z. */
884 tty
.main
.c_cc
[V_DSUSP
] = CDISABLE
; /* Turn off handling of C-y. */
886 #ifdef VDSUSP /* Some systems have VDSUSP, some have V_DSUSP. */
887 tty
.main
.c_cc
[VDSUSP
] = CDISABLE
;
890 tty
.main
.c_cc
[VLNEXT
] = CDISABLE
;
893 tty
.main
.c_cc
[VREPRINT
] = CDISABLE
;
894 #endif /* VREPRINT */
896 tty
.main
.c_cc
[VWERASE
] = CDISABLE
;
899 tty
.main
.c_cc
[VDISCARD
] = CDISABLE
;
900 #endif /* VDISCARD */
902 if (tty_out
->flow_control
)
905 tty
.main
.c_cc
[VSTART
] = '\021';
908 tty
.main
.c_cc
[VSTOP
] = '\023';
914 tty
.main
.c_cc
[VSTART
] = CDISABLE
;
917 tty
.main
.c_cc
[VSTOP
] = CDISABLE
;
922 tty
.main
.c_cc
[VSTRT
] = CDISABLE
;
923 tty
.main
.c_cc
[VSTOP
] = CDISABLE
;
924 tty
.main
.c_cc
[VSUSP
] = CDISABLE
;
925 tty
.main
.c_cc
[VDSUSP
] = CDISABLE
;
926 if (tty_out
->flow_control
)
929 tty
.main
.c_cc
[VSTART
] = '\021';
932 tty
.main
.c_cc
[VSTOP
] = '\023';
935 /* Also, PTY overloads NUL and BREAK.
936 don't ignore break, but don't signal either, so it looks like NUL.
937 This really serves a purpose only if running in an XTERM window
938 or via TELNET or the like, but does no harm elsewhere. */
939 tty
.main
.c_iflag
&= ~IGNBRK
;
940 tty
.main
.c_iflag
&= ~BRKINT
;
942 #endif /* not DOS_NT */
944 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida, MW Aug 1993 */
945 if (!tty_out
->term_initted
)
946 internal_terminal_init ();
950 emacs_set_tty (fileno (tty_out
->input
), &tty
, 0);
952 /* This code added to insure that, if flow-control is not to be used,
953 we have an unlocked terminal at the start. */
956 if (!tty_out
->flow_control
) ioctl (fileno (tty_out
->input
), TCXONC
, 1);
959 if (!tty_out
->flow_control
) ioctl (fileno (tty_out
->input
), TIOCSTART
, 0);
962 #if !defined (DOS_NT)
964 if (!tty_out
->flow_control
) tcflow (fileno (tty_out
->input
), TCOON
);
969 #ifdef F_GETOWN /* F_SETFL does not imply existence of F_GETOWN */
972 old_fcntl_owner
[fileno (tty_out
->input
)] =
973 fcntl (fileno (tty_out
->input
), F_GETOWN
, 0);
974 fcntl (fileno (tty_out
->input
), F_SETOWN
, getpid ());
975 init_sigio (fileno (tty_out
->input
));
977 if (gpm_tty
== tty_out
)
979 /* Arrange for mouse events to give us SIGIO signals. */
980 fcntl (gpm_fd
, F_SETOWN
, getpid ());
981 fcntl (gpm_fd
, F_SETFL
, fcntl (gpm_fd
, F_GETFL
, 0) | O_NONBLOCK
);
984 #endif /* HAVE_GPM */
986 #endif /* F_GETOWN */
990 /* This symbol is defined on recent USG systems.
991 Someone says without this call USG won't really buffer the file
992 even with a call to setbuf. */
993 setvbuf (tty_out
->output
, (char *) _sobuf
, _IOFBF
, sizeof _sobuf
);
995 setbuf (tty_out
->output
, (char *) _sobuf
);
998 if (tty_out
->terminal
->set_terminal_modes_hook
)
999 tty_out
->terminal
->set_terminal_modes_hook (tty_out
->terminal
);
1001 if (!tty_out
->term_initted
)
1003 Lisp_Object tail
, frame
;
1004 FOR_EACH_FRAME (tail
, frame
)
1006 /* XXX This needs to be revised. */
1007 if (FRAME_TERMCAP_P (XFRAME (frame
))
1008 && FRAME_TTY (XFRAME (frame
)) == tty_out
)
1009 init_frame_faces (XFRAME (frame
));
1013 if (tty_out
->term_initted
&& no_redraw_on_reenter
)
1015 /* We used to call "direct_output_forward_char(0)" here,
1016 but it's not clear why, since it may not do anything anyway. */
1020 Lisp_Object tail
, frame
;
1022 FOR_EACH_FRAME (tail
, frame
)
1024 if ((FRAME_TERMCAP_P (XFRAME (frame
))
1025 || FRAME_MSDOS_P (XFRAME (frame
)))
1026 && FRAME_TTY (XFRAME (frame
)) == tty_out
)
1027 FRAME_GARBAGED_P (XFRAME (frame
)) = 1;
1031 tty_out
->term_initted
= 1;
1034 /* Return nonzero if safe to use tabs in output.
1035 At the time this is called, init_sys_modes has not been done yet. */
1038 tabs_safe_p (int fd
)
1040 struct emacs_tty etty
;
1042 emacs_get_tty (fd
, &etty
);
1045 return ((etty
.main
.c_oflag
& TABDLY
) != TAB3
);
1046 #else /* not TABDLY */
1048 #endif /* not TABDLY */
1054 /* Get terminal size from system.
1055 Store number of lines into *HEIGHTP and width into *WIDTHP.
1056 We store 0 if there's no valid information. */
1059 get_tty_size (int fd
, int *widthp
, int *heightp
)
1061 #if defined TIOCGWINSZ
1064 struct winsize size
;
1066 if (ioctl (fd
, TIOCGWINSZ
, &size
) == -1)
1067 *widthp
= *heightp
= 0;
1070 *widthp
= size
.ws_col
;
1071 *heightp
= size
.ws_row
;
1074 #elif defined TIOCGSIZE
1076 /* SunOS - style. */
1077 struct ttysize size
;
1079 if (ioctl (fd
, TIOCGSIZE
, &size
) == -1)
1080 *widthp
= *heightp
= 0;
1083 *widthp
= size
.ts_cols
;
1084 *heightp
= size
.ts_lines
;
1087 #elif defined WINDOWSNT
1089 CONSOLE_SCREEN_BUFFER_INFO info
;
1090 if (GetConsoleScreenBufferInfo (GetStdHandle (STD_OUTPUT_HANDLE
), &info
))
1092 *widthp
= info
.srWindow
.Right
- info
.srWindow
.Left
+ 1;
1093 *heightp
= info
.srWindow
.Bottom
- info
.srWindow
.Top
+ 1;
1096 *widthp
= *heightp
= 0;
1100 *widthp
= ScreenCols ();
1101 *heightp
= ScreenRows ();
1103 #else /* system doesn't know size */
1111 /* Set the logical window size associated with descriptor FD
1112 to HEIGHT and WIDTH. This is used mainly with ptys. */
1115 set_window_size (int fd
, int height
, int width
)
1120 struct winsize size
;
1121 size
.ws_row
= height
;
1122 size
.ws_col
= width
;
1124 if (ioctl (fd
, TIOCSWINSZ
, &size
) == -1)
1125 return 0; /* error */
1132 /* SunOS - style. */
1133 struct ttysize size
;
1134 size
.ts_lines
= height
;
1135 size
.ts_cols
= width
;
1137 if (ioctl (fd
, TIOCGSIZE
, &size
) == -1)
1143 #endif /* not SunOS-style */
1144 #endif /* not BSD-style */
1149 /* Prepare all terminal devices for exiting Emacs. */
1152 reset_all_sys_modes (void)
1154 struct tty_display_info
*tty
;
1155 for (tty
= tty_list
; tty
; tty
= tty
->next
)
1156 reset_sys_modes (tty
);
1159 /* Prepare the terminal for closing it; move the cursor to the
1160 bottom of the frame, turn off interrupt-driven I/O, etc. */
1163 reset_sys_modes (struct tty_display_info
*tty_out
)
1170 if (!tty_out
->term_initted
)
1173 if (!tty_out
->output
)
1174 return; /* The tty is suspended. */
1176 /* Go to and clear the last line of the terminal. */
1178 cmgoto (tty_out
, FrameRows (tty_out
) - 1, 0);
1180 /* Code adapted from tty_clear_end_of_line. */
1181 if (tty_out
->TS_clr_line
)
1183 emacs_tputs (tty_out
, tty_out
->TS_clr_line
, 1, cmputc
);
1186 { /* have to do it the hard way */
1188 tty_turn_off_insert (tty_out
);
1190 for (i
= curX (tty_out
); i
< FrameCols (tty_out
) - 1; i
++)
1192 fputc (' ', tty_out
->output
);
1196 cmgoto (tty_out
, FrameRows (tty_out
) - 1, 0);
1197 fflush (tty_out
->output
);
1199 if (tty_out
->terminal
->reset_terminal_modes_hook
)
1200 tty_out
->terminal
->reset_terminal_modes_hook (tty_out
->terminal
);
1203 /* Avoid possible loss of output when changing terminal modes. */
1204 fsync (fileno (tty_out
->output
));
1208 #ifdef F_SETOWN /* F_SETFL does not imply existence of F_SETOWN */
1209 if (interrupt_input
)
1211 reset_sigio (fileno (tty_out
->input
));
1212 fcntl (fileno (tty_out
->input
), F_SETOWN
,
1213 old_fcntl_owner
[fileno (tty_out
->input
)]);
1215 #endif /* F_SETOWN */
1217 fcntl (fileno (tty_out
->input
), F_SETFL
,
1218 fcntl (fileno (tty_out
->input
), F_GETFL
, 0) & ~O_NDELAY
);
1220 #endif /* F_SETFL */
1222 if (tty_out
->old_tty
)
1223 while (emacs_set_tty (fileno (tty_out
->input
),
1224 tty_out
->old_tty
, 0) < 0 && errno
== EINTR
)
1227 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida */
1235 /* Set up the proper status flags for use of a pty. */
1240 /* I'm told that TOICREMOTE does not mean control chars
1241 "can't be sent" but rather that they don't have
1242 input-editing or signaling effects.
1243 That should be good, because we have other ways
1244 to do those things in Emacs.
1245 However, telnet mode seems not to work on 4.2.
1246 So TIOCREMOTE is turned off now. */
1248 /* Under hp-ux, if TIOCREMOTE is turned on, some calls
1249 will hang. In particular, the "timeout" feature (which
1250 causes a read to return if there is no data available)
1251 does this. Also it is known that telnet mode will hang
1252 in such a way that Emacs must be stopped (perhaps this
1253 is the same problem).
1255 If TIOCREMOTE is turned off, then there is a bug in
1256 hp-ux which sometimes loses data. Apparently the
1257 code which blocks the master process when the internal
1258 buffer fills up does not work. Other than this,
1259 though, everything else seems to work fine.
1261 Since the latter lossage is more benign, we may as well
1262 lose that way. -- cph */
1264 #if defined (UNIX98_PTYS)
1267 ioctl (fd
, FIONBIO
, &on
);
1272 #endif /* HAVE_PTYS */
1275 #include <sys/socket.h>
1277 #endif /* HAVE_SOCKETS */
1280 #ifndef HAVE_H_ERRNO
1283 #endif /* TRY_AGAIN */
1286 init_system_name (void)
1288 #ifndef HAVE_GETHOSTNAME
1291 Vsystem_name
= build_string (uts
.nodename
);
1292 #else /* HAVE_GETHOSTNAME */
1293 unsigned int hostname_size
= 256;
1294 char *hostname
= alloca (hostname_size
);
1296 /* Try to get the host name; if the buffer is too short, try
1297 again. Apparently, the only indication gethostname gives of
1298 whether the buffer was large enough is the presence or absence
1299 of a '\0' in the string. Eech. */
1302 gethostname (hostname
, hostname_size
- 1);
1303 hostname
[hostname_size
- 1] = '\0';
1305 /* Was the buffer large enough for the '\0'? */
1306 if (strlen (hostname
) < hostname_size
- 1)
1309 hostname_size
<<= 1;
1310 hostname
= alloca (hostname_size
);
1313 /* Turn the hostname into the official, fully-qualified hostname.
1314 Don't do this if we're going to dump; this can confuse system
1315 libraries on some machines and make the dumped emacs core dump. */
1318 #endif /* not CANNOT_DUMP */
1319 if (! strchr (hostname
, '.'))
1322 #ifdef HAVE_GETADDRINFO
1323 struct addrinfo
*res
;
1324 struct addrinfo hints
;
1327 memset (&hints
, 0, sizeof (hints
));
1328 hints
.ai_socktype
= SOCK_STREAM
;
1329 hints
.ai_flags
= AI_CANONNAME
;
1331 for (count
= 0;; count
++)
1333 if ((ret
= getaddrinfo (hostname
, NULL
, &hints
, &res
)) == 0
1334 || ret
!= EAI_AGAIN
)
1339 Fsleep_for (make_number (1), Qnil
);
1344 struct addrinfo
*it
= res
;
1347 char *fqdn
= it
->ai_canonname
;
1348 if (fqdn
&& strchr (fqdn
, '.')
1349 && strcmp (fqdn
, "localhost.localdomain") != 0)
1355 hostname
= alloca (strlen (it
->ai_canonname
) + 1);
1356 strcpy (hostname
, it
->ai_canonname
);
1360 #else /* !HAVE_GETADDRINFO */
1362 for (count
= 0;; count
++)
1368 hp
= gethostbyname (hostname
);
1370 if (! (hp
== 0 && h_errno
== TRY_AGAIN
))
1377 Fsleep_for (make_number (1), Qnil
);
1382 char *fqdn
= (char *) hp
->h_name
;
1384 if (!strchr (fqdn
, '.'))
1386 /* We still don't have a fully qualified domain name.
1387 Try to find one in the list of alternate names */
1388 char **alias
= hp
->h_aliases
;
1390 && (!strchr (*alias
, '.')
1391 || !strcmp (*alias
, "localhost.localdomain")))
1398 #endif /* !HAVE_GETADDRINFO */
1400 #endif /* HAVE_SOCKETS */
1401 Vsystem_name
= build_string (hostname
);
1402 #endif /* HAVE_GETHOSTNAME */
1405 for (p
= SDATA (Vsystem_name
); *p
; p
++)
1406 if (*p
== ' ' || *p
== '\t')
1411 sigset_t empty_mask
;
1413 static struct sigaction process_fatal_action
;
1416 emacs_sigaction_flags (void)
1419 /* SA_RESTART causes interruptible functions with timeouts (e.g.,
1420 'select') to reset their timeout on some platforms (e.g.,
1421 HP-UX 11), which is not what we want. Also, when Emacs is
1422 interactive, we don't want SA_RESTART because we need to poll
1423 for pending input so we need long-running syscalls to be interrupted
1424 after a signal that sets pending_signals.
1426 Non-interactive keyboard input goes through stdio, where we
1427 always want restartable system calls. */
1434 /* Store into *ACTION a signal action suitable for Emacs, with handler
1437 emacs_sigaction_init (struct sigaction
*action
, signal_handler_t handler
)
1439 sigemptyset (&action
->sa_mask
);
1441 /* When handling a signal, block nonfatal system signals that are caught
1442 by Emacs. This makes race conditions less likely. */
1443 sigaddset (&action
->sa_mask
, SIGALRM
);
1445 sigaddset (&action
->sa_mask
, SIGCHLD
);
1448 sigaddset (&action
->sa_mask
, SIGDANGER
);
1451 sigaddset (&action
->sa_mask
, SIGWINCH
);
1453 if (! noninteractive
)
1455 sigaddset (&action
->sa_mask
, SIGINT
);
1456 sigaddset (&action
->sa_mask
, SIGQUIT
);
1458 sigaddset (&action
->sa_mask
, SIGIO
);
1462 if (! IEEE_FLOATING_POINT
)
1463 sigaddset (&action
->sa_mask
, SIGFPE
);
1465 action
->sa_handler
= handler
;
1466 action
->sa_flags
= emacs_sigaction_flags ();
1469 #ifdef FORWARD_SIGNAL_TO_MAIN_THREAD
1470 static pthread_t main_thread
;
1473 /* SIG has arrived at the current process. Deliver it to the main
1474 thread, which should handle it with HANDLER.
1476 If we are on the main thread, handle the signal SIG with HANDLER.
1477 Otherwise, redirect the signal to the main thread, blocking it from
1478 this thread. POSIX says any thread can receive a signal that is
1479 associated with a process, process group, or asynchronous event.
1480 On GNU/Linux that is not true, but for other systems (FreeBSD at
1483 deliver_process_signal (int sig
, signal_handler_t handler
)
1485 /* Preserve errno, to avoid race conditions with signal handlers that
1486 might change errno. Races can occur even in single-threaded hosts. */
1487 int old_errno
= errno
;
1489 bool on_main_thread
= true;
1490 #ifdef FORWARD_SIGNAL_TO_MAIN_THREAD
1491 if (! pthread_equal (pthread_self (), main_thread
))
1494 sigemptyset (&blocked
);
1495 sigaddset (&blocked
, sig
);
1496 pthread_sigmask (SIG_BLOCK
, &blocked
, 0);
1497 pthread_kill (main_thread
, sig
);
1498 on_main_thread
= false;
1507 /* Static location to save a fatal backtrace in a thread.
1508 FIXME: If two subsidiary threads fail simultaneously, the resulting
1509 backtrace may be garbage. */
1510 enum { BACKTRACE_LIMIT_MAX
= 500 };
1511 static void *thread_backtrace_buffer
[BACKTRACE_LIMIT_MAX
+ 1];
1512 static int thread_backtrace_npointers
;
1514 /* SIG has arrived at the current thread.
1515 If we are on the main thread, handle the signal SIG with HANDLER.
1516 Otherwise, this is a fatal error in the handling thread. */
1518 deliver_thread_signal (int sig
, signal_handler_t handler
)
1520 int old_errno
= errno
;
1522 #ifdef FORWARD_SIGNAL_TO_MAIN_THREAD
1523 if (! pthread_equal (pthread_self (), main_thread
))
1525 thread_backtrace_npointers
1526 = backtrace (thread_backtrace_buffer
, BACKTRACE_LIMIT_MAX
);
1527 sigaction (sig
, &process_fatal_action
, 0);
1528 pthread_kill (main_thread
, sig
);
1530 /* Avoid further damage while the main thread is exiting. */
1532 sigsuspend (&empty_mask
);
1540 #if !defined HAVE_STRSIGNAL && !HAVE_DECL_SYS_SIGLIST
1541 static char *my_sys_siglist
[NSIG
];
1545 # define sys_siglist my_sys_siglist
1548 /* Handle bus errors, invalid instruction, etc. */
1550 handle_fatal_signal (int sig
)
1552 terminate_due_to_signal (sig
, 40);
1556 deliver_fatal_signal (int sig
)
1558 deliver_process_signal (sig
, handle_fatal_signal
);
1562 deliver_fatal_thread_signal (int sig
)
1564 deliver_thread_signal (sig
, handle_fatal_signal
);
1567 static _Noreturn
void
1568 handle_arith_signal (int sig
)
1570 pthread_sigmask (SIG_SETMASK
, &empty_mask
, 0);
1571 xsignal0 (Qarith_error
);
1575 deliver_arith_signal (int sig
)
1577 deliver_thread_signal (sig
, handle_arith_signal
);
1580 /* Treat SIG as a terminating signal, unless it is already ignored and
1581 we are in --batch mode. Among other things, this makes nohup work. */
1583 maybe_fatal_sig (int sig
)
1585 bool catch_sig
= !noninteractive
;
1588 struct sigaction old_action
;
1589 sigaction (sig
, 0, &old_action
);
1590 catch_sig
= old_action
.sa_handler
!= SIG_IGN
;
1593 sigaction (sig
, &process_fatal_action
, 0);
1597 init_signals (bool dumping
)
1599 struct sigaction thread_fatal_action
;
1600 struct sigaction action
;
1602 sigemptyset (&empty_mask
);
1604 #ifdef FORWARD_SIGNAL_TO_MAIN_THREAD
1605 main_thread
= pthread_self ();
1608 #if !defined HAVE_STRSIGNAL && !HAVE_DECL_SYS_SIGLIST
1611 sys_siglist
[SIGABRT
] = "Aborted";
1613 sys_siglist
[SIGAIO
] = "LAN I/O interrupt";
1616 sys_siglist
[SIGALRM
] = "Alarm clock";
1619 sys_siglist
[SIGBUS
] = "Bus error";
1622 sys_siglist
[SIGCLD
] = "Child status changed";
1625 sys_siglist
[SIGCHLD
] = "Child status changed";
1628 sys_siglist
[SIGCONT
] = "Continued";
1631 sys_siglist
[SIGDANGER
] = "Swap space dangerously low";
1634 sys_siglist
[SIGDGNOTIFY
] = "Notification message in queue";
1637 sys_siglist
[SIGEMT
] = "Emulation trap";
1639 sys_siglist
[SIGFPE
] = "Arithmetic exception";
1641 sys_siglist
[SIGFREEZE
] = "SIGFREEZE";
1644 sys_siglist
[SIGGRANT
] = "Monitor mode granted";
1647 sys_siglist
[SIGHUP
] = "Hangup";
1649 sys_siglist
[SIGILL
] = "Illegal instruction";
1650 sys_siglist
[SIGINT
] = "Interrupt";
1652 sys_siglist
[SIGIO
] = "I/O possible";
1655 sys_siglist
[SIGIOINT
] = "I/O intervention required";
1658 sys_siglist
[SIGIOT
] = "IOT trap";
1661 sys_siglist
[SIGKILL
] = "Killed";
1664 sys_siglist
[SIGLOST
] = "Resource lost";
1667 sys_siglist
[SIGLWP
] = "SIGLWP";
1670 sys_siglist
[SIGMSG
] = "Monitor mode data available";
1673 sys_siglist
[SIGWIND
] = "SIGPHONE";
1676 sys_siglist
[SIGPIPE
] = "Broken pipe";
1679 sys_siglist
[SIGPOLL
] = "Pollable event occurred";
1682 sys_siglist
[SIGPROF
] = "Profiling timer expired";
1685 sys_siglist
[SIGPTY
] = "PTY I/O interrupt";
1688 sys_siglist
[SIGPWR
] = "Power-fail restart";
1691 sys_siglist
[SIGQUIT
] = "Quit";
1694 sys_siglist
[SIGRETRACT
] = "Need to relinquish monitor mode";
1697 sys_siglist
[SIGSAK
] = "Secure attention";
1699 sys_siglist
[SIGSEGV
] = "Segmentation violation";
1701 sys_siglist
[SIGSOUND
] = "Sound completed";
1704 sys_siglist
[SIGSTOP
] = "Stopped (signal)";
1707 sys_siglist
[SIGSTP
] = "Stopped (user)";
1710 sys_siglist
[SIGSYS
] = "Bad argument to system call";
1712 sys_siglist
[SIGTERM
] = "Terminated";
1714 sys_siglist
[SIGTHAW
] = "SIGTHAW";
1717 sys_siglist
[SIGTRAP
] = "Trace/breakpoint trap";
1720 sys_siglist
[SIGTSTP
] = "Stopped (user)";
1723 sys_siglist
[SIGTTIN
] = "Stopped (tty input)";
1726 sys_siglist
[SIGTTOU
] = "Stopped (tty output)";
1729 sys_siglist
[SIGURG
] = "Urgent I/O condition";
1732 sys_siglist
[SIGUSR1
] = "User defined signal 1";
1735 sys_siglist
[SIGUSR2
] = "User defined signal 2";
1738 sys_siglist
[SIGVTALRM
] = "Virtual timer expired";
1741 sys_siglist
[SIGWAITING
] = "Process's LWPs are blocked";
1744 sys_siglist
[SIGWINCH
] = "Window size changed";
1747 sys_siglist
[SIGWIND
] = "SIGWIND";
1750 sys_siglist
[SIGXCPU
] = "CPU time limit exceeded";
1753 sys_siglist
[SIGXFSZ
] = "File size limit exceeded";
1756 #endif /* !defined HAVE_STRSIGNAL && !defined HAVE_DECL_SYS_SIGLIST */
1758 /* Don't alter signal handlers if dumping. On some machines,
1759 changing signal handlers sets static data that would make signals
1760 fail to work right when the dumped Emacs is run. */
1764 sigfillset (&process_fatal_action
.sa_mask
);
1765 process_fatal_action
.sa_handler
= deliver_fatal_signal
;
1766 process_fatal_action
.sa_flags
= emacs_sigaction_flags ();
1768 sigfillset (&thread_fatal_action
.sa_mask
);
1769 thread_fatal_action
.sa_handler
= deliver_fatal_thread_signal
;
1770 thread_fatal_action
.sa_flags
= process_fatal_action
.sa_flags
;
1772 /* SIGINT may need special treatment on MS-Windows. See
1773 http://lists.gnu.org/archive/html/emacs-devel/2010-09/msg01062.html
1774 Please update the doc of kill-emacs, kill-emacs-hook, and
1775 NEWS if you change this. */
1777 maybe_fatal_sig (SIGHUP
);
1778 maybe_fatal_sig (SIGINT
);
1779 maybe_fatal_sig (SIGTERM
);
1781 /* Emacs checks for write errors, so it can safely ignore SIGPIPE.
1782 However, in batch mode leave SIGPIPE alone, as that causes Emacs
1783 to behave more like typical batch applications do. */
1784 if (! noninteractive
)
1785 signal (SIGPIPE
, SIG_IGN
);
1787 sigaction (SIGQUIT
, &process_fatal_action
, 0);
1788 sigaction (SIGILL
, &thread_fatal_action
, 0);
1789 sigaction (SIGTRAP
, &thread_fatal_action
, 0);
1791 /* Typically SIGFPE is thread-specific and is fatal, like SIGILL.
1792 But on a non-IEEE host SIGFPE can come from a trap in the Lisp
1793 interpreter's floating point operations, so treat SIGFPE as an
1794 arith-error if it arises in the main thread. */
1795 if (IEEE_FLOATING_POINT
)
1796 sigaction (SIGFPE
, &thread_fatal_action
, 0);
1799 emacs_sigaction_init (&action
, deliver_arith_signal
);
1800 sigaction (SIGFPE
, &action
, 0);
1804 add_user_signal (SIGUSR1
, "sigusr1");
1807 add_user_signal (SIGUSR2
, "sigusr2");
1809 sigaction (SIGABRT
, &thread_fatal_action
, 0);
1811 sigaction (SIGPRE
, &thread_fatal_action
, 0);
1814 sigaction (SIGORE
, &thread_fatal_action
, 0);
1817 sigaction (SIGUME
, &thread_fatal_action
, 0);
1820 sigaction (SIGDLK
, &process_fatal_action
, 0);
1823 sigaction (SIGCPULIM
, &process_fatal_action
, 0);
1826 sigaction (SIGIOT
, &thread_fatal_action
, 0);
1829 sigaction (SIGEMT
, &thread_fatal_action
, 0);
1832 sigaction (SIGBUS
, &thread_fatal_action
, 0);
1834 sigaction (SIGSEGV
, &thread_fatal_action
, 0);
1836 sigaction (SIGSYS
, &thread_fatal_action
, 0);
1838 sigaction (SIGTERM
, &process_fatal_action
, 0);
1840 sigaction (SIGPROF
, &process_fatal_action
, 0);
1843 sigaction (SIGVTALRM
, &process_fatal_action
, 0);
1846 sigaction (SIGXCPU
, &process_fatal_action
, 0);
1849 sigaction (SIGXFSZ
, &process_fatal_action
, 0);
1853 /* This just means available memory is getting low. */
1854 emacs_sigaction_init (&action
, deliver_danger_signal
);
1855 sigaction (SIGDANGER
, &action
, 0);
1858 /* AIX-specific signals. */
1860 sigaction (SIGGRANT
, &process_fatal_action
, 0);
1863 sigaction (SIGMIGRATE
, &process_fatal_action
, 0);
1866 sigaction (SIGMSG
, &process_fatal_action
, 0);
1869 sigaction (SIGRETRACT
, &process_fatal_action
, 0);
1872 sigaction (SIGSAK
, &process_fatal_action
, 0);
1875 sigaction (SIGSOUND
, &process_fatal_action
, 0);
1878 sigaction (SIGTALRM
, &thread_fatal_action
, 0);
1888 /* Figure out how many bits the system's random number generator uses.
1889 `random' and `lrand48' are assumed to return 31 usable bits.
1890 BSD `rand' returns a 31 bit value but the low order bits are unusable;
1891 so we'll shift it and treat it like the 15-bit USG `rand'. */
1895 # define RAND_BITS 31
1896 # else /* !HAVE_RANDOM */
1897 # ifdef HAVE_LRAND48
1898 # define RAND_BITS 31
1899 # define random lrand48
1900 # else /* !HAVE_LRAND48 */
1901 # define RAND_BITS 15
1902 # if RAND_MAX == 32767
1903 # define random rand
1904 # else /* RAND_MAX != 32767 */
1905 # if RAND_MAX == 2147483647
1906 # define random() (rand () >> 16)
1907 # else /* RAND_MAX != 2147483647 */
1909 # define random rand
1911 # define random() (rand () >> 16)
1913 # endif /* RAND_MAX != 2147483647 */
1914 # endif /* RAND_MAX != 32767 */
1915 # endif /* !HAVE_LRAND48 */
1916 # endif /* !HAVE_RANDOM */
1917 #endif /* !RAND_BITS */
1920 seed_random (void *seed
, ptrdiff_t seed_size
)
1922 #if defined HAVE_RANDOM || ! defined HAVE_LRAND48
1923 unsigned int arg
= 0;
1927 unsigned char *argp
= (unsigned char *) &arg
;
1928 unsigned char *seedp
= seed
;
1930 for (i
= 0; i
< seed_size
; i
++)
1931 argp
[i
% sizeof arg
] ^= seedp
[i
];
1935 # ifdef HAVE_LRAND48
1946 EMACS_TIME t
= current_emacs_time ();
1947 uintmax_t v
= getpid () ^ EMACS_SECS (t
) ^ EMACS_NSECS (t
);
1948 seed_random (&v
, sizeof v
);
1952 * Return a nonnegative random integer out of whatever we've got.
1953 * It contains enough bits to make a random (signed) Emacs fixnum.
1954 * This suffices even for a 64-bit architecture with a 15-bit rand.
1961 for (i
= 0; i
< (FIXNUM_BITS
+ RAND_BITS
- 1) / RAND_BITS
; i
++)
1962 val
= (random () ^ (val
<< RAND_BITS
)
1963 ^ (val
>> (BITS_PER_EMACS_INT
- RAND_BITS
)));
1964 val
^= val
>> (BITS_PER_EMACS_INT
- FIXNUM_BITS
);
1965 return val
& INTMASK
;
1968 #ifndef HAVE_SNPRINTF
1969 /* Approximate snprintf as best we can on ancient hosts that lack it. */
1971 snprintf (char *buf
, size_t bufsize
, char const *format
, ...)
1973 ptrdiff_t size
= min (bufsize
, PTRDIFF_MAX
);
1974 ptrdiff_t nbytes
= size
- 1;
1979 va_start (ap
, format
);
1980 nbytes
= doprnt (buf
, size
, format
, 0, ap
);
1984 if (nbytes
== size
- 1)
1986 /* Calculate the length of the string that would have been created
1987 had the buffer been large enough. */
1988 char stackbuf
[4000];
1990 ptrdiff_t bsize
= sizeof stackbuf
;
1991 va_start (ap
, format
);
1992 nbytes
= evxprintf (&b
, &bsize
, stackbuf
, -1, format
, ap
);
1998 if (INT_MAX
< nbytes
)
2011 /* If a backtrace is available, output the top lines of it to stderr.
2012 Do not output more than BACKTRACE_LIMIT or BACKTRACE_LIMIT_MAX lines.
2013 This function may be called from a signal handler, so it should
2014 not invoke async-unsafe functions like malloc. */
2016 emacs_backtrace (int backtrace_limit
)
2018 void *main_backtrace_buffer
[BACKTRACE_LIMIT_MAX
+ 1];
2019 int bounded_limit
= min (backtrace_limit
, BACKTRACE_LIMIT_MAX
);
2023 if (thread_backtrace_npointers
)
2025 buffer
= thread_backtrace_buffer
;
2026 npointers
= thread_backtrace_npointers
;
2030 buffer
= main_backtrace_buffer
;
2031 npointers
= backtrace (buffer
, bounded_limit
+ 1);
2036 ignore_value (write (STDERR_FILENO
, "\nBacktrace:\n", 12));
2037 backtrace_symbols_fd (buffer
, npointers
, STDERR_FILENO
);
2038 if (bounded_limit
< npointers
)
2039 ignore_value (write (STDERR_FILENO
, "...\n", 4));
2047 terminate_due_to_signal (SIGABRT
, 10);
2052 emacs_open (const char *path
, int oflag
, int mode
)
2054 register int rtnval
;
2056 while ((rtnval
= open (path
, oflag
, mode
)) == -1
2057 && (errno
== EINTR
))
2063 emacs_close (int fd
)
2066 register int rtnval
;
2068 while ((rtnval
= close (fd
)) == -1
2069 && (errno
== EINTR
))
2072 /* If close is interrupted SunOS 4.1 may or may not have closed the
2073 file descriptor. If it did the second close will fail with
2074 errno = EBADF. That means we have succeeded. */
2075 if (rtnval
== -1 && did_retry
&& errno
== EBADF
)
2081 /* Maximum number of bytes to read or write in a single system call.
2082 This works around a serious bug in Linux kernels before 2.6.16; see
2083 <https://bugzilla.redhat.com/show_bug.cgi?format=multiple&id=612839>.
2084 It's likely to work around similar bugs in other operating systems, so do it
2085 on all platforms. Round INT_MAX down to a page size, with the conservative
2086 assumption that page sizes are at most 2**18 bytes (any kernel with a
2087 page size larger than that shouldn't have the bug). */
2088 #ifndef MAX_RW_COUNT
2089 #define MAX_RW_COUNT (INT_MAX >> 18 << 18)
2092 /* Read from FILEDESC to a buffer BUF with size NBYTE, retrying if interrupted.
2093 Return the number of bytes read, which might be less than NBYTE.
2094 On error, set errno and return -1. */
2096 emacs_read (int fildes
, char *buf
, ptrdiff_t nbyte
)
2098 register ssize_t rtnval
;
2100 /* There is no need to check against MAX_RW_COUNT, since no caller ever
2101 passes a size that large to emacs_read. */
2103 while ((rtnval
= read (fildes
, buf
, nbyte
)) == -1
2104 && (errno
== EINTR
))
2109 /* Write to FILEDES from a buffer BUF with size NBYTE, retrying if interrupted
2110 or if a partial write occurs. Return the number of bytes written, setting
2111 errno if this is less than NBYTE. */
2113 emacs_write (int fildes
, const char *buf
, ptrdiff_t nbyte
)
2116 ptrdiff_t bytes_written
;
2122 rtnval
= write (fildes
, buf
, min (nbyte
, MAX_RW_COUNT
));
2128 /* I originally used `QUIT' but that might causes files to
2129 be truncated if you hit C-g in the middle of it. --Stef */
2130 if (pending_signals
)
2131 process_pending_signals ();
2140 bytes_written
+= rtnval
;
2143 return (bytes_written
);
2146 static struct allocator
const emacs_norealloc_allocator
=
2147 { xmalloc
, NULL
, xfree
, memory_full
};
2149 /* Get the symbolic link value of FILENAME. Return a pointer to a
2150 NUL-terminated string. If readlink fails, return NULL and set
2151 errno. If the value fits in INITIAL_BUF, return INITIAL_BUF.
2152 Otherwise, allocate memory and return a pointer to that memory. If
2153 memory allocation fails, diagnose and fail without returning. If
2154 successful, store the length of the symbolic link into *LINKLEN. */
2156 emacs_readlink (char const *filename
, char initial_buf
[READLINK_BUFSIZE
])
2158 return careadlinkat (AT_FDCWD
, filename
, initial_buf
, READLINK_BUFSIZE
,
2159 &emacs_norealloc_allocator
, careadlinkatcwd
);
2164 * All of the following are for USG.
2166 * On USG systems the system calls are INTERRUPTIBLE by signals
2167 * that the user program has elected to catch. Thus the system call
2168 * must be retried in these cases. To handle this without massive
2169 * changes in the source code, we remap the standard system call names
2170 * to names for our own functions in sysdep.c that do the system call
2171 * with retries. Actually, for portability reasons, it is good
2172 * programming practice, as this example shows, to limit all actual
2173 * system calls to a single occurrence in the source. Sure, this
2174 * adds an extra level of function call overhead but it is almost
2175 * always negligible. Fred Fish, Unisoft Systems Inc.
2179 * Warning, this function may not duplicate 4.2 action properly
2180 * under error conditions.
2183 #if !defined (HAVE_GETWD) || defined (BROKEN_GETWD)
2186 /* In 4.1, param.h fails to define this. */
2187 #define MAXPATHLEN 1024
2191 getwd (char *pathname
)
2193 char *npath
, *spath
;
2194 extern char *getcwd (char *, size_t);
2196 block_input (); /* getcwd uses malloc */
2197 spath
= npath
= getcwd ((char *) 0, MAXPATHLEN
);
2203 /* On Altos 3068, getcwd can return @hostname/dir, so discard
2204 up to first slash. Should be harmless on other systems. */
2205 while (*npath
&& *npath
!= '/')
2207 strcpy (pathname
, npath
);
2208 free (spath
); /* getcwd uses malloc */
2213 #endif /* !defined (HAVE_GETWD) || defined (BROKEN_GETWD) */
2216 /* Directory routines for systems that don't have them. */
2218 #ifdef HAVE_DIRENT_H
2222 #if !defined (HAVE_CLOSEDIR)
2225 closedir (DIR *dirp
/* stream from opendir */)
2229 rtnval
= emacs_close (dirp
->dd_fd
);
2234 #endif /* not HAVE_CLOSEDIR */
2235 #endif /* HAVE_DIRENT_H */
2238 /* Return a struct timeval that is roughly equivalent to T.
2239 Use the least timeval not less than T.
2240 Return an extremal value if the result would overflow. */
2242 make_timeval (EMACS_TIME t
)
2245 tv
.tv_sec
= t
.tv_sec
;
2246 tv
.tv_usec
= t
.tv_nsec
/ 1000;
2248 if (t
.tv_nsec
% 1000 != 0)
2250 if (tv
.tv_usec
< 999999)
2252 else if (tv
.tv_sec
< TYPE_MAXIMUM (time_t))
2262 /* Set the access and modification time stamps of FD (a.k.a. FILE) to be
2263 ATIME and MTIME, respectively.
2264 FD must be either negative -- in which case it is ignored --
2265 or a file descriptor that is open on FILE.
2266 If FD is nonnegative, then FILE can be NULL. */
2268 set_file_times (int fd
, const char *filename
,
2269 EMACS_TIME atime
, EMACS_TIME mtime
)
2271 struct timespec timespec
[2];
2272 timespec
[0] = atime
;
2273 timespec
[1] = mtime
;
2274 return fdutimens (fd
, filename
, timespec
);
2277 #ifndef HAVE_STRSIGNAL
2279 strsignal (int code
)
2283 if (0 <= code
&& code
< NSIG
)
2285 /* Cast to suppress warning if the table has const char *. */
2286 signame
= (char *) sys_siglist
[code
];
2291 #endif /* HAVE_STRSIGNAL */
2294 /* For make-serial-process */
2296 serial_open (char *port
)
2300 fd
= emacs_open ((char*) port
,
2313 error ("Could not open %s: %s",
2314 port
, emacs_strerror (errno
));
2317 ioctl (fd
, TIOCEXCL
, (char *) 0);
2323 #if !defined (HAVE_CFMAKERAW)
2324 /* Workaround for targets which are missing cfmakeraw. */
2325 /* Pasted from man page. */
2327 cfmakeraw (struct termios
*termios_p
)
2329 termios_p
->c_iflag
&= ~(IGNBRK
|BRKINT
|PARMRK
|ISTRIP
|INLCR
|IGNCR
|ICRNL
|IXON
);
2330 termios_p
->c_oflag
&= ~OPOST
;
2331 termios_p
->c_lflag
&= ~(ECHO
|ECHONL
|ICANON
|ISIG
|IEXTEN
);
2332 termios_p
->c_cflag
&= ~(CSIZE
|PARENB
);
2333 termios_p
->c_cflag
|= CS8
;
2335 #endif /* !defined (HAVE_CFMAKERAW */
2337 #if !defined (HAVE_CFSETSPEED)
2338 /* Workaround for targets which are missing cfsetspeed. */
2340 cfsetspeed (struct termios
*termios_p
, speed_t vitesse
)
2342 return (cfsetispeed (termios_p
, vitesse
)
2343 + cfsetospeed (termios_p
, vitesse
));
2347 /* For serial-process-configure */
2349 serial_configure (struct Lisp_Process
*p
,
2350 Lisp_Object contact
)
2352 Lisp_Object childp2
= Qnil
;
2353 Lisp_Object tem
= Qnil
;
2354 struct termios attr
;
2356 char summary
[4] = "???"; /* This usually becomes "8N1". */
2358 childp2
= Fcopy_sequence (p
->childp
);
2360 /* Read port attributes and prepare default configuration. */
2361 err
= tcgetattr (p
->outfd
, &attr
);
2363 error ("tcgetattr() failed: %s", emacs_strerror (errno
));
2365 #if defined (CLOCAL)
2366 attr
.c_cflag
|= CLOCAL
;
2369 attr
.c_cflag
|= CREAD
;
2372 /* Configure speed. */
2373 if (!NILP (Fplist_member (contact
, QCspeed
)))
2374 tem
= Fplist_get (contact
, QCspeed
);
2376 tem
= Fplist_get (p
->childp
, QCspeed
);
2378 err
= cfsetspeed (&attr
, XINT (tem
));
2380 error ("cfsetspeed(%"pI
"d) failed: %s", XINT (tem
),
2381 emacs_strerror (errno
));
2382 childp2
= Fplist_put (childp2
, QCspeed
, tem
);
2384 /* Configure bytesize. */
2385 if (!NILP (Fplist_member (contact
, QCbytesize
)))
2386 tem
= Fplist_get (contact
, QCbytesize
);
2388 tem
= Fplist_get (p
->childp
, QCbytesize
);
2390 tem
= make_number (8);
2392 if (XINT (tem
) != 7 && XINT (tem
) != 8)
2393 error (":bytesize must be nil (8), 7, or 8");
2394 summary
[0] = XINT (tem
) + '0';
2395 #if defined (CSIZE) && defined (CS7) && defined (CS8)
2396 attr
.c_cflag
&= ~CSIZE
;
2397 attr
.c_cflag
|= ((XINT (tem
) == 7) ? CS7
: CS8
);
2399 /* Don't error on bytesize 8, which should be set by cfmakeraw. */
2400 if (XINT (tem
) != 8)
2401 error ("Bytesize cannot be changed");
2403 childp2
= Fplist_put (childp2
, QCbytesize
, tem
);
2405 /* Configure parity. */
2406 if (!NILP (Fplist_member (contact
, QCparity
)))
2407 tem
= Fplist_get (contact
, QCparity
);
2409 tem
= Fplist_get (p
->childp
, QCparity
);
2410 if (!NILP (tem
) && !EQ (tem
, Qeven
) && !EQ (tem
, Qodd
))
2411 error (":parity must be nil (no parity), `even', or `odd'");
2412 #if defined (PARENB) && defined (PARODD) && defined (IGNPAR) && defined (INPCK)
2413 attr
.c_cflag
&= ~(PARENB
| PARODD
);
2414 attr
.c_iflag
&= ~(IGNPAR
| INPCK
);
2419 else if (EQ (tem
, Qeven
))
2422 attr
.c_cflag
|= PARENB
;
2423 attr
.c_iflag
|= (IGNPAR
| INPCK
);
2425 else if (EQ (tem
, Qodd
))
2428 attr
.c_cflag
|= (PARENB
| PARODD
);
2429 attr
.c_iflag
|= (IGNPAR
| INPCK
);
2432 /* Don't error on no parity, which should be set by cfmakeraw. */
2434 error ("Parity cannot be configured");
2436 childp2
= Fplist_put (childp2
, QCparity
, tem
);
2438 /* Configure stopbits. */
2439 if (!NILP (Fplist_member (contact
, QCstopbits
)))
2440 tem
= Fplist_get (contact
, QCstopbits
);
2442 tem
= Fplist_get (p
->childp
, QCstopbits
);
2444 tem
= make_number (1);
2446 if (XINT (tem
) != 1 && XINT (tem
) != 2)
2447 error (":stopbits must be nil (1 stopbit), 1, or 2");
2448 summary
[2] = XINT (tem
) + '0';
2449 #if defined (CSTOPB)
2450 attr
.c_cflag
&= ~CSTOPB
;
2451 if (XINT (tem
) == 2)
2452 attr
.c_cflag
|= CSTOPB
;
2454 /* Don't error on 1 stopbit, which should be set by cfmakeraw. */
2455 if (XINT (tem
) != 1)
2456 error ("Stopbits cannot be configured");
2458 childp2
= Fplist_put (childp2
, QCstopbits
, tem
);
2460 /* Configure flowcontrol. */
2461 if (!NILP (Fplist_member (contact
, QCflowcontrol
)))
2462 tem
= Fplist_get (contact
, QCflowcontrol
);
2464 tem
= Fplist_get (p
->childp
, QCflowcontrol
);
2465 if (!NILP (tem
) && !EQ (tem
, Qhw
) && !EQ (tem
, Qsw
))
2466 error (":flowcontrol must be nil (no flowcontrol), `hw', or `sw'");
2467 #if defined (CRTSCTS)
2468 attr
.c_cflag
&= ~CRTSCTS
;
2470 #if defined (CNEW_RTSCTS)
2471 attr
.c_cflag
&= ~CNEW_RTSCTS
;
2473 #if defined (IXON) && defined (IXOFF)
2474 attr
.c_iflag
&= ~(IXON
| IXOFF
);
2478 /* Already configured. */
2480 else if (EQ (tem
, Qhw
))
2482 #if defined (CRTSCTS)
2483 attr
.c_cflag
|= CRTSCTS
;
2484 #elif defined (CNEW_RTSCTS)
2485 attr
.c_cflag
|= CNEW_RTSCTS
;
2487 error ("Hardware flowcontrol (RTS/CTS) not supported");
2490 else if (EQ (tem
, Qsw
))
2492 #if defined (IXON) && defined (IXOFF)
2493 attr
.c_iflag
|= (IXON
| IXOFF
);
2495 error ("Software flowcontrol (XON/XOFF) not supported");
2498 childp2
= Fplist_put (childp2
, QCflowcontrol
, tem
);
2500 /* Activate configuration. */
2501 err
= tcsetattr (p
->outfd
, TCSANOW
, &attr
);
2503 error ("tcsetattr() failed: %s", emacs_strerror (errno
));
2505 childp2
= Fplist_put (childp2
, QCsummary
, build_string (summary
));
2506 pset_childp (p
, childp2
);
2508 #endif /* not DOS_NT */
2510 /* System depended enumeration of and access to system processes a-la ps(1). */
2514 /* Process enumeration and access via /proc. */
2517 list_system_processes (void)
2519 Lisp_Object procdir
, match
, proclist
, next
;
2520 struct gcpro gcpro1
, gcpro2
;
2521 register Lisp_Object tail
;
2523 GCPRO2 (procdir
, match
);
2524 /* For every process on the system, there's a directory in the
2525 "/proc" pseudo-directory whose name is the numeric ID of that
2527 procdir
= build_string ("/proc");
2528 match
= build_string ("[0-9]+");
2529 proclist
= directory_files_internal (procdir
, Qnil
, match
, Qt
, 0, Qnil
);
2531 /* `proclist' gives process IDs as strings. Destructively convert
2532 each string into a number. */
2533 for (tail
= proclist
; CONSP (tail
); tail
= next
)
2536 XSETCAR (tail
, Fstring_to_number (XCAR (tail
), Qnil
));
2540 /* directory_files_internal returns the files in reverse order; undo
2542 proclist
= Fnreverse (proclist
);
2546 #elif defined BSD_SYSTEM
2549 list_system_processes (void)
2551 #if defined DARWIN_OS || defined __NetBSD__ || defined __OpenBSD__
2552 int mib
[] = {CTL_KERN
, KERN_PROC
, KERN_PROC_ALL
};
2554 int mib
[] = {CTL_KERN
, KERN_PROC
, KERN_PROC_PROC
};
2557 struct kinfo_proc
*procs
;
2560 struct gcpro gcpro1
;
2561 Lisp_Object proclist
= Qnil
;
2563 if (sysctl (mib
, 3, NULL
, &len
, NULL
, 0) != 0)
2566 procs
= xmalloc (len
);
2567 if (sysctl (mib
, 3, procs
, &len
, NULL
, 0) != 0)
2574 len
/= sizeof (struct kinfo_proc
);
2575 for (i
= 0; i
< len
; i
++)
2577 #if defined DARWIN_OS || defined __NetBSD__
2578 proclist
= Fcons (make_fixnum_or_float (procs
[i
].kp_proc
.p_pid
), proclist
);
2579 #elif defined __OpenBSD__
2580 proclist
= Fcons (make_fixnum_or_float (procs
[i
].p_pid
), proclist
);
2582 proclist
= Fcons (make_fixnum_or_float (procs
[i
].ki_pid
), proclist
);
2592 /* The WINDOWSNT implementation is in w32.c.
2593 The MSDOS implementation is in dosfns.c. */
2594 #elif !defined (WINDOWSNT) && !defined (MSDOS)
2597 list_system_processes (void)
2602 #endif /* !defined (WINDOWSNT) */
2606 time_from_jiffies (unsigned long long tval
, long hz
)
2608 unsigned long long s
= tval
/ hz
;
2609 unsigned long long frac
= tval
% hz
;
2612 if (TYPE_MAXIMUM (time_t) < s
)
2614 if (LONG_MAX
- 1 <= ULLONG_MAX
/ EMACS_TIME_RESOLUTION
2615 || frac
<= ULLONG_MAX
/ EMACS_TIME_RESOLUTION
)
2616 ns
= frac
* EMACS_TIME_RESOLUTION
/ hz
;
2619 /* This is reachable only in the unlikely case that HZ * HZ
2620 exceeds ULLONG_MAX. It calculates an approximation that is
2621 guaranteed to be in range. */
2622 long hz_per_ns
= (hz
/ EMACS_TIME_RESOLUTION
2623 + (hz
% EMACS_TIME_RESOLUTION
!= 0));
2624 ns
= frac
/ hz_per_ns
;
2627 return make_emacs_time (s
, ns
);
2631 ltime_from_jiffies (unsigned long long tval
, long hz
)
2633 EMACS_TIME t
= time_from_jiffies (tval
, hz
);
2634 return make_lisp_time (t
);
2641 EMACS_TIME up
= make_emacs_time (0, 0);
2644 fup
= fopen ("/proc/uptime", "r");
2648 unsigned long long upsec
, upfrac
, idlesec
, idlefrac
;
2649 int upfrac_start
, upfrac_end
, idlefrac_start
, idlefrac_end
;
2651 if (fscanf (fup
, "%llu.%n%llu%n %llu.%n%llu%n",
2652 &upsec
, &upfrac_start
, &upfrac
, &upfrac_end
,
2653 &idlesec
, &idlefrac_start
, &idlefrac
, &idlefrac_end
)
2656 if (TYPE_MAXIMUM (time_t) < upsec
)
2658 upsec
= TYPE_MAXIMUM (time_t);
2659 upfrac
= EMACS_TIME_RESOLUTION
- 1;
2663 int upfraclen
= upfrac_end
- upfrac_start
;
2664 for (; upfraclen
< LOG10_EMACS_TIME_RESOLUTION
; upfraclen
++)
2666 for (; LOG10_EMACS_TIME_RESOLUTION
< upfraclen
; upfraclen
--)
2668 upfrac
= min (upfrac
, EMACS_TIME_RESOLUTION
- 1);
2670 up
= make_emacs_time (upsec
, upfrac
);
2679 #define MAJOR(d) (((unsigned)(d) >> 8) & 0xfff)
2680 #define MINOR(d) (((unsigned)(d) & 0xff) | (((unsigned)(d) & 0xfff00000) >> 12))
2683 procfs_ttyname (int rdev
)
2686 char name
[PATH_MAX
];
2689 fdev
= fopen ("/proc/tty/drivers", "r");
2694 unsigned long minor_beg
, minor_end
;
2695 char minor
[25]; /* 2 32-bit numbers + dash */
2698 while (!feof (fdev
) && !ferror (fdev
))
2700 if (3 <= fscanf (fdev
, "%*s %s %u %s %*s\n", name
, &major
, minor
)
2701 && major
== MAJOR (rdev
))
2703 minor_beg
= strtoul (minor
, &endp
, 0);
2705 minor_end
= minor_beg
;
2706 else if (*endp
== '-')
2707 minor_end
= strtoul (endp
+ 1, &endp
, 0);
2711 if (MINOR (rdev
) >= minor_beg
&& MINOR (rdev
) <= minor_end
)
2713 sprintf (name
+ strlen (name
), "%u", MINOR (rdev
));
2721 return build_string (name
);
2724 static unsigned long
2725 procfs_get_total_memory (void)
2728 unsigned long retval
= 2 * 1024 * 1024; /* default: 2GB */
2731 fmem
= fopen ("/proc/meminfo", "r");
2735 unsigned long entry_value
;
2736 char entry_name
[20]; /* the longest I saw is 13+1 */
2738 while (!feof (fmem
) && !ferror (fmem
))
2740 if (2 <= fscanf (fmem
, "%s %lu kB\n", entry_name
, &entry_value
)
2741 && strcmp (entry_name
, "MemTotal:") == 0)
2743 retval
= entry_value
;
2754 system_process_attributes (Lisp_Object pid
)
2756 char procfn
[PATH_MAX
], fn
[PATH_MAX
];
2760 long clocks_per_sec
;
2762 char procbuf
[1025], *p
, *q
;
2765 static char const default_cmd
[] = "???";
2766 const char *cmd
= default_cmd
;
2767 int cmdsize
= sizeof default_cmd
- 1;
2768 char *cmdline
= NULL
;
2769 ptrdiff_t cmdline_size
;
2772 int ppid
, pgrp
, sess
, tty
, tpgid
, thcount
;
2775 unsigned long long u_time
, s_time
, cutime
, cstime
, start
;
2776 long priority
, niceness
, rss
;
2777 unsigned long minflt
, majflt
, cminflt
, cmajflt
, vsize
;
2778 EMACS_TIME tnow
, tstart
, tboot
, telapsed
, us_time
;
2780 Lisp_Object attrs
= Qnil
;
2781 Lisp_Object cmd_str
, decoded_cmd
, tem
;
2782 struct gcpro gcpro1
, gcpro2
;
2784 CHECK_NUMBER_OR_FLOAT (pid
);
2785 CONS_TO_INTEGER (pid
, pid_t
, proc_id
);
2786 sprintf (procfn
, "/proc/%"pMd
, proc_id
);
2787 if (stat (procfn
, &st
) < 0)
2790 GCPRO2 (attrs
, decoded_cmd
);
2794 attrs
= Fcons (Fcons (Qeuid
, make_fixnum_or_float (uid
)), attrs
);
2796 pw
= getpwuid (uid
);
2799 attrs
= Fcons (Fcons (Quser
, build_string (pw
->pw_name
)), attrs
);
2802 attrs
= Fcons (Fcons (Qegid
, make_fixnum_or_float (gid
)), attrs
);
2804 gr
= getgrgid (gid
);
2807 attrs
= Fcons (Fcons (Qgroup
, build_string (gr
->gr_name
)), attrs
);
2809 strcpy (fn
, procfn
);
2810 procfn_end
= fn
+ strlen (fn
);
2811 strcpy (procfn_end
, "/stat");
2812 fd
= emacs_open (fn
, O_RDONLY
, 0);
2813 if (fd
>= 0 && (nread
= emacs_read (fd
, procbuf
, sizeof (procbuf
) - 1)) > 0)
2815 procbuf
[nread
] = '\0';
2818 p
= strchr (p
, '(');
2821 q
= strrchr (p
+ 1, ')');
2831 /* Command name is encoded in locale-coding-system; decode it. */
2832 cmd_str
= make_unibyte_string (cmd
, cmdsize
);
2833 decoded_cmd
= code_convert_string_norecord (cmd_str
,
2834 Vlocale_coding_system
, 0);
2835 attrs
= Fcons (Fcons (Qcomm
, decoded_cmd
), attrs
);
2839 EMACS_INT ppid_eint
, pgrp_eint
, sess_eint
, tpgid_eint
, thcount_eint
;
2841 /* state ppid pgrp sess tty tpgid . minflt cminflt majflt cmajflt utime stime cutime cstime priority nice thcount . start vsize rss */
2842 sscanf (p
, "%c %d %d %d %d %d %*u %lu %lu %lu %lu %Lu %Lu %Lu %Lu %ld %ld %d %*d %Lu %lu %ld",
2843 &c
, &ppid
, &pgrp
, &sess
, &tty
, &tpgid
,
2844 &minflt
, &cminflt
, &majflt
, &cmajflt
,
2845 &u_time
, &s_time
, &cutime
, &cstime
,
2846 &priority
, &niceness
, &thcount
, &start
, &vsize
, &rss
);
2851 state_str
[1] = '\0';
2852 tem
= build_string (state_str
);
2853 attrs
= Fcons (Fcons (Qstate
, tem
), attrs
);
2855 /* Stops GCC whining about limited range of data type. */
2860 thcount_eint
= thcount
;
2861 attrs
= Fcons (Fcons (Qppid
, make_fixnum_or_float (ppid_eint
)), attrs
);
2862 attrs
= Fcons (Fcons (Qpgrp
, make_fixnum_or_float (pgrp_eint
)), attrs
);
2863 attrs
= Fcons (Fcons (Qsess
, make_fixnum_or_float (sess_eint
)), attrs
);
2864 attrs
= Fcons (Fcons (Qttname
, procfs_ttyname (tty
)), attrs
);
2865 attrs
= Fcons (Fcons (Qtpgid
, make_fixnum_or_float (tpgid_eint
)), attrs
);
2866 attrs
= Fcons (Fcons (Qminflt
, make_fixnum_or_float (minflt
)), attrs
);
2867 attrs
= Fcons (Fcons (Qmajflt
, make_fixnum_or_float (majflt
)), attrs
);
2868 attrs
= Fcons (Fcons (Qcminflt
, make_fixnum_or_float (cminflt
)), attrs
);
2869 attrs
= Fcons (Fcons (Qcmajflt
, make_fixnum_or_float (cmajflt
)), attrs
);
2870 clocks_per_sec
= sysconf (_SC_CLK_TCK
);
2871 if (clocks_per_sec
< 0)
2872 clocks_per_sec
= 100;
2873 attrs
= Fcons (Fcons (Qutime
,
2874 ltime_from_jiffies (u_time
, clocks_per_sec
)),
2876 attrs
= Fcons (Fcons (Qstime
,
2877 ltime_from_jiffies (s_time
, clocks_per_sec
)),
2879 attrs
= Fcons (Fcons (Qtime
,
2880 ltime_from_jiffies (s_time
+ u_time
,
2883 attrs
= Fcons (Fcons (Qcutime
,
2884 ltime_from_jiffies (cutime
, clocks_per_sec
)),
2886 attrs
= Fcons (Fcons (Qcstime
,
2887 ltime_from_jiffies (cstime
, clocks_per_sec
)),
2889 attrs
= Fcons (Fcons (Qctime
,
2890 ltime_from_jiffies (cstime
+cutime
, clocks_per_sec
)),
2892 attrs
= Fcons (Fcons (Qpri
, make_number (priority
)), attrs
);
2893 attrs
= Fcons (Fcons (Qnice
, make_number (niceness
)), attrs
);
2894 attrs
= Fcons (Fcons (Qthcount
, make_fixnum_or_float (thcount_eint
)), attrs
);
2895 tnow
= current_emacs_time ();
2896 telapsed
= get_up_time ();
2897 tboot
= sub_emacs_time (tnow
, telapsed
);
2898 tstart
= time_from_jiffies (start
, clocks_per_sec
);
2899 tstart
= add_emacs_time (tboot
, tstart
);
2900 attrs
= Fcons (Fcons (Qstart
, make_lisp_time (tstart
)), attrs
);
2901 attrs
= Fcons (Fcons (Qvsize
, make_fixnum_or_float (vsize
/1024)), attrs
);
2902 attrs
= Fcons (Fcons (Qrss
, make_fixnum_or_float (4*rss
)), attrs
);
2903 telapsed
= sub_emacs_time (tnow
, tstart
);
2904 attrs
= Fcons (Fcons (Qetime
, make_lisp_time (telapsed
)), attrs
);
2905 us_time
= time_from_jiffies (u_time
+ s_time
, clocks_per_sec
);
2906 pcpu
= (EMACS_TIME_TO_DOUBLE (us_time
)
2907 / EMACS_TIME_TO_DOUBLE (telapsed
));
2910 attrs
= Fcons (Fcons (Qpcpu
, make_float (100 * pcpu
)), attrs
);
2911 pmem
= 4.0 * 100 * rss
/ procfs_get_total_memory ();
2914 attrs
= Fcons (Fcons (Qpmem
, make_float (pmem
)), attrs
);
2921 strcpy (procfn_end
, "/cmdline");
2922 fd
= emacs_open (fn
, O_RDONLY
, 0);
2926 for (cmdline_size
= 0; cmdline_size
< STRING_BYTES_BOUND
; cmdline_size
++)
2928 if (emacs_read (fd
, &ch
, 1) != 1)
2931 if (c_isspace (c
) || c
== '\\')
2932 cmdline_size
++; /* for later quoting, see below */
2936 cmdline
= xmalloc (cmdline_size
+ 1);
2937 lseek (fd
, 0L, SEEK_SET
);
2939 if ((nread
= read (fd
, cmdline
, cmdline_size
)) >= 0)
2940 cmdline
[nread
++] = '\0';
2943 /* Assigning zero to `nread' makes us skip the following
2944 two loops, assign zero to cmdline_size, and enter the
2945 following `if' clause that handles unknown command
2949 /* We don't want trailing null characters. */
2950 for (p
= cmdline
+ nread
; p
> cmdline
+ 1 && !p
[-1]; p
--)
2952 for (p
= cmdline
; p
< cmdline
+ nread
; p
++)
2954 /* Escape-quote whitespace and backslashes. */
2955 if (c_isspace (*p
) || *p
== '\\')
2957 memmove (p
+ 1, p
, nread
- (p
- cmdline
));
2961 else if (*p
== '\0')
2964 cmdline_size
= nread
;
2968 cmdline_size
= cmdsize
+ 2;
2969 cmdline
= xmalloc (cmdline_size
+ 1);
2970 sprintf (cmdline
, "[%.*s]", cmdsize
, cmd
);
2973 /* Command line is encoded in locale-coding-system; decode it. */
2974 cmd_str
= make_unibyte_string (cmdline
, cmdline_size
);
2975 decoded_cmd
= code_convert_string_norecord (cmd_str
,
2976 Vlocale_coding_system
, 0);
2978 attrs
= Fcons (Fcons (Qargs
, decoded_cmd
), attrs
);
2985 #elif defined (SOLARIS2) && defined (HAVE_PROCFS)
2987 /* The <procfs.h> header does not like to be included if _LP64 is defined and
2988 __FILE_OFFSET_BITS == 64. This is an ugly workaround that. */
2989 #if !defined (_LP64) && defined (_FILE_OFFSET_BITS) && (_FILE_OFFSET_BITS == 64)
2990 #define PROCFS_FILE_OFFSET_BITS_HACK 1
2991 #undef _FILE_OFFSET_BITS
2993 #define PROCFS_FILE_OFFSET_BITS_HACK 0
2998 #if PROCFS_FILE_OFFSET_BITS_HACK == 1
2999 #define _FILE_OFFSET_BITS 64
3000 #ifdef _FILE_OFFSET_BITS /* Avoid unused-macro warnings. */
3002 #endif /* PROCFS_FILE_OFFSET_BITS_HACK == 1 */
3005 system_process_attributes (Lisp_Object pid
)
3007 char procfn
[PATH_MAX
], fn
[PATH_MAX
];
3012 struct psinfo pinfo
;
3018 Lisp_Object attrs
= Qnil
;
3019 Lisp_Object decoded_cmd
, tem
;
3020 struct gcpro gcpro1
, gcpro2
;
3022 CHECK_NUMBER_OR_FLOAT (pid
);
3023 CONS_TO_INTEGER (pid
, pid_t
, proc_id
);
3024 sprintf (procfn
, "/proc/%"pMd
, proc_id
);
3025 if (stat (procfn
, &st
) < 0)
3028 GCPRO2 (attrs
, decoded_cmd
);
3032 attrs
= Fcons (Fcons (Qeuid
, make_fixnum_or_float (uid
)), attrs
);
3034 pw
= getpwuid (uid
);
3037 attrs
= Fcons (Fcons (Quser
, build_string (pw
->pw_name
)), attrs
);
3040 attrs
= Fcons (Fcons (Qegid
, make_fixnum_or_float (gid
)), attrs
);
3042 gr
= getgrgid (gid
);
3045 attrs
= Fcons (Fcons (Qgroup
, build_string (gr
->gr_name
)), attrs
);
3047 strcpy (fn
, procfn
);
3048 procfn_end
= fn
+ strlen (fn
);
3049 strcpy (procfn_end
, "/psinfo");
3050 fd
= emacs_open (fn
, O_RDONLY
, 0);
3052 && (nread
= read (fd
, (char*)&pinfo
, sizeof (struct psinfo
)) > 0))
3054 attrs
= Fcons (Fcons (Qppid
, make_fixnum_or_float (pinfo
.pr_ppid
)), attrs
);
3055 attrs
= Fcons (Fcons (Qpgrp
, make_fixnum_or_float (pinfo
.pr_pgid
)), attrs
);
3056 attrs
= Fcons (Fcons (Qsess
, make_fixnum_or_float (pinfo
.pr_sid
)), attrs
);
3060 state_str
[0] = pinfo
.pr_lwp
.pr_sname
;
3061 state_str
[1] = '\0';
3062 tem
= build_string (state_str
);
3063 attrs
= Fcons (Fcons (Qstate
, tem
), attrs
);
3066 /* FIXME: missing Qttyname. psinfo.pr_ttydev is a dev_t,
3067 need to get a string from it. */
3069 /* FIXME: missing: Qtpgid */
3081 Are they available? */
3083 attrs
= Fcons (Fcons (Qtime
, make_lisp_time (pinfo
.pr_time
)), attrs
);
3084 attrs
= Fcons (Fcons (Qctime
, make_lisp_time (pinfo
.pr_ctime
)), attrs
);
3085 attrs
= Fcons (Fcons (Qpri
, make_number (pinfo
.pr_lwp
.pr_pri
)), attrs
);
3086 attrs
= Fcons (Fcons (Qnice
, make_number (pinfo
.pr_lwp
.pr_nice
)), attrs
);
3087 attrs
= Fcons (Fcons (Qthcount
, make_fixnum_or_float (pinfo
.pr_nlwp
)), attrs
);
3089 attrs
= Fcons (Fcons (Qstart
, make_lisp_time (pinfo
.pr_start
)), attrs
);
3090 attrs
= Fcons (Fcons (Qvsize
, make_fixnum_or_float (pinfo
.pr_size
)), attrs
);
3091 attrs
= Fcons (Fcons (Qrss
, make_fixnum_or_float (pinfo
.pr_rssize
)), attrs
);
3093 /* pr_pctcpu and pr_pctmem are unsigned integers in the
3094 range 0 .. 2**15, representing 0.0 .. 1.0. */
3095 attrs
= Fcons (Fcons (Qpcpu
, make_float (100.0 / 0x8000 * pinfo
.pr_pctcpu
)), attrs
);
3096 attrs
= Fcons (Fcons (Qpmem
, make_float (100.0 / 0x8000 * pinfo
.pr_pctmem
)), attrs
);
3099 = code_convert_string_norecord (make_unibyte_string (pinfo
.pr_fname
,
3100 strlen (pinfo
.pr_fname
)),
3101 Vlocale_coding_system
, 0);
3102 attrs
= Fcons (Fcons (Qcomm
, decoded_cmd
), attrs
);
3104 = code_convert_string_norecord (make_unibyte_string (pinfo
.pr_psargs
,
3105 strlen (pinfo
.pr_psargs
)),
3106 Vlocale_coding_system
, 0);
3107 attrs
= Fcons (Fcons (Qargs
, decoded_cmd
), attrs
);
3117 #elif defined __FreeBSD__
3120 timeval_to_EMACS_TIME (struct timeval t
)
3122 return make_emacs_time (t
.tv_sec
, t
.tv_usec
* 1000);
3126 make_lisp_timeval (struct timeval t
)
3128 return make_lisp_time (timeval_to_EMACS_TIME (t
));
3132 system_process_attributes (Lisp_Object pid
)
3135 int pagesize
= getpagesize ();
3142 char args
[MAXPATHLEN
];
3145 int mib
[4] = {CTL_KERN
, KERN_PROC
, KERN_PROC_PID
};
3146 struct kinfo_proc proc
;
3147 size_t proclen
= sizeof proc
;
3149 struct gcpro gcpro1
, gcpro2
;
3150 Lisp_Object attrs
= Qnil
;
3151 Lisp_Object decoded_comm
;
3153 CHECK_NUMBER_OR_FLOAT (pid
);
3154 CONS_TO_INTEGER (pid
, int, proc_id
);
3157 if (sysctl (mib
, 4, &proc
, &proclen
, NULL
, 0) != 0)
3160 GCPRO2 (attrs
, decoded_comm
);
3162 attrs
= Fcons (Fcons (Qeuid
, make_fixnum_or_float (proc
.ki_uid
)), attrs
);
3165 pw
= getpwuid (proc
.ki_uid
);
3168 attrs
= Fcons (Fcons (Quser
, build_string (pw
->pw_name
)), attrs
);
3170 attrs
= Fcons (Fcons (Qegid
, make_fixnum_or_float (proc
.ki_svgid
)), attrs
);
3173 gr
= getgrgid (proc
.ki_svgid
);
3176 attrs
= Fcons (Fcons (Qgroup
, build_string (gr
->gr_name
)), attrs
);
3178 decoded_comm
= code_convert_string_norecord
3179 (make_unibyte_string (proc
.ki_comm
, strlen (proc
.ki_comm
)),
3180 Vlocale_coding_system
, 0);
3182 attrs
= Fcons (Fcons (Qcomm
, decoded_comm
), attrs
);
3184 char state
[2] = {'\0', '\0'};
3185 switch (proc
.ki_stat
)
3207 attrs
= Fcons (Fcons (Qstate
, build_string (state
)), attrs
);
3210 attrs
= Fcons (Fcons (Qppid
, make_fixnum_or_float (proc
.ki_ppid
)), attrs
);
3211 attrs
= Fcons (Fcons (Qpgrp
, make_fixnum_or_float (proc
.ki_pgid
)), attrs
);
3212 attrs
= Fcons (Fcons (Qsess
, make_fixnum_or_float (proc
.ki_sid
)), attrs
);
3215 ttyname
= proc
.ki_tdev
== NODEV
? NULL
: devname (proc
.ki_tdev
, S_IFCHR
);
3218 attrs
= Fcons (Fcons (Qtty
, build_string (ttyname
)), attrs
);
3220 attrs
= Fcons (Fcons (Qtpgid
, make_fixnum_or_float (proc
.ki_tpgid
)), attrs
);
3221 attrs
= Fcons (Fcons (Qminflt
, make_fixnum_or_float (proc
.ki_rusage
.ru_minflt
)), attrs
);
3222 attrs
= Fcons (Fcons (Qmajflt
, make_fixnum_or_float (proc
.ki_rusage
.ru_majflt
)), attrs
);
3223 attrs
= Fcons (Fcons (Qcminflt
, make_number (proc
.ki_rusage_ch
.ru_minflt
)), attrs
);
3224 attrs
= Fcons (Fcons (Qcmajflt
, make_number (proc
.ki_rusage_ch
.ru_majflt
)), attrs
);
3226 attrs
= Fcons (Fcons (Qutime
, make_lisp_timeval (proc
.ki_rusage
.ru_utime
)),
3228 attrs
= Fcons (Fcons (Qstime
, make_lisp_timeval (proc
.ki_rusage
.ru_stime
)),
3230 t
= add_emacs_time (timeval_to_EMACS_TIME (proc
.ki_rusage
.ru_utime
),
3231 timeval_to_EMACS_TIME (proc
.ki_rusage
.ru_stime
));
3232 attrs
= Fcons (Fcons (Qtime
, make_lisp_time (t
)), attrs
);
3234 attrs
= Fcons (Fcons (Qcutime
,
3235 make_lisp_timeval (proc
.ki_rusage_ch
.ru_utime
)),
3237 attrs
= Fcons (Fcons (Qcstime
,
3238 make_lisp_timeval (proc
.ki_rusage_ch
.ru_utime
)),
3240 t
= add_emacs_time (timeval_to_EMACS_TIME (proc
.ki_rusage_ch
.ru_utime
),
3241 timeval_to_EMACS_TIME (proc
.ki_rusage_ch
.ru_stime
));
3242 attrs
= Fcons (Fcons (Qctime
, make_lisp_time (t
)), attrs
);
3244 attrs
= Fcons (Fcons (Qthcount
, make_fixnum_or_float (proc
.ki_numthreads
)),
3246 attrs
= Fcons (Fcons (Qpri
, make_number (proc
.ki_pri
.pri_native
)), attrs
);
3247 attrs
= Fcons (Fcons (Qnice
, make_number (proc
.ki_nice
)), attrs
);
3248 attrs
= Fcons (Fcons (Qstart
, make_lisp_timeval (proc
.ki_start
)), attrs
);
3249 attrs
= Fcons (Fcons (Qvsize
, make_number (proc
.ki_size
>> 10)), attrs
);
3250 attrs
= Fcons (Fcons (Qrss
, make_number (proc
.ki_rssize
* pagesize
>> 10)),
3253 now
= current_emacs_time ();
3254 t
= sub_emacs_time (now
, timeval_to_EMACS_TIME (proc
.ki_start
));
3255 attrs
= Fcons (Fcons (Qetime
, make_lisp_time (t
)), attrs
);
3257 len
= sizeof fscale
;
3258 if (sysctlbyname ("kern.fscale", &fscale
, &len
, NULL
, 0) == 0)
3263 if (sysctlbyname ("kern.ccpu", &ccpu
, &len
, NULL
, 0) == 0)
3265 pcpu
= (100.0 * proc
.ki_pctcpu
/ fscale
3266 / (1 - exp (proc
.ki_swtime
* log ((double) ccpu
/ fscale
))));
3267 attrs
= Fcons (Fcons (Qpcpu
, make_fixnum_or_float (pcpu
)), attrs
);
3271 len
= sizeof npages
;
3272 if (sysctlbyname ("hw.availpages", &npages
, &len
, NULL
, 0) == 0)
3274 double pmem
= (proc
.ki_flag
& P_INMEM
3275 ? 100.0 * proc
.ki_rssize
/ npages
3277 attrs
= Fcons (Fcons (Qpmem
, make_fixnum_or_float (pmem
)), attrs
);
3280 mib
[2] = KERN_PROC_ARGS
;
3282 if (sysctl (mib
, 4, args
, &len
, NULL
, 0) == 0)
3285 for (i
= 0; i
< len
; i
++)
3287 if (! args
[i
] && i
< len
- 1)
3292 (code_convert_string_norecord
3293 (build_unibyte_string (args
),
3294 Vlocale_coding_system
, 0));
3296 attrs
= Fcons (Fcons (Qargs
, decoded_comm
), attrs
);
3303 /* The WINDOWSNT implementation is in w32.c.
3304 The MSDOS implementation is in dosfns.c. */
3305 #elif !defined (WINDOWSNT) && !defined (MSDOS)
3308 system_process_attributes (Lisp_Object pid
)
3313 #endif /* !defined (WINDOWSNT) */