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> */
49 #define write sys_write
54 #endif /* not WINDOWSNT */
56 #include <sys/types.h>
63 #define setpgrp setpgid
67 /* Get SI_SRPC_DOMAIN, if it is available. */
68 #ifdef HAVE_SYS_SYSTEMINFO_H
69 #include <sys/systeminfo.h>
72 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida, MW Aug 1993 */
76 #include <sys/param.h>
85 #ifdef HAVE_SYS_UTSNAME_H
86 #include <sys/utsname.h>
88 #endif /* HAVE_SYS_UTSNAME_H */
93 #include "termhooks.h"
96 #include "dispextern.h"
98 #include "cm.h" /* for reset_sys_modes */
102 /* In process.h which conflicts with the local copy. */
104 int _cdecl
_spawnlp (int, const char *, const char *, ...);
105 int _cdecl
_getpid (void);
106 extern char *getwd (char *);
109 #include "syssignal.h"
116 #ifndef HAVE_STRUCT_UTIMBUF
117 /* We want to use utime rather than utimes, but we couldn't find the
118 structure declaration. We'll use the traditional one. */
126 static int emacs_get_tty (int, struct emacs_tty
*);
127 static int emacs_set_tty (int, struct emacs_tty
*, int);
128 #if defined TIOCNOTTY || defined USG5 || defined CYGWIN
129 static void croak (char *) NO_RETURN
;
132 /* Declare here, including term.h is problematic on some systems. */
133 extern void tputs (const char *, int, int (*)(int));
135 static const int baud_convert
[] =
137 0, 50, 75, 110, 135, 150, 200, 300, 600, 1200,
138 1800, 2400, 4800, 9600, 19200, 38400
142 #if !defined (HAVE_GET_CURRENT_DIR_NAME) || defined (BROKEN_GET_CURRENT_DIR_NAME)
144 /* Return the current working directory. Returns NULL on errors.
145 Any other returned value must be freed with free. This is used
146 only when get_current_dir_name is not defined on the system. */
148 get_current_dir_name (void)
152 struct stat dotstat
, pwdstat
;
153 /* If PWD is accurate, use it instead of calling getwd. PWD is
154 sometimes a nicer name, and using it may avoid a fatal error if a
155 parent directory is searchable but not readable. */
156 if ((pwd
= getenv ("PWD")) != 0
157 && (IS_DIRECTORY_SEP (*pwd
) || (*pwd
&& IS_DEVICE_SEP (pwd
[1])))
158 && stat (pwd
, &pwdstat
) == 0
159 && stat (".", &dotstat
) == 0
160 && dotstat
.st_ino
== pwdstat
.st_ino
161 && dotstat
.st_dev
== pwdstat
.st_dev
163 && strlen (pwd
) < MAXPATHLEN
167 buf
= (char *) malloc (strlen (pwd
) + 1);
175 size_t buf_size
= 1024;
176 buf
= (char *) malloc (buf_size
);
181 if (getcwd (buf
, buf_size
) == buf
)
185 int tmp_errno
= errno
;
191 buf
= (char *) realloc (buf
, buf_size
);
199 /* We need MAXPATHLEN here. */
200 buf
= (char *) malloc (MAXPATHLEN
+ 1);
203 if (getwd (buf
) == NULL
)
205 int tmp_errno
= errno
;
217 /* Discard pending input on all input descriptors. */
220 discard_tty_input (void)
223 struct emacs_tty buf
;
228 #ifdef MSDOS /* Demacs 1.1.1 91/10/16 HIRANO Satoshi */
229 while (dos_keyread () != -1)
231 #else /* not MSDOS */
233 struct tty_display_info
*tty
;
234 for (tty
= tty_list
; tty
; tty
= tty
->next
)
236 if (tty
->input
) /* Is the device suspended? */
238 emacs_get_tty (fileno (tty
->input
), &buf
);
239 emacs_set_tty (fileno (tty
->input
), &buf
, 0);
243 #endif /* not MSDOS */
244 #endif /* not WINDOWSNT */
250 /* Arrange for character C to be read as the next input from
252 XXX What if we have multiple ttys?
258 if (! FRAME_TERMCAP_P (SELECTED_FRAME ()))
261 /* Should perhaps error if in batch mode */
263 ioctl (fileno (CURTTY()->input
), TIOCSTI
, &c
);
264 #else /* no TIOCSTI */
265 error ("Cannot stuff terminal input characters in this version of Unix");
266 #endif /* no TIOCSTI */
272 init_baud_rate (int fd
)
282 #else /* not DOS_NT */
287 emacs_ospeed
= cfgetospeed (&sg
);
288 #endif /* not DOS_NT */
291 baud_rate
= (emacs_ospeed
< sizeof baud_convert
/ sizeof baud_convert
[0]
292 ? baud_convert
[emacs_ospeed
] : 9600);
299 /* Set nonzero to make following function work under dbx
300 (at least for bsd). */
301 int wait_debugging EXTERNALLY_VISIBLE
;
306 wait_for_termination_1 (int pid
, int interruptible
)
310 #if (defined (BSD_SYSTEM) || defined (HPUX)) && !defined (__GNU__)
311 /* Note that kill returns -1 even if the process is just a zombie now.
312 But inevitably a SIGCHLD interrupt should be generated
313 and child_sig will do wait3 and make the process go away. */
314 /* There is some indication that there is a bug involved with
315 termination of subprocesses, perhaps involving a kernel bug too,
316 but no idea what it is. Just as a hunch we signal SIGCHLD to see
317 if that causes the problem to go away or get worse. */
318 sigsetmask (sigmask (SIGCHLD
));
319 if (0 > kill (pid
, 0))
321 sigsetmask (SIGEMPTYMASK
);
322 kill (getpid (), SIGCHLD
);
328 sigpause (SIGEMPTYMASK
);
329 #else /* not BSD_SYSTEM, and not HPUX version >= 6 */
333 #else /* not WINDOWSNT */
334 sigblock (sigmask (SIGCHLD
));
336 if (kill (pid
, 0) == -1 && errno
== ESRCH
)
338 sigunblock (sigmask (SIGCHLD
));
342 sigsuspend (&empty_mask
);
343 #endif /* not WINDOWSNT */
344 #endif /* not BSD_SYSTEM, and not HPUX version >= 6 */
350 /* Wait for subprocess with process id `pid' to terminate and
351 make sure it will get eliminated (not remain forever as a zombie) */
354 wait_for_termination (int pid
)
356 wait_for_termination_1 (pid
, 0);
359 /* Like the above, but allow keyboard interruption. */
361 interruptible_wait_for_termination (int pid
)
363 wait_for_termination_1 (pid
, 1);
367 * flush any pending output
368 * (may flush input as well; it does not matter the way we use it)
372 flush_pending_output (int channel
)
374 /* FIXME: maybe this function should be removed */
377 /* Set up the terminal at the other end of a pseudo-terminal that
378 we will be controlling an inferior through.
379 It should not echo or do line-editing, since that is done
380 in Emacs. No padding needed for insertion into an Emacs buffer. */
383 child_setup_tty (int out
)
388 emacs_get_tty (out
, &s
);
389 s
.main
.c_oflag
|= OPOST
; /* Enable output postprocessing */
390 s
.main
.c_oflag
&= ~ONLCR
; /* Disable map of NL to CR-NL on output */
392 /* http://lists.gnu.org/archive/html/emacs-devel/2008-05/msg00406.html
393 Some versions of GNU Hurd do not have FFDLY? */
395 s
.main
.c_oflag
&= ~(NLDLY
|CRDLY
|TABDLY
|BSDLY
|VTDLY
|FFDLY
);
396 /* No output delays */
398 s
.main
.c_oflag
&= ~(NLDLY
|CRDLY
|TABDLY
|BSDLY
|VTDLY
);
399 /* No output delays */
402 s
.main
.c_lflag
&= ~ECHO
; /* Disable echo */
403 s
.main
.c_lflag
|= ISIG
; /* Enable signals */
405 s
.main
.c_iflag
&= ~IUCLC
; /* Disable downcasing on input. */
408 s
.main
.c_iflag
&= ~ISTRIP
; /* don't strip 8th bit on input */
411 s
.main
.c_oflag
&= ~OLCUC
; /* Disable upcasing on output. */
413 s
.main
.c_oflag
&= ~TAB3
; /* Disable tab expansion */
414 s
.main
.c_cflag
= (s
.main
.c_cflag
& ~CSIZE
) | CS8
; /* Don't strip 8th bit */
415 s
.main
.c_cc
[VERASE
] = CDISABLE
; /* disable erase processing */
416 s
.main
.c_cc
[VKILL
] = CDISABLE
; /* disable kill processing */
419 s
.main
.c_cflag
= (s
.main
.c_cflag
& ~CBAUD
) | B9600
; /* baud rate sanity */
422 #ifdef SIGNALS_VIA_CHARACTERS
423 /* the QUIT and INTR character are used in process_send_signal
424 so set them here to something useful. */
425 if (s
.main
.c_cc
[VQUIT
] == CDISABLE
)
426 s
.main
.c_cc
[VQUIT
] = '\\'&037; /* Control-\ */
427 if (s
.main
.c_cc
[VINTR
] == CDISABLE
)
428 s
.main
.c_cc
[VINTR
] = 'C'&037; /* Control-C */
429 #endif /* not SIGNALS_VIA_CHARACTERS */
432 /* Also, PTY overloads NUL and BREAK.
433 don't ignore break, but don't signal either, so it looks like NUL. */
434 s
.main
.c_iflag
&= ~IGNBRK
;
435 s
.main
.c_iflag
&= ~BRKINT
;
436 /* rms: Formerly it set s.main.c_cc[VINTR] to 0377 here
437 unconditionally. Then a SIGNALS_VIA_CHARACTERS conditional
438 would force it to 0377. That looks like duplicated code. */
439 s
.main
.c_cflag
= (s
.main
.c_cflag
& ~CBAUD
) | B9600
; /* baud rate sanity */
442 /* We originally enabled ICANON (and set VEOF to 04), and then had
443 process.c send additional EOF chars to flush the output when faced
444 with long lines, but this leads to weird effects when the
445 subprocess has disabled ICANON and ends up seeing those spurious
446 extra EOFs. So we don't send EOFs any more in
447 process.c:send_process. First we tried to disable ICANON by
448 default, so if a subsprocess sets up ICANON, it's his problem (or
449 the Elisp package that talks to it) to deal with lines that are
450 too long. But this disables some features, such as the ability
451 to send EOF signals. So we re-enabled ICANON but there is no
452 more "send eof to flush" going on (which is wrong and unportable
453 in itself). The correct way to handle too much output is to
454 buffer what could not be written and then write it again when
455 select returns ok for writing. This has it own set of
456 problems. Write is now asynchronous, is that a problem? How much
457 do we buffer, and what do we do when that limit is reached? */
459 s
.main
.c_lflag
|= ICANON
; /* Enable line editing and eof processing */
460 s
.main
.c_cc
[VEOF
] = 'D'&037; /* Control-D */
461 #if 0 /* These settings only apply to non-ICANON mode. */
462 s
.main
.c_cc
[VMIN
] = 1;
463 s
.main
.c_cc
[VTIME
] = 0;
466 emacs_set_tty (out
, &s
, 0);
467 #endif /* not WINDOWSNT */
469 #endif /* not MSDOS */
472 /* Record a signal code and the handler for it. */
476 void (*handler
) (int);
479 static void save_signal_handlers (struct save_signal
*);
480 static void restore_signal_handlers (struct save_signal
*);
482 /* Suspend the Emacs process; give terminal to its superior. */
487 #if defined (SIGTSTP) && !defined (MSDOS)
490 int pgrp
= EMACS_GETPGRP (0);
491 EMACS_KILLPG (pgrp
, SIGTSTP
);
494 #else /* No SIGTSTP */
495 /* On a system where suspending is not implemented,
496 instead fork a subshell and let it talk directly to the terminal
500 #endif /* no SIGTSTP */
503 /* Fork a subshell. */
508 #ifdef DOS_NT /* Demacs 1.1.2 91/10/20 Manabu Higashida */
510 char oldwd
[MAXPATHLEN
+1]; /* Fixed length is safe on MSDOS. */
513 struct save_signal saved_handlers
[5];
515 unsigned char *volatile str_volatile
= 0;
519 saved_handlers
[0].code
= SIGINT
;
520 saved_handlers
[1].code
= SIGQUIT
;
521 saved_handlers
[2].code
= SIGTERM
;
523 saved_handlers
[3].code
= SIGIO
;
524 saved_handlers
[4].code
= 0;
526 saved_handlers
[3].code
= 0;
529 /* Mentioning current_buffer->buffer would mean including buffer.h,
530 which somehow wedges the hp compiler. So instead... */
532 dir
= intern ("default-directory");
533 if (NILP (Fboundp (dir
)))
535 dir
= Fsymbol_value (dir
);
539 dir
= expand_and_dir_to_file (Funhandled_file_name_directory (dir
), Qnil
);
540 str_volatile
= str
= (unsigned char *) alloca (SCHARS (dir
) + 2);
542 memcpy (str
, SDATA (dir
), len
);
543 if (str
[len
- 1] != '/') str
[len
++] = '/';
549 save_signal_handlers (saved_handlers
);
550 synch_process_alive
= 1;
554 error ("Can't spawn subshell");
561 #ifdef DOS_NT /* MW, Aug 1993 */
564 sh
= (char *) egetenv ("SUSPEND"); /* KFS, 1994-12-14 */
567 sh
= (char *) egetenv ("SHELL");
571 /* Use our buffer's default directory for the subshell. */
573 if (str
&& chdir ((char *) str
) != 0)
576 ignore_value (write (1, "Can't chdir\n", 12));
581 close_process_descs (); /* Close Emacs's pipes/ptys */
583 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida */
585 char *epwd
= getenv ("PWD");
586 char old_pwd
[MAXPATHLEN
+1+4];
588 /* If PWD is set, pass it with corrected value. */
591 strcpy (old_pwd
, epwd
);
592 if (str
[len
- 1] == '/')
594 setenv ("PWD", str
, 1);
597 chdir (oldwd
); /* FIXME: Do the right thing on chdir failure. */
599 putenv (old_pwd
); /* restore previous value */
601 #else /* not MSDOS */
603 /* Waits for process completion */
604 pid
= _spawnlp (_P_WAIT
, sh
, sh
, NULL
);
605 chdir (oldwd
); /* FIXME: Do the right thing on chdir failure. */
607 write (1, "Can't execute subshell", 22);
608 #else /* not WINDOWSNT */
609 execlp (sh
, sh
, (char *) 0);
610 ignore_value (write (1, "Can't execute subshell", 22));
612 #endif /* not WINDOWSNT */
613 #endif /* not MSDOS */
616 /* Do this now if we did not do it before. */
618 save_signal_handlers (saved_handlers
);
619 synch_process_alive
= 1;
623 wait_for_termination (pid
);
625 restore_signal_handlers (saved_handlers
);
626 synch_process_alive
= 0;
630 save_signal_handlers (struct save_signal
*saved_handlers
)
632 while (saved_handlers
->code
)
634 saved_handlers
->handler
635 = (void (*) (int)) signal (saved_handlers
->code
, SIG_IGN
);
641 restore_signal_handlers (struct save_signal
*saved_handlers
)
643 while (saved_handlers
->code
)
645 signal (saved_handlers
->code
, saved_handlers
->handler
);
651 /* If SIGIO is broken, don't do anything. */
668 unrequest_sigio (void)
675 static int old_fcntl_flags
[MAXDESC
];
681 old_fcntl_flags
[fd
] = fcntl (fd
, F_GETFL
, 0) & ~FASYNC
;
682 fcntl (fd
, F_SETFL
, old_fcntl_flags
[fd
] | FASYNC
);
684 interrupts_deferred
= 0;
691 fcntl (fd
, F_SETFL
, old_fcntl_flags
[fd
]);
695 #ifdef FASYNC /* F_SETFL does not imply existence of FASYNC */
696 /* XXX Uhm, FASYNC is not used anymore here. */
697 /* XXX Yeah, but you need it for SIGIO, don't you? */
706 sigunblock (sigmask (SIGWINCH
));
708 sigunblock (sigmask (SIGIO
));
710 interrupts_deferred
= 0;
714 unrequest_sigio (void)
719 #if 0 /* XXX What's wrong with blocking SIGIO under X? */
725 sigblock (sigmask (SIGWINCH
));
727 sigblock (sigmask (SIGIO
));
728 interrupts_deferred
= 1;
731 #else /* no FASYNC */
737 if (noninteractive
|| read_socket_hook
)
740 croak ("request_sigio");
744 unrequest_sigio (void)
746 if (noninteractive
|| read_socket_hook
)
749 croak ("unrequest_sigio");
758 /* Getting and setting emacs_tty structures. */
760 /* Set *TC to the parameters associated with the terminal FD.
761 Return zero if all's well, or -1 if we ran into an error we
762 couldn't deal with. */
764 emacs_get_tty (int fd
, struct emacs_tty
*settings
)
766 /* Retrieve the primary parameters - baud rate, character size, etcetera. */
768 /* We have those nifty POSIX tcmumbleattr functions. */
769 memset (&settings
->main
, 0, sizeof (settings
->main
));
770 if (tcgetattr (fd
, &settings
->main
) < 0)
774 /* We have survived the tempest. */
779 /* Set the parameters of the tty on FD according to the contents of
780 *SETTINGS. If FLUSHP is non-zero, we discard input.
781 Return 0 if all went well, and -1 if anything failed. */
784 emacs_set_tty (int fd
, struct emacs_tty
*settings
, int flushp
)
786 /* Set the primary parameters - baud rate, character size, etcetera. */
789 /* We have those nifty POSIX tcmumbleattr functions.
790 William J. Smith <wjs@wiis.wang.com> writes:
791 "POSIX 1003.1 defines tcsetattr to return success if it was
792 able to perform any of the requested actions, even if some
793 of the requested actions could not be performed.
794 We must read settings back to ensure tty setup properly.
795 AIX requires this to keep tty from hanging occasionally." */
796 /* This make sure that we don't loop indefinitely in here. */
797 for (i
= 0 ; i
< 10 ; i
++)
798 if (tcsetattr (fd
, flushp
? TCSAFLUSH
: TCSADRAIN
, &settings
->main
) < 0)
809 memset (&new, 0, sizeof (new));
810 /* Get the current settings, and see if they're what we asked for. */
811 tcgetattr (fd
, &new);
812 /* We cannot use memcmp on the whole structure here because under
813 * aix386 the termios structure has some reserved field that may
816 if ( new.c_iflag
== settings
->main
.c_iflag
817 && new.c_oflag
== settings
->main
.c_oflag
818 && new.c_cflag
== settings
->main
.c_cflag
819 && new.c_lflag
== settings
->main
.c_lflag
820 && memcmp (new.c_cc
, settings
->main
.c_cc
, NCCS
) == 0)
827 /* We have survived the tempest. */
834 static int old_fcntl_owner
[MAXDESC
];
835 #endif /* F_SETOWN */
837 /* This may also be defined in stdio,
838 but if so, this does no harm,
839 and using the same name avoids wasting the other one's space. */
842 unsigned char _sobuf
[BUFSIZ
+8];
847 /* Initialize the terminal mode on all tty devices that are currently
851 init_all_sys_modes (void)
853 struct tty_display_info
*tty
;
854 for (tty
= tty_list
; tty
; tty
= tty
->next
)
855 init_sys_modes (tty
);
858 /* Initialize the terminal mode on the given tty device. */
861 init_sys_modes (struct tty_display_info
*tty_out
)
863 struct emacs_tty tty
;
864 Lisp_Object terminal
;
866 Vtty_erase_char
= Qnil
;
871 if (!tty_out
->output
)
872 return; /* The tty is suspended. */
874 if (! tty_out
->old_tty
)
875 tty_out
->old_tty
= (struct emacs_tty
*) xmalloc (sizeof (struct emacs_tty
));
877 emacs_get_tty (fileno (tty_out
->input
), tty_out
->old_tty
);
879 tty
= *tty_out
->old_tty
;
881 #if !defined (DOS_NT)
882 XSETINT (Vtty_erase_char
, tty
.main
.c_cc
[VERASE
]);
884 tty
.main
.c_iflag
|= (IGNBRK
); /* Ignore break condition */
885 tty
.main
.c_iflag
&= ~ICRNL
; /* Disable map of CR to NL on input */
886 #ifdef INLCR /* I'm just being cautious,
887 since I can't check how widespread INLCR is--rms. */
888 tty
.main
.c_iflag
&= ~INLCR
; /* Disable map of NL to CR on input */
891 tty
.main
.c_iflag
&= ~ISTRIP
; /* don't strip 8th bit on input */
893 tty
.main
.c_lflag
&= ~ECHO
; /* Disable echo */
894 tty
.main
.c_lflag
&= ~ICANON
; /* Disable erase/kill processing */
896 tty
.main
.c_lflag
&= ~IEXTEN
; /* Disable other editing characters. */
898 tty
.main
.c_lflag
|= ISIG
; /* Enable signals */
899 if (tty_out
->flow_control
)
901 tty
.main
.c_iflag
|= IXON
; /* Enable start/stop output control */
903 tty
.main
.c_iflag
&= ~IXANY
;
907 tty
.main
.c_iflag
&= ~IXON
; /* Disable start/stop output control */
908 tty
.main
.c_oflag
&= ~ONLCR
; /* Disable map of NL to CR-NL
910 tty
.main
.c_oflag
&= ~TAB3
; /* Disable tab expansion */
912 if (tty_out
->meta_key
)
914 tty
.main
.c_cflag
|= CS8
; /* allow 8th bit on input */
915 tty
.main
.c_cflag
&= ~PARENB
;/* Don't check parity */
919 XSETTERMINAL(terminal
, tty_out
->terminal
);
920 if (!NILP (Fcontrolling_tty_p (terminal
)))
922 tty
.main
.c_cc
[VINTR
] = quit_char
; /* C-g (usually) gives SIGINT */
923 /* Set up C-g for both SIGQUIT and SIGINT.
924 We don't know which we will get, but we handle both alike
925 so which one it really gives us does not matter. */
926 tty
.main
.c_cc
[VQUIT
] = quit_char
;
930 /* We normally don't get interrupt or quit signals from tty
931 devices other than our controlling terminal; therefore,
932 we must handle C-g as normal input. Unfortunately, this
933 means that the interrupt and quit feature must be
934 disabled on secondary ttys, or we would not even see the
937 Note that even though emacsclient could have special code
938 to pass SIGINT to Emacs, we should _not_ enable
939 interrupt/quit keys for emacsclient frames. This means
940 that we can't break out of loops in C code from a
941 secondary tty frame, but we can always decide what
942 display the C-g came from, which is more important from a
943 usability point of view. (Consider the case when two
944 people work together using the same Emacs instance.) */
945 tty
.main
.c_cc
[VINTR
] = CDISABLE
;
946 tty
.main
.c_cc
[VQUIT
] = CDISABLE
;
948 tty
.main
.c_cc
[VMIN
] = 1; /* Input should wait for at least 1 char */
949 tty
.main
.c_cc
[VTIME
] = 0; /* no matter how long that takes. */
951 tty
.main
.c_cc
[VSWTCH
] = CDISABLE
; /* Turn off shell layering use
956 tty
.main
.c_cc
[VSUSP
] = CDISABLE
; /* Turn off handling of C-z. */
959 tty
.main
.c_cc
[V_DSUSP
] = CDISABLE
; /* Turn off handling of C-y. */
961 #ifdef VDSUSP /* Some systems have VDSUSP, some have V_DSUSP. */
962 tty
.main
.c_cc
[VDSUSP
] = CDISABLE
;
965 tty
.main
.c_cc
[VLNEXT
] = CDISABLE
;
968 tty
.main
.c_cc
[VREPRINT
] = CDISABLE
;
969 #endif /* VREPRINT */
971 tty
.main
.c_cc
[VWERASE
] = CDISABLE
;
974 tty
.main
.c_cc
[VDISCARD
] = CDISABLE
;
975 #endif /* VDISCARD */
977 if (tty_out
->flow_control
)
980 tty
.main
.c_cc
[VSTART
] = '\021';
983 tty
.main
.c_cc
[VSTOP
] = '\023';
989 tty
.main
.c_cc
[VSTART
] = CDISABLE
;
992 tty
.main
.c_cc
[VSTOP
] = CDISABLE
;
997 tty
.main
.c_cc
[VSTRT
] = CDISABLE
;
998 tty
.main
.c_cc
[VSTOP
] = CDISABLE
;
999 tty
.main
.c_cc
[VSUSP
] = CDISABLE
;
1000 tty
.main
.c_cc
[VDSUSP
] = CDISABLE
;
1001 if (tty_out
->flow_control
)
1004 tty
.main
.c_cc
[VSTART
] = '\021';
1007 tty
.main
.c_cc
[VSTOP
] = '\023';
1010 /* Also, PTY overloads NUL and BREAK.
1011 don't ignore break, but don't signal either, so it looks like NUL.
1012 This really serves a purpose only if running in an XTERM window
1013 or via TELNET or the like, but does no harm elsewhere. */
1014 tty
.main
.c_iflag
&= ~IGNBRK
;
1015 tty
.main
.c_iflag
&= ~BRKINT
;
1017 #endif /* not DOS_NT */
1019 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida, MW Aug 1993 */
1020 if (!tty_out
->term_initted
)
1021 internal_terminal_init ();
1022 dos_ttraw (tty_out
);
1025 emacs_set_tty (fileno (tty_out
->input
), &tty
, 0);
1027 /* This code added to insure that, if flow-control is not to be used,
1028 we have an unlocked terminal at the start. */
1031 if (!tty_out
->flow_control
) ioctl (fileno (tty_out
->input
), TCXONC
, 1);
1034 if (!tty_out
->flow_control
) ioctl (fileno (tty_out
->input
), TIOCSTART
, 0);
1037 #if !defined (DOS_NT)
1039 if (!tty_out
->flow_control
) tcflow (fileno (tty_out
->input
), TCOON
);
1044 #ifdef F_GETOWN /* F_SETFL does not imply existence of F_GETOWN */
1045 if (interrupt_input
)
1047 old_fcntl_owner
[fileno (tty_out
->input
)] =
1048 fcntl (fileno (tty_out
->input
), F_GETOWN
, 0);
1049 fcntl (fileno (tty_out
->input
), F_SETOWN
, getpid ());
1050 init_sigio (fileno (tty_out
->input
));
1052 if (gpm_tty
== tty_out
)
1054 /* Arrange for mouse events to give us SIGIO signals. */
1055 fcntl (gpm_fd
, F_SETOWN
, getpid ());
1056 fcntl (gpm_fd
, F_SETFL
, fcntl (gpm_fd
, F_GETFL
, 0) | O_NONBLOCK
);
1057 init_sigio (gpm_fd
);
1059 #endif /* HAVE_GPM */
1061 #endif /* F_GETOWN */
1062 #endif /* F_SETFL */
1065 /* This symbol is defined on recent USG systems.
1066 Someone says without this call USG won't really buffer the file
1067 even with a call to setbuf. */
1068 setvbuf (tty_out
->output
, (char *) _sobuf
, _IOFBF
, sizeof _sobuf
);
1070 setbuf (tty_out
->output
, (char *) _sobuf
);
1073 if (tty_out
->terminal
->set_terminal_modes_hook
)
1074 tty_out
->terminal
->set_terminal_modes_hook (tty_out
->terminal
);
1076 if (!tty_out
->term_initted
)
1078 Lisp_Object tail
, frame
;
1079 FOR_EACH_FRAME (tail
, frame
)
1081 /* XXX This needs to be revised. */
1082 if (FRAME_TERMCAP_P (XFRAME (frame
))
1083 && FRAME_TTY (XFRAME (frame
)) == tty_out
)
1084 init_frame_faces (XFRAME (frame
));
1088 if (tty_out
->term_initted
&& no_redraw_on_reenter
)
1090 /* We used to call "direct_output_forward_char(0)" here,
1091 but it's not clear why, since it may not do anything anyway. */
1095 Lisp_Object tail
, frame
;
1097 FOR_EACH_FRAME (tail
, frame
)
1099 if ((FRAME_TERMCAP_P (XFRAME (frame
))
1100 || FRAME_MSDOS_P (XFRAME (frame
)))
1101 && FRAME_TTY (XFRAME (frame
)) == tty_out
)
1102 FRAME_GARBAGED_P (XFRAME (frame
)) = 1;
1106 tty_out
->term_initted
= 1;
1109 /* Return nonzero if safe to use tabs in output.
1110 At the time this is called, init_sys_modes has not been done yet. */
1113 tabs_safe_p (int fd
)
1115 struct emacs_tty etty
;
1117 emacs_get_tty (fd
, &etty
);
1120 return ((etty
.main
.c_oflag
& TABDLY
) != TAB3
);
1121 #else /* not TABDLY */
1123 #endif /* not TABDLY */
1129 /* Get terminal size from system.
1130 Store number of lines into *HEIGHTP and width into *WIDTHP.
1131 We store 0 if there's no valid information. */
1134 get_tty_size (int fd
, int *widthp
, int *heightp
)
1136 #if defined TIOCGWINSZ
1139 struct winsize size
;
1141 if (ioctl (fd
, TIOCGWINSZ
, &size
) == -1)
1142 *widthp
= *heightp
= 0;
1145 *widthp
= size
.ws_col
;
1146 *heightp
= size
.ws_row
;
1149 #elif defined TIOCGSIZE
1151 /* SunOS - style. */
1152 struct ttysize size
;
1154 if (ioctl (fd
, TIOCGSIZE
, &size
) == -1)
1155 *widthp
= *heightp
= 0;
1158 *widthp
= size
.ts_cols
;
1159 *heightp
= size
.ts_lines
;
1162 #elif defined WINDOWSNT
1164 CONSOLE_SCREEN_BUFFER_INFO info
;
1165 if (GetConsoleScreenBufferInfo (GetStdHandle (STD_OUTPUT_HANDLE
), &info
))
1167 *widthp
= info
.srWindow
.Right
- info
.srWindow
.Left
+ 1;
1168 *heightp
= info
.srWindow
.Bottom
- info
.srWindow
.Top
+ 1;
1171 *widthp
= *heightp
= 0;
1175 *widthp
= ScreenCols ();
1176 *heightp
= ScreenRows ();
1178 #else /* system doesn't know size */
1186 /* Set the logical window size associated with descriptor FD
1187 to HEIGHT and WIDTH. This is used mainly with ptys. */
1190 set_window_size (int fd
, int height
, int width
)
1195 struct winsize size
;
1196 size
.ws_row
= height
;
1197 size
.ws_col
= width
;
1199 if (ioctl (fd
, TIOCSWINSZ
, &size
) == -1)
1200 return 0; /* error */
1207 /* SunOS - style. */
1208 struct ttysize size
;
1209 size
.ts_lines
= height
;
1210 size
.ts_cols
= width
;
1212 if (ioctl (fd
, TIOCGSIZE
, &size
) == -1)
1218 #endif /* not SunOS-style */
1219 #endif /* not BSD-style */
1224 /* Prepare all terminal devices for exiting Emacs. */
1227 reset_all_sys_modes (void)
1229 struct tty_display_info
*tty
;
1230 for (tty
= tty_list
; tty
; tty
= tty
->next
)
1231 reset_sys_modes (tty
);
1234 /* Prepare the terminal for closing it; move the cursor to the
1235 bottom of the frame, turn off interrupt-driven I/O, etc. */
1238 reset_sys_modes (struct tty_display_info
*tty_out
)
1245 if (!tty_out
->term_initted
)
1248 if (!tty_out
->output
)
1249 return; /* The tty is suspended. */
1251 /* Go to and clear the last line of the terminal. */
1253 cmgoto (tty_out
, FrameRows (tty_out
) - 1, 0);
1255 /* Code adapted from tty_clear_end_of_line. */
1256 if (tty_out
->TS_clr_line
)
1258 emacs_tputs (tty_out
, tty_out
->TS_clr_line
, 1, cmputc
);
1261 { /* have to do it the hard way */
1263 tty_turn_off_insert (tty_out
);
1265 for (i
= curX (tty_out
); i
< FrameCols (tty_out
) - 1; i
++)
1267 fputc (' ', tty_out
->output
);
1271 cmgoto (tty_out
, FrameRows (tty_out
) - 1, 0);
1272 fflush (tty_out
->output
);
1274 if (tty_out
->terminal
->reset_terminal_modes_hook
)
1275 tty_out
->terminal
->reset_terminal_modes_hook (tty_out
->terminal
);
1278 /* Avoid possible loss of output when changing terminal modes. */
1279 fsync (fileno (tty_out
->output
));
1283 #ifdef F_SETOWN /* F_SETFL does not imply existence of F_SETOWN */
1284 if (interrupt_input
)
1286 reset_sigio (fileno (tty_out
->input
));
1287 fcntl (fileno (tty_out
->input
), F_SETOWN
,
1288 old_fcntl_owner
[fileno (tty_out
->input
)]);
1290 #endif /* F_SETOWN */
1292 fcntl (fileno (tty_out
->input
), F_SETFL
,
1293 fcntl (fileno (tty_out
->input
), F_GETFL
, 0) & ~O_NDELAY
);
1295 #endif /* F_SETFL */
1297 if (tty_out
->old_tty
)
1298 while (emacs_set_tty (fileno (tty_out
->input
),
1299 tty_out
->old_tty
, 0) < 0 && errno
== EINTR
)
1302 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida */
1310 /* Set up the proper status flags for use of a pty. */
1315 /* I'm told that TOICREMOTE does not mean control chars
1316 "can't be sent" but rather that they don't have
1317 input-editing or signaling effects.
1318 That should be good, because we have other ways
1319 to do those things in Emacs.
1320 However, telnet mode seems not to work on 4.2.
1321 So TIOCREMOTE is turned off now. */
1323 /* Under hp-ux, if TIOCREMOTE is turned on, some calls
1324 will hang. In particular, the "timeout" feature (which
1325 causes a read to return if there is no data available)
1326 does this. Also it is known that telnet mode will hang
1327 in such a way that Emacs must be stopped (perhaps this
1328 is the same problem).
1330 If TIOCREMOTE is turned off, then there is a bug in
1331 hp-ux which sometimes loses data. Apparently the
1332 code which blocks the master process when the internal
1333 buffer fills up does not work. Other than this,
1334 though, everything else seems to work fine.
1336 Since the latter lossage is more benign, we may as well
1337 lose that way. -- cph */
1339 #if defined (UNIX98_PTYS)
1342 ioctl (fd
, FIONBIO
, &on
);
1347 #endif /* HAVE_PTYS */
1350 #include <sys/socket.h>
1352 #endif /* HAVE_SOCKETS */
1355 #ifndef HAVE_H_ERRNO
1358 #endif /* TRY_AGAIN */
1361 init_system_name (void)
1363 #ifndef HAVE_GETHOSTNAME
1366 Vsystem_name
= build_string (uts
.nodename
);
1367 #else /* HAVE_GETHOSTNAME */
1368 unsigned int hostname_size
= 256;
1369 char *hostname
= (char *) alloca (hostname_size
);
1371 /* Try to get the host name; if the buffer is too short, try
1372 again. Apparently, the only indication gethostname gives of
1373 whether the buffer was large enough is the presence or absence
1374 of a '\0' in the string. Eech. */
1377 gethostname (hostname
, hostname_size
- 1);
1378 hostname
[hostname_size
- 1] = '\0';
1380 /* Was the buffer large enough for the '\0'? */
1381 if (strlen (hostname
) < hostname_size
- 1)
1384 hostname_size
<<= 1;
1385 hostname
= (char *) alloca (hostname_size
);
1388 /* Turn the hostname into the official, fully-qualified hostname.
1389 Don't do this if we're going to dump; this can confuse system
1390 libraries on some machines and make the dumped emacs core dump. */
1393 #endif /* not CANNOT_DUMP */
1394 if (! strchr (hostname
, '.'))
1397 #ifdef HAVE_GETADDRINFO
1398 struct addrinfo
*res
;
1399 struct addrinfo hints
;
1402 memset (&hints
, 0, sizeof (hints
));
1403 hints
.ai_socktype
= SOCK_STREAM
;
1404 hints
.ai_flags
= AI_CANONNAME
;
1406 for (count
= 0;; count
++)
1408 if ((ret
= getaddrinfo (hostname
, NULL
, &hints
, &res
)) == 0
1409 || ret
!= EAI_AGAIN
)
1414 Fsleep_for (make_number (1), Qnil
);
1419 struct addrinfo
*it
= res
;
1422 char *fqdn
= it
->ai_canonname
;
1423 if (fqdn
&& strchr (fqdn
, '.')
1424 && strcmp (fqdn
, "localhost.localdomain") != 0)
1430 hostname
= alloca (strlen (it
->ai_canonname
) + 1);
1431 strcpy (hostname
, it
->ai_canonname
);
1435 #else /* !HAVE_GETADDRINFO */
1437 for (count
= 0;; count
++)
1443 hp
= gethostbyname (hostname
);
1445 if (! (hp
== 0 && h_errno
== TRY_AGAIN
))
1452 Fsleep_for (make_number (1), Qnil
);
1457 char *fqdn
= (char *) hp
->h_name
;
1459 if (!strchr (fqdn
, '.'))
1461 /* We still don't have a fully qualified domain name.
1462 Try to find one in the list of alternate names */
1463 char **alias
= hp
->h_aliases
;
1465 && (!strchr (*alias
, '.')
1466 || !strcmp (*alias
, "localhost.localdomain")))
1473 #endif /* !HAVE_GETADDRINFO */
1475 #endif /* HAVE_SOCKETS */
1476 Vsystem_name
= build_string (hostname
);
1477 #endif /* HAVE_GETHOSTNAME */
1480 for (p
= SDATA (Vsystem_name
); *p
; p
++)
1481 if (*p
== ' ' || *p
== '\t')
1486 /* POSIX signals support - DJB */
1487 /* Anyone with POSIX signals should have ANSI C declarations */
1489 sigset_t empty_mask
;
1494 sys_signal (int signal_number
, signal_handler_t action
)
1496 struct sigaction new_action
, old_action
;
1497 sigemptyset (&new_action
.sa_mask
);
1498 new_action
.sa_handler
= action
;
1499 new_action
.sa_flags
= 0;
1500 #if defined (SA_RESTART)
1501 /* Emacs mostly works better with restartable system services. If this
1502 flag exists, we probably want to turn it on here.
1503 However, on some systems this resets the timeout of `select'
1504 which means that `select' never finishes if it keeps getting signals.
1505 BROKEN_SA_RESTART is defined on those systems. */
1506 /* It's not clear why the comment above says "mostly works better". --Stef
1507 When SYNC_INPUT is set, we don't want SA_RESTART because we need to poll
1508 for pending input so we need long-running syscalls to be interrupted
1509 after a signal that sets the interrupt_input_pending flag. */
1510 /* Non-interactive keyboard input goes through stdio, where we always
1511 want restartable system calls. */
1512 # if defined (BROKEN_SA_RESTART) || defined (SYNC_INPUT)
1515 new_action
.sa_flags
= SA_RESTART
;
1517 sigaction (signal_number
, &new_action
, &old_action
);
1518 return (old_action
.sa_handler
);
1521 #endif /* WINDOWSNT */
1524 /* If we're compiling with GCC, we don't need this function, since it
1525 can be written as a macro. */
1527 sys_sigmask (int sig
)
1530 sigemptyset (&mask
);
1531 sigaddset (&mask
, sig
);
1536 /* I'd like to have these guys return pointers to the mask storage in here,
1537 but there'd be trouble if the code was saving multiple masks. I'll be
1538 safe and pass the structure. It normally won't be more than 2 bytes
1542 sys_sigblock (sigset_t new_mask
)
1545 pthread_sigmask (SIG_BLOCK
, &new_mask
, &old_mask
);
1550 sys_sigunblock (sigset_t new_mask
)
1553 pthread_sigmask (SIG_UNBLOCK
, &new_mask
, &old_mask
);
1558 sys_sigsetmask (sigset_t new_mask
)
1561 pthread_sigmask (SIG_SETMASK
, &new_mask
, &old_mask
);
1566 #if !defined HAVE_STRSIGNAL && !HAVE_DECL_SYS_SIGLIST
1567 static char *my_sys_siglist
[NSIG
];
1571 # define sys_siglist my_sys_siglist
1577 sigemptyset (&empty_mask
);
1579 #if !defined HAVE_STRSIGNAL && !HAVE_DECL_SYS_SIGLIST
1583 sys_siglist
[SIGABRT
] = "Aborted";
1586 sys_siglist
[SIGAIO
] = "LAN I/O interrupt";
1589 sys_siglist
[SIGALRM
] = "Alarm clock";
1592 sys_siglist
[SIGBUS
] = "Bus error";
1595 sys_siglist
[SIGCLD
] = "Child status changed";
1598 sys_siglist
[SIGCHLD
] = "Child status changed";
1601 sys_siglist
[SIGCONT
] = "Continued";
1604 sys_siglist
[SIGDANGER
] = "Swap space dangerously low";
1607 sys_siglist
[SIGDGNOTIFY
] = "Notification message in queue";
1610 sys_siglist
[SIGEMT
] = "Emulation trap";
1613 sys_siglist
[SIGFPE
] = "Arithmetic exception";
1616 sys_siglist
[SIGFREEZE
] = "SIGFREEZE";
1619 sys_siglist
[SIGGRANT
] = "Monitor mode granted";
1622 sys_siglist
[SIGHUP
] = "Hangup";
1625 sys_siglist
[SIGILL
] = "Illegal instruction";
1628 sys_siglist
[SIGINT
] = "Interrupt";
1631 sys_siglist
[SIGIO
] = "I/O possible";
1634 sys_siglist
[SIGIOINT
] = "I/O intervention required";
1637 sys_siglist
[SIGIOT
] = "IOT trap";
1640 sys_siglist
[SIGKILL
] = "Killed";
1643 sys_siglist
[SIGLOST
] = "Resource lost";
1646 sys_siglist
[SIGLWP
] = "SIGLWP";
1649 sys_siglist
[SIGMSG
] = "Monitor mode data available";
1652 sys_siglist
[SIGWIND
] = "SIGPHONE";
1655 sys_siglist
[SIGPIPE
] = "Broken pipe";
1658 sys_siglist
[SIGPOLL
] = "Pollable event occurred";
1661 sys_siglist
[SIGPROF
] = "Profiling timer expired";
1664 sys_siglist
[SIGPTY
] = "PTY I/O interrupt";
1667 sys_siglist
[SIGPWR
] = "Power-fail restart";
1670 sys_siglist
[SIGQUIT
] = "Quit";
1673 sys_siglist
[SIGRETRACT
] = "Need to relinquish monitor mode";
1676 sys_siglist
[SIGSAK
] = "Secure attention";
1679 sys_siglist
[SIGSEGV
] = "Segmentation violation";
1682 sys_siglist
[SIGSOUND
] = "Sound completed";
1685 sys_siglist
[SIGSTOP
] = "Stopped (signal)";
1688 sys_siglist
[SIGSTP
] = "Stopped (user)";
1691 sys_siglist
[SIGSYS
] = "Bad argument to system call";
1694 sys_siglist
[SIGTERM
] = "Terminated";
1697 sys_siglist
[SIGTHAW
] = "SIGTHAW";
1700 sys_siglist
[SIGTRAP
] = "Trace/breakpoint trap";
1703 sys_siglist
[SIGTSTP
] = "Stopped (user)";
1706 sys_siglist
[SIGTTIN
] = "Stopped (tty input)";
1709 sys_siglist
[SIGTTOU
] = "Stopped (tty output)";
1712 sys_siglist
[SIGURG
] = "Urgent I/O condition";
1715 sys_siglist
[SIGUSR1
] = "User defined signal 1";
1718 sys_siglist
[SIGUSR2
] = "User defined signal 2";
1721 sys_siglist
[SIGVTALRM
] = "Virtual timer expired";
1724 sys_siglist
[SIGWAITING
] = "Process's LWPs are blocked";
1727 sys_siglist
[SIGWINCH
] = "Window size changed";
1730 sys_siglist
[SIGWIND
] = "SIGWIND";
1733 sys_siglist
[SIGXCPU
] = "CPU time limit exceeded";
1736 sys_siglist
[SIGXFSZ
] = "File size limit exceeded";
1739 #endif /* !defined HAVE_STRSIGNAL && !defined HAVE_DECL_SYS_SIGLIST */
1748 /* Figure out how many bits the system's random number generator uses.
1749 `random' and `lrand48' are assumed to return 31 usable bits.
1750 BSD `rand' returns a 31 bit value but the low order bits are unusable;
1751 so we'll shift it and treat it like the 15-bit USG `rand'. */
1755 # define RAND_BITS 31
1756 # else /* !HAVE_RANDOM */
1757 # ifdef HAVE_LRAND48
1758 # define RAND_BITS 31
1759 # define random lrand48
1760 # else /* !HAVE_LRAND48 */
1761 # define RAND_BITS 15
1762 # if RAND_MAX == 32767
1763 # define random rand
1764 # else /* RAND_MAX != 32767 */
1765 # if RAND_MAX == 2147483647
1766 # define random() (rand () >> 16)
1767 # else /* RAND_MAX != 2147483647 */
1769 # define random rand
1771 # define random() (rand () >> 16)
1773 # endif /* RAND_MAX != 2147483647 */
1774 # endif /* RAND_MAX != 32767 */
1775 # endif /* !HAVE_LRAND48 */
1776 # endif /* !HAVE_RANDOM */
1777 #endif /* !RAND_BITS */
1780 seed_random (long int arg
)
1783 srandom ((unsigned int)arg
);
1785 # ifdef HAVE_LRAND48
1788 srand ((unsigned int)arg
);
1794 * Return a nonnegative random integer out of whatever we've got.
1795 * It contains enough bits to make a random (signed) Emacs fixnum.
1796 * This suffices even for a 64-bit architecture with a 15-bit rand.
1803 for (i
= 0; i
< (FIXNUM_BITS
+ RAND_BITS
- 1) / RAND_BITS
; i
++)
1804 val
= (random () ^ (val
<< RAND_BITS
)
1805 ^ (val
>> (BITS_PER_EMACS_INT
- RAND_BITS
)));
1806 val
^= val
>> (BITS_PER_EMACS_INT
- FIXNUM_BITS
);
1807 return val
& INTMASK
;
1810 #ifndef HAVE_STRERROR
1813 strerror (int errnum
)
1815 extern char *sys_errlist
[];
1816 extern int sys_nerr
;
1818 if (errnum
>= 0 && errnum
< sys_nerr
)
1819 return sys_errlist
[errnum
];
1820 return (char *) "Unknown error";
1822 #endif /* not WINDOWSNT */
1823 #endif /* ! HAVE_STRERROR */
1825 #ifndef HAVE_SNPRINTF
1826 /* Approximate snprintf as best we can on ancient hosts that lack it. */
1828 snprintf (char *buf
, size_t bufsize
, char const *format
, ...)
1830 ptrdiff_t size
= min (bufsize
, PTRDIFF_MAX
);
1831 ptrdiff_t nbytes
= size
- 1;
1836 va_start (ap
, format
);
1837 nbytes
= doprnt (buf
, size
, format
, 0, ap
);
1841 if (nbytes
== size
- 1)
1843 /* Calculate the length of the string that would have been created
1844 had the buffer been large enough. */
1845 char stackbuf
[4000];
1847 ptrdiff_t bsize
= sizeof stackbuf
;
1848 va_start (ap
, format
);
1849 nbytes
= evxprintf (&b
, &bsize
, stackbuf
, -1, format
, ap
);
1855 if (INT_MAX
< nbytes
)
1869 emacs_open (const char *path
, int oflag
, int mode
)
1871 register int rtnval
;
1873 while ((rtnval
= open (path
, oflag
, mode
)) == -1
1874 && (errno
== EINTR
))
1880 emacs_close (int fd
)
1883 register int rtnval
;
1885 while ((rtnval
= close (fd
)) == -1
1886 && (errno
== EINTR
))
1889 /* If close is interrupted SunOS 4.1 may or may not have closed the
1890 file descriptor. If it did the second close will fail with
1891 errno = EBADF. That means we have succeeded. */
1892 if (rtnval
== -1 && did_retry
&& errno
== EBADF
)
1898 /* Maximum number of bytes to read or write in a single system call.
1899 This works around a serious bug in Linux kernels before 2.6.16; see
1900 <https://bugzilla.redhat.com/show_bug.cgi?format=multiple&id=612839>.
1901 It's likely to work around similar bugs in other operating systems, so do it
1902 on all platforms. Round INT_MAX down to a page size, with the conservative
1903 assumption that page sizes are at most 2**18 bytes (any kernel with a
1904 page size larger than that shouldn't have the bug). */
1905 #ifndef MAX_RW_COUNT
1906 #define MAX_RW_COUNT (INT_MAX >> 18 << 18)
1909 /* Read from FILEDESC to a buffer BUF with size NBYTE, retrying if interrupted.
1910 Return the number of bytes read, which might be less than NBYTE.
1911 On error, set errno and return -1. */
1913 emacs_read (int fildes
, char *buf
, EMACS_INT nbyte
)
1915 register ssize_t rtnval
;
1917 /* There is no need to check against MAX_RW_COUNT, since no caller ever
1918 passes a size that large to emacs_read. */
1920 while ((rtnval
= read (fildes
, buf
, nbyte
)) == -1
1921 && (errno
== EINTR
))
1926 /* Write to FILEDES from a buffer BUF with size NBYTE, retrying if interrupted
1927 or if a partial write occurs. Return the number of bytes written, setting
1928 errno if this is less than NBYTE. */
1930 emacs_write (int fildes
, const char *buf
, EMACS_INT nbyte
)
1933 EMACS_INT bytes_written
;
1939 rtnval
= write (fildes
, buf
, min (nbyte
, MAX_RW_COUNT
));
1946 /* I originally used `QUIT' but that might causes files to
1947 be truncated if you hit C-g in the middle of it. --Stef */
1948 process_pending_signals ();
1958 bytes_written
+= rtnval
;
1961 return (bytes_written
);
1964 static struct allocator
const emacs_norealloc_allocator
=
1965 { xmalloc
, NULL
, xfree
, memory_full
};
1967 /* Get the symbolic link value of FILENAME. Return a pointer to a
1968 NUL-terminated string. If readlink fails, return NULL and set
1969 errno. If the value fits in INITIAL_BUF, return INITIAL_BUF.
1970 Otherwise, allocate memory and return a pointer to that memory. If
1971 memory allocation fails, diagnose and fail without returning. If
1972 successful, store the length of the symbolic link into *LINKLEN. */
1974 emacs_readlink (char const *filename
, char initial_buf
[READLINK_BUFSIZE
])
1976 return careadlinkat (AT_FDCWD
, filename
, initial_buf
, READLINK_BUFSIZE
,
1977 &emacs_norealloc_allocator
, careadlinkatcwd
);
1982 * All of the following are for USG.
1984 * On USG systems the system calls are INTERRUPTIBLE by signals
1985 * that the user program has elected to catch. Thus the system call
1986 * must be retried in these cases. To handle this without massive
1987 * changes in the source code, we remap the standard system call names
1988 * to names for our own functions in sysdep.c that do the system call
1989 * with retries. Actually, for portability reasons, it is good
1990 * programming practice, as this example shows, to limit all actual
1991 * system calls to a single occurrence in the source. Sure, this
1992 * adds an extra level of function call overhead but it is almost
1993 * always negligible. Fred Fish, Unisoft Systems Inc.
1997 * Warning, this function may not duplicate 4.2 action properly
1998 * under error conditions.
2004 /* In 4.1, param.h fails to define this. */
2005 #define MAXPATHLEN 1024
2009 getwd (char *pathname
)
2011 char *npath
, *spath
;
2012 extern char *getcwd (char *, size_t);
2014 BLOCK_INPUT
; /* getcwd uses malloc */
2015 spath
= npath
= getcwd ((char *) 0, MAXPATHLEN
);
2021 /* On Altos 3068, getcwd can return @hostname/dir, so discard
2022 up to first slash. Should be harmless on other systems. */
2023 while (*npath
&& *npath
!= '/')
2025 strcpy (pathname
, npath
);
2026 free (spath
); /* getcwd uses malloc */
2031 #endif /* HAVE_GETWD */
2034 * Emulate rename using unlink/link. Note that this is
2035 * only partially correct. Also, doesn't enforce restriction
2036 * that files be of same type (regular->regular, dir->dir, etc).
2042 rename (const char *from
, const char *to
)
2044 if (access (from
, 0) == 0)
2047 if (link (from
, to
) == 0)
2048 if (unlink (from
) == 0)
2057 #if defined (HPUX) && !defined (HAVE_PERROR)
2059 /* HPUX curses library references perror, but as far as we know
2060 it won't be called. Anyway this definition will do for now. */
2066 #endif /* HPUX and not HAVE_PERROR */
2069 * Gettimeofday. Simulate as much as possible. Only accurate
2070 * to nearest second. Emacs doesn't use tzp so ignore it for now.
2071 * Only needed when subprocesses are defined.
2074 #ifndef HAVE_GETTIMEOFDAY
2078 gettimeofday (struct timeval
*tp
, struct timezone
*tzp
)
2080 extern long time (long);
2082 tp
->tv_sec
= time ((long *)0);
2085 tzp
->tz_minuteswest
= -1;
2090 #endif /* !HAVE_GETTIMEOFDAY && HAVE_TIMEVAL */
2093 * This function will go away as soon as all the stubs fixed. (fnf)
2097 croak (char *badfunc
)
2099 printf ("%s not yet implemented\r\n", badfunc
);
2100 reset_all_sys_modes ();
2106 /* Directory routines for systems that don't have them. */
2108 #ifdef HAVE_DIRENT_H
2112 #if !defined (HAVE_CLOSEDIR)
2115 closedir (DIR *dirp
/* stream from opendir */)
2119 rtnval
= emacs_close (dirp
->dd_fd
);
2120 xfree ((char *) dirp
);
2124 #endif /* not HAVE_CLOSEDIR */
2125 #endif /* HAVE_DIRENT_H */
2129 set_file_times (const char *filename
, EMACS_TIME atime
, EMACS_TIME mtime
)
2132 struct timeval tv
[2];
2135 return utimes (filename
, tv
);
2136 #else /* not HAVE_UTIMES */
2138 utb
.actime
= EMACS_SECS (atime
);
2139 utb
.modtime
= EMACS_SECS (mtime
);
2140 return utime (filename
, &utb
);
2141 #endif /* not HAVE_UTIMES */
2144 /* mkdir and rmdir functions, for systems which don't have them. */
2148 * Written by Robert Rother, Mariah Corporation, August 1985.
2150 * If you want it, it's yours. All I ask in return is that if you
2151 * figure out how to do this in a Bourne Shell script you send me
2153 * sdcsvax!rmr or rmr@uscd
2155 * Severely hacked over by John Gilmore to make a 4.2BSD compatible
2156 * subroutine. 11Mar86; hoptoad!gnu
2158 * Modified by rmtodd@uokmax 6-28-87 -- when making an already existing dir,
2159 * subroutine didn't return EEXIST. It does now.
2166 mkdir (char *dpath
, int dmode
)
2168 int cpid
, status
, fd
;
2169 struct stat statbuf
;
2171 if (stat (dpath
, &statbuf
) == 0)
2173 errno
= EEXIST
; /* Stat worked, so it already exists */
2177 /* If stat fails for a reason other than non-existence, return error */
2178 if (errno
!= ENOENT
)
2181 synch_process_alive
= 1;
2182 switch (cpid
= fork ())
2185 case -1: /* Error in fork */
2186 return (-1); /* Errno is set already */
2188 case 0: /* Child process */
2190 * Cheap hack to set mode of new directory. Since this
2191 * child process is going away anyway, we zap its umask.
2192 * FIXME, this won't suffice to set SUID, SGID, etc. on this
2193 * directory. Does anybody care?
2195 status
= umask (0); /* Get current umask */
2196 status
= umask (status
| (0777 & ~dmode
)); /* Set for mkdir */
2197 fd
= emacs_open ("/dev/null", O_RDWR
, 0);
2204 execl ("/bin/mkdir", "mkdir", dpath
, (char *) 0);
2205 _exit (-1); /* Can't exec /bin/mkdir */
2207 default: /* Parent process */
2208 wait_for_termination (cpid
);
2211 if (synch_process_death
!= 0 || synch_process_retcode
!= 0
2212 || synch_process_termsig
!= 0)
2214 errno
= EIO
; /* We don't know why, but */
2215 return -1; /* /bin/mkdir failed */
2220 #endif /* not HAVE_MKDIR */
2226 int cpid
, status
, fd
;
2227 struct stat statbuf
;
2229 if (stat (dpath
, &statbuf
) != 0)
2231 /* Stat just set errno. We don't have to */
2235 synch_process_alive
= 1;
2236 switch (cpid
= fork ())
2239 case -1: /* Error in fork */
2240 return (-1); /* Errno is set already */
2242 case 0: /* Child process */
2243 fd
= emacs_open ("/dev/null", O_RDWR
, 0);
2250 execl ("/bin/rmdir", "rmdir", dpath
, (char *) 0);
2251 _exit (-1); /* Can't exec /bin/rmdir */
2253 default: /* Parent process */
2254 wait_for_termination (cpid
);
2257 if (synch_process_death
!= 0 || synch_process_retcode
!= 0
2258 || synch_process_termsig
!= 0)
2260 errno
= EIO
; /* We don't know why, but */
2261 return -1; /* /bin/rmdir failed */
2266 #endif /* !HAVE_RMDIR */
2269 #ifndef HAVE_STRSIGNAL
2271 strsignal (int code
)
2275 if (0 <= code
&& code
< NSIG
)
2277 /* Cast to suppress warning if the table has const char *. */
2278 signame
= (char *) sys_siglist
[code
];
2283 #endif /* HAVE_STRSIGNAL */
2286 /* For make-serial-process */
2288 serial_open (char *port
)
2292 fd
= emacs_open ((char*) port
,
2305 error ("Could not open %s: %s",
2306 port
, emacs_strerror (errno
));
2309 ioctl (fd
, TIOCEXCL
, (char *) 0);
2315 #if !defined (HAVE_CFMAKERAW)
2316 /* Workaround for targets which are missing cfmakeraw. */
2317 /* Pasted from man page. */
2319 cfmakeraw (struct termios
*termios_p
)
2321 termios_p
->c_iflag
&= ~(IGNBRK
|BRKINT
|PARMRK
|ISTRIP
|INLCR
|IGNCR
|ICRNL
|IXON
);
2322 termios_p
->c_oflag
&= ~OPOST
;
2323 termios_p
->c_lflag
&= ~(ECHO
|ECHONL
|ICANON
|ISIG
|IEXTEN
);
2324 termios_p
->c_cflag
&= ~(CSIZE
|PARENB
);
2325 termios_p
->c_cflag
|= CS8
;
2327 #endif /* !defined (HAVE_CFMAKERAW */
2329 #if !defined (HAVE_CFSETSPEED)
2330 /* Workaround for targets which are missing cfsetspeed. */
2332 cfsetspeed (struct termios
*termios_p
, speed_t vitesse
)
2334 return (cfsetispeed (termios_p
, vitesse
)
2335 + cfsetospeed (termios_p
, vitesse
));
2339 /* For serial-process-configure */
2341 serial_configure (struct Lisp_Process
*p
,
2342 Lisp_Object contact
)
2344 Lisp_Object childp2
= Qnil
;
2345 Lisp_Object tem
= Qnil
;
2346 struct termios attr
;
2348 char summary
[4] = "???"; /* This usually becomes "8N1". */
2350 childp2
= Fcopy_sequence (p
->childp
);
2352 /* Read port attributes and prepare default configuration. */
2353 err
= tcgetattr (p
->outfd
, &attr
);
2355 error ("tcgetattr() failed: %s", emacs_strerror (errno
));
2357 #if defined (CLOCAL)
2358 attr
.c_cflag
|= CLOCAL
;
2361 attr
.c_cflag
|= CREAD
;
2364 /* Configure speed. */
2365 if (!NILP (Fplist_member (contact
, QCspeed
)))
2366 tem
= Fplist_get (contact
, QCspeed
);
2368 tem
= Fplist_get (p
->childp
, QCspeed
);
2370 err
= cfsetspeed (&attr
, XINT (tem
));
2372 error ("cfsetspeed(%"pI
"d) failed: %s", XINT (tem
),
2373 emacs_strerror (errno
));
2374 childp2
= Fplist_put (childp2
, QCspeed
, tem
);
2376 /* Configure bytesize. */
2377 if (!NILP (Fplist_member (contact
, QCbytesize
)))
2378 tem
= Fplist_get (contact
, QCbytesize
);
2380 tem
= Fplist_get (p
->childp
, QCbytesize
);
2382 tem
= make_number (8);
2384 if (XINT (tem
) != 7 && XINT (tem
) != 8)
2385 error (":bytesize must be nil (8), 7, or 8");
2386 summary
[0] = XINT (tem
) + '0';
2387 #if defined (CSIZE) && defined (CS7) && defined (CS8)
2388 attr
.c_cflag
&= ~CSIZE
;
2389 attr
.c_cflag
|= ((XINT (tem
) == 7) ? CS7
: CS8
);
2391 /* Don't error on bytesize 8, which should be set by cfmakeraw. */
2392 if (XINT (tem
) != 8)
2393 error ("Bytesize cannot be changed");
2395 childp2
= Fplist_put (childp2
, QCbytesize
, tem
);
2397 /* Configure parity. */
2398 if (!NILP (Fplist_member (contact
, QCparity
)))
2399 tem
= Fplist_get (contact
, QCparity
);
2401 tem
= Fplist_get (p
->childp
, QCparity
);
2402 if (!NILP (tem
) && !EQ (tem
, Qeven
) && !EQ (tem
, Qodd
))
2403 error (":parity must be nil (no parity), `even', or `odd'");
2404 #if defined (PARENB) && defined (PARODD) && defined (IGNPAR) && defined (INPCK)
2405 attr
.c_cflag
&= ~(PARENB
| PARODD
);
2406 attr
.c_iflag
&= ~(IGNPAR
| INPCK
);
2411 else if (EQ (tem
, Qeven
))
2414 attr
.c_cflag
|= PARENB
;
2415 attr
.c_iflag
|= (IGNPAR
| INPCK
);
2417 else if (EQ (tem
, Qodd
))
2420 attr
.c_cflag
|= (PARENB
| PARODD
);
2421 attr
.c_iflag
|= (IGNPAR
| INPCK
);
2424 /* Don't error on no parity, which should be set by cfmakeraw. */
2426 error ("Parity cannot be configured");
2428 childp2
= Fplist_put (childp2
, QCparity
, tem
);
2430 /* Configure stopbits. */
2431 if (!NILP (Fplist_member (contact
, QCstopbits
)))
2432 tem
= Fplist_get (contact
, QCstopbits
);
2434 tem
= Fplist_get (p
->childp
, QCstopbits
);
2436 tem
= make_number (1);
2438 if (XINT (tem
) != 1 && XINT (tem
) != 2)
2439 error (":stopbits must be nil (1 stopbit), 1, or 2");
2440 summary
[2] = XINT (tem
) + '0';
2441 #if defined (CSTOPB)
2442 attr
.c_cflag
&= ~CSTOPB
;
2443 if (XINT (tem
) == 2)
2444 attr
.c_cflag
|= CSTOPB
;
2446 /* Don't error on 1 stopbit, which should be set by cfmakeraw. */
2447 if (XINT (tem
) != 1)
2448 error ("Stopbits cannot be configured");
2450 childp2
= Fplist_put (childp2
, QCstopbits
, tem
);
2452 /* Configure flowcontrol. */
2453 if (!NILP (Fplist_member (contact
, QCflowcontrol
)))
2454 tem
= Fplist_get (contact
, QCflowcontrol
);
2456 tem
= Fplist_get (p
->childp
, QCflowcontrol
);
2457 if (!NILP (tem
) && !EQ (tem
, Qhw
) && !EQ (tem
, Qsw
))
2458 error (":flowcontrol must be nil (no flowcontrol), `hw', or `sw'");
2459 #if defined (CRTSCTS)
2460 attr
.c_cflag
&= ~CRTSCTS
;
2462 #if defined (CNEW_RTSCTS)
2463 attr
.c_cflag
&= ~CNEW_RTSCTS
;
2465 #if defined (IXON) && defined (IXOFF)
2466 attr
.c_iflag
&= ~(IXON
| IXOFF
);
2470 /* Already configured. */
2472 else if (EQ (tem
, Qhw
))
2474 #if defined (CRTSCTS)
2475 attr
.c_cflag
|= CRTSCTS
;
2476 #elif defined (CNEW_RTSCTS)
2477 attr
.c_cflag
|= CNEW_RTSCTS
;
2479 error ("Hardware flowcontrol (RTS/CTS) not supported");
2482 else if (EQ (tem
, Qsw
))
2484 #if defined (IXON) && defined (IXOFF)
2485 attr
.c_iflag
|= (IXON
| IXOFF
);
2487 error ("Software flowcontrol (XON/XOFF) not supported");
2490 childp2
= Fplist_put (childp2
, QCflowcontrol
, tem
);
2492 /* Activate configuration. */
2493 err
= tcsetattr (p
->outfd
, TCSANOW
, &attr
);
2495 error ("tcsetattr() failed: %s", emacs_strerror (errno
));
2497 childp2
= Fplist_put (childp2
, QCsummary
, build_string (summary
));
2498 p
->childp
= childp2
;
2501 #endif /* not DOS_NT */
2503 /* System depended enumeration of and access to system processes a-la ps(1). */
2507 /* Process enumeration and access via /proc. */
2510 list_system_processes (void)
2512 Lisp_Object procdir
, match
, proclist
, next
;
2513 struct gcpro gcpro1
, gcpro2
;
2514 register Lisp_Object tail
;
2516 GCPRO2 (procdir
, match
);
2517 /* For every process on the system, there's a directory in the
2518 "/proc" pseudo-directory whose name is the numeric ID of that
2520 procdir
= build_string ("/proc");
2521 match
= build_string ("[0-9]+");
2522 proclist
= directory_files_internal (procdir
, Qnil
, match
, Qt
, 0, Qnil
);
2524 /* `proclist' gives process IDs as strings. Destructively convert
2525 each string into a number. */
2526 for (tail
= proclist
; CONSP (tail
); tail
= next
)
2529 XSETCAR (tail
, Fstring_to_number (XCAR (tail
), Qnil
));
2533 /* directory_files_internal returns the files in reverse order; undo
2535 proclist
= Fnreverse (proclist
);
2539 #elif defined (__FreeBSD__)
2542 list_system_processes ()
2544 int mib
[] = {CTL_KERN
, KERN_PROC
, KERN_PROC_PROC
};
2546 struct kinfo_proc
*procs
;
2549 struct gcpro gcpro1
;
2550 Lisp_Object proclist
= Qnil
;
2552 if (sysctl (mib
, 3, NULL
, &len
, NULL
, 0) != 0)
2555 procs
= xmalloc (len
);
2556 if (sysctl (mib
, 3, procs
, &len
, NULL
, 0) != 0)
2563 len
/= sizeof (struct kinfo_proc
);
2564 for (i
= 0; i
< len
; i
++)
2565 proclist
= Fcons (make_fixnum_or_float (procs
[i
].ki_pid
), proclist
);
2573 /* The WINDOWSNT implementation is in w32.c.
2574 The MSDOS implementation is in dosfns.c. */
2575 #elif !defined (WINDOWSNT) && !defined (MSDOS)
2578 list_system_processes (void)
2583 #endif /* !defined (WINDOWSNT) */
2587 time_from_jiffies (unsigned long long tval
, long hz
,
2588 time_t *sec
, unsigned *usec
)
2590 unsigned long long ullsec
;
2594 tval
-= ullsec
* hz
;
2595 /* Careful: if HZ > 1 million, then integer division by it yields zero. */
2597 *usec
= tval
* 1000000 / hz
;
2599 *usec
= tval
/ (hz
/ 1000000);
2603 ltime_from_jiffies (unsigned long long tval
, long hz
)
2608 time_from_jiffies (tval
, hz
, &sec
, &usec
);
2610 return list3 (make_number ((sec
>> 16) & 0xffff),
2611 make_number (sec
& 0xffff),
2612 make_number (usec
));
2616 get_up_time (time_t *sec
, unsigned *usec
)
2623 fup
= fopen ("/proc/uptime", "r");
2627 double uptime
, idletime
;
2629 /* The numbers in /proc/uptime use C-locale decimal point, but
2630 we already set ourselves to the C locale (see `fixup_locale'
2632 if (2 <= fscanf (fup
, "%lf %lf", &uptime
, &idletime
))
2635 *usec
= (uptime
- *sec
) * 1000000;
2642 #define MAJOR(d) (((unsigned)(d) >> 8) & 0xfff)
2643 #define MINOR(d) (((unsigned)(d) & 0xff) | (((unsigned)(d) & 0xfff00000) >> 12))
2646 procfs_ttyname (int rdev
)
2649 char name
[PATH_MAX
];
2652 fdev
= fopen ("/proc/tty/drivers", "r");
2657 unsigned long minor_beg
, minor_end
;
2658 char minor
[25]; /* 2 32-bit numbers + dash */
2661 while (!feof (fdev
) && !ferror (fdev
))
2663 if (3 <= fscanf (fdev
, "%*s %s %u %s %*s\n", name
, &major
, minor
)
2664 && major
== MAJOR (rdev
))
2666 minor_beg
= strtoul (minor
, &endp
, 0);
2668 minor_end
= minor_beg
;
2669 else if (*endp
== '-')
2670 minor_end
= strtoul (endp
+ 1, &endp
, 0);
2674 if (MINOR (rdev
) >= minor_beg
&& MINOR (rdev
) <= minor_end
)
2676 sprintf (name
+ strlen (name
), "%u", MINOR (rdev
));
2684 return build_string (name
);
2687 static unsigned long
2688 procfs_get_total_memory (void)
2691 unsigned long retval
= 2 * 1024 * 1024; /* default: 2GB */
2694 fmem
= fopen ("/proc/meminfo", "r");
2698 unsigned long entry_value
;
2699 char entry_name
[20]; /* the longest I saw is 13+1 */
2701 while (!feof (fmem
) && !ferror (fmem
))
2703 if (2 <= fscanf (fmem
, "%s %lu kB\n", entry_name
, &entry_value
)
2704 && strcmp (entry_name
, "MemTotal:") == 0)
2706 retval
= entry_value
;
2717 system_process_attributes (Lisp_Object pid
)
2719 char procfn
[PATH_MAX
], fn
[PATH_MAX
];
2723 long clocks_per_sec
;
2725 char procbuf
[1025], *p
, *q
;
2728 const char *cmd
= NULL
;
2729 char *cmdline
= NULL
;
2730 ptrdiff_t cmdsize
= 0, cmdline_size
;
2732 int proc_id
, ppid
, uid
, gid
, pgrp
, sess
, tty
, tpgid
, thcount
;
2733 unsigned long long u_time
, s_time
, cutime
, cstime
, start
;
2734 long priority
, niceness
, rss
;
2735 unsigned long minflt
, majflt
, cminflt
, cmajflt
, vsize
;
2738 EMACS_TIME tnow
, tstart
, tboot
, telapsed
;
2740 Lisp_Object attrs
= Qnil
;
2741 Lisp_Object cmd_str
, decoded_cmd
, tem
;
2742 struct gcpro gcpro1
, gcpro2
;
2743 EMACS_INT uid_eint
, gid_eint
;
2745 CHECK_NUMBER_OR_FLOAT (pid
);
2746 proc_id
= FLOATP (pid
) ? XFLOAT_DATA (pid
) : XINT (pid
);
2747 sprintf (procfn
, "/proc/%u", proc_id
);
2748 if (stat (procfn
, &st
) < 0)
2751 GCPRO2 (attrs
, decoded_cmd
);
2755 /* Use of EMACS_INT stops GCC whining about limited range of data type. */
2757 attrs
= Fcons (Fcons (Qeuid
, make_fixnum_or_float (uid_eint
)), attrs
);
2759 pw
= getpwuid (uid
);
2762 attrs
= Fcons (Fcons (Quser
, build_string (pw
->pw_name
)), attrs
);
2766 attrs
= Fcons (Fcons (Qegid
, make_fixnum_or_float (gid_eint
)), attrs
);
2768 gr
= getgrgid (gid
);
2771 attrs
= Fcons (Fcons (Qgroup
, build_string (gr
->gr_name
)), attrs
);
2773 strcpy (fn
, procfn
);
2774 procfn_end
= fn
+ strlen (fn
);
2775 strcpy (procfn_end
, "/stat");
2776 fd
= emacs_open (fn
, O_RDONLY
, 0);
2777 if (fd
>= 0 && (nread
= emacs_read (fd
, procbuf
, sizeof (procbuf
) - 1)) > 0)
2779 procbuf
[nread
] = '\0';
2782 p
= strchr (p
, '(');
2785 q
= strrchr (p
+ 1, ')');
2800 /* Command name is encoded in locale-coding-system; decode it. */
2801 cmd_str
= make_unibyte_string (cmd
, cmdsize
);
2802 decoded_cmd
= code_convert_string_norecord (cmd_str
,
2803 Vlocale_coding_system
, 0);
2804 attrs
= Fcons (Fcons (Qcomm
, decoded_cmd
), attrs
);
2808 EMACS_INT ppid_eint
, pgrp_eint
, sess_eint
, tpgid_eint
, thcount_eint
;
2810 /* state ppid pgrp sess tty tpgid . minflt cminflt majflt cmajflt utime stime cutime cstime priority nice thcount . start vsize rss */
2811 sscanf (p
, "%c %d %d %d %d %d %*u %lu %lu %lu %lu %Lu %Lu %Lu %Lu %ld %ld %d %*d %Lu %lu %ld",
2812 &c
, &ppid
, &pgrp
, &sess
, &tty
, &tpgid
,
2813 &minflt
, &cminflt
, &majflt
, &cmajflt
,
2814 &u_time
, &s_time
, &cutime
, &cstime
,
2815 &priority
, &niceness
, &thcount
, &start
, &vsize
, &rss
);
2820 state_str
[1] = '\0';
2821 tem
= build_string (state_str
);
2822 attrs
= Fcons (Fcons (Qstate
, tem
), attrs
);
2824 /* Stops GCC whining about limited range of data type. */
2829 thcount_eint
= thcount
;
2830 attrs
= Fcons (Fcons (Qppid
, make_fixnum_or_float (ppid_eint
)), attrs
);
2831 attrs
= Fcons (Fcons (Qpgrp
, make_fixnum_or_float (pgrp_eint
)), attrs
);
2832 attrs
= Fcons (Fcons (Qsess
, make_fixnum_or_float (sess_eint
)), attrs
);
2833 attrs
= Fcons (Fcons (Qttname
, procfs_ttyname (tty
)), attrs
);
2834 attrs
= Fcons (Fcons (Qtpgid
, make_fixnum_or_float (tpgid_eint
)), attrs
);
2835 attrs
= Fcons (Fcons (Qminflt
, make_fixnum_or_float (minflt
)), attrs
);
2836 attrs
= Fcons (Fcons (Qmajflt
, make_fixnum_or_float (majflt
)), attrs
);
2837 attrs
= Fcons (Fcons (Qcminflt
, make_fixnum_or_float (cminflt
)), attrs
);
2838 attrs
= Fcons (Fcons (Qcmajflt
, make_fixnum_or_float (cmajflt
)), attrs
);
2839 clocks_per_sec
= sysconf (_SC_CLK_TCK
);
2840 if (clocks_per_sec
< 0)
2841 clocks_per_sec
= 100;
2842 attrs
= Fcons (Fcons (Qutime
,
2843 ltime_from_jiffies (u_time
, clocks_per_sec
)),
2845 attrs
= Fcons (Fcons (Qstime
,
2846 ltime_from_jiffies (s_time
, clocks_per_sec
)),
2848 attrs
= Fcons (Fcons (Qtime
,
2849 ltime_from_jiffies (s_time
+ u_time
,
2852 attrs
= Fcons (Fcons (Qcutime
,
2853 ltime_from_jiffies (cutime
, clocks_per_sec
)),
2855 attrs
= Fcons (Fcons (Qcstime
,
2856 ltime_from_jiffies (cstime
, clocks_per_sec
)),
2858 attrs
= Fcons (Fcons (Qctime
,
2859 ltime_from_jiffies (cstime
+cutime
, clocks_per_sec
)),
2861 attrs
= Fcons (Fcons (Qpri
, make_number (priority
)), attrs
);
2862 attrs
= Fcons (Fcons (Qnice
, make_number (niceness
)), attrs
);
2863 attrs
= Fcons (Fcons (Qthcount
, make_fixnum_or_float (thcount_eint
)), attrs
);
2864 EMACS_GET_TIME (tnow
);
2865 get_up_time (&sec
, &usec
);
2866 EMACS_SET_SECS (telapsed
, sec
);
2867 EMACS_SET_USECS (telapsed
, usec
);
2868 EMACS_SUB_TIME (tboot
, tnow
, telapsed
);
2869 time_from_jiffies (start
, clocks_per_sec
, &sec
, &usec
);
2870 EMACS_SET_SECS (tstart
, sec
);
2871 EMACS_SET_USECS (tstart
, usec
);
2872 EMACS_ADD_TIME (tstart
, tboot
, tstart
);
2873 attrs
= Fcons (Fcons (Qstart
,
2875 ((EMACS_SECS (tstart
) >> 16) & 0xffff),
2877 (EMACS_SECS (tstart
) & 0xffff),
2879 (EMACS_USECS (tstart
)))),
2881 attrs
= Fcons (Fcons (Qvsize
, make_fixnum_or_float (vsize
/1024)), attrs
);
2882 attrs
= Fcons (Fcons (Qrss
, make_fixnum_or_float (4*rss
)), attrs
);
2883 EMACS_SUB_TIME (telapsed
, tnow
, tstart
);
2884 attrs
= Fcons (Fcons (Qetime
,
2886 ((EMACS_SECS (telapsed
) >> 16) & 0xffff),
2888 (EMACS_SECS (telapsed
) & 0xffff),
2890 (EMACS_USECS (telapsed
)))),
2892 time_from_jiffies (u_time
+ s_time
, clocks_per_sec
, &sec
, &usec
);
2893 pcpu
= (sec
+ usec
/ 1000000.0) / (EMACS_SECS (telapsed
) + EMACS_USECS (telapsed
) / 1000000.0);
2896 attrs
= Fcons (Fcons (Qpcpu
, make_float (100 * pcpu
)), attrs
);
2897 pmem
= 4.0 * 100 * rss
/ procfs_get_total_memory ();
2900 attrs
= Fcons (Fcons (Qpmem
, make_float (pmem
)), attrs
);
2907 strcpy (procfn_end
, "/cmdline");
2908 fd
= emacs_open (fn
, O_RDONLY
, 0);
2912 for (cmdline_size
= 0; cmdline_size
< STRING_BYTES_BOUND
; cmdline_size
++)
2914 if (emacs_read (fd
, &ch
, 1) != 1)
2917 if (isspace (c
) || c
== '\\')
2918 cmdline_size
++; /* for later quoting, see below */
2922 cmdline
= xmalloc (cmdline_size
+ 1);
2923 lseek (fd
, 0L, SEEK_SET
);
2925 if ((nread
= read (fd
, cmdline
, cmdline_size
)) >= 0)
2926 cmdline
[nread
++] = '\0';
2929 /* Assigning zero to `nread' makes us skip the following
2930 two loops, assign zero to cmdline_size, and enter the
2931 following `if' clause that handles unknown command
2935 /* We don't want trailing null characters. */
2936 for (p
= cmdline
+ nread
; p
> cmdline
+ 1 && !p
[-1]; p
--)
2938 for (p
= cmdline
; p
< cmdline
+ nread
; p
++)
2940 /* Escape-quote whitespace and backslashes. */
2941 if (isspace (*p
) || *p
== '\\')
2943 memmove (p
+ 1, p
, nread
- (p
- cmdline
));
2947 else if (*p
== '\0')
2950 cmdline_size
= nread
;
2957 cmdsize
= strlen (cmd
);
2958 cmdline_size
= cmdsize
+ 2;
2959 cmdline
= xmalloc (cmdline_size
+ 1);
2960 strcpy (cmdline
, "[");
2961 strcat (strncat (cmdline
, cmd
, cmdsize
), "]");
2964 /* Command line is encoded in locale-coding-system; decode it. */
2965 cmd_str
= make_unibyte_string (cmdline
, cmdline_size
);
2966 decoded_cmd
= code_convert_string_norecord (cmd_str
,
2967 Vlocale_coding_system
, 0);
2969 attrs
= Fcons (Fcons (Qargs
, decoded_cmd
), attrs
);
2976 #elif defined (SOLARIS2) && defined (HAVE_PROCFS)
2978 /* The <procfs.h> header does not like to be included if _LP64 is defined and
2979 __FILE_OFFSET_BITS == 64. This is an ugly workaround that. */
2980 #if !defined (_LP64) && defined (_FILE_OFFSET_BITS) && (_FILE_OFFSET_BITS == 64)
2981 #define PROCFS_FILE_OFFSET_BITS_HACK 1
2982 #undef _FILE_OFFSET_BITS
2984 #define PROCFS_FILE_OFFSET_BITS_HACK 0
2989 #if PROCFS_FILE_OFFSET_BITS_HACK == 1
2990 #define _FILE_OFFSET_BITS 64
2991 #ifdef _FILE_OFFSET_BITS /* Avoid unused-macro warnings. */
2993 #endif /* PROCFS_FILE_OFFSET_BITS_HACK == 1 */
2996 system_process_attributes (Lisp_Object pid
)
2998 char procfn
[PATH_MAX
], fn
[PATH_MAX
];
3003 struct psinfo pinfo
;
3006 int proc_id
, uid
, gid
;
3007 Lisp_Object attrs
= Qnil
;
3008 Lisp_Object decoded_cmd
, tem
;
3009 struct gcpro gcpro1
, gcpro2
;
3010 EMACS_INT uid_eint
, gid_eint
;
3012 CHECK_NUMBER_OR_FLOAT (pid
);
3013 proc_id
= FLOATP (pid
) ? XFLOAT_DATA (pid
) : XINT (pid
);
3014 sprintf (procfn
, "/proc/%u", proc_id
);
3015 if (stat (procfn
, &st
) < 0)
3018 GCPRO2 (attrs
, decoded_cmd
);
3022 /* Use of EMACS_INT stops GCC whining about limited range of data type. */
3024 attrs
= Fcons (Fcons (Qeuid
, make_fixnum_or_float (uid_eint
)), attrs
);
3026 pw
= getpwuid (uid
);
3029 attrs
= Fcons (Fcons (Quser
, build_string (pw
->pw_name
)), attrs
);
3033 attrs
= Fcons (Fcons (Qegid
, make_fixnum_or_float (gid_eint
)), attrs
);
3035 gr
= getgrgid (gid
);
3038 attrs
= Fcons (Fcons (Qgroup
, build_string (gr
->gr_name
)), attrs
);
3040 strcpy (fn
, procfn
);
3041 procfn_end
= fn
+ strlen (fn
);
3042 strcpy (procfn_end
, "/psinfo");
3043 fd
= emacs_open (fn
, O_RDONLY
, 0);
3045 && (nread
= read (fd
, (char*)&pinfo
, sizeof (struct psinfo
)) > 0))
3047 attrs
= Fcons (Fcons (Qppid
, make_fixnum_or_float (pinfo
.pr_ppid
)), attrs
);
3048 attrs
= Fcons (Fcons (Qpgrp
, make_fixnum_or_float (pinfo
.pr_pgid
)), attrs
);
3049 attrs
= Fcons (Fcons (Qsess
, make_fixnum_or_float (pinfo
.pr_sid
)), attrs
);
3053 state_str
[0] = pinfo
.pr_lwp
.pr_sname
;
3054 state_str
[1] = '\0';
3055 tem
= build_string (state_str
);
3056 attrs
= Fcons (Fcons (Qstate
, tem
), attrs
);
3059 /* FIXME: missing Qttyname. psinfo.pr_ttydev is a dev_t,
3060 need to get a string from it. */
3062 /* FIXME: missing: Qtpgid */
3074 Are they available? */
3076 attrs
= Fcons (Fcons (Qtime
,
3077 list3 (make_number (pinfo
.pr_time
.tv_sec
>> 16),
3078 make_number (pinfo
.pr_time
.tv_sec
& 0xffff),
3079 make_number (pinfo
.pr_time
.tv_nsec
))),
3082 attrs
= Fcons (Fcons (Qctime
,
3083 list3 (make_number (pinfo
.pr_ctime
.tv_sec
>> 16),
3084 make_number (pinfo
.pr_ctime
.tv_sec
& 0xffff),
3085 make_number (pinfo
.pr_ctime
.tv_nsec
))),
3088 attrs
= Fcons (Fcons (Qpri
, make_number (pinfo
.pr_lwp
.pr_pri
)), attrs
);
3089 attrs
= Fcons (Fcons (Qnice
, make_number (pinfo
.pr_lwp
.pr_nice
)), attrs
);
3090 attrs
= Fcons (Fcons (Qthcount
, make_fixnum_or_float (pinfo
.pr_nlwp
)), attrs
);
3092 attrs
= Fcons (Fcons (Qstart
,
3093 list3 (make_number (pinfo
.pr_start
.tv_sec
>> 16),
3094 make_number (pinfo
.pr_start
.tv_sec
& 0xffff),
3095 make_number (pinfo
.pr_start
.tv_nsec
))),
3097 attrs
= Fcons (Fcons (Qvsize
, make_fixnum_or_float (pinfo
.pr_size
)), attrs
);
3098 attrs
= Fcons (Fcons (Qrss
, make_fixnum_or_float (pinfo
.pr_rssize
)), attrs
);
3100 /* pr_pctcpu and pr_pctmem are encoded as a fixed point 16 bit number in [0 ... 1]. */
3101 attrs
= Fcons (Fcons (Qpcpu
, (pinfo
.pr_pctcpu
* 100.0) / (double)0x8000), attrs
);
3102 attrs
= Fcons (Fcons (Qpmem
, (pinfo
.pr_pctmem
* 100.0) / (double)0x8000), attrs
);
3105 = code_convert_string_norecord (make_unibyte_string (pinfo
.pr_fname
,
3106 strlen (pinfo
.pr_fname
)),
3107 Vlocale_coding_system
, 0);
3108 attrs
= Fcons (Fcons (Qcomm
, decoded_cmd
), attrs
);
3110 = code_convert_string_norecord (make_unibyte_string (pinfo
.pr_psargs
,
3111 strlen (pinfo
.pr_psargs
)),
3112 Vlocale_coding_system
, 0);
3113 attrs
= Fcons (Fcons (Qargs
, decoded_cmd
), attrs
);
3123 #elif defined(__FreeBSD__)
3126 system_process_attributes (Lisp_Object pid
)
3129 int pagesize
= getpagesize();
3136 char args
[MAXPATHLEN
];
3139 int mib
[4] = {CTL_KERN
, KERN_PROC
, KERN_PROC_PID
};
3140 struct kinfo_proc proc
;
3141 size_t proclen
= sizeof(proc
);
3143 struct gcpro gcpro1
, gcpro2
;
3144 Lisp_Object attrs
= Qnil
;
3145 Lisp_Object decoded_comm
;
3147 CHECK_NUMBER_OR_FLOAT (pid
);
3148 proc_id
= FLOATP (pid
) ? XFLOAT_DATA (pid
) : XINT (pid
);
3151 if (sysctl (mib
, 4, &proc
, &proclen
, NULL
, 0) != 0)
3154 GCPRO2 (attrs
, decoded_comm
);
3156 attrs
= Fcons (Fcons (Qeuid
, make_fixnum_or_float(proc
.ki_uid
)), attrs
);
3159 pw
= getpwuid (proc
.ki_uid
);
3162 attrs
= Fcons (Fcons (Quser
, build_string (pw
->pw_name
)), attrs
);
3164 attrs
= Fcons (Fcons (Qegid
, make_fixnum_or_float(proc
.ki_svgid
)), attrs
);
3167 gr
= getgrgid (proc
.ki_svgid
);
3170 attrs
= Fcons (Fcons (Qgroup
, build_string (gr
->gr_name
)), attrs
);
3172 decoded_comm
= code_convert_string_norecord
3173 (make_unibyte_string (proc
.ki_comm
, strlen (proc
.ki_comm
)),
3174 Vlocale_coding_system
, 0);
3176 attrs
= Fcons (Fcons (Qcomm
, decoded_comm
), attrs
);
3178 char state
[2] = {'\0', '\0'};
3179 switch (proc
.ki_stat
)
3201 attrs
= Fcons (Fcons (Qstate
, build_string (state
)), attrs
);
3204 attrs
= Fcons (Fcons (Qppid
, make_fixnum_or_float (proc
.ki_ppid
)), attrs
);
3205 attrs
= Fcons (Fcons (Qpgrp
, make_fixnum_or_float (proc
.ki_pgid
)), attrs
);
3206 attrs
= Fcons (Fcons (Qsess
, make_fixnum_or_float (proc
.ki_sid
)), attrs
);
3209 ttyname
= proc
.ki_tdev
== NODEV
? NULL
: devname (proc
.ki_tdev
, S_IFCHR
);
3212 attrs
= Fcons (Fcons (Qtty
, build_string (ttyname
)), attrs
);
3214 attrs
= Fcons (Fcons (Qtpgid
, make_fixnum_or_float (proc
.ki_tpgid
)), attrs
);
3215 attrs
= Fcons (Fcons (Qminflt
, make_fixnum_or_float (proc
.ki_rusage
.ru_minflt
)), attrs
);
3216 attrs
= Fcons (Fcons (Qmajflt
, make_fixnum_or_float (proc
.ki_rusage
.ru_majflt
)), attrs
);
3217 attrs
= Fcons (Fcons (Qcminflt
, make_number (proc
.ki_rusage_ch
.ru_minflt
)), attrs
);
3218 attrs
= Fcons (Fcons (Qcmajflt
, make_number (proc
.ki_rusage_ch
.ru_majflt
)), attrs
);
3220 #define TIMELIST(ts) \
3221 list3 (make_number (EMACS_SECS (ts) >> 16 & 0xffff), \
3222 make_number (EMACS_SECS (ts) & 0xffff), \
3223 make_number (EMACS_USECS (ts)))
3225 attrs
= Fcons (Fcons (Qutime
, TIMELIST(proc
.ki_rusage
.ru_utime
)), attrs
);
3226 attrs
= Fcons (Fcons (Qstime
, TIMELIST(proc
.ki_rusage
.ru_stime
)), attrs
);
3227 EMACS_ADD_TIME (t
, proc
.ki_rusage
.ru_utime
, proc
.ki_rusage
.ru_stime
);
3228 attrs
= Fcons (Fcons (Qtime
, TIMELIST(t
)), attrs
);
3230 attrs
= Fcons (Fcons (Qcutime
, TIMELIST(proc
.ki_rusage_ch
.ru_utime
)), attrs
);
3231 attrs
= Fcons (Fcons (Qcstime
, TIMELIST(proc
.ki_rusage_ch
.ru_utime
)), attrs
);
3232 EMACS_ADD_TIME (t
, proc
.ki_rusage_ch
.ru_utime
, proc
.ki_rusage_ch
.ru_stime
);
3233 attrs
= Fcons (Fcons (Qctime
, TIMELIST(t
)), attrs
);
3235 attrs
= Fcons (Fcons (Qthcount
, make_fixnum_or_float (proc
.ki_numthreads
)), attrs
);
3236 attrs
= Fcons (Fcons (Qpri
, make_number (proc
.ki_pri
.pri_native
)), attrs
);
3237 attrs
= Fcons (Fcons (Qnice
, make_number (proc
.ki_nice
)), attrs
);
3238 attrs
= Fcons (Fcons (Qstart
, TIMELIST(proc
.ki_start
)), attrs
);
3239 attrs
= Fcons (Fcons (Qvsize
, make_number (proc
.ki_size
>> 10)), attrs
);
3240 attrs
= Fcons (Fcons (Qrss
, make_number (proc
.ki_rssize
* pagesize
>> 10)), attrs
);
3242 EMACS_GET_TIME (now
);
3243 EMACS_SUB_TIME (t
, now
, proc
.ki_start
);
3244 attrs
= Fcons (Fcons (Qetime
, TIMELIST(t
)), attrs
);
3248 len
= sizeof(fscale
);
3249 if (sysctlbyname ("kern.fscale", &fscale
, &len
, NULL
, 0) == 0)
3253 len
= sizeof (ccpu
);
3254 if (sysctlbyname ("kern.ccpu", &ccpu
, &len
, NULL
, 0) == 0)
3256 pcpu
= 100.0 * ((double) proc
.ki_pctcpu
/ fscale
)
3257 / (1.0 - exp(proc
.ki_swtime
* log((double) ccpu
/ fscale
)));
3258 attrs
= Fcons (Fcons (Qpcpu
, make_fixnum_or_float(pcpu
)), attrs
);
3262 len
= sizeof(npages
);
3263 if (sysctlbyname ("hw.availpages", &npages
, &len
, NULL
, 0) == 0)
3265 float pmem
= proc
.ki_flag
& P_INMEM
3266 ? 100.0 * ((float) proc
.ki_rssize
/ npages
)
3268 attrs
= Fcons (Fcons (Qpmem
, make_fixnum_or_float(pmem
)), attrs
);
3271 mib
[2] = KERN_PROC_ARGS
;
3273 if (sysctl (mib
, 4, args
, &len
, NULL
, 0) == 0)
3276 for (i
= 0; i
< len
; i
++)
3278 if (! args
[i
] && i
< len
- 1)
3282 decoded_comm
= code_convert_string_norecord
3283 (make_unibyte_string (args
, strlen (args
)),
3284 Vlocale_coding_system
, 0);
3286 attrs
= Fcons (Fcons (Qargs
, decoded_comm
), attrs
);
3293 /* The WINDOWSNT implementation is in w32.c.
3294 The MSDOS implementation is in dosfns.c. */
3295 #elif !defined (WINDOWSNT) && !defined (MSDOS)
3298 system_process_attributes (Lisp_Object pid
)
3303 #endif /* !defined (WINDOWSNT) */