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/>. */
28 #endif /* HAVE_PWD_H */
32 #include <allocator.h>
33 #include <careadlinkat.h>
34 #include <ignore-value.h>
37 #include "sysselect.h"
38 #include "blockinput.h"
41 #include <sys/sysctl.h>
43 #include <sys/resource.h> */
48 #include <sys/sysctl.h>
53 #define write sys_write
58 #endif /* not WINDOWSNT */
60 #include <sys/types.h>
67 #define setpgrp setpgid
71 /* Get SI_SRPC_DOMAIN, if it is available. */
72 #ifdef HAVE_SYS_SYSTEMINFO_H
73 #include <sys/systeminfo.h>
76 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida, MW Aug 1993 */
80 #include <sys/param.h>
89 #ifdef HAVE_SYS_UTSNAME_H
90 #include <sys/utsname.h>
92 #endif /* HAVE_SYS_UTSNAME_H */
97 #include "termhooks.h"
100 #include "dispextern.h"
102 #include "cm.h" /* for reset_sys_modes */
106 /* In process.h which conflicts with the local copy. */
108 int _cdecl
_spawnlp (int, const char *, const char *, ...);
109 int _cdecl
_getpid (void);
110 extern char *getwd (char *);
113 #include "syssignal.h"
120 #ifndef HAVE_STRUCT_UTIMBUF
121 /* We want to use utime rather than utimes, but we couldn't find the
122 structure declaration. We'll use the traditional one. */
130 static int emacs_get_tty (int, struct emacs_tty
*);
131 static int emacs_set_tty (int, struct emacs_tty
*, int);
132 #if defined TIOCNOTTY || defined USG5 || defined CYGWIN
133 static void croak (char *) NO_RETURN
;
136 /* Declare here, including term.h is problematic on some systems. */
137 extern void tputs (const char *, int, int (*)(int));
139 static const int baud_convert
[] =
141 0, 50, 75, 110, 135, 150, 200, 300, 600, 1200,
142 1800, 2400, 4800, 9600, 19200, 38400
146 #if !defined (HAVE_GET_CURRENT_DIR_NAME) || defined (BROKEN_GET_CURRENT_DIR_NAME)
148 /* Return the current working directory. Returns NULL on errors.
149 Any other returned value must be freed with free. This is used
150 only when get_current_dir_name is not defined on the system. */
152 get_current_dir_name (void)
156 struct stat dotstat
, pwdstat
;
157 /* If PWD is accurate, use it instead of calling getwd. PWD is
158 sometimes a nicer name, and using it may avoid a fatal error if a
159 parent directory is searchable but not readable. */
160 if ((pwd
= getenv ("PWD")) != 0
161 && (IS_DIRECTORY_SEP (*pwd
) || (*pwd
&& IS_DEVICE_SEP (pwd
[1])))
162 && stat (pwd
, &pwdstat
) == 0
163 && stat (".", &dotstat
) == 0
164 && dotstat
.st_ino
== pwdstat
.st_ino
165 && dotstat
.st_dev
== pwdstat
.st_dev
167 && strlen (pwd
) < MAXPATHLEN
171 buf
= (char *) malloc (strlen (pwd
) + 1);
179 size_t buf_size
= 1024;
180 buf
= (char *) malloc (buf_size
);
185 if (getcwd (buf
, buf_size
) == buf
)
189 int tmp_errno
= errno
;
195 buf
= (char *) realloc (buf
, buf_size
);
203 /* We need MAXPATHLEN here. */
204 buf
= (char *) malloc (MAXPATHLEN
+ 1);
207 if (getwd (buf
) == NULL
)
209 int tmp_errno
= errno
;
221 /* Discard pending input on all input descriptors. */
224 discard_tty_input (void)
227 struct emacs_tty buf
;
232 #ifdef MSDOS /* Demacs 1.1.1 91/10/16 HIRANO Satoshi */
233 while (dos_keyread () != -1)
235 #else /* not MSDOS */
237 struct tty_display_info
*tty
;
238 for (tty
= tty_list
; tty
; tty
= tty
->next
)
240 if (tty
->input
) /* Is the device suspended? */
242 emacs_get_tty (fileno (tty
->input
), &buf
);
243 emacs_set_tty (fileno (tty
->input
), &buf
, 0);
247 #endif /* not MSDOS */
248 #endif /* not WINDOWSNT */
254 /* Arrange for character C to be read as the next input from
256 XXX What if we have multiple ttys?
262 if (! FRAME_TERMCAP_P (SELECTED_FRAME ()))
265 /* Should perhaps error if in batch mode */
267 ioctl (fileno (CURTTY()->input
), TIOCSTI
, &c
);
268 #else /* no TIOCSTI */
269 error ("Cannot stuff terminal input characters in this version of Unix");
270 #endif /* no TIOCSTI */
276 init_baud_rate (int fd
)
286 #else /* not DOS_NT */
291 emacs_ospeed
= cfgetospeed (&sg
);
292 #endif /* not DOS_NT */
295 baud_rate
= (emacs_ospeed
< sizeof baud_convert
/ sizeof baud_convert
[0]
296 ? baud_convert
[emacs_ospeed
] : 9600);
303 /* Set nonzero to make following function work under dbx
304 (at least for bsd). */
305 int wait_debugging EXTERNALLY_VISIBLE
;
310 wait_for_termination_1 (pid_t pid
, int interruptible
)
314 #if (defined (BSD_SYSTEM) || defined (HPUX)) && !defined (__GNU__)
315 /* Note that kill returns -1 even if the process is just a zombie now.
316 But inevitably a SIGCHLD interrupt should be generated
317 and child_sig will do wait3 and make the process go away. */
318 /* There is some indication that there is a bug involved with
319 termination of subprocesses, perhaps involving a kernel bug too,
320 but no idea what it is. Just as a hunch we signal SIGCHLD to see
321 if that causes the problem to go away or get worse. */
322 sigsetmask (sigmask (SIGCHLD
));
323 if (0 > kill (pid
, 0))
325 sigsetmask (SIGEMPTYMASK
);
326 kill (getpid (), SIGCHLD
);
332 sigpause (SIGEMPTYMASK
);
333 #else /* not BSD_SYSTEM, and not HPUX version >= 6 */
337 #else /* not WINDOWSNT */
338 sigblock (sigmask (SIGCHLD
));
340 if (kill (pid
, 0) == -1 && errno
== ESRCH
)
342 sigunblock (sigmask (SIGCHLD
));
346 sigsuspend (&empty_mask
);
347 #endif /* not WINDOWSNT */
348 #endif /* not BSD_SYSTEM, and not HPUX version >= 6 */
354 /* Wait for subprocess with process id `pid' to terminate and
355 make sure it will get eliminated (not remain forever as a zombie) */
358 wait_for_termination (pid_t pid
)
360 wait_for_termination_1 (pid
, 0);
363 /* Like the above, but allow keyboard interruption. */
365 interruptible_wait_for_termination (pid_t pid
)
367 wait_for_termination_1 (pid
, 1);
371 * flush any pending output
372 * (may flush input as well; it does not matter the way we use it)
376 flush_pending_output (int channel
)
378 /* FIXME: maybe this function should be removed */
381 /* Set up the terminal at the other end of a pseudo-terminal that
382 we will be controlling an inferior through.
383 It should not echo or do line-editing, since that is done
384 in Emacs. No padding needed for insertion into an Emacs buffer. */
387 child_setup_tty (int out
)
392 emacs_get_tty (out
, &s
);
393 s
.main
.c_oflag
|= OPOST
; /* Enable output postprocessing */
394 s
.main
.c_oflag
&= ~ONLCR
; /* Disable map of NL to CR-NL on output */
396 /* http://lists.gnu.org/archive/html/emacs-devel/2008-05/msg00406.html
397 Some versions of GNU Hurd do not have FFDLY? */
399 s
.main
.c_oflag
&= ~(NLDLY
|CRDLY
|TABDLY
|BSDLY
|VTDLY
|FFDLY
);
400 /* No output delays */
402 s
.main
.c_oflag
&= ~(NLDLY
|CRDLY
|TABDLY
|BSDLY
|VTDLY
);
403 /* No output delays */
406 s
.main
.c_lflag
&= ~ECHO
; /* Disable echo */
407 s
.main
.c_lflag
|= ISIG
; /* Enable signals */
409 s
.main
.c_iflag
&= ~IUCLC
; /* Disable downcasing on input. */
412 s
.main
.c_iflag
&= ~ISTRIP
; /* don't strip 8th bit on input */
415 s
.main
.c_oflag
&= ~OLCUC
; /* Disable upcasing on output. */
417 s
.main
.c_oflag
&= ~TAB3
; /* Disable tab expansion */
418 s
.main
.c_cflag
= (s
.main
.c_cflag
& ~CSIZE
) | CS8
; /* Don't strip 8th bit */
419 s
.main
.c_cc
[VERASE
] = CDISABLE
; /* disable erase processing */
420 s
.main
.c_cc
[VKILL
] = CDISABLE
; /* disable kill processing */
423 s
.main
.c_cflag
= (s
.main
.c_cflag
& ~CBAUD
) | B9600
; /* baud rate sanity */
426 #ifdef SIGNALS_VIA_CHARACTERS
427 /* the QUIT and INTR character are used in process_send_signal
428 so set them here to something useful. */
429 if (s
.main
.c_cc
[VQUIT
] == CDISABLE
)
430 s
.main
.c_cc
[VQUIT
] = '\\'&037; /* Control-\ */
431 if (s
.main
.c_cc
[VINTR
] == CDISABLE
)
432 s
.main
.c_cc
[VINTR
] = 'C'&037; /* Control-C */
433 #endif /* not SIGNALS_VIA_CHARACTERS */
436 /* Also, PTY overloads NUL and BREAK.
437 don't ignore break, but don't signal either, so it looks like NUL. */
438 s
.main
.c_iflag
&= ~IGNBRK
;
439 s
.main
.c_iflag
&= ~BRKINT
;
440 /* rms: Formerly it set s.main.c_cc[VINTR] to 0377 here
441 unconditionally. Then a SIGNALS_VIA_CHARACTERS conditional
442 would force it to 0377. That looks like duplicated code. */
443 s
.main
.c_cflag
= (s
.main
.c_cflag
& ~CBAUD
) | B9600
; /* baud rate sanity */
446 /* We originally enabled ICANON (and set VEOF to 04), and then had
447 process.c send additional EOF chars to flush the output when faced
448 with long lines, but this leads to weird effects when the
449 subprocess has disabled ICANON and ends up seeing those spurious
450 extra EOFs. So we don't send EOFs any more in
451 process.c:send_process. First we tried to disable ICANON by
452 default, so if a subsprocess sets up ICANON, it's his problem (or
453 the Elisp package that talks to it) to deal with lines that are
454 too long. But this disables some features, such as the ability
455 to send EOF signals. So we re-enabled ICANON but there is no
456 more "send eof to flush" going on (which is wrong and unportable
457 in itself). The correct way to handle too much output is to
458 buffer what could not be written and then write it again when
459 select returns ok for writing. This has it own set of
460 problems. Write is now asynchronous, is that a problem? How much
461 do we buffer, and what do we do when that limit is reached? */
463 s
.main
.c_lflag
|= ICANON
; /* Enable line editing and eof processing */
464 s
.main
.c_cc
[VEOF
] = 'D'&037; /* Control-D */
465 #if 0 /* These settings only apply to non-ICANON mode. */
466 s
.main
.c_cc
[VMIN
] = 1;
467 s
.main
.c_cc
[VTIME
] = 0;
470 emacs_set_tty (out
, &s
, 0);
471 #endif /* not WINDOWSNT */
473 #endif /* not MSDOS */
476 /* Record a signal code and the handler for it. */
480 void (*handler
) (int);
483 static void save_signal_handlers (struct save_signal
*);
484 static void restore_signal_handlers (struct save_signal
*);
486 /* Suspend the Emacs process; give terminal to its superior. */
491 #if defined (SIGTSTP) && !defined (MSDOS)
494 int pgrp
= EMACS_GETPGRP (0);
495 EMACS_KILLPG (pgrp
, SIGTSTP
);
498 #else /* No SIGTSTP */
499 /* On a system where suspending is not implemented,
500 instead fork a subshell and let it talk directly to the terminal
504 #endif /* no SIGTSTP */
507 /* Fork a subshell. */
512 #ifdef DOS_NT /* Demacs 1.1.2 91/10/20 Manabu Higashida */
514 char oldwd
[MAXPATHLEN
+1]; /* Fixed length is safe on MSDOS. */
517 struct save_signal saved_handlers
[5];
519 unsigned char *volatile str_volatile
= 0;
523 saved_handlers
[0].code
= SIGINT
;
524 saved_handlers
[1].code
= SIGQUIT
;
525 saved_handlers
[2].code
= SIGTERM
;
527 saved_handlers
[3].code
= SIGIO
;
528 saved_handlers
[4].code
= 0;
530 saved_handlers
[3].code
= 0;
533 /* Mentioning current_buffer->buffer would mean including buffer.h,
534 which somehow wedges the hp compiler. So instead... */
536 dir
= intern ("default-directory");
537 if (NILP (Fboundp (dir
)))
539 dir
= Fsymbol_value (dir
);
543 dir
= expand_and_dir_to_file (Funhandled_file_name_directory (dir
), Qnil
);
544 str_volatile
= str
= (unsigned char *) alloca (SCHARS (dir
) + 2);
546 memcpy (str
, SDATA (dir
), len
);
547 if (str
[len
- 1] != '/') str
[len
++] = '/';
553 save_signal_handlers (saved_handlers
);
554 synch_process_alive
= 1;
558 error ("Can't spawn subshell");
565 #ifdef DOS_NT /* MW, Aug 1993 */
568 sh
= (char *) egetenv ("SUSPEND"); /* KFS, 1994-12-14 */
571 sh
= (char *) egetenv ("SHELL");
575 /* Use our buffer's default directory for the subshell. */
577 if (str
&& chdir ((char *) str
) != 0)
580 ignore_value (write (1, "Can't chdir\n", 12));
585 close_process_descs (); /* Close Emacs's pipes/ptys */
587 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida */
589 char *epwd
= getenv ("PWD");
590 char old_pwd
[MAXPATHLEN
+1+4];
592 /* If PWD is set, pass it with corrected value. */
595 strcpy (old_pwd
, epwd
);
596 if (str
[len
- 1] == '/')
598 setenv ("PWD", str
, 1);
601 chdir (oldwd
); /* FIXME: Do the right thing on chdir failure. */
603 putenv (old_pwd
); /* restore previous value */
605 #else /* not MSDOS */
607 /* Waits for process completion */
608 pid
= _spawnlp (_P_WAIT
, sh
, sh
, NULL
);
609 chdir (oldwd
); /* FIXME: Do the right thing on chdir failure. */
611 write (1, "Can't execute subshell", 22);
612 #else /* not WINDOWSNT */
613 execlp (sh
, sh
, (char *) 0);
614 ignore_value (write (1, "Can't execute subshell", 22));
616 #endif /* not WINDOWSNT */
617 #endif /* not MSDOS */
620 /* Do this now if we did not do it before. */
622 save_signal_handlers (saved_handlers
);
623 synch_process_alive
= 1;
627 wait_for_termination (pid
);
629 restore_signal_handlers (saved_handlers
);
630 synch_process_alive
= 0;
634 save_signal_handlers (struct save_signal
*saved_handlers
)
636 while (saved_handlers
->code
)
638 saved_handlers
->handler
639 = (void (*) (int)) signal (saved_handlers
->code
, SIG_IGN
);
645 restore_signal_handlers (struct save_signal
*saved_handlers
)
647 while (saved_handlers
->code
)
649 signal (saved_handlers
->code
, saved_handlers
->handler
);
655 /* If SIGIO is broken, don't do anything. */
672 unrequest_sigio (void)
679 static int old_fcntl_flags
[MAXDESC
];
685 old_fcntl_flags
[fd
] = fcntl (fd
, F_GETFL
, 0) & ~FASYNC
;
686 fcntl (fd
, F_SETFL
, old_fcntl_flags
[fd
] | FASYNC
);
688 interrupts_deferred
= 0;
695 fcntl (fd
, F_SETFL
, old_fcntl_flags
[fd
]);
699 #ifdef FASYNC /* F_SETFL does not imply existence of FASYNC */
700 /* XXX Uhm, FASYNC is not used anymore here. */
701 /* XXX Yeah, but you need it for SIGIO, don't you? */
710 sigunblock (sigmask (SIGWINCH
));
712 sigunblock (sigmask (SIGIO
));
714 interrupts_deferred
= 0;
718 unrequest_sigio (void)
723 #if 0 /* XXX What's wrong with blocking SIGIO under X? */
729 sigblock (sigmask (SIGWINCH
));
731 sigblock (sigmask (SIGIO
));
732 interrupts_deferred
= 1;
735 #else /* no FASYNC */
741 if (noninteractive
|| read_socket_hook
)
744 croak ("request_sigio");
748 unrequest_sigio (void)
750 if (noninteractive
|| read_socket_hook
)
753 croak ("unrequest_sigio");
762 /* Getting and setting emacs_tty structures. */
764 /* Set *TC to the parameters associated with the terminal FD.
765 Return zero if all's well, or -1 if we ran into an error we
766 couldn't deal with. */
768 emacs_get_tty (int fd
, struct emacs_tty
*settings
)
770 /* Retrieve the primary parameters - baud rate, character size, etcetera. */
772 /* We have those nifty POSIX tcmumbleattr functions. */
773 memset (&settings
->main
, 0, sizeof (settings
->main
));
774 if (tcgetattr (fd
, &settings
->main
) < 0)
778 /* We have survived the tempest. */
783 /* Set the parameters of the tty on FD according to the contents of
784 *SETTINGS. If FLUSHP is non-zero, we discard input.
785 Return 0 if all went well, and -1 if anything failed. */
788 emacs_set_tty (int fd
, struct emacs_tty
*settings
, int flushp
)
790 /* Set the primary parameters - baud rate, character size, etcetera. */
793 /* We have those nifty POSIX tcmumbleattr functions.
794 William J. Smith <wjs@wiis.wang.com> writes:
795 "POSIX 1003.1 defines tcsetattr to return success if it was
796 able to perform any of the requested actions, even if some
797 of the requested actions could not be performed.
798 We must read settings back to ensure tty setup properly.
799 AIX requires this to keep tty from hanging occasionally." */
800 /* This make sure that we don't loop indefinitely in here. */
801 for (i
= 0 ; i
< 10 ; i
++)
802 if (tcsetattr (fd
, flushp
? TCSAFLUSH
: TCSADRAIN
, &settings
->main
) < 0)
813 memset (&new, 0, sizeof (new));
814 /* Get the current settings, and see if they're what we asked for. */
815 tcgetattr (fd
, &new);
816 /* We cannot use memcmp on the whole structure here because under
817 * aix386 the termios structure has some reserved field that may
820 if ( new.c_iflag
== settings
->main
.c_iflag
821 && new.c_oflag
== settings
->main
.c_oflag
822 && new.c_cflag
== settings
->main
.c_cflag
823 && new.c_lflag
== settings
->main
.c_lflag
824 && memcmp (new.c_cc
, settings
->main
.c_cc
, NCCS
) == 0)
831 /* We have survived the tempest. */
838 static int old_fcntl_owner
[MAXDESC
];
839 #endif /* F_SETOWN */
841 /* This may also be defined in stdio,
842 but if so, this does no harm,
843 and using the same name avoids wasting the other one's space. */
846 unsigned char _sobuf
[BUFSIZ
+8];
851 /* Initialize the terminal mode on all tty devices that are currently
855 init_all_sys_modes (void)
857 struct tty_display_info
*tty
;
858 for (tty
= tty_list
; tty
; tty
= tty
->next
)
859 init_sys_modes (tty
);
862 /* Initialize the terminal mode on the given tty device. */
865 init_sys_modes (struct tty_display_info
*tty_out
)
867 struct emacs_tty tty
;
868 Lisp_Object terminal
;
870 Vtty_erase_char
= Qnil
;
875 if (!tty_out
->output
)
876 return; /* The tty is suspended. */
878 if (! tty_out
->old_tty
)
879 tty_out
->old_tty
= (struct emacs_tty
*) xmalloc (sizeof (struct emacs_tty
));
881 emacs_get_tty (fileno (tty_out
->input
), tty_out
->old_tty
);
883 tty
= *tty_out
->old_tty
;
885 #if !defined (DOS_NT)
886 XSETINT (Vtty_erase_char
, tty
.main
.c_cc
[VERASE
]);
888 tty
.main
.c_iflag
|= (IGNBRK
); /* Ignore break condition */
889 tty
.main
.c_iflag
&= ~ICRNL
; /* Disable map of CR to NL on input */
890 #ifdef INLCR /* I'm just being cautious,
891 since I can't check how widespread INLCR is--rms. */
892 tty
.main
.c_iflag
&= ~INLCR
; /* Disable map of NL to CR on input */
895 tty
.main
.c_iflag
&= ~ISTRIP
; /* don't strip 8th bit on input */
897 tty
.main
.c_lflag
&= ~ECHO
; /* Disable echo */
898 tty
.main
.c_lflag
&= ~ICANON
; /* Disable erase/kill processing */
900 tty
.main
.c_lflag
&= ~IEXTEN
; /* Disable other editing characters. */
902 tty
.main
.c_lflag
|= ISIG
; /* Enable signals */
903 if (tty_out
->flow_control
)
905 tty
.main
.c_iflag
|= IXON
; /* Enable start/stop output control */
907 tty
.main
.c_iflag
&= ~IXANY
;
911 tty
.main
.c_iflag
&= ~IXON
; /* Disable start/stop output control */
912 tty
.main
.c_oflag
&= ~ONLCR
; /* Disable map of NL to CR-NL
914 tty
.main
.c_oflag
&= ~TAB3
; /* Disable tab expansion */
916 if (tty_out
->meta_key
)
918 tty
.main
.c_cflag
|= CS8
; /* allow 8th bit on input */
919 tty
.main
.c_cflag
&= ~PARENB
;/* Don't check parity */
923 XSETTERMINAL(terminal
, tty_out
->terminal
);
924 if (!NILP (Fcontrolling_tty_p (terminal
)))
926 tty
.main
.c_cc
[VINTR
] = quit_char
; /* C-g (usually) gives SIGINT */
927 /* Set up C-g for both SIGQUIT and SIGINT.
928 We don't know which we will get, but we handle both alike
929 so which one it really gives us does not matter. */
930 tty
.main
.c_cc
[VQUIT
] = quit_char
;
934 /* We normally don't get interrupt or quit signals from tty
935 devices other than our controlling terminal; therefore,
936 we must handle C-g as normal input. Unfortunately, this
937 means that the interrupt and quit feature must be
938 disabled on secondary ttys, or we would not even see the
941 Note that even though emacsclient could have special code
942 to pass SIGINT to Emacs, we should _not_ enable
943 interrupt/quit keys for emacsclient frames. This means
944 that we can't break out of loops in C code from a
945 secondary tty frame, but we can always decide what
946 display the C-g came from, which is more important from a
947 usability point of view. (Consider the case when two
948 people work together using the same Emacs instance.) */
949 tty
.main
.c_cc
[VINTR
] = CDISABLE
;
950 tty
.main
.c_cc
[VQUIT
] = CDISABLE
;
952 tty
.main
.c_cc
[VMIN
] = 1; /* Input should wait for at least 1 char */
953 tty
.main
.c_cc
[VTIME
] = 0; /* no matter how long that takes. */
955 tty
.main
.c_cc
[VSWTCH
] = CDISABLE
; /* Turn off shell layering use
960 tty
.main
.c_cc
[VSUSP
] = CDISABLE
; /* Turn off handling of C-z. */
963 tty
.main
.c_cc
[V_DSUSP
] = CDISABLE
; /* Turn off handling of C-y. */
965 #ifdef VDSUSP /* Some systems have VDSUSP, some have V_DSUSP. */
966 tty
.main
.c_cc
[VDSUSP
] = CDISABLE
;
969 tty
.main
.c_cc
[VLNEXT
] = CDISABLE
;
972 tty
.main
.c_cc
[VREPRINT
] = CDISABLE
;
973 #endif /* VREPRINT */
975 tty
.main
.c_cc
[VWERASE
] = CDISABLE
;
978 tty
.main
.c_cc
[VDISCARD
] = CDISABLE
;
979 #endif /* VDISCARD */
981 if (tty_out
->flow_control
)
984 tty
.main
.c_cc
[VSTART
] = '\021';
987 tty
.main
.c_cc
[VSTOP
] = '\023';
993 tty
.main
.c_cc
[VSTART
] = CDISABLE
;
996 tty
.main
.c_cc
[VSTOP
] = CDISABLE
;
1001 tty
.main
.c_cc
[VSTRT
] = CDISABLE
;
1002 tty
.main
.c_cc
[VSTOP
] = CDISABLE
;
1003 tty
.main
.c_cc
[VSUSP
] = CDISABLE
;
1004 tty
.main
.c_cc
[VDSUSP
] = CDISABLE
;
1005 if (tty_out
->flow_control
)
1008 tty
.main
.c_cc
[VSTART
] = '\021';
1011 tty
.main
.c_cc
[VSTOP
] = '\023';
1014 /* Also, PTY overloads NUL and BREAK.
1015 don't ignore break, but don't signal either, so it looks like NUL.
1016 This really serves a purpose only if running in an XTERM window
1017 or via TELNET or the like, but does no harm elsewhere. */
1018 tty
.main
.c_iflag
&= ~IGNBRK
;
1019 tty
.main
.c_iflag
&= ~BRKINT
;
1021 #endif /* not DOS_NT */
1023 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida, MW Aug 1993 */
1024 if (!tty_out
->term_initted
)
1025 internal_terminal_init ();
1026 dos_ttraw (tty_out
);
1029 emacs_set_tty (fileno (tty_out
->input
), &tty
, 0);
1031 /* This code added to insure that, if flow-control is not to be used,
1032 we have an unlocked terminal at the start. */
1035 if (!tty_out
->flow_control
) ioctl (fileno (tty_out
->input
), TCXONC
, 1);
1038 if (!tty_out
->flow_control
) ioctl (fileno (tty_out
->input
), TIOCSTART
, 0);
1041 #if !defined (DOS_NT)
1043 if (!tty_out
->flow_control
) tcflow (fileno (tty_out
->input
), TCOON
);
1048 #ifdef F_GETOWN /* F_SETFL does not imply existence of F_GETOWN */
1049 if (interrupt_input
)
1051 old_fcntl_owner
[fileno (tty_out
->input
)] =
1052 fcntl (fileno (tty_out
->input
), F_GETOWN
, 0);
1053 fcntl (fileno (tty_out
->input
), F_SETOWN
, getpid ());
1054 init_sigio (fileno (tty_out
->input
));
1056 if (gpm_tty
== tty_out
)
1058 /* Arrange for mouse events to give us SIGIO signals. */
1059 fcntl (gpm_fd
, F_SETOWN
, getpid ());
1060 fcntl (gpm_fd
, F_SETFL
, fcntl (gpm_fd
, F_GETFL
, 0) | O_NONBLOCK
);
1061 init_sigio (gpm_fd
);
1063 #endif /* HAVE_GPM */
1065 #endif /* F_GETOWN */
1066 #endif /* F_SETFL */
1069 /* This symbol is defined on recent USG systems.
1070 Someone says without this call USG won't really buffer the file
1071 even with a call to setbuf. */
1072 setvbuf (tty_out
->output
, (char *) _sobuf
, _IOFBF
, sizeof _sobuf
);
1074 setbuf (tty_out
->output
, (char *) _sobuf
);
1077 if (tty_out
->terminal
->set_terminal_modes_hook
)
1078 tty_out
->terminal
->set_terminal_modes_hook (tty_out
->terminal
);
1080 if (!tty_out
->term_initted
)
1082 Lisp_Object tail
, frame
;
1083 FOR_EACH_FRAME (tail
, frame
)
1085 /* XXX This needs to be revised. */
1086 if (FRAME_TERMCAP_P (XFRAME (frame
))
1087 && FRAME_TTY (XFRAME (frame
)) == tty_out
)
1088 init_frame_faces (XFRAME (frame
));
1092 if (tty_out
->term_initted
&& no_redraw_on_reenter
)
1094 /* We used to call "direct_output_forward_char(0)" here,
1095 but it's not clear why, since it may not do anything anyway. */
1099 Lisp_Object tail
, frame
;
1101 FOR_EACH_FRAME (tail
, frame
)
1103 if ((FRAME_TERMCAP_P (XFRAME (frame
))
1104 || FRAME_MSDOS_P (XFRAME (frame
)))
1105 && FRAME_TTY (XFRAME (frame
)) == tty_out
)
1106 FRAME_GARBAGED_P (XFRAME (frame
)) = 1;
1110 tty_out
->term_initted
= 1;
1113 /* Return nonzero if safe to use tabs in output.
1114 At the time this is called, init_sys_modes has not been done yet. */
1117 tabs_safe_p (int fd
)
1119 struct emacs_tty etty
;
1121 emacs_get_tty (fd
, &etty
);
1124 return ((etty
.main
.c_oflag
& TABDLY
) != TAB3
);
1125 #else /* not TABDLY */
1127 #endif /* not TABDLY */
1133 /* Get terminal size from system.
1134 Store number of lines into *HEIGHTP and width into *WIDTHP.
1135 We store 0 if there's no valid information. */
1138 get_tty_size (int fd
, int *widthp
, int *heightp
)
1140 #if defined TIOCGWINSZ
1143 struct winsize size
;
1145 if (ioctl (fd
, TIOCGWINSZ
, &size
) == -1)
1146 *widthp
= *heightp
= 0;
1149 *widthp
= size
.ws_col
;
1150 *heightp
= size
.ws_row
;
1153 #elif defined TIOCGSIZE
1155 /* SunOS - style. */
1156 struct ttysize size
;
1158 if (ioctl (fd
, TIOCGSIZE
, &size
) == -1)
1159 *widthp
= *heightp
= 0;
1162 *widthp
= size
.ts_cols
;
1163 *heightp
= size
.ts_lines
;
1166 #elif defined WINDOWSNT
1168 CONSOLE_SCREEN_BUFFER_INFO info
;
1169 if (GetConsoleScreenBufferInfo (GetStdHandle (STD_OUTPUT_HANDLE
), &info
))
1171 *widthp
= info
.srWindow
.Right
- info
.srWindow
.Left
+ 1;
1172 *heightp
= info
.srWindow
.Bottom
- info
.srWindow
.Top
+ 1;
1175 *widthp
= *heightp
= 0;
1179 *widthp
= ScreenCols ();
1180 *heightp
= ScreenRows ();
1182 #else /* system doesn't know size */
1190 /* Set the logical window size associated with descriptor FD
1191 to HEIGHT and WIDTH. This is used mainly with ptys. */
1194 set_window_size (int fd
, int height
, int width
)
1199 struct winsize size
;
1200 size
.ws_row
= height
;
1201 size
.ws_col
= width
;
1203 if (ioctl (fd
, TIOCSWINSZ
, &size
) == -1)
1204 return 0; /* error */
1211 /* SunOS - style. */
1212 struct ttysize size
;
1213 size
.ts_lines
= height
;
1214 size
.ts_cols
= width
;
1216 if (ioctl (fd
, TIOCGSIZE
, &size
) == -1)
1222 #endif /* not SunOS-style */
1223 #endif /* not BSD-style */
1228 /* Prepare all terminal devices for exiting Emacs. */
1231 reset_all_sys_modes (void)
1233 struct tty_display_info
*tty
;
1234 for (tty
= tty_list
; tty
; tty
= tty
->next
)
1235 reset_sys_modes (tty
);
1238 /* Prepare the terminal for closing it; move the cursor to the
1239 bottom of the frame, turn off interrupt-driven I/O, etc. */
1242 reset_sys_modes (struct tty_display_info
*tty_out
)
1249 if (!tty_out
->term_initted
)
1252 if (!tty_out
->output
)
1253 return; /* The tty is suspended. */
1255 /* Go to and clear the last line of the terminal. */
1257 cmgoto (tty_out
, FrameRows (tty_out
) - 1, 0);
1259 /* Code adapted from tty_clear_end_of_line. */
1260 if (tty_out
->TS_clr_line
)
1262 emacs_tputs (tty_out
, tty_out
->TS_clr_line
, 1, cmputc
);
1265 { /* have to do it the hard way */
1267 tty_turn_off_insert (tty_out
);
1269 for (i
= curX (tty_out
); i
< FrameCols (tty_out
) - 1; i
++)
1271 fputc (' ', tty_out
->output
);
1275 cmgoto (tty_out
, FrameRows (tty_out
) - 1, 0);
1276 fflush (tty_out
->output
);
1278 if (tty_out
->terminal
->reset_terminal_modes_hook
)
1279 tty_out
->terminal
->reset_terminal_modes_hook (tty_out
->terminal
);
1282 /* Avoid possible loss of output when changing terminal modes. */
1283 fsync (fileno (tty_out
->output
));
1287 #ifdef F_SETOWN /* F_SETFL does not imply existence of F_SETOWN */
1288 if (interrupt_input
)
1290 reset_sigio (fileno (tty_out
->input
));
1291 fcntl (fileno (tty_out
->input
), F_SETOWN
,
1292 old_fcntl_owner
[fileno (tty_out
->input
)]);
1294 #endif /* F_SETOWN */
1296 fcntl (fileno (tty_out
->input
), F_SETFL
,
1297 fcntl (fileno (tty_out
->input
), F_GETFL
, 0) & ~O_NDELAY
);
1299 #endif /* F_SETFL */
1301 if (tty_out
->old_tty
)
1302 while (emacs_set_tty (fileno (tty_out
->input
),
1303 tty_out
->old_tty
, 0) < 0 && errno
== EINTR
)
1306 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida */
1314 /* Set up the proper status flags for use of a pty. */
1319 /* I'm told that TOICREMOTE does not mean control chars
1320 "can't be sent" but rather that they don't have
1321 input-editing or signaling effects.
1322 That should be good, because we have other ways
1323 to do those things in Emacs.
1324 However, telnet mode seems not to work on 4.2.
1325 So TIOCREMOTE is turned off now. */
1327 /* Under hp-ux, if TIOCREMOTE is turned on, some calls
1328 will hang. In particular, the "timeout" feature (which
1329 causes a read to return if there is no data available)
1330 does this. Also it is known that telnet mode will hang
1331 in such a way that Emacs must be stopped (perhaps this
1332 is the same problem).
1334 If TIOCREMOTE is turned off, then there is a bug in
1335 hp-ux which sometimes loses data. Apparently the
1336 code which blocks the master process when the internal
1337 buffer fills up does not work. Other than this,
1338 though, everything else seems to work fine.
1340 Since the latter lossage is more benign, we may as well
1341 lose that way. -- cph */
1343 #if defined (UNIX98_PTYS)
1346 ioctl (fd
, FIONBIO
, &on
);
1351 #endif /* HAVE_PTYS */
1354 #include <sys/socket.h>
1356 #endif /* HAVE_SOCKETS */
1359 #ifndef HAVE_H_ERRNO
1362 #endif /* TRY_AGAIN */
1365 init_system_name (void)
1367 #ifndef HAVE_GETHOSTNAME
1370 Vsystem_name
= build_string (uts
.nodename
);
1371 #else /* HAVE_GETHOSTNAME */
1372 unsigned int hostname_size
= 256;
1373 char *hostname
= (char *) alloca (hostname_size
);
1375 /* Try to get the host name; if the buffer is too short, try
1376 again. Apparently, the only indication gethostname gives of
1377 whether the buffer was large enough is the presence or absence
1378 of a '\0' in the string. Eech. */
1381 gethostname (hostname
, hostname_size
- 1);
1382 hostname
[hostname_size
- 1] = '\0';
1384 /* Was the buffer large enough for the '\0'? */
1385 if (strlen (hostname
) < hostname_size
- 1)
1388 hostname_size
<<= 1;
1389 hostname
= (char *) alloca (hostname_size
);
1392 /* Turn the hostname into the official, fully-qualified hostname.
1393 Don't do this if we're going to dump; this can confuse system
1394 libraries on some machines and make the dumped emacs core dump. */
1397 #endif /* not CANNOT_DUMP */
1398 if (! strchr (hostname
, '.'))
1401 #ifdef HAVE_GETADDRINFO
1402 struct addrinfo
*res
;
1403 struct addrinfo hints
;
1406 memset (&hints
, 0, sizeof (hints
));
1407 hints
.ai_socktype
= SOCK_STREAM
;
1408 hints
.ai_flags
= AI_CANONNAME
;
1410 for (count
= 0;; count
++)
1412 if ((ret
= getaddrinfo (hostname
, NULL
, &hints
, &res
)) == 0
1413 || ret
!= EAI_AGAIN
)
1418 Fsleep_for (make_number (1), Qnil
);
1423 struct addrinfo
*it
= res
;
1426 char *fqdn
= it
->ai_canonname
;
1427 if (fqdn
&& strchr (fqdn
, '.')
1428 && strcmp (fqdn
, "localhost.localdomain") != 0)
1434 hostname
= alloca (strlen (it
->ai_canonname
) + 1);
1435 strcpy (hostname
, it
->ai_canonname
);
1439 #else /* !HAVE_GETADDRINFO */
1441 for (count
= 0;; count
++)
1447 hp
= gethostbyname (hostname
);
1449 if (! (hp
== 0 && h_errno
== TRY_AGAIN
))
1456 Fsleep_for (make_number (1), Qnil
);
1461 char *fqdn
= (char *) hp
->h_name
;
1463 if (!strchr (fqdn
, '.'))
1465 /* We still don't have a fully qualified domain name.
1466 Try to find one in the list of alternate names */
1467 char **alias
= hp
->h_aliases
;
1469 && (!strchr (*alias
, '.')
1470 || !strcmp (*alias
, "localhost.localdomain")))
1477 #endif /* !HAVE_GETADDRINFO */
1479 #endif /* HAVE_SOCKETS */
1480 Vsystem_name
= build_string (hostname
);
1481 #endif /* HAVE_GETHOSTNAME */
1484 for (p
= SDATA (Vsystem_name
); *p
; p
++)
1485 if (*p
== ' ' || *p
== '\t')
1490 /* POSIX signals support - DJB */
1491 /* Anyone with POSIX signals should have ANSI C declarations */
1493 sigset_t empty_mask
;
1498 sys_signal (int signal_number
, signal_handler_t action
)
1500 struct sigaction new_action
, old_action
;
1501 sigemptyset (&new_action
.sa_mask
);
1502 new_action
.sa_handler
= action
;
1503 new_action
.sa_flags
= 0;
1504 #if defined (SA_RESTART)
1505 /* Emacs mostly works better with restartable system services. If this
1506 flag exists, we probably want to turn it on here.
1507 However, on some systems this resets the timeout of `select'
1508 which means that `select' never finishes if it keeps getting signals.
1509 BROKEN_SA_RESTART is defined on those systems. */
1510 /* It's not clear why the comment above says "mostly works better". --Stef
1511 When SYNC_INPUT is set, we don't want SA_RESTART because we need to poll
1512 for pending input so we need long-running syscalls to be interrupted
1513 after a signal that sets the interrupt_input_pending flag. */
1514 /* Non-interactive keyboard input goes through stdio, where we always
1515 want restartable system calls. */
1516 # if defined (BROKEN_SA_RESTART) || defined (SYNC_INPUT)
1519 new_action
.sa_flags
= SA_RESTART
;
1521 sigaction (signal_number
, &new_action
, &old_action
);
1522 return (old_action
.sa_handler
);
1525 #endif /* WINDOWSNT */
1528 /* If we're compiling with GCC, we don't need this function, since it
1529 can be written as a macro. */
1531 sys_sigmask (int sig
)
1534 sigemptyset (&mask
);
1535 sigaddset (&mask
, sig
);
1540 /* I'd like to have these guys return pointers to the mask storage in here,
1541 but there'd be trouble if the code was saving multiple masks. I'll be
1542 safe and pass the structure. It normally won't be more than 2 bytes
1546 sys_sigblock (sigset_t new_mask
)
1549 pthread_sigmask (SIG_BLOCK
, &new_mask
, &old_mask
);
1554 sys_sigunblock (sigset_t new_mask
)
1557 pthread_sigmask (SIG_UNBLOCK
, &new_mask
, &old_mask
);
1562 sys_sigsetmask (sigset_t new_mask
)
1565 pthread_sigmask (SIG_SETMASK
, &new_mask
, &old_mask
);
1570 #if !defined HAVE_STRSIGNAL && !HAVE_DECL_SYS_SIGLIST
1571 static char *my_sys_siglist
[NSIG
];
1575 # define sys_siglist my_sys_siglist
1581 sigemptyset (&empty_mask
);
1583 #if !defined HAVE_STRSIGNAL && !HAVE_DECL_SYS_SIGLIST
1587 sys_siglist
[SIGABRT
] = "Aborted";
1590 sys_siglist
[SIGAIO
] = "LAN I/O interrupt";
1593 sys_siglist
[SIGALRM
] = "Alarm clock";
1596 sys_siglist
[SIGBUS
] = "Bus error";
1599 sys_siglist
[SIGCLD
] = "Child status changed";
1602 sys_siglist
[SIGCHLD
] = "Child status changed";
1605 sys_siglist
[SIGCONT
] = "Continued";
1608 sys_siglist
[SIGDANGER
] = "Swap space dangerously low";
1611 sys_siglist
[SIGDGNOTIFY
] = "Notification message in queue";
1614 sys_siglist
[SIGEMT
] = "Emulation trap";
1617 sys_siglist
[SIGFPE
] = "Arithmetic exception";
1620 sys_siglist
[SIGFREEZE
] = "SIGFREEZE";
1623 sys_siglist
[SIGGRANT
] = "Monitor mode granted";
1626 sys_siglist
[SIGHUP
] = "Hangup";
1629 sys_siglist
[SIGILL
] = "Illegal instruction";
1632 sys_siglist
[SIGINT
] = "Interrupt";
1635 sys_siglist
[SIGIO
] = "I/O possible";
1638 sys_siglist
[SIGIOINT
] = "I/O intervention required";
1641 sys_siglist
[SIGIOT
] = "IOT trap";
1644 sys_siglist
[SIGKILL
] = "Killed";
1647 sys_siglist
[SIGLOST
] = "Resource lost";
1650 sys_siglist
[SIGLWP
] = "SIGLWP";
1653 sys_siglist
[SIGMSG
] = "Monitor mode data available";
1656 sys_siglist
[SIGWIND
] = "SIGPHONE";
1659 sys_siglist
[SIGPIPE
] = "Broken pipe";
1662 sys_siglist
[SIGPOLL
] = "Pollable event occurred";
1665 sys_siglist
[SIGPROF
] = "Profiling timer expired";
1668 sys_siglist
[SIGPTY
] = "PTY I/O interrupt";
1671 sys_siglist
[SIGPWR
] = "Power-fail restart";
1674 sys_siglist
[SIGQUIT
] = "Quit";
1677 sys_siglist
[SIGRETRACT
] = "Need to relinquish monitor mode";
1680 sys_siglist
[SIGSAK
] = "Secure attention";
1683 sys_siglist
[SIGSEGV
] = "Segmentation violation";
1686 sys_siglist
[SIGSOUND
] = "Sound completed";
1689 sys_siglist
[SIGSTOP
] = "Stopped (signal)";
1692 sys_siglist
[SIGSTP
] = "Stopped (user)";
1695 sys_siglist
[SIGSYS
] = "Bad argument to system call";
1698 sys_siglist
[SIGTERM
] = "Terminated";
1701 sys_siglist
[SIGTHAW
] = "SIGTHAW";
1704 sys_siglist
[SIGTRAP
] = "Trace/breakpoint trap";
1707 sys_siglist
[SIGTSTP
] = "Stopped (user)";
1710 sys_siglist
[SIGTTIN
] = "Stopped (tty input)";
1713 sys_siglist
[SIGTTOU
] = "Stopped (tty output)";
1716 sys_siglist
[SIGURG
] = "Urgent I/O condition";
1719 sys_siglist
[SIGUSR1
] = "User defined signal 1";
1722 sys_siglist
[SIGUSR2
] = "User defined signal 2";
1725 sys_siglist
[SIGVTALRM
] = "Virtual timer expired";
1728 sys_siglist
[SIGWAITING
] = "Process's LWPs are blocked";
1731 sys_siglist
[SIGWINCH
] = "Window size changed";
1734 sys_siglist
[SIGWIND
] = "SIGWIND";
1737 sys_siglist
[SIGXCPU
] = "CPU time limit exceeded";
1740 sys_siglist
[SIGXFSZ
] = "File size limit exceeded";
1743 #endif /* !defined HAVE_STRSIGNAL && !defined HAVE_DECL_SYS_SIGLIST */
1752 /* Figure out how many bits the system's random number generator uses.
1753 `random' and `lrand48' are assumed to return 31 usable bits.
1754 BSD `rand' returns a 31 bit value but the low order bits are unusable;
1755 so we'll shift it and treat it like the 15-bit USG `rand'. */
1759 # define RAND_BITS 31
1760 # else /* !HAVE_RANDOM */
1761 # ifdef HAVE_LRAND48
1762 # define RAND_BITS 31
1763 # define random lrand48
1764 # else /* !HAVE_LRAND48 */
1765 # define RAND_BITS 15
1766 # if RAND_MAX == 32767
1767 # define random rand
1768 # else /* RAND_MAX != 32767 */
1769 # if RAND_MAX == 2147483647
1770 # define random() (rand () >> 16)
1771 # else /* RAND_MAX != 2147483647 */
1773 # define random rand
1775 # define random() (rand () >> 16)
1777 # endif /* RAND_MAX != 2147483647 */
1778 # endif /* RAND_MAX != 32767 */
1779 # endif /* !HAVE_LRAND48 */
1780 # endif /* !HAVE_RANDOM */
1781 #endif /* !RAND_BITS */
1784 seed_random (long int arg
)
1787 srandom ((unsigned int)arg
);
1789 # ifdef HAVE_LRAND48
1792 srand ((unsigned int)arg
);
1798 * Return a nonnegative random integer out of whatever we've got.
1799 * It contains enough bits to make a random (signed) Emacs fixnum.
1800 * This suffices even for a 64-bit architecture with a 15-bit rand.
1807 for (i
= 0; i
< (FIXNUM_BITS
+ RAND_BITS
- 1) / RAND_BITS
; i
++)
1808 val
= (random () ^ (val
<< RAND_BITS
)
1809 ^ (val
>> (BITS_PER_EMACS_INT
- RAND_BITS
)));
1810 val
^= val
>> (BITS_PER_EMACS_INT
- FIXNUM_BITS
);
1811 return val
& INTMASK
;
1814 #ifndef HAVE_STRERROR
1817 strerror (int errnum
)
1819 extern char *sys_errlist
[];
1820 extern int sys_nerr
;
1822 if (errnum
>= 0 && errnum
< sys_nerr
)
1823 return sys_errlist
[errnum
];
1824 return (char *) "Unknown error";
1826 #endif /* not WINDOWSNT */
1827 #endif /* ! HAVE_STRERROR */
1829 #ifndef HAVE_SNPRINTF
1830 /* Approximate snprintf as best we can on ancient hosts that lack it. */
1832 snprintf (char *buf
, size_t bufsize
, char const *format
, ...)
1834 ptrdiff_t size
= min (bufsize
, PTRDIFF_MAX
);
1835 ptrdiff_t nbytes
= size
- 1;
1840 va_start (ap
, format
);
1841 nbytes
= doprnt (buf
, size
, format
, 0, ap
);
1845 if (nbytes
== size
- 1)
1847 /* Calculate the length of the string that would have been created
1848 had the buffer been large enough. */
1849 char stackbuf
[4000];
1851 ptrdiff_t bsize
= sizeof stackbuf
;
1852 va_start (ap
, format
);
1853 nbytes
= evxprintf (&b
, &bsize
, stackbuf
, -1, format
, ap
);
1859 if (INT_MAX
< nbytes
)
1873 emacs_open (const char *path
, int oflag
, int mode
)
1875 register int rtnval
;
1877 while ((rtnval
= open (path
, oflag
, mode
)) == -1
1878 && (errno
== EINTR
))
1884 emacs_close (int fd
)
1887 register int rtnval
;
1889 while ((rtnval
= close (fd
)) == -1
1890 && (errno
== EINTR
))
1893 /* If close is interrupted SunOS 4.1 may or may not have closed the
1894 file descriptor. If it did the second close will fail with
1895 errno = EBADF. That means we have succeeded. */
1896 if (rtnval
== -1 && did_retry
&& errno
== EBADF
)
1902 /* Maximum number of bytes to read or write in a single system call.
1903 This works around a serious bug in Linux kernels before 2.6.16; see
1904 <https://bugzilla.redhat.com/show_bug.cgi?format=multiple&id=612839>.
1905 It's likely to work around similar bugs in other operating systems, so do it
1906 on all platforms. Round INT_MAX down to a page size, with the conservative
1907 assumption that page sizes are at most 2**18 bytes (any kernel with a
1908 page size larger than that shouldn't have the bug). */
1909 #ifndef MAX_RW_COUNT
1910 #define MAX_RW_COUNT (INT_MAX >> 18 << 18)
1913 /* Read from FILEDESC to a buffer BUF with size NBYTE, retrying if interrupted.
1914 Return the number of bytes read, which might be less than NBYTE.
1915 On error, set errno and return -1. */
1917 emacs_read (int fildes
, char *buf
, ptrdiff_t nbyte
)
1919 register ssize_t rtnval
;
1921 /* There is no need to check against MAX_RW_COUNT, since no caller ever
1922 passes a size that large to emacs_read. */
1924 while ((rtnval
= read (fildes
, buf
, nbyte
)) == -1
1925 && (errno
== EINTR
))
1930 /* Write to FILEDES from a buffer BUF with size NBYTE, retrying if interrupted
1931 or if a partial write occurs. Return the number of bytes written, setting
1932 errno if this is less than NBYTE. */
1934 emacs_write (int fildes
, const char *buf
, ptrdiff_t nbyte
)
1937 ptrdiff_t bytes_written
;
1943 rtnval
= write (fildes
, buf
, min (nbyte
, MAX_RW_COUNT
));
1950 /* I originally used `QUIT' but that might causes files to
1951 be truncated if you hit C-g in the middle of it. --Stef */
1952 process_pending_signals ();
1962 bytes_written
+= rtnval
;
1965 return (bytes_written
);
1968 static struct allocator
const emacs_norealloc_allocator
=
1969 { xmalloc
, NULL
, xfree
, memory_full
};
1971 /* Get the symbolic link value of FILENAME. Return a pointer to a
1972 NUL-terminated string. If readlink fails, return NULL and set
1973 errno. If the value fits in INITIAL_BUF, return INITIAL_BUF.
1974 Otherwise, allocate memory and return a pointer to that memory. If
1975 memory allocation fails, diagnose and fail without returning. If
1976 successful, store the length of the symbolic link into *LINKLEN. */
1978 emacs_readlink (char const *filename
, char initial_buf
[READLINK_BUFSIZE
])
1980 return careadlinkat (AT_FDCWD
, filename
, initial_buf
, READLINK_BUFSIZE
,
1981 &emacs_norealloc_allocator
, careadlinkatcwd
);
1986 * All of the following are for USG.
1988 * On USG systems the system calls are INTERRUPTIBLE by signals
1989 * that the user program has elected to catch. Thus the system call
1990 * must be retried in these cases. To handle this without massive
1991 * changes in the source code, we remap the standard system call names
1992 * to names for our own functions in sysdep.c that do the system call
1993 * with retries. Actually, for portability reasons, it is good
1994 * programming practice, as this example shows, to limit all actual
1995 * system calls to a single occurrence in the source. Sure, this
1996 * adds an extra level of function call overhead but it is almost
1997 * always negligible. Fred Fish, Unisoft Systems Inc.
2001 * Warning, this function may not duplicate 4.2 action properly
2002 * under error conditions.
2008 /* In 4.1, param.h fails to define this. */
2009 #define MAXPATHLEN 1024
2013 getwd (char *pathname
)
2015 char *npath
, *spath
;
2016 extern char *getcwd (char *, size_t);
2018 BLOCK_INPUT
; /* getcwd uses malloc */
2019 spath
= npath
= getcwd ((char *) 0, MAXPATHLEN
);
2025 /* On Altos 3068, getcwd can return @hostname/dir, so discard
2026 up to first slash. Should be harmless on other systems. */
2027 while (*npath
&& *npath
!= '/')
2029 strcpy (pathname
, npath
);
2030 free (spath
); /* getcwd uses malloc */
2035 #endif /* HAVE_GETWD */
2038 * Emulate rename using unlink/link. Note that this is
2039 * only partially correct. Also, doesn't enforce restriction
2040 * that files be of same type (regular->regular, dir->dir, etc).
2046 rename (const char *from
, const char *to
)
2048 if (access (from
, 0) == 0)
2051 if (link (from
, to
) == 0)
2052 if (unlink (from
) == 0)
2061 #if defined (HPUX) && !defined (HAVE_PERROR)
2063 /* HPUX curses library references perror, but as far as we know
2064 it won't be called. Anyway this definition will do for now. */
2070 #endif /* HPUX and not HAVE_PERROR */
2073 * Gettimeofday. Simulate as much as possible. Only accurate
2074 * to nearest second. Emacs doesn't use tzp so ignore it for now.
2075 * Only needed when subprocesses are defined.
2078 #ifndef HAVE_GETTIMEOFDAY
2082 gettimeofday (struct timeval
*tp
, struct timezone
*tzp
)
2084 extern long time (long);
2086 tp
->tv_sec
= time ((long *)0);
2089 tzp
->tz_minuteswest
= -1;
2094 #endif /* !HAVE_GETTIMEOFDAY && HAVE_TIMEVAL */
2097 * This function will go away as soon as all the stubs fixed. (fnf)
2101 croak (char *badfunc
)
2103 printf ("%s not yet implemented\r\n", badfunc
);
2104 reset_all_sys_modes ();
2110 /* Directory routines for systems that don't have them. */
2112 #ifdef HAVE_DIRENT_H
2116 #if !defined (HAVE_CLOSEDIR)
2119 closedir (DIR *dirp
/* stream from opendir */)
2123 rtnval
= emacs_close (dirp
->dd_fd
);
2124 xfree ((char *) dirp
);
2128 #endif /* not HAVE_CLOSEDIR */
2129 #endif /* HAVE_DIRENT_H */
2133 set_file_times (const char *filename
, EMACS_TIME atime
, EMACS_TIME mtime
)
2136 struct timeval tv
[2];
2139 return utimes (filename
, tv
);
2140 #else /* not HAVE_UTIMES */
2142 utb
.actime
= EMACS_SECS (atime
);
2143 utb
.modtime
= EMACS_SECS (mtime
);
2144 return utime (filename
, &utb
);
2145 #endif /* not HAVE_UTIMES */
2148 /* mkdir and rmdir functions, for systems which don't have them. */
2152 * Written by Robert Rother, Mariah Corporation, August 1985.
2154 * If you want it, it's yours. All I ask in return is that if you
2155 * figure out how to do this in a Bourne Shell script you send me
2157 * sdcsvax!rmr or rmr@uscd
2159 * Severely hacked over by John Gilmore to make a 4.2BSD compatible
2160 * subroutine. 11Mar86; hoptoad!gnu
2162 * Modified by rmtodd@uokmax 6-28-87 -- when making an already existing dir,
2163 * subroutine didn't return EEXIST. It does now.
2170 mkdir (char *dpath
, int dmode
)
2174 struct stat statbuf
;
2176 if (stat (dpath
, &statbuf
) == 0)
2178 errno
= EEXIST
; /* Stat worked, so it already exists */
2182 /* If stat fails for a reason other than non-existence, return error */
2183 if (errno
!= ENOENT
)
2186 synch_process_alive
= 1;
2187 switch (cpid
= fork ())
2190 case -1: /* Error in fork */
2191 return (-1); /* Errno is set already */
2193 case 0: /* Child process */
2195 * Cheap hack to set mode of new directory. Since this
2196 * child process is going away anyway, we zap its umask.
2197 * FIXME, this won't suffice to set SUID, SGID, etc. on this
2198 * directory. Does anybody care?
2200 status
= umask (0); /* Get current umask */
2201 status
= umask (status
| (0777 & ~dmode
)); /* Set for mkdir */
2202 fd
= emacs_open ("/dev/null", O_RDWR
, 0);
2209 execl ("/bin/mkdir", "mkdir", dpath
, (char *) 0);
2210 _exit (-1); /* Can't exec /bin/mkdir */
2212 default: /* Parent process */
2213 wait_for_termination (cpid
);
2216 if (synch_process_death
!= 0 || synch_process_retcode
!= 0
2217 || synch_process_termsig
!= 0)
2219 errno
= EIO
; /* We don't know why, but */
2220 return -1; /* /bin/mkdir failed */
2225 #endif /* not HAVE_MKDIR */
2231 int cpid
, status
, fd
;
2232 struct stat statbuf
;
2234 if (stat (dpath
, &statbuf
) != 0)
2236 /* Stat just set errno. We don't have to */
2240 synch_process_alive
= 1;
2241 switch (cpid
= fork ())
2244 case -1: /* Error in fork */
2245 return (-1); /* Errno is set already */
2247 case 0: /* Child process */
2248 fd
= emacs_open ("/dev/null", O_RDWR
, 0);
2255 execl ("/bin/rmdir", "rmdir", dpath
, (char *) 0);
2256 _exit (-1); /* Can't exec /bin/rmdir */
2258 default: /* Parent process */
2259 wait_for_termination (cpid
);
2262 if (synch_process_death
!= 0 || synch_process_retcode
!= 0
2263 || synch_process_termsig
!= 0)
2265 errno
= EIO
; /* We don't know why, but */
2266 return -1; /* /bin/rmdir failed */
2271 #endif /* !HAVE_RMDIR */
2274 #ifndef HAVE_STRSIGNAL
2276 strsignal (int code
)
2280 if (0 <= code
&& code
< NSIG
)
2282 /* Cast to suppress warning if the table has const char *. */
2283 signame
= (char *) sys_siglist
[code
];
2288 #endif /* HAVE_STRSIGNAL */
2291 /* For make-serial-process */
2293 serial_open (char *port
)
2297 fd
= emacs_open ((char*) port
,
2310 error ("Could not open %s: %s",
2311 port
, emacs_strerror (errno
));
2314 ioctl (fd
, TIOCEXCL
, (char *) 0);
2320 #if !defined (HAVE_CFMAKERAW)
2321 /* Workaround for targets which are missing cfmakeraw. */
2322 /* Pasted from man page. */
2324 cfmakeraw (struct termios
*termios_p
)
2326 termios_p
->c_iflag
&= ~(IGNBRK
|BRKINT
|PARMRK
|ISTRIP
|INLCR
|IGNCR
|ICRNL
|IXON
);
2327 termios_p
->c_oflag
&= ~OPOST
;
2328 termios_p
->c_lflag
&= ~(ECHO
|ECHONL
|ICANON
|ISIG
|IEXTEN
);
2329 termios_p
->c_cflag
&= ~(CSIZE
|PARENB
);
2330 termios_p
->c_cflag
|= CS8
;
2332 #endif /* !defined (HAVE_CFMAKERAW */
2334 #if !defined (HAVE_CFSETSPEED)
2335 /* Workaround for targets which are missing cfsetspeed. */
2337 cfsetspeed (struct termios
*termios_p
, speed_t vitesse
)
2339 return (cfsetispeed (termios_p
, vitesse
)
2340 + cfsetospeed (termios_p
, vitesse
));
2344 /* For serial-process-configure */
2346 serial_configure (struct Lisp_Process
*p
,
2347 Lisp_Object contact
)
2349 Lisp_Object childp2
= Qnil
;
2350 Lisp_Object tem
= Qnil
;
2351 struct termios attr
;
2353 char summary
[4] = "???"; /* This usually becomes "8N1". */
2355 childp2
= Fcopy_sequence (p
->childp
);
2357 /* Read port attributes and prepare default configuration. */
2358 err
= tcgetattr (p
->outfd
, &attr
);
2360 error ("tcgetattr() failed: %s", emacs_strerror (errno
));
2362 #if defined (CLOCAL)
2363 attr
.c_cflag
|= CLOCAL
;
2366 attr
.c_cflag
|= CREAD
;
2369 /* Configure speed. */
2370 if (!NILP (Fplist_member (contact
, QCspeed
)))
2371 tem
= Fplist_get (contact
, QCspeed
);
2373 tem
= Fplist_get (p
->childp
, QCspeed
);
2375 err
= cfsetspeed (&attr
, XINT (tem
));
2377 error ("cfsetspeed(%"pI
"d) failed: %s", XINT (tem
),
2378 emacs_strerror (errno
));
2379 childp2
= Fplist_put (childp2
, QCspeed
, tem
);
2381 /* Configure bytesize. */
2382 if (!NILP (Fplist_member (contact
, QCbytesize
)))
2383 tem
= Fplist_get (contact
, QCbytesize
);
2385 tem
= Fplist_get (p
->childp
, QCbytesize
);
2387 tem
= make_number (8);
2389 if (XINT (tem
) != 7 && XINT (tem
) != 8)
2390 error (":bytesize must be nil (8), 7, or 8");
2391 summary
[0] = XINT (tem
) + '0';
2392 #if defined (CSIZE) && defined (CS7) && defined (CS8)
2393 attr
.c_cflag
&= ~CSIZE
;
2394 attr
.c_cflag
|= ((XINT (tem
) == 7) ? CS7
: CS8
);
2396 /* Don't error on bytesize 8, which should be set by cfmakeraw. */
2397 if (XINT (tem
) != 8)
2398 error ("Bytesize cannot be changed");
2400 childp2
= Fplist_put (childp2
, QCbytesize
, tem
);
2402 /* Configure parity. */
2403 if (!NILP (Fplist_member (contact
, QCparity
)))
2404 tem
= Fplist_get (contact
, QCparity
);
2406 tem
= Fplist_get (p
->childp
, QCparity
);
2407 if (!NILP (tem
) && !EQ (tem
, Qeven
) && !EQ (tem
, Qodd
))
2408 error (":parity must be nil (no parity), `even', or `odd'");
2409 #if defined (PARENB) && defined (PARODD) && defined (IGNPAR) && defined (INPCK)
2410 attr
.c_cflag
&= ~(PARENB
| PARODD
);
2411 attr
.c_iflag
&= ~(IGNPAR
| INPCK
);
2416 else if (EQ (tem
, Qeven
))
2419 attr
.c_cflag
|= PARENB
;
2420 attr
.c_iflag
|= (IGNPAR
| INPCK
);
2422 else if (EQ (tem
, Qodd
))
2425 attr
.c_cflag
|= (PARENB
| PARODD
);
2426 attr
.c_iflag
|= (IGNPAR
| INPCK
);
2429 /* Don't error on no parity, which should be set by cfmakeraw. */
2431 error ("Parity cannot be configured");
2433 childp2
= Fplist_put (childp2
, QCparity
, tem
);
2435 /* Configure stopbits. */
2436 if (!NILP (Fplist_member (contact
, QCstopbits
)))
2437 tem
= Fplist_get (contact
, QCstopbits
);
2439 tem
= Fplist_get (p
->childp
, QCstopbits
);
2441 tem
= make_number (1);
2443 if (XINT (tem
) != 1 && XINT (tem
) != 2)
2444 error (":stopbits must be nil (1 stopbit), 1, or 2");
2445 summary
[2] = XINT (tem
) + '0';
2446 #if defined (CSTOPB)
2447 attr
.c_cflag
&= ~CSTOPB
;
2448 if (XINT (tem
) == 2)
2449 attr
.c_cflag
|= CSTOPB
;
2451 /* Don't error on 1 stopbit, which should be set by cfmakeraw. */
2452 if (XINT (tem
) != 1)
2453 error ("Stopbits cannot be configured");
2455 childp2
= Fplist_put (childp2
, QCstopbits
, tem
);
2457 /* Configure flowcontrol. */
2458 if (!NILP (Fplist_member (contact
, QCflowcontrol
)))
2459 tem
= Fplist_get (contact
, QCflowcontrol
);
2461 tem
= Fplist_get (p
->childp
, QCflowcontrol
);
2462 if (!NILP (tem
) && !EQ (tem
, Qhw
) && !EQ (tem
, Qsw
))
2463 error (":flowcontrol must be nil (no flowcontrol), `hw', or `sw'");
2464 #if defined (CRTSCTS)
2465 attr
.c_cflag
&= ~CRTSCTS
;
2467 #if defined (CNEW_RTSCTS)
2468 attr
.c_cflag
&= ~CNEW_RTSCTS
;
2470 #if defined (IXON) && defined (IXOFF)
2471 attr
.c_iflag
&= ~(IXON
| IXOFF
);
2475 /* Already configured. */
2477 else if (EQ (tem
, Qhw
))
2479 #if defined (CRTSCTS)
2480 attr
.c_cflag
|= CRTSCTS
;
2481 #elif defined (CNEW_RTSCTS)
2482 attr
.c_cflag
|= CNEW_RTSCTS
;
2484 error ("Hardware flowcontrol (RTS/CTS) not supported");
2487 else if (EQ (tem
, Qsw
))
2489 #if defined (IXON) && defined (IXOFF)
2490 attr
.c_iflag
|= (IXON
| IXOFF
);
2492 error ("Software flowcontrol (XON/XOFF) not supported");
2495 childp2
= Fplist_put (childp2
, QCflowcontrol
, tem
);
2497 /* Activate configuration. */
2498 err
= tcsetattr (p
->outfd
, TCSANOW
, &attr
);
2500 error ("tcsetattr() failed: %s", emacs_strerror (errno
));
2502 childp2
= Fplist_put (childp2
, QCsummary
, build_string (summary
));
2503 p
->childp
= childp2
;
2506 #endif /* not DOS_NT */
2508 /* System depended enumeration of and access to system processes a-la ps(1). */
2512 /* Process enumeration and access via /proc. */
2515 list_system_processes (void)
2517 Lisp_Object procdir
, match
, proclist
, next
;
2518 struct gcpro gcpro1
, gcpro2
;
2519 register Lisp_Object tail
;
2521 GCPRO2 (procdir
, match
);
2522 /* For every process on the system, there's a directory in the
2523 "/proc" pseudo-directory whose name is the numeric ID of that
2525 procdir
= build_string ("/proc");
2526 match
= build_string ("[0-9]+");
2527 proclist
= directory_files_internal (procdir
, Qnil
, match
, Qt
, 0, Qnil
);
2529 /* `proclist' gives process IDs as strings. Destructively convert
2530 each string into a number. */
2531 for (tail
= proclist
; CONSP (tail
); tail
= next
)
2534 XSETCAR (tail
, Fstring_to_number (XCAR (tail
), Qnil
));
2538 /* directory_files_internal returns the files in reverse order; undo
2540 proclist
= Fnreverse (proclist
);
2544 #elif defined BSD_SYSTEM
2547 list_system_processes (void)
2550 int mib
[] = {CTL_KERN
, KERN_PROC
, KERN_PROC_ALL
};
2552 int mib
[] = {CTL_KERN
, KERN_PROC
, KERN_PROC_PROC
};
2555 struct kinfo_proc
*procs
;
2558 struct gcpro gcpro1
;
2559 Lisp_Object proclist
= Qnil
;
2561 if (sysctl (mib
, 3, NULL
, &len
, NULL
, 0) != 0)
2564 procs
= xmalloc (len
);
2565 if (sysctl (mib
, 3, procs
, &len
, NULL
, 0) != 0)
2572 len
/= sizeof (struct kinfo_proc
);
2573 for (i
= 0; i
< len
; i
++)
2576 proclist
= Fcons (make_fixnum_or_float (procs
[i
].kp_proc
.p_pid
), proclist
);
2578 proclist
= Fcons (make_fixnum_or_float (procs
[i
].ki_pid
), proclist
);
2588 /* The WINDOWSNT implementation is in w32.c.
2589 The MSDOS implementation is in dosfns.c. */
2590 #elif !defined (WINDOWSNT) && !defined (MSDOS)
2593 list_system_processes (void)
2598 #endif /* !defined (WINDOWSNT) */
2602 time_from_jiffies (unsigned long long tval
, long hz
,
2603 time_t *sec
, unsigned *usec
)
2605 unsigned long long ullsec
;
2609 tval
-= ullsec
* hz
;
2610 /* Careful: if HZ > 1 million, then integer division by it yields zero. */
2612 *usec
= tval
* 1000000 / hz
;
2614 *usec
= tval
/ (hz
/ 1000000);
2618 ltime_from_jiffies (unsigned long long tval
, long hz
)
2623 time_from_jiffies (tval
, hz
, &sec
, &usec
);
2625 return list3 (make_number ((sec
>> 16) & 0xffff),
2626 make_number (sec
& 0xffff),
2627 make_number (usec
));
2631 get_up_time (time_t *sec
, unsigned *usec
)
2638 fup
= fopen ("/proc/uptime", "r");
2642 double uptime
, idletime
;
2644 /* The numbers in /proc/uptime use C-locale decimal point, but
2645 we already set ourselves to the C locale (see `fixup_locale'
2647 if (2 <= fscanf (fup
, "%lf %lf", &uptime
, &idletime
))
2650 *usec
= (uptime
- *sec
) * 1000000;
2657 #define MAJOR(d) (((unsigned)(d) >> 8) & 0xfff)
2658 #define MINOR(d) (((unsigned)(d) & 0xff) | (((unsigned)(d) & 0xfff00000) >> 12))
2661 procfs_ttyname (int rdev
)
2664 char name
[PATH_MAX
];
2667 fdev
= fopen ("/proc/tty/drivers", "r");
2672 unsigned long minor_beg
, minor_end
;
2673 char minor
[25]; /* 2 32-bit numbers + dash */
2676 while (!feof (fdev
) && !ferror (fdev
))
2678 if (3 <= fscanf (fdev
, "%*s %s %u %s %*s\n", name
, &major
, minor
)
2679 && major
== MAJOR (rdev
))
2681 minor_beg
= strtoul (minor
, &endp
, 0);
2683 minor_end
= minor_beg
;
2684 else if (*endp
== '-')
2685 minor_end
= strtoul (endp
+ 1, &endp
, 0);
2689 if (MINOR (rdev
) >= minor_beg
&& MINOR (rdev
) <= minor_end
)
2691 sprintf (name
+ strlen (name
), "%u", MINOR (rdev
));
2699 return build_string (name
);
2702 static unsigned long
2703 procfs_get_total_memory (void)
2706 unsigned long retval
= 2 * 1024 * 1024; /* default: 2GB */
2709 fmem
= fopen ("/proc/meminfo", "r");
2713 unsigned long entry_value
;
2714 char entry_name
[20]; /* the longest I saw is 13+1 */
2716 while (!feof (fmem
) && !ferror (fmem
))
2718 if (2 <= fscanf (fmem
, "%s %lu kB\n", entry_name
, &entry_value
)
2719 && strcmp (entry_name
, "MemTotal:") == 0)
2721 retval
= entry_value
;
2732 system_process_attributes (Lisp_Object pid
)
2734 char procfn
[PATH_MAX
], fn
[PATH_MAX
];
2738 long clocks_per_sec
;
2740 char procbuf
[1025], *p
, *q
;
2743 const char *cmd
= NULL
;
2744 char *cmdline
= NULL
;
2745 ptrdiff_t cmdsize
= 0, cmdline_size
;
2748 int ppid
, pgrp
, sess
, tty
, tpgid
, thcount
;
2751 unsigned long long u_time
, s_time
, cutime
, cstime
, start
;
2752 long priority
, niceness
, rss
;
2753 unsigned long minflt
, majflt
, cminflt
, cmajflt
, vsize
;
2756 EMACS_TIME tnow
, tstart
, tboot
, telapsed
;
2758 Lisp_Object attrs
= Qnil
;
2759 Lisp_Object cmd_str
, decoded_cmd
, tem
;
2760 struct gcpro gcpro1
, gcpro2
;
2762 CHECK_NUMBER_OR_FLOAT (pid
);
2763 CONS_TO_INTEGER (pid
, pid_t
, proc_id
);
2764 sprintf (procfn
, "/proc/%"pMd
, proc_id
);
2765 if (stat (procfn
, &st
) < 0)
2768 GCPRO2 (attrs
, decoded_cmd
);
2772 attrs
= Fcons (Fcons (Qeuid
, make_fixnum_or_float (uid
)), attrs
);
2774 pw
= getpwuid (uid
);
2777 attrs
= Fcons (Fcons (Quser
, build_string (pw
->pw_name
)), attrs
);
2780 attrs
= Fcons (Fcons (Qegid
, make_fixnum_or_float (gid
)), attrs
);
2782 gr
= getgrgid (gid
);
2785 attrs
= Fcons (Fcons (Qgroup
, build_string (gr
->gr_name
)), attrs
);
2787 strcpy (fn
, procfn
);
2788 procfn_end
= fn
+ strlen (fn
);
2789 strcpy (procfn_end
, "/stat");
2790 fd
= emacs_open (fn
, O_RDONLY
, 0);
2791 if (fd
>= 0 && (nread
= emacs_read (fd
, procbuf
, sizeof (procbuf
) - 1)) > 0)
2793 procbuf
[nread
] = '\0';
2796 p
= strchr (p
, '(');
2799 q
= strrchr (p
+ 1, ')');
2814 /* Command name is encoded in locale-coding-system; decode it. */
2815 cmd_str
= make_unibyte_string (cmd
, cmdsize
);
2816 decoded_cmd
= code_convert_string_norecord (cmd_str
,
2817 Vlocale_coding_system
, 0);
2818 attrs
= Fcons (Fcons (Qcomm
, decoded_cmd
), attrs
);
2822 EMACS_INT ppid_eint
, pgrp_eint
, sess_eint
, tpgid_eint
, thcount_eint
;
2824 /* state ppid pgrp sess tty tpgid . minflt cminflt majflt cmajflt utime stime cutime cstime priority nice thcount . start vsize rss */
2825 sscanf (p
, "%c %d %d %d %d %d %*u %lu %lu %lu %lu %Lu %Lu %Lu %Lu %ld %ld %d %*d %Lu %lu %ld",
2826 &c
, &ppid
, &pgrp
, &sess
, &tty
, &tpgid
,
2827 &minflt
, &cminflt
, &majflt
, &cmajflt
,
2828 &u_time
, &s_time
, &cutime
, &cstime
,
2829 &priority
, &niceness
, &thcount
, &start
, &vsize
, &rss
);
2834 state_str
[1] = '\0';
2835 tem
= build_string (state_str
);
2836 attrs
= Fcons (Fcons (Qstate
, tem
), attrs
);
2838 /* Stops GCC whining about limited range of data type. */
2843 thcount_eint
= thcount
;
2844 attrs
= Fcons (Fcons (Qppid
, make_fixnum_or_float (ppid_eint
)), attrs
);
2845 attrs
= Fcons (Fcons (Qpgrp
, make_fixnum_or_float (pgrp_eint
)), attrs
);
2846 attrs
= Fcons (Fcons (Qsess
, make_fixnum_or_float (sess_eint
)), attrs
);
2847 attrs
= Fcons (Fcons (Qttname
, procfs_ttyname (tty
)), attrs
);
2848 attrs
= Fcons (Fcons (Qtpgid
, make_fixnum_or_float (tpgid_eint
)), attrs
);
2849 attrs
= Fcons (Fcons (Qminflt
, make_fixnum_or_float (minflt
)), attrs
);
2850 attrs
= Fcons (Fcons (Qmajflt
, make_fixnum_or_float (majflt
)), attrs
);
2851 attrs
= Fcons (Fcons (Qcminflt
, make_fixnum_or_float (cminflt
)), attrs
);
2852 attrs
= Fcons (Fcons (Qcmajflt
, make_fixnum_or_float (cmajflt
)), attrs
);
2853 clocks_per_sec
= sysconf (_SC_CLK_TCK
);
2854 if (clocks_per_sec
< 0)
2855 clocks_per_sec
= 100;
2856 attrs
= Fcons (Fcons (Qutime
,
2857 ltime_from_jiffies (u_time
, clocks_per_sec
)),
2859 attrs
= Fcons (Fcons (Qstime
,
2860 ltime_from_jiffies (s_time
, clocks_per_sec
)),
2862 attrs
= Fcons (Fcons (Qtime
,
2863 ltime_from_jiffies (s_time
+ u_time
,
2866 attrs
= Fcons (Fcons (Qcutime
,
2867 ltime_from_jiffies (cutime
, clocks_per_sec
)),
2869 attrs
= Fcons (Fcons (Qcstime
,
2870 ltime_from_jiffies (cstime
, clocks_per_sec
)),
2872 attrs
= Fcons (Fcons (Qctime
,
2873 ltime_from_jiffies (cstime
+cutime
, clocks_per_sec
)),
2875 attrs
= Fcons (Fcons (Qpri
, make_number (priority
)), attrs
);
2876 attrs
= Fcons (Fcons (Qnice
, make_number (niceness
)), attrs
);
2877 attrs
= Fcons (Fcons (Qthcount
, make_fixnum_or_float (thcount_eint
)), attrs
);
2878 EMACS_GET_TIME (tnow
);
2879 get_up_time (&sec
, &usec
);
2880 EMACS_SET_SECS (telapsed
, sec
);
2881 EMACS_SET_USECS (telapsed
, usec
);
2882 EMACS_SUB_TIME (tboot
, tnow
, telapsed
);
2883 time_from_jiffies (start
, clocks_per_sec
, &sec
, &usec
);
2884 EMACS_SET_SECS (tstart
, sec
);
2885 EMACS_SET_USECS (tstart
, usec
);
2886 EMACS_ADD_TIME (tstart
, tboot
, tstart
);
2887 attrs
= Fcons (Fcons (Qstart
,
2889 ((EMACS_SECS (tstart
) >> 16) & 0xffff),
2891 (EMACS_SECS (tstart
) & 0xffff),
2893 (EMACS_USECS (tstart
)))),
2895 attrs
= Fcons (Fcons (Qvsize
, make_fixnum_or_float (vsize
/1024)), attrs
);
2896 attrs
= Fcons (Fcons (Qrss
, make_fixnum_or_float (4*rss
)), attrs
);
2897 EMACS_SUB_TIME (telapsed
, tnow
, tstart
);
2898 attrs
= Fcons (Fcons (Qetime
,
2900 ((EMACS_SECS (telapsed
) >> 16) & 0xffff),
2902 (EMACS_SECS (telapsed
) & 0xffff),
2904 (EMACS_USECS (telapsed
)))),
2906 time_from_jiffies (u_time
+ s_time
, clocks_per_sec
, &sec
, &usec
);
2907 pcpu
= (sec
+ usec
/ 1000000.0) / (EMACS_SECS (telapsed
) + EMACS_USECS (telapsed
) / 1000000.0);
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 (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 (isspace (*p
) || *p
== '\\')
2957 memmove (p
+ 1, p
, nread
- (p
- cmdline
));
2961 else if (*p
== '\0')
2964 cmdline_size
= nread
;
2971 cmdsize
= strlen (cmd
);
2972 cmdline_size
= cmdsize
+ 2;
2973 cmdline
= xmalloc (cmdline_size
+ 1);
2974 strcpy (cmdline
, "[");
2975 strcat (strncat (cmdline
, cmd
, cmdsize
), "]");
2978 /* Command line is encoded in locale-coding-system; decode it. */
2979 cmd_str
= make_unibyte_string (cmdline
, cmdline_size
);
2980 decoded_cmd
= code_convert_string_norecord (cmd_str
,
2981 Vlocale_coding_system
, 0);
2983 attrs
= Fcons (Fcons (Qargs
, decoded_cmd
), attrs
);
2990 #elif defined (SOLARIS2) && defined (HAVE_PROCFS)
2992 /* The <procfs.h> header does not like to be included if _LP64 is defined and
2993 __FILE_OFFSET_BITS == 64. This is an ugly workaround that. */
2994 #if !defined (_LP64) && defined (_FILE_OFFSET_BITS) && (_FILE_OFFSET_BITS == 64)
2995 #define PROCFS_FILE_OFFSET_BITS_HACK 1
2996 #undef _FILE_OFFSET_BITS
2998 #define PROCFS_FILE_OFFSET_BITS_HACK 0
3003 #if PROCFS_FILE_OFFSET_BITS_HACK == 1
3004 #define _FILE_OFFSET_BITS 64
3005 #ifdef _FILE_OFFSET_BITS /* Avoid unused-macro warnings. */
3007 #endif /* PROCFS_FILE_OFFSET_BITS_HACK == 1 */
3010 system_process_attributes (Lisp_Object pid
)
3012 char procfn
[PATH_MAX
], fn
[PATH_MAX
];
3017 struct psinfo pinfo
;
3023 Lisp_Object attrs
= Qnil
;
3024 Lisp_Object decoded_cmd
, tem
;
3025 struct gcpro gcpro1
, gcpro2
;
3027 CHECK_NUMBER_OR_FLOAT (pid
);
3028 CONS_TO_INTEGER (pid
, pid_t
, proc_id
);
3029 sprintf (procfn
, "/proc/%"pMd
, proc_id
);
3030 if (stat (procfn
, &st
) < 0)
3033 GCPRO2 (attrs
, decoded_cmd
);
3037 attrs
= Fcons (Fcons (Qeuid
, make_fixnum_or_float (uid
)), attrs
);
3039 pw
= getpwuid (uid
);
3042 attrs
= Fcons (Fcons (Quser
, build_string (pw
->pw_name
)), attrs
);
3045 attrs
= Fcons (Fcons (Qegid
, make_fixnum_or_float (gid
)), attrs
);
3047 gr
= getgrgid (gid
);
3050 attrs
= Fcons (Fcons (Qgroup
, build_string (gr
->gr_name
)), attrs
);
3052 strcpy (fn
, procfn
);
3053 procfn_end
= fn
+ strlen (fn
);
3054 strcpy (procfn_end
, "/psinfo");
3055 fd
= emacs_open (fn
, O_RDONLY
, 0);
3057 && (nread
= read (fd
, (char*)&pinfo
, sizeof (struct psinfo
)) > 0))
3059 attrs
= Fcons (Fcons (Qppid
, make_fixnum_or_float (pinfo
.pr_ppid
)), attrs
);
3060 attrs
= Fcons (Fcons (Qpgrp
, make_fixnum_or_float (pinfo
.pr_pgid
)), attrs
);
3061 attrs
= Fcons (Fcons (Qsess
, make_fixnum_or_float (pinfo
.pr_sid
)), attrs
);
3065 state_str
[0] = pinfo
.pr_lwp
.pr_sname
;
3066 state_str
[1] = '\0';
3067 tem
= build_string (state_str
);
3068 attrs
= Fcons (Fcons (Qstate
, tem
), attrs
);
3071 /* FIXME: missing Qttyname. psinfo.pr_ttydev is a dev_t,
3072 need to get a string from it. */
3074 /* FIXME: missing: Qtpgid */
3086 Are they available? */
3088 attrs
= Fcons (Fcons (Qtime
,
3089 list3 (make_number (pinfo
.pr_time
.tv_sec
>> 16),
3090 make_number (pinfo
.pr_time
.tv_sec
& 0xffff),
3091 make_number (pinfo
.pr_time
.tv_nsec
))),
3094 attrs
= Fcons (Fcons (Qctime
,
3095 list3 (make_number (pinfo
.pr_ctime
.tv_sec
>> 16),
3096 make_number (pinfo
.pr_ctime
.tv_sec
& 0xffff),
3097 make_number (pinfo
.pr_ctime
.tv_nsec
))),
3100 attrs
= Fcons (Fcons (Qpri
, make_number (pinfo
.pr_lwp
.pr_pri
)), attrs
);
3101 attrs
= Fcons (Fcons (Qnice
, make_number (pinfo
.pr_lwp
.pr_nice
)), attrs
);
3102 attrs
= Fcons (Fcons (Qthcount
, make_fixnum_or_float (pinfo
.pr_nlwp
)), attrs
);
3104 attrs
= Fcons (Fcons (Qstart
,
3105 list3 (make_number (pinfo
.pr_start
.tv_sec
>> 16),
3106 make_number (pinfo
.pr_start
.tv_sec
& 0xffff),
3107 make_number (pinfo
.pr_start
.tv_nsec
))),
3109 attrs
= Fcons (Fcons (Qvsize
, make_fixnum_or_float (pinfo
.pr_size
)), attrs
);
3110 attrs
= Fcons (Fcons (Qrss
, make_fixnum_or_float (pinfo
.pr_rssize
)), attrs
);
3112 /* pr_pctcpu and pr_pctmem are encoded as a fixed point 16 bit number in [0 ... 1]. */
3113 attrs
= Fcons (Fcons (Qpcpu
, (pinfo
.pr_pctcpu
* 100.0) / (double)0x8000), attrs
);
3114 attrs
= Fcons (Fcons (Qpmem
, (pinfo
.pr_pctmem
* 100.0) / (double)0x8000), attrs
);
3117 = code_convert_string_norecord (make_unibyte_string (pinfo
.pr_fname
,
3118 strlen (pinfo
.pr_fname
)),
3119 Vlocale_coding_system
, 0);
3120 attrs
= Fcons (Fcons (Qcomm
, decoded_cmd
), attrs
);
3122 = code_convert_string_norecord (make_unibyte_string (pinfo
.pr_psargs
,
3123 strlen (pinfo
.pr_psargs
)),
3124 Vlocale_coding_system
, 0);
3125 attrs
= Fcons (Fcons (Qargs
, decoded_cmd
), attrs
);
3135 #elif defined __FreeBSD__
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 #define TIMELIST(ts) \
3233 list3 (make_number (EMACS_SECS (ts) >> 16 & 0xffff), \
3234 make_number (EMACS_SECS (ts) & 0xffff), \
3235 make_number (EMACS_USECS (ts)))
3237 attrs
= Fcons (Fcons (Qutime
, TIMELIST (proc
.ki_rusage
.ru_utime
)), attrs
);
3238 attrs
= Fcons (Fcons (Qstime
, TIMELIST (proc
.ki_rusage
.ru_stime
)), attrs
);
3239 EMACS_ADD_TIME (t
, proc
.ki_rusage
.ru_utime
, proc
.ki_rusage
.ru_stime
);
3240 attrs
= Fcons (Fcons (Qtime
, TIMELIST (t
)), attrs
);
3242 attrs
= Fcons (Fcons (Qcutime
, TIMELIST (proc
.ki_rusage_ch
.ru_utime
)), attrs
);
3243 attrs
= Fcons (Fcons (Qcstime
, TIMELIST (proc
.ki_rusage_ch
.ru_utime
)), attrs
);
3244 EMACS_ADD_TIME (t
, proc
.ki_rusage_ch
.ru_utime
, proc
.ki_rusage_ch
.ru_stime
);
3245 attrs
= Fcons (Fcons (Qctime
, TIMELIST (t
)), attrs
);
3247 attrs
= Fcons (Fcons (Qthcount
, make_fixnum_or_float (proc
.ki_numthreads
)),
3249 attrs
= Fcons (Fcons (Qpri
, make_number (proc
.ki_pri
.pri_native
)), attrs
);
3250 attrs
= Fcons (Fcons (Qnice
, make_number (proc
.ki_nice
)), attrs
);
3251 attrs
= Fcons (Fcons (Qstart
, TIMELIST (proc
.ki_start
)), attrs
);
3252 attrs
= Fcons (Fcons (Qvsize
, make_number (proc
.ki_size
>> 10)), attrs
);
3253 attrs
= Fcons (Fcons (Qrss
, make_number (proc
.ki_rssize
* pagesize
>> 10)),
3256 EMACS_GET_TIME (now
);
3257 EMACS_SUB_TIME (t
, now
, proc
.ki_start
);
3258 attrs
= Fcons (Fcons (Qetime
, TIMELIST (t
)), attrs
);
3262 len
= sizeof fscale
;
3263 if (sysctlbyname ("kern.fscale", &fscale
, &len
, NULL
, 0) == 0)
3268 if (sysctlbyname ("kern.ccpu", &ccpu
, &len
, NULL
, 0) == 0)
3270 pcpu
= (100.0 * proc
.ki_pctcpu
/ fscale
3271 / (1 - exp (proc
.ki_swtime
* log ((double) ccpu
/ fscale
))));
3272 attrs
= Fcons (Fcons (Qpcpu
, make_fixnum_or_float (pcpu
)), attrs
);
3276 len
= sizeof npages
;
3277 if (sysctlbyname ("hw.availpages", &npages
, &len
, NULL
, 0) == 0)
3279 double pmem
= (proc
.ki_flag
& P_INMEM
3280 ? 100.0 * proc
.ki_rssize
/ npages
3282 attrs
= Fcons (Fcons (Qpmem
, make_fixnum_or_float (pmem
)), attrs
);
3285 mib
[2] = KERN_PROC_ARGS
;
3287 if (sysctl (mib
, 4, args
, &len
, NULL
, 0) == 0)
3290 for (i
= 0; i
< len
; i
++)
3292 if (! args
[i
] && i
< len
- 1)
3297 (code_convert_string_norecord
3298 (make_unibyte_string (args
, strlen (args
)),
3299 Vlocale_coding_system
, 0));
3301 attrs
= Fcons (Fcons (Qargs
, decoded_comm
), attrs
);
3308 /* The WINDOWSNT implementation is in w32.c.
3309 The MSDOS implementation is in dosfns.c. */
3310 #elif !defined (WINDOWSNT) && !defined (MSDOS)
3313 system_process_attributes (Lisp_Object pid
)
3318 #endif /* !defined (WINDOWSNT) */