1 /* Interfaces to system-dependent kernel and library entries.
2 Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1999, 2000, 2001,
3 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
4 Free Software Foundation, Inc.
6 This file is part of GNU Emacs.
8 GNU Emacs is free software: you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation, either version 3 of the License, or
11 (at your option) any later version.
13 GNU Emacs is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
32 #endif /* HAVE_PWD_H */
35 #endif /* HAVE_LIMITS_H */
41 /* Including stdlib.h isn't necessarily enough to get srandom
42 declared, e.g. without __USE_XOPEN_EXTENDED with glibc 2. */
44 /* The w32 build defines select stuff in w32.h, which is included by
45 sys/select.h (included below). */
47 #include "sysselect.h"
50 #include "blockinput.h"
54 #define write sys_write
59 #endif /* not WINDOWSNT */
61 #include <sys/types.h>
68 #define setpgrp setpgid
72 /* Get SI_SRPC_DOMAIN, if it is available. */
73 #ifdef HAVE_SYS_SYSTEMINFO_H
74 #include <sys/systeminfo.h>
77 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida, MW Aug 1993 */
81 #include <sys/param.h>
84 extern unsigned start
__asm__ ("start");
94 #include <sys/ioctl.h>
101 #include <sys/utsname.h>
105 extern int quit_char
;
107 #include "keyboard.h"
110 #include "termhooks.h"
111 #include "termchar.h"
112 #include "termopts.h"
113 #include "dispextern.h"
115 #include "cm.h" /* for reset_sys_modes */
117 /* For serial_configure and serial_open. */
118 extern Lisp_Object QCport
, QCspeed
, QCprocess
;
119 extern Lisp_Object QCbytesize
, QCstopbits
, QCparity
, Qodd
, Qeven
;
120 extern Lisp_Object QCflowcontrol
, Qhw
, Qsw
, QCsummary
;
124 /* In process.h which conflicts with the local copy. */
126 int _cdecl
_spawnlp (int, const char *, const char *, ...);
127 int _cdecl
_getpid (void);
128 extern char *getwd (char *);
131 #include "syssignal.h"
138 #ifndef HAVE_STRUCT_UTIMBUF
139 /* We want to use utime rather than utimes, but we couldn't find the
140 structure declaration. We'll use the traditional one. */
148 /* LPASS8 is new in 4.3, and makes cbreak mode provide all 8 bits. */
153 static const int baud_convert
[] =
155 0, 50, 75, 110, 135, 150, 200, 300, 600, 1200,
156 1800, 2400, 4800, 9600, 19200, 38400
162 #if defined (HAVE_LIBNCURSES) && ! defined (NCURSES_OSPEED_T)
164 #if defined (HAVE_TERMIOS_H) && defined (GNU_LINUX)
172 void croak (char *) NO_RETURN
;
174 /* Temporary used by `sigblock' when defined in terms of signprocmask. */
176 SIGMASKTYPE sigprocmask_set
;
179 #if !defined (HAVE_GET_CURRENT_DIR_NAME) || defined (BROKEN_GET_CURRENT_DIR_NAME)
181 /* Return the current working directory. Returns NULL on errors.
182 Any other returned value must be freed with free. This is used
183 only when get_current_dir_name is not defined on the system. */
185 get_current_dir_name (void)
189 struct stat dotstat
, pwdstat
;
190 /* If PWD is accurate, use it instead of calling getwd. PWD is
191 sometimes a nicer name, and using it may avoid a fatal error if a
192 parent directory is searchable but not readable. */
193 if ((pwd
= getenv ("PWD")) != 0
194 && (IS_DIRECTORY_SEP (*pwd
) || (*pwd
&& IS_DEVICE_SEP (pwd
[1])))
195 && stat (pwd
, &pwdstat
) == 0
196 && stat (".", &dotstat
) == 0
197 && dotstat
.st_ino
== pwdstat
.st_ino
198 && dotstat
.st_dev
== pwdstat
.st_dev
200 && strlen (pwd
) < MAXPATHLEN
204 buf
= (char *) malloc (strlen (pwd
) + 1);
212 size_t buf_size
= 1024;
213 buf
= (char *) malloc (buf_size
);
218 if (getcwd (buf
, buf_size
) == buf
)
222 int tmp_errno
= errno
;
228 buf
= (char *) realloc (buf
, buf_size
);
236 /* We need MAXPATHLEN here. */
237 buf
= (char *) malloc (MAXPATHLEN
+ 1);
240 if (getwd (buf
) == NULL
)
242 int tmp_errno
= errno
;
254 /* Discard pending input on all input descriptors. */
257 discard_tty_input (void)
260 struct emacs_tty buf
;
265 #ifdef MSDOS /* Demacs 1.1.1 91/10/16 HIRANO Satoshi */
266 while (dos_keyread () != -1)
268 #else /* not MSDOS */
270 struct tty_display_info
*tty
;
271 for (tty
= tty_list
; tty
; tty
= tty
->next
)
273 if (tty
->input
) /* Is the device suspended? */
275 EMACS_GET_TTY (fileno (tty
->input
), &buf
);
276 EMACS_SET_TTY (fileno (tty
->input
), &buf
, 0);
280 #endif /* not MSDOS */
281 #endif /* not WINDOWSNT */
287 /* Arrange for character C to be read as the next input from
289 XXX What if we have multiple ttys?
295 if (! FRAME_TERMCAP_P (SELECTED_FRAME ()))
298 /* Should perhaps error if in batch mode */
300 ioctl (fileno (CURTTY()->input
), TIOCSTI
, &c
);
301 #else /* no TIOCSTI */
302 error ("Cannot stuff terminal input characters in this version of Unix");
303 #endif /* no TIOCSTI */
309 init_baud_rate (int fd
)
317 #else /* not DOS_NT */
323 emacs_ospeed
= cfgetospeed (&sg
);
324 #else /* not TERMIOS */
332 ioctl (fd
, TCGETA
, &sg
);
334 emacs_ospeed
= sg
.c_cflag
& CBAUD
;
335 #else /* neither TERMIOS nor TERMIO */
338 sg
.sg_ospeed
= B9600
;
339 if (ioctl (fd
, TIOCGETP
, &sg
) < 0)
341 emacs_ospeed
= sg
.sg_ospeed
;
342 #endif /* not HAVE_TERMIO */
343 #endif /* not HAVE_TERMIOS */
344 #endif /* not DOS_NT */
347 baud_rate
= (emacs_ospeed
< sizeof baud_convert
/ sizeof baud_convert
[0]
348 ? baud_convert
[emacs_ospeed
] : 9600);
356 set_exclusive_use (int fd
)
359 ioctl (fd
, FIOCLEX
, 0);
361 /* Ok to do nothing if this feature does not exist */
367 wait_without_blocking (void)
369 croak ("wait_without_blocking");
370 synch_process_alive
= 0;
373 #endif /* not subprocesses */
375 int wait_debugging
; /* Set nonzero to make following function work under dbx
376 (at least for bsd). */
379 wait_for_termination_signal (void)
382 /* Wait for subprocess with process id `pid' to terminate and
383 make sure it will get eliminated (not remain forever as a zombie) */
386 wait_for_termination (int pid
)
391 #if defined (BSD_SYSTEM) || defined (HPUX)
392 /* Note that kill returns -1 even if the process is just a zombie now.
393 But inevitably a SIGCHLD interrupt should be generated
394 and child_sig will do wait3 and make the process go away. */
395 /* There is some indication that there is a bug involved with
396 termination of subprocesses, perhaps involving a kernel bug too,
397 but no idea what it is. Just as a hunch we signal SIGCHLD to see
398 if that causes the problem to go away or get worse. */
399 sigsetmask (sigmask (SIGCHLD
));
400 if (0 > kill (pid
, 0))
402 sigsetmask (SIGEMPTYMASK
);
403 kill (getpid (), SIGCHLD
);
409 sigpause (SIGEMPTYMASK
);
410 #else /* not BSD_SYSTEM, and not HPUX version >= 6 */
414 #else /* not WINDOWSNT */
415 sigblock (sigmask (SIGCHLD
));
417 if (kill (pid
, 0) == -1 && errno
== ESRCH
)
419 sigunblock (sigmask (SIGCHLD
));
423 sigsuspend (&empty_mask
);
424 #endif /* not WINDOWSNT */
425 #endif /* not BSD_SYSTEM, and not HPUX version >= 6 */
426 #else /* not subprocesses */
428 #endif /* not subprocesses */
435 * flush any pending output
436 * (may flush input as well; it does not matter the way we use it)
440 flush_pending_output (int channel
)
443 /* If we try this, we get hit with SIGTTIN, because
444 the child's tty belongs to the child's pgrp. */
447 ioctl (channel
, TCFLSH
, 1);
451 /* 3rd arg should be ignored
452 but some 4.2 kernels actually want the address of an int
453 and nonzero means something different. */
454 ioctl (channel
, TIOCFLUSH
, &zero
);
460 /* Set up the terminal at the other end of a pseudo-terminal that
461 we will be controlling an inferior through.
462 It should not echo or do line-editing, since that is done
463 in Emacs. No padding needed for insertion into an Emacs buffer. */
466 child_setup_tty (int out
)
471 EMACS_GET_TTY (out
, &s
);
473 #if defined (HAVE_TERMIO) || defined (HAVE_TERMIOS)
474 s
.main
.c_oflag
|= OPOST
; /* Enable output postprocessing */
475 s
.main
.c_oflag
&= ~ONLCR
; /* Disable map of NL to CR-NL on output */
477 /* http://lists.gnu.org/archive/html/emacs-devel/2008-05/msg00406.html
478 Some versions of GNU Hurd do not have FFDLY? */
480 s
.main
.c_oflag
&= ~(NLDLY
|CRDLY
|TABDLY
|BSDLY
|VTDLY
|FFDLY
);
481 /* No output delays */
483 s
.main
.c_oflag
&= ~(NLDLY
|CRDLY
|TABDLY
|BSDLY
|VTDLY
);
484 /* No output delays */
487 s
.main
.c_lflag
&= ~ECHO
; /* Disable echo */
488 s
.main
.c_lflag
|= ISIG
; /* Enable signals */
490 s
.main
.c_iflag
&= ~IUCLC
; /* Disable downcasing on input. */
493 s
.main
.c_iflag
&= ~ISTRIP
; /* don't strip 8th bit on input */
496 s
.main
.c_oflag
&= ~OLCUC
; /* Disable upcasing on output. */
498 s
.main
.c_oflag
&= ~TAB3
; /* Disable tab expansion */
499 s
.main
.c_cflag
= (s
.main
.c_cflag
& ~CSIZE
) | CS8
; /* Don't strip 8th bit */
500 s
.main
.c_cc
[VERASE
] = CDISABLE
; /* disable erase processing */
501 s
.main
.c_cc
[VKILL
] = CDISABLE
; /* disable kill processing */
504 s
.main
.c_cflag
= (s
.main
.c_cflag
& ~CBAUD
) | B9600
; /* baud rate sanity */
507 #ifdef SIGNALS_VIA_CHARACTERS
508 /* the QUIT and INTR character are used in process_send_signal
509 so set them here to something useful. */
510 if (s
.main
.c_cc
[VQUIT
] == CDISABLE
)
511 s
.main
.c_cc
[VQUIT
] = '\\'&037; /* Control-\ */
512 if (s
.main
.c_cc
[VINTR
] == CDISABLE
)
513 s
.main
.c_cc
[VINTR
] = 'C'&037; /* Control-C */
514 #endif /* not SIGNALS_VIA_CHARACTERS */
517 /* Also, PTY overloads NUL and BREAK.
518 don't ignore break, but don't signal either, so it looks like NUL. */
519 s
.main
.c_iflag
&= ~IGNBRK
;
520 s
.main
.c_iflag
&= ~BRKINT
;
521 /* rms: Formerly it set s.main.c_cc[VINTR] to 0377 here
522 unconditionally. Then a SIGNALS_VIA_CHARACTERS conditional
523 would force it to 0377. That looks like duplicated code. */
524 s
.main
.c_cflag
= (s
.main
.c_cflag
& ~CBAUD
) | B9600
; /* baud rate sanity */
527 /* We used to enable ICANON (and set VEOF to 04), but this leads to
528 problems where process.c wants to send EOFs every once in a while
529 to force the output, which leads to weird effects when the
530 subprocess has disabled ICANON and ends up seeing those spurious
531 extra EOFs. So we don't send EOFs any more in
532 process.c:send_process, and instead we disable ICANON by default,
533 so if a subsprocess sets up ICANON, it's his problem (or the Elisp
534 package that talks to it) to deal with lines that are too long. */
535 s
.main
.c_lflag
&= ~ICANON
; /* Disable line editing and eof processing */
536 s
.main
.c_cc
[VMIN
] = 1;
537 s
.main
.c_cc
[VTIME
] = 0;
539 #else /* not HAVE_TERMIO */
541 s
.main
.sg_flags
&= ~(ECHO
| CRMOD
| ANYP
| ALLDELAY
| RAW
| LCASE
543 s
.main
.sg_flags
|= LPASS8
;
544 s
.main
.sg_erase
= 0377;
545 s
.main
.sg_kill
= 0377;
546 s
.lmode
= LLITOUT
| s
.lmode
; /* Don't strip 8th bit */
548 #endif /* not HAVE_TERMIO */
550 EMACS_SET_TTY (out
, &s
, 0);
552 #endif /* not DOS_NT */
555 #endif /* subprocesses */
557 /* Record a signal code and the handler for it. */
561 SIGTYPE (*handler
) (int);
564 static void save_signal_handlers (struct save_signal
*);
565 static void restore_signal_handlers (struct save_signal
*);
567 /* Suspend the Emacs process; give terminal to its superior. */
572 #if defined (SIGTSTP) && !defined (MSDOS)
575 int pgrp
= EMACS_GETPGRP (0);
576 EMACS_KILLPG (pgrp
, SIGTSTP
);
579 #else /* No SIGTSTP */
580 /* On a system where suspending is not implemented,
581 instead fork a subshell and let it talk directly to the terminal
585 #endif /* no SIGTSTP */
588 /* Fork a subshell. */
593 #ifdef DOS_NT /* Demacs 1.1.2 91/10/20 Manabu Higashida */
595 char oldwd
[MAXPATHLEN
+1]; /* Fixed length is safe on MSDOS. */
598 struct save_signal saved_handlers
[5];
600 unsigned char *str
= 0;
603 saved_handlers
[0].code
= SIGINT
;
604 saved_handlers
[1].code
= SIGQUIT
;
605 saved_handlers
[2].code
= SIGTERM
;
607 saved_handlers
[3].code
= SIGIO
;
608 saved_handlers
[4].code
= 0;
610 saved_handlers
[3].code
= 0;
613 /* Mentioning current_buffer->buffer would mean including buffer.h,
614 which somehow wedges the hp compiler. So instead... */
616 dir
= intern ("default-directory");
617 if (NILP (Fboundp (dir
)))
619 dir
= Fsymbol_value (dir
);
623 dir
= expand_and_dir_to_file (Funhandled_file_name_directory (dir
), Qnil
);
624 str
= (unsigned char *) alloca (SCHARS (dir
) + 2);
626 memcpy (str
, SDATA (dir
), len
);
627 if (str
[len
- 1] != '/') str
[len
++] = '/';
633 save_signal_handlers (saved_handlers
);
634 synch_process_alive
= 1;
638 error ("Can't spawn subshell");
645 #ifdef DOS_NT /* MW, Aug 1993 */
648 sh
= (char *) egetenv ("SUSPEND"); /* KFS, 1994-12-14 */
651 sh
= (char *) egetenv ("SHELL");
655 /* Use our buffer's default directory for the subshell. */
657 chdir ((char *) str
);
660 close_process_descs (); /* Close Emacs's pipes/ptys */
663 #ifdef SET_EMACS_PRIORITY
665 extern EMACS_INT emacs_priority
;
667 if (emacs_priority
< 0)
668 nice (-emacs_priority
);
672 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida */
674 char *epwd
= getenv ("PWD");
675 char old_pwd
[MAXPATHLEN
+1+4];
677 /* If PWD is set, pass it with corrected value. */
680 strcpy (old_pwd
, epwd
);
681 if (str
[len
- 1] == '/')
683 setenv ("PWD", str
, 1);
688 putenv (old_pwd
); /* restore previous value */
690 #else /* not MSDOS */
692 /* Waits for process completion */
693 pid
= _spawnlp (_P_WAIT
, sh
, sh
, NULL
);
696 write (1, "Can't execute subshell", 22);
697 #else /* not WINDOWSNT */
698 execlp (sh
, sh
, (char *) 0);
699 write (1, "Can't execute subshell", 22);
701 #endif /* not WINDOWSNT */
702 #endif /* not MSDOS */
705 /* Do this now if we did not do it before. */
707 save_signal_handlers (saved_handlers
);
708 synch_process_alive
= 1;
712 wait_for_termination (pid
);
714 restore_signal_handlers (saved_handlers
);
715 synch_process_alive
= 0;
719 save_signal_handlers (struct save_signal
*saved_handlers
)
721 while (saved_handlers
->code
)
723 saved_handlers
->handler
724 = (SIGTYPE (*) (int)) signal (saved_handlers
->code
, SIG_IGN
);
730 restore_signal_handlers (struct save_signal
*saved_handlers
)
732 while (saved_handlers
->code
)
734 signal (saved_handlers
->code
, saved_handlers
->handler
);
740 /* If SIGIO is broken, don't do anything. */
757 unrequest_sigio (void)
764 int old_fcntl_flags
[MAXDESC
];
770 old_fcntl_flags
[fd
] = fcntl (fd
, F_GETFL
, 0) & ~FASYNC
;
771 fcntl (fd
, F_SETFL
, old_fcntl_flags
[fd
] | FASYNC
);
773 interrupts_deferred
= 0;
780 fcntl (fd
, F_SETFL
, old_fcntl_flags
[fd
]);
784 #ifdef FASYNC /* F_SETFL does not imply existence of FASYNC */
785 /* XXX Uhm, FASYNC is not used anymore here. */
786 /* XXX Yeah, but you need it for SIGIO, don't you? */
795 sigunblock (sigmask (SIGWINCH
));
797 sigunblock (sigmask (SIGIO
));
799 interrupts_deferred
= 0;
803 unrequest_sigio (void)
808 #if 0 /* XXX What's wrong with blocking SIGIO under X? */
814 sigblock (sigmask (SIGWINCH
));
816 sigblock (sigmask (SIGIO
));
817 interrupts_deferred
= 1;
820 #else /* no FASYNC */
826 if (noninteractive
|| read_socket_hook
)
829 croak ("request_sigio");
833 unrequest_sigio (void)
835 if (noninteractive
|| read_socket_hook
)
838 croak ("unrequest_sigio");
847 /* Getting and setting emacs_tty structures. */
849 /* Set *TC to the parameters associated with the terminal FD.
850 Return zero if all's well, or -1 if we ran into an error we
851 couldn't deal with. */
853 emacs_get_tty (int fd
, struct emacs_tty
*settings
)
855 /* Retrieve the primary parameters - baud rate, character size, etcetera. */
857 /* We have those nifty POSIX tcmumbleattr functions. */
858 memset (&settings
->main
, 0, sizeof (settings
->main
));
859 if (tcgetattr (fd
, &settings
->main
) < 0)
864 /* The SYSV-style interface? */
865 if (ioctl (fd
, TCGETA
, &settings
->main
) < 0)
870 /* I give up - I hope you have the BSD ioctls. */
871 if (ioctl (fd
, TIOCGETP
, &settings
->main
) < 0)
873 #endif /* not DOS_NT */
877 /* Suivant - Do we have to get struct ltchars data? */
879 if (ioctl (fd
, TIOCGLTC
, &settings
->ltchars
) < 0)
883 /* How about a struct tchars and a wordful of lmode bits? */
885 if (ioctl (fd
, TIOCGETC
, &settings
->tchars
) < 0
886 || ioctl (fd
, TIOCLGET
, &settings
->lmode
) < 0)
890 /* We have survived the tempest. */
895 /* Set the parameters of the tty on FD according to the contents of
896 *SETTINGS. If FLUSHP is non-zero, we discard input.
897 Return 0 if all went well, and -1 if anything failed. */
900 emacs_set_tty (int fd
, struct emacs_tty
*settings
, int flushp
)
902 /* Set the primary parameters - baud rate, character size, etcetera. */
905 /* We have those nifty POSIX tcmumbleattr functions.
906 William J. Smith <wjs@wiis.wang.com> writes:
907 "POSIX 1003.1 defines tcsetattr to return success if it was
908 able to perform any of the requested actions, even if some
909 of the requested actions could not be performed.
910 We must read settings back to ensure tty setup properly.
911 AIX requires this to keep tty from hanging occasionally." */
912 /* This make sure that we don't loop indefinitely in here. */
913 for (i
= 0 ; i
< 10 ; i
++)
914 if (tcsetattr (fd
, flushp
? TCSAFLUSH
: TCSADRAIN
, &settings
->main
) < 0)
925 memset (&new, 0, sizeof (new));
926 /* Get the current settings, and see if they're what we asked for. */
927 tcgetattr (fd
, &new);
928 /* We cannot use memcmp on the whole structure here because under
929 * aix386 the termios structure has some reserved field that may
932 if ( new.c_iflag
== settings
->main
.c_iflag
933 && new.c_oflag
== settings
->main
.c_oflag
934 && new.c_cflag
== settings
->main
.c_cflag
935 && new.c_lflag
== settings
->main
.c_lflag
936 && memcmp (new.c_cc
, settings
->main
.c_cc
, NCCS
) == 0)
944 /* The SYSV-style interface? */
945 if (ioctl (fd
, flushp
? TCSETAF
: TCSETAW
, &settings
->main
) < 0)
950 /* I give up - I hope you have the BSD ioctls. */
951 if (ioctl (fd
, (flushp
) ? TIOCSETP
: TIOCSETN
, &settings
->main
) < 0)
953 #endif /* not DOS_NT */
958 /* Suivant - Do we have to get struct ltchars data? */
960 if (ioctl (fd
, TIOCSLTC
, &settings
->ltchars
) < 0)
964 /* How about a struct tchars and a wordful of lmode bits? */
966 if (ioctl (fd
, TIOCSETC
, &settings
->tchars
) < 0
967 || ioctl (fd
, TIOCLSET
, &settings
->lmode
) < 0)
971 /* We have survived the tempest. */
978 int old_fcntl_owner
[MAXDESC
];
979 #endif /* F_SETOWN */
981 /* This may also be defined in stdio,
982 but if so, this does no harm,
983 and using the same name avoids wasting the other one's space. */
986 unsigned char _sobuf
[BUFSIZ
+8];
992 static struct ltchars new_ltchars
= {-1,-1,-1,-1,-1,-1};
995 static struct tchars new_tchars
= {-1,-1,-1,-1,-1,-1};
998 /* Initialize the terminal mode on all tty devices that are currently
1002 init_all_sys_modes (void)
1004 struct tty_display_info
*tty
;
1005 for (tty
= tty_list
; tty
; tty
= tty
->next
)
1006 init_sys_modes (tty
);
1009 /* Initialize the terminal mode on the given tty device. */
1012 init_sys_modes (struct tty_display_info
*tty_out
)
1014 struct emacs_tty tty
;
1016 Vtty_erase_char
= Qnil
;
1021 if (!tty_out
->output
)
1022 return; /* The tty is suspended. */
1024 if (! tty_out
->old_tty
)
1025 tty_out
->old_tty
= (struct emacs_tty
*) xmalloc (sizeof (struct emacs_tty
));
1027 EMACS_GET_TTY (fileno (tty_out
->input
), tty_out
->old_tty
);
1029 tty
= *tty_out
->old_tty
;
1031 #if defined (HAVE_TERMIO) || defined (HAVE_TERMIOS)
1032 XSETINT (Vtty_erase_char
, tty
.main
.c_cc
[VERASE
]);
1034 tty
.main
.c_iflag
|= (IGNBRK
); /* Ignore break condition */
1035 tty
.main
.c_iflag
&= ~ICRNL
; /* Disable map of CR to NL on input */
1036 #ifdef INLCR /* I'm just being cautious,
1037 since I can't check how widespread INLCR is--rms. */
1038 tty
.main
.c_iflag
&= ~INLCR
; /* Disable map of NL to CR on input */
1041 tty
.main
.c_iflag
&= ~ISTRIP
; /* don't strip 8th bit on input */
1043 tty
.main
.c_lflag
&= ~ECHO
; /* Disable echo */
1044 tty
.main
.c_lflag
&= ~ICANON
; /* Disable erase/kill processing */
1046 tty
.main
.c_lflag
&= ~IEXTEN
; /* Disable other editing characters. */
1048 tty
.main
.c_lflag
|= ISIG
; /* Enable signals */
1049 if (tty_out
->flow_control
)
1051 tty
.main
.c_iflag
|= IXON
; /* Enable start/stop output control */
1053 tty
.main
.c_iflag
&= ~IXANY
;
1057 tty
.main
.c_iflag
&= ~IXON
; /* Disable start/stop output control */
1058 tty
.main
.c_oflag
&= ~ONLCR
; /* Disable map of NL to CR-NL
1060 tty
.main
.c_oflag
&= ~TAB3
; /* Disable tab expansion */
1062 if (tty_out
->meta_key
)
1064 tty
.main
.c_cflag
|= CS8
; /* allow 8th bit on input */
1065 tty
.main
.c_cflag
&= ~PARENB
;/* Don't check parity */
1068 if (tty_out
->input
== stdin
)
1070 tty
.main
.c_cc
[VINTR
] = quit_char
; /* C-g (usually) gives SIGINT */
1071 /* Set up C-g for both SIGQUIT and SIGINT.
1072 We don't know which we will get, but we handle both alike
1073 so which one it really gives us does not matter. */
1074 tty
.main
.c_cc
[VQUIT
] = quit_char
;
1078 /* We normally don't get interrupt or quit signals from tty
1079 devices other than our controlling terminal; therefore,
1080 we must handle C-g as normal input. Unfortunately, this
1081 means that the interrupt and quit feature must be
1082 disabled on secondary ttys, or we would not even see the
1085 Note that even though emacsclient could have special code
1086 to pass SIGINT to Emacs, we should _not_ enable
1087 interrupt/quit keys for emacsclient frames. This means
1088 that we can't break out of loops in C code from a
1089 secondary tty frame, but we can always decide what
1090 display the C-g came from, which is more important from a
1091 usability point of view. (Consider the case when two
1092 people work together using the same Emacs instance.) */
1093 tty
.main
.c_cc
[VINTR
] = CDISABLE
;
1094 tty
.main
.c_cc
[VQUIT
] = CDISABLE
;
1096 tty
.main
.c_cc
[VMIN
] = 1; /* Input should wait for at least 1 char */
1097 tty
.main
.c_cc
[VTIME
] = 0; /* no matter how long that takes. */
1099 tty
.main
.c_cc
[VSWTCH
] = CDISABLE
; /* Turn off shell layering use
1103 #if defined (__mips__) || defined (HAVE_TCATTR)
1105 tty
.main
.c_cc
[VSUSP
] = CDISABLE
; /* Turn off mips handling of C-z. */
1108 tty
.main
.c_cc
[V_DSUSP
] = CDISABLE
; /* Turn off mips handling of C-y. */
1109 #endif /* V_DSUSP */
1110 #ifdef VDSUSP /* Some systems have VDSUSP, some have V_DSUSP. */
1111 tty
.main
.c_cc
[VDSUSP
] = CDISABLE
;
1114 tty
.main
.c_cc
[VLNEXT
] = CDISABLE
;
1117 tty
.main
.c_cc
[VREPRINT
] = CDISABLE
;
1118 #endif /* VREPRINT */
1120 tty
.main
.c_cc
[VWERASE
] = CDISABLE
;
1121 #endif /* VWERASE */
1123 tty
.main
.c_cc
[VDISCARD
] = CDISABLE
;
1124 #endif /* VDISCARD */
1126 if (tty_out
->flow_control
)
1129 tty
.main
.c_cc
[VSTART
] = '\021';
1132 tty
.main
.c_cc
[VSTOP
] = '\023';
1138 tty
.main
.c_cc
[VSTART
] = CDISABLE
;
1141 tty
.main
.c_cc
[VSTOP
] = CDISABLE
;
1144 #endif /* mips or HAVE_TCATTR */
1147 tty
.main
.c_cc
[VSTRT
] = CDISABLE
;
1148 tty
.main
.c_cc
[VSTOP
] = CDISABLE
;
1149 tty
.main
.c_cc
[VSUSP
] = CDISABLE
;
1150 tty
.main
.c_cc
[VDSUSP
] = CDISABLE
;
1151 if (tty_out
->flow_control
)
1154 tty
.main
.c_cc
[VSTART
] = '\021';
1157 tty
.main
.c_cc
[VSTOP
] = '\023';
1160 /* Also, PTY overloads NUL and BREAK.
1161 don't ignore break, but don't signal either, so it looks like NUL.
1162 This really serves a purpose only if running in an XTERM window
1163 or via TELNET or the like, but does no harm elsewhere. */
1164 tty
.main
.c_iflag
&= ~IGNBRK
;
1165 tty
.main
.c_iflag
&= ~BRKINT
;
1167 #else /* if not HAVE_TERMIO */
1169 XSETINT (Vtty_erase_char
, tty
.main
.sg_erase
);
1170 tty
.main
.sg_flags
&= ~(ECHO
| CRMOD
| XTABS
);
1172 tty
.main
.sg_flags
|= ANYP
;
1173 tty
.main
.sg_flags
|= interrupt_input
? RAW
: CBREAK
;
1174 #endif /* not DOS_NT */
1175 #endif /* not HAVE_TERMIO */
1177 /* If going to use CBREAK mode, we must request C-g to interrupt
1178 and turn off start and stop chars, etc. If not going to use
1179 CBREAK mode, do this anyway so as to turn off local flow
1180 control for user coming over network on 4.2; in this case,
1181 only t_stopc and t_startc really matter. */
1184 /* Note: if not using CBREAK mode, it makes no difference how we
1186 tty
.tchars
= new_tchars
;
1187 tty
.tchars
.t_intrc
= quit_char
;
1188 if (tty_out
->flow_control
)
1190 tty
.tchars
.t_startc
= '\021';
1191 tty
.tchars
.t_stopc
= '\023';
1194 tty
.lmode
= LDECCTQ
| LLITOUT
| LPASS8
| LNOFLSH
| tty_out
->old_tty
.lmode
;
1196 #endif /* HAVE_TCHARS */
1197 #endif /* not HAVE_TERMIO */
1200 tty
.ltchars
= new_ltchars
;
1201 #endif /* HAVE_LTCHARS */
1202 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida, MW Aug 1993 */
1203 if (!tty_out
->term_initted
)
1204 internal_terminal_init ();
1205 dos_ttraw (tty_out
);
1208 EMACS_SET_TTY (fileno (tty_out
->input
), &tty
, 0);
1210 /* This code added to insure that, if flow-control is not to be used,
1211 we have an unlocked terminal at the start. */
1214 if (!tty_out
->flow_control
) ioctl (fileno (tty_out
->input
), TCXONC
, 1);
1217 if (!tty_out
->flow_control
) ioctl (fileno (tty_out
->input
), TIOCSTART
, 0);
1220 #if defined (HAVE_TERMIOS) || defined (HPUX)
1222 if (!tty_out
->flow_control
) tcflow (fileno (tty_out
->input
), TCOON
);
1227 #ifdef F_GETOWN /* F_SETFL does not imply existence of F_GETOWN */
1228 if (interrupt_input
)
1230 old_fcntl_owner
[fileno (tty_out
->input
)] =
1231 fcntl (fileno (tty_out
->input
), F_GETOWN
, 0);
1232 fcntl (fileno (tty_out
->input
), F_SETOWN
, getpid ());
1233 init_sigio (fileno (tty_out
->input
));
1235 if (gpm_tty
== tty_out
)
1237 /* Arrange for mouse events to give us SIGIO signals. */
1238 fcntl (gpm_fd
, F_SETOWN
, getpid ());
1239 fcntl (gpm_fd
, F_SETFL
, fcntl (gpm_fd
, F_GETFL
, 0) | O_NONBLOCK
);
1240 init_sigio (gpm_fd
);
1242 #endif /* HAVE_GPM */
1244 #endif /* F_GETOWN */
1245 #endif /* F_SETFL */
1248 /* This symbol is defined on recent USG systems.
1249 Someone says without this call USG won't really buffer the file
1250 even with a call to setbuf. */
1251 setvbuf (tty_out
->output
, (char *) _sobuf
, _IOFBF
, sizeof _sobuf
);
1253 setbuf (tty_out
->output
, (char *) _sobuf
);
1256 if (tty_out
->terminal
->set_terminal_modes_hook
)
1257 tty_out
->terminal
->set_terminal_modes_hook (tty_out
->terminal
);
1259 if (!tty_out
->term_initted
)
1261 Lisp_Object tail
, frame
;
1262 FOR_EACH_FRAME (tail
, frame
)
1264 /* XXX This needs to be revised. */
1265 if (FRAME_TERMCAP_P (XFRAME (frame
))
1266 && FRAME_TTY (XFRAME (frame
)) == tty_out
)
1267 init_frame_faces (XFRAME (frame
));
1271 if (tty_out
->term_initted
&& no_redraw_on_reenter
)
1273 /* We used to call "direct_output_forward_char(0)" here,
1274 but it's not clear why, since it may not do anything anyway. */
1278 Lisp_Object tail
, frame
;
1280 FOR_EACH_FRAME (tail
, frame
)
1282 if ((FRAME_TERMCAP_P (XFRAME (frame
))
1283 || FRAME_MSDOS_P (XFRAME (frame
)))
1284 && FRAME_TTY (XFRAME (frame
)) == tty_out
)
1285 FRAME_GARBAGED_P (XFRAME (frame
)) = 1;
1289 tty_out
->term_initted
= 1;
1292 /* Return nonzero if safe to use tabs in output.
1293 At the time this is called, init_sys_modes has not been done yet. */
1296 tabs_safe_p (int fd
)
1298 struct emacs_tty etty
;
1300 EMACS_GET_TTY (fd
, &etty
);
1301 return EMACS_TTY_TABS_OK (&etty
);
1304 /* Get terminal size from system.
1305 Store number of lines into *HEIGHTP and width into *WIDTHP.
1306 We store 0 if there's no valid information. */
1309 get_tty_size (int fd
, int *widthp
, int *heightp
)
1315 struct winsize size
;
1317 if (ioctl (fd
, TIOCGWINSZ
, &size
) == -1)
1318 *widthp
= *heightp
= 0;
1321 *widthp
= size
.ws_col
;
1322 *heightp
= size
.ws_row
;
1328 /* SunOS - style. */
1329 struct ttysize size
;
1331 if (ioctl (fd
, TIOCGSIZE
, &size
) == -1)
1332 *widthp
= *heightp
= 0;
1335 *widthp
= size
.ts_cols
;
1336 *heightp
= size
.ts_lines
;
1341 *widthp
= ScreenCols ();
1342 *heightp
= ScreenRows ();
1343 #else /* system doesn't know size */
1347 #endif /* not SunOS-style */
1348 #endif /* not BSD-style */
1351 /* Set the logical window size associated with descriptor FD
1352 to HEIGHT and WIDTH. This is used mainly with ptys. */
1355 set_window_size (int fd
, int height
, int width
)
1360 struct winsize size
;
1361 size
.ws_row
= height
;
1362 size
.ws_col
= width
;
1364 if (ioctl (fd
, TIOCSWINSZ
, &size
) == -1)
1365 return 0; /* error */
1372 /* SunOS - style. */
1373 struct ttysize size
;
1374 size
.ts_lines
= height
;
1375 size
.ts_cols
= width
;
1377 if (ioctl (fd
, TIOCGSIZE
, &size
) == -1)
1383 #endif /* not SunOS-style */
1384 #endif /* not BSD-style */
1389 /* Prepare all terminal devices for exiting Emacs. */
1392 reset_all_sys_modes (void)
1394 struct tty_display_info
*tty
;
1395 for (tty
= tty_list
; tty
; tty
= tty
->next
)
1396 reset_sys_modes (tty
);
1399 /* Prepare the terminal for closing it; move the cursor to the
1400 bottom of the frame, turn off interrupt-driven I/O, etc. */
1403 reset_sys_modes (struct tty_display_info
*tty_out
)
1410 if (!tty_out
->term_initted
)
1413 if (!tty_out
->output
)
1414 return; /* The tty is suspended. */
1416 /* Go to and clear the last line of the terminal. */
1418 cmgoto (tty_out
, FrameRows (tty_out
) - 1, 0);
1420 /* Code adapted from tty_clear_end_of_line. */
1421 if (tty_out
->TS_clr_line
)
1423 emacs_tputs (tty_out
, tty_out
->TS_clr_line
, 1, cmputc
);
1426 { /* have to do it the hard way */
1428 tty_turn_off_insert (tty_out
);
1430 for (i
= curX (tty_out
); i
< FrameCols (tty_out
) - 1; i
++)
1432 fputc (' ', tty_out
->output
);
1436 cmgoto (tty_out
, FrameRows (tty_out
) - 1, 0);
1437 fflush (tty_out
->output
);
1439 if (tty_out
->terminal
->reset_terminal_modes_hook
)
1440 tty_out
->terminal
->reset_terminal_modes_hook (tty_out
->terminal
);
1443 /* Avoid possible loss of output when changing terminal modes. */
1444 fsync (fileno (tty_out
->output
));
1448 #ifdef F_SETOWN /* F_SETFL does not imply existence of F_SETOWN */
1449 if (interrupt_input
)
1451 reset_sigio (fileno (tty_out
->input
));
1452 fcntl (fileno (tty_out
->input
), F_SETOWN
,
1453 old_fcntl_owner
[fileno (tty_out
->input
)]);
1455 #endif /* F_SETOWN */
1457 fcntl (fileno (tty_out
->input
), F_SETFL
,
1458 fcntl (fileno (tty_out
->input
), F_GETFL
, 0) & ~O_NDELAY
);
1460 #endif /* F_SETFL */
1462 if (tty_out
->old_tty
)
1463 while (EMACS_SET_TTY (fileno (tty_out
->input
),
1464 tty_out
->old_tty
, 0) < 0 && errno
== EINTR
)
1467 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida */
1475 /* Set up the proper status flags for use of a pty. */
1480 /* I'm told that TOICREMOTE does not mean control chars
1481 "can't be sent" but rather that they don't have
1482 input-editing or signaling effects.
1483 That should be good, because we have other ways
1484 to do those things in Emacs.
1485 However, telnet mode seems not to work on 4.2.
1486 So TIOCREMOTE is turned off now. */
1488 /* Under hp-ux, if TIOCREMOTE is turned on, some calls
1489 will hang. In particular, the "timeout" feature (which
1490 causes a read to return if there is no data available)
1491 does this. Also it is known that telnet mode will hang
1492 in such a way that Emacs must be stopped (perhaps this
1493 is the same problem).
1495 If TIOCREMOTE is turned off, then there is a bug in
1496 hp-ux which sometimes loses data. Apparently the
1497 code which blocks the master process when the internal
1498 buffer fills up does not work. Other than this,
1499 though, everything else seems to work fine.
1501 Since the latter lossage is more benign, we may as well
1502 lose that way. -- cph */
1504 #if defined(UNIX98_PTYS)
1507 ioctl (fd
, FIONBIO
, &on
);
1512 #endif /* HAVE_PTYS */
1514 #if !defined(CANNOT_DUMP) || !defined(SYSTEM_MALLOC)
1515 /* Some systems that cannot dump also cannot implement these. */
1518 * Return the address of the start of the text segment prior to
1519 * doing an unexec. After unexec the return value is undefined.
1520 * See crt0.c for further explanation and _start.
1524 #if !(defined (__NetBSD__) && defined (__ELF__))
1525 #ifndef HAVE_TEXT_START
1527 start_of_text (void)
1530 return ((char *) TEXT_START
);
1532 extern int _start ();
1533 return ((char *) _start
);
1534 #endif /* TEXT_START */
1536 #endif /* not HAVE_TEXT_START */
1540 * Return the address of the start of the data segment prior to
1541 * doing an unexec. After unexec the return value is undefined.
1542 * See crt0.c for further information and definition of data_start.
1544 * Apparently, on BSD systems this is etext at startup. On
1545 * USG systems (swapping) this is highly mmu dependent and
1546 * is also dependent on whether or not the program is running
1547 * with shared text. Generally there is a (possibly large)
1548 * gap between end of text and start of data with shared text.
1550 * On Uniplus+ systems with shared text, data starts at a
1551 * fixed address. Each port (from a given oem) is generally
1552 * different, and the specific value of the start of data can
1553 * be obtained via the UniPlus+ specific "uvar" system call,
1554 * however the method outlined in crt0.c seems to be more portable.
1556 * Probably what will have to happen when a USG unexec is available,
1557 * at least on UniPlus, is temacs will have to be made unshared so
1558 * that text and data are contiguous. Then once loadup is complete,
1559 * unexec will produce a shared executable where the data can be
1560 * at the normal shared text boundary and the startofdata variable
1561 * will be patched by unexec to the correct value.
1565 #ifndef start_of_data
1567 start_of_data (void)
1570 return ((char *) DATA_START
);
1572 #ifdef ORDINARY_LINK
1574 * This is a hack. Since we're not linking crt0.c or pre_crt0.c,
1575 * data_start isn't defined. We take the address of environ, which
1576 * is known to live at or near the start of the system crt0.c, and
1577 * we don't sweat the handful of bytes that might lose.
1579 extern char **environ
;
1581 return ((char *) &environ
);
1583 extern int data_start
;
1584 return ((char *) &data_start
);
1585 #endif /* ORDINARY_LINK */
1586 #endif /* DATA_START */
1588 #endif /* start_of_data */
1589 #endif /* NEED_STARTS (not CANNOT_DUMP or not SYSTEM_MALLOC) */
1591 /* init_system_name sets up the string for the Lisp function
1592 system-name to return. */
1594 extern Lisp_Object Vsystem_name
;
1597 #include <sys/socket.h>
1599 #endif /* HAVE_SOCKETS */
1602 #ifndef HAVE_H_ERRNO
1605 #endif /* TRY_AGAIN */
1608 init_system_name (void)
1610 #ifndef HAVE_GETHOSTNAME
1613 Vsystem_name
= build_string (uts
.nodename
);
1614 #else /* HAVE_GETHOSTNAME */
1615 unsigned int hostname_size
= 256;
1616 char *hostname
= (char *) alloca (hostname_size
);
1618 /* Try to get the host name; if the buffer is too short, try
1619 again. Apparently, the only indication gethostname gives of
1620 whether the buffer was large enough is the presence or absence
1621 of a '\0' in the string. Eech. */
1624 gethostname (hostname
, hostname_size
- 1);
1625 hostname
[hostname_size
- 1] = '\0';
1627 /* Was the buffer large enough for the '\0'? */
1628 if (strlen (hostname
) < hostname_size
- 1)
1631 hostname_size
<<= 1;
1632 hostname
= (char *) alloca (hostname_size
);
1635 /* Turn the hostname into the official, fully-qualified hostname.
1636 Don't do this if we're going to dump; this can confuse system
1637 libraries on some machines and make the dumped emacs core dump. */
1640 #endif /* not CANNOT_DUMP */
1641 if (! index (hostname
, '.'))
1644 #ifdef HAVE_GETADDRINFO
1645 struct addrinfo
*res
;
1646 struct addrinfo hints
;
1649 memset (&hints
, 0, sizeof (hints
));
1650 hints
.ai_socktype
= SOCK_STREAM
;
1651 hints
.ai_flags
= AI_CANONNAME
;
1653 for (count
= 0;; count
++)
1655 if ((ret
= getaddrinfo (hostname
, NULL
, &hints
, &res
)) == 0
1656 || ret
!= EAI_AGAIN
)
1661 Fsleep_for (make_number (1), Qnil
);
1666 struct addrinfo
*it
= res
;
1669 char *fqdn
= it
->ai_canonname
;
1670 if (fqdn
&& index (fqdn
, '.')
1671 && strcmp (fqdn
, "localhost.localdomain") != 0)
1677 hostname
= alloca (strlen (it
->ai_canonname
) + 1);
1678 strcpy (hostname
, it
->ai_canonname
);
1682 #else /* !HAVE_GETADDRINFO */
1684 for (count
= 0;; count
++)
1690 hp
= gethostbyname (hostname
);
1692 if (! (hp
== 0 && h_errno
== TRY_AGAIN
))
1699 Fsleep_for (make_number (1), Qnil
);
1704 char *fqdn
= (char *) hp
->h_name
;
1706 if (!index (fqdn
, '.'))
1708 /* We still don't have a fully qualified domain name.
1709 Try to find one in the list of alternate names */
1710 char **alias
= hp
->h_aliases
;
1712 && (!index (*alias
, '.')
1713 || !strcmp (*alias
, "localhost.localdomain")))
1720 #endif /* !HAVE_GETADDRINFO */
1722 #endif /* HAVE_SOCKETS */
1723 Vsystem_name
= build_string (hostname
);
1724 #endif /* HAVE_GETHOSTNAME */
1727 for (p
= SDATA (Vsystem_name
); *p
; p
++)
1728 if (*p
== ' ' || *p
== '\t')
1734 #if !defined (HAVE_SELECT)
1736 #include "sysselect.h"
1739 #if defined (HAVE_X_WINDOWS) && !defined (HAVE_SELECT)
1740 /* Cause explanatory error message at compile time,
1741 since the select emulation is not good enough for X. */
1742 int *x
= &x_windows_lose_if_no_select_system_call
;
1745 /* Emulate as much as select as is possible under 4.1 and needed by Gnu Emacs
1746 * Only checks read descriptors.
1748 /* How long to wait between checking fds in select */
1749 #define SELECT_PAUSE 1
1752 /* For longjmp'ing back to read_input_waiting. */
1754 jmp_buf read_alarm_throw
;
1756 /* Nonzero if the alarm signal should throw back to read_input_waiting.
1757 The read_socket_hook function sets this to 1 while it is waiting. */
1759 int read_alarm_should_throw
;
1762 select_alarm (int ignore
)
1765 signal (SIGALRM
, SIG_IGN
);
1766 SIGNAL_THREAD_CHECK (SIGALRM
);
1767 if (read_alarm_should_throw
)
1768 longjmp (read_alarm_throw
, 1);
1772 /* Only rfds are checked. */
1774 sys_select (int nfds
,
1775 SELECT_TYPE
*rfds
, SELECT_TYPE
*wfds
, SELECT_TYPE
*efds
,
1776 EMACS_TIME
*timeout
)
1778 /* XXX This needs to be updated for multi-tty support. Is there
1779 anybody who needs to emulate select these days? */
1784 extern int proc_buffered_char
[];
1785 #ifndef subprocesses
1786 int process_tick
= 0, update_tick
= 0;
1788 extern int process_tick
, update_tick
;
1792 #if defined (HAVE_SELECT) && defined (HAVE_X_WINDOWS)
1793 /* If we're using X, then the native select will work; we only need the
1794 emulation for non-X usage. */
1795 if (!NILP (Vinitial_window_system
))
1796 return select (nfds
, rfds
, wfds
, efds
, timeout
);
1798 timeoutval
= timeout
? EMACS_SECS (*timeout
) : 100000;
1799 local_timeout
= &timeoutval
;
1811 /* If we are looking only for the terminal, with no timeout,
1812 just read it and wait -- that's more efficient. */
1813 if (*local_timeout
== 100000 && process_tick
== update_tick
1814 && FD_ISSET (0, &orfds
))
1817 for (fd
= 1; fd
< nfds
; ++fd
)
1818 if (FD_ISSET (fd
, &orfds
))
1820 if (! detect_input_pending ())
1821 read_input_waiting ();
1827 /* Once a second, till the timer expires, check all the flagged read
1828 * descriptors to see if any input is available. If there is some then
1829 * set the corresponding bit in the return copy of rfds.
1833 register int to_check
, fd
;
1837 for (to_check
= nfds
, fd
= 0; --to_check
>= 0; fd
++)
1839 if (FD_ISSET (fd
, &orfds
))
1841 int avail
= 0, status
= 0;
1844 avail
= detect_input_pending (); /* Special keyboard handler */
1848 status
= ioctl (fd
, FIONREAD
, &avail
);
1849 #else /* no FIONREAD */
1850 /* Hoping it will return -1 if nothing available
1851 or 0 if all 0 chars requested are read. */
1852 if (proc_buffered_char
[fd
] >= 0)
1856 avail
= read (fd
, &buf
, 1);
1858 proc_buffered_char
[fd
] = buf
;
1860 #endif /* no FIONREAD */
1862 if (status
>= 0 && avail
> 0)
1870 if (*local_timeout
== 0 || ravail
!= 0 || process_tick
!= update_tick
)
1873 turn_on_atimers (0);
1874 signal (SIGALRM
, select_alarm
);
1876 alarm (SELECT_PAUSE
);
1878 /* Wait for a SIGALRM (or maybe a SIGTINT) */
1879 while (select_alarmed
== 0 && *local_timeout
!= 0
1880 && process_tick
== update_tick
)
1882 /* If we are interested in terminal input,
1883 wait by reading the terminal.
1884 That makes instant wakeup for terminal input at least. */
1885 if (FD_ISSET (0, &orfds
))
1887 read_input_waiting ();
1888 if (detect_input_pending ())
1894 (*local_timeout
) -= SELECT_PAUSE
;
1896 /* Reset the old alarm if there was one. */
1897 turn_on_atimers (1);
1899 if (*local_timeout
== 0) /* Stop on timer being cleared */
1904 #endif /* not WINDOWSNT */
1906 /* Read keyboard input into the standard buffer,
1907 waiting for at least one character. */
1910 read_input_waiting (void)
1912 /* XXX This needs to be updated for multi-tty support. Is there
1913 anybody who needs to emulate select these days? */
1915 extern int quit_char
;
1917 if (read_socket_hook
)
1919 struct input_event hold_quit
;
1921 EVENT_INIT (hold_quit
);
1922 hold_quit
.kind
= NO_EVENT
;
1924 read_alarm_should_throw
= 0;
1925 if (! setjmp (read_alarm_throw
))
1926 nread
= (*read_socket_hook
) (0, 1, &hold_quit
);
1930 if (hold_quit
.kind
!= NO_EVENT
)
1931 kbd_buffer_store_event (&hold_quit
);
1935 struct input_event e
;
1937 nread
= read (fileno (stdin
), buf
, 1);
1940 /* Scan the chars for C-g and store them in kbd_buffer. */
1941 e
.kind
= ASCII_KEYSTROKE_EVENT
;
1942 e
.frame_or_window
= selected_frame
;
1944 for (i
= 0; i
< nread
; i
++)
1946 /* Convert chars > 0177 to meta events if desired.
1947 We do this under the same conditions that read_avail_input does. */
1948 if (read_socket_hook
== 0)
1950 /* If the user says she has a meta key, then believe her. */
1951 if (meta_key
== 1 && (buf
[i
] & 0x80))
1952 e
.modifiers
= meta_modifier
;
1957 XSETINT (e
.code
, buf
[i
]);
1958 kbd_buffer_store_event (&e
);
1959 /* Don't look at input that follows a C-g too closely.
1960 This reduces lossage due to autorepeat on C-g. */
1961 if (buf
[i
] == quit_char
)
1967 #if !defined (HAVE_SELECT)
1968 #define select sys_select
1971 #endif /* not HAVE_SELECT */
1972 #endif /* not MSDOS */
1974 /* POSIX signals support - DJB */
1975 /* Anyone with POSIX signals should have ANSI C declarations */
1977 sigset_t empty_mask
, full_mask
;
1982 sys_signal (int signal_number
, signal_handler_t action
)
1984 struct sigaction new_action
, old_action
;
1985 sigemptyset (&new_action
.sa_mask
);
1986 new_action
.sa_handler
= action
;
1987 new_action
.sa_flags
= 0;
1988 #if defined (SA_RESTART)
1989 /* Emacs mostly works better with restartable system services. If this
1990 flag exists, we probably want to turn it on here.
1991 However, on some systems this resets the timeout of `select'
1992 which means that `select' never finishes if it keeps getting signals.
1993 BROKEN_SA_RESTART is defined on those systems. */
1994 /* It's not clear why the comment above says "mostly works better". --Stef
1995 When SYNC_INPUT is set, we don't want SA_RESTART because we need to poll
1996 for pending input so we need long-running syscalls to be interrupted
1997 after a signal that sets the interrupt_input_pending flag. */
1998 /* Non-interactive keyboard input goes through stdio, where we always
1999 want restartable system calls. */
2000 # if defined (BROKEN_SA_RESTART) || defined(SYNC_INPUT)
2003 new_action
.sa_flags
= SA_RESTART
;
2005 sigaction (signal_number
, &new_action
, &old_action
);
2006 return (old_action
.sa_handler
);
2009 #endif /* WINDOWSNT */
2012 /* If we're compiling with GCC, we don't need this function, since it
2013 can be written as a macro. */
2015 sys_sigmask (int sig
)
2018 sigemptyset (&mask
);
2019 sigaddset (&mask
, sig
);
2024 /* I'd like to have these guys return pointers to the mask storage in here,
2025 but there'd be trouble if the code was saving multiple masks. I'll be
2026 safe and pass the structure. It normally won't be more than 2 bytes
2030 sys_sigblock (sigset_t new_mask
)
2033 sigprocmask (SIG_BLOCK
, &new_mask
, &old_mask
);
2038 sys_sigunblock (sigset_t new_mask
)
2041 sigprocmask (SIG_UNBLOCK
, &new_mask
, &old_mask
);
2046 sys_sigsetmask (sigset_t new_mask
)
2049 sigprocmask (SIG_SETMASK
, &new_mask
, &old_mask
);
2054 #if !defined HAVE_STRSIGNAL && !HAVE_DECL_SYS_SIGLIST
2055 static char *my_sys_siglist
[NSIG
];
2059 # define sys_siglist my_sys_siglist
2065 sigemptyset (&empty_mask
);
2066 sigfillset (&full_mask
);
2068 #if !defined HAVE_STRSIGNAL && !HAVE_DECL_SYS_SIGLIST
2072 sys_siglist
[SIGABRT
] = "Aborted";
2075 sys_siglist
[SIGAIO
] = "LAN I/O interrupt";
2078 sys_siglist
[SIGALRM
] = "Alarm clock";
2081 sys_siglist
[SIGBUS
] = "Bus error";
2084 sys_siglist
[SIGCLD
] = "Child status changed";
2087 sys_siglist
[SIGCHLD
] = "Child status changed";
2090 sys_siglist
[SIGCONT
] = "Continued";
2093 sys_siglist
[SIGDANGER
] = "Swap space dangerously low";
2096 sys_siglist
[SIGDGNOTIFY
] = "Notification message in queue";
2099 sys_siglist
[SIGEMT
] = "Emulation trap";
2102 sys_siglist
[SIGFPE
] = "Arithmetic exception";
2105 sys_siglist
[SIGFREEZE
] = "SIGFREEZE";
2108 sys_siglist
[SIGGRANT
] = "Monitor mode granted";
2111 sys_siglist
[SIGHUP
] = "Hangup";
2114 sys_siglist
[SIGILL
] = "Illegal instruction";
2117 sys_siglist
[SIGINT
] = "Interrupt";
2120 sys_siglist
[SIGIO
] = "I/O possible";
2123 sys_siglist
[SIGIOINT
] = "I/O intervention required";
2126 sys_siglist
[SIGIOT
] = "IOT trap";
2129 sys_siglist
[SIGKILL
] = "Killed";
2132 sys_siglist
[SIGLOST
] = "Resource lost";
2135 sys_siglist
[SIGLWP
] = "SIGLWP";
2138 sys_siglist
[SIGMSG
] = "Monitor mode data available";
2141 sys_siglist
[SIGWIND
] = "SIGPHONE";
2144 sys_siglist
[SIGPIPE
] = "Broken pipe";
2147 sys_siglist
[SIGPOLL
] = "Pollable event occurred";
2150 sys_siglist
[SIGPROF
] = "Profiling timer expired";
2153 sys_siglist
[SIGPTY
] = "PTY I/O interrupt";
2156 sys_siglist
[SIGPWR
] = "Power-fail restart";
2159 sys_siglist
[SIGQUIT
] = "Quit";
2162 sys_siglist
[SIGRETRACT
] = "Need to relinguish monitor mode";
2165 sys_siglist
[SIGSAK
] = "Secure attention";
2168 sys_siglist
[SIGSEGV
] = "Segmentation violation";
2171 sys_siglist
[SIGSOUND
] = "Sound completed";
2174 sys_siglist
[SIGSTOP
] = "Stopped (signal)";
2177 sys_siglist
[SIGSTP
] = "Stopped (user)";
2180 sys_siglist
[SIGSYS
] = "Bad argument to system call";
2183 sys_siglist
[SIGTERM
] = "Terminated";
2186 sys_siglist
[SIGTHAW
] = "SIGTHAW";
2189 sys_siglist
[SIGTRAP
] = "Trace/breakpoint trap";
2192 sys_siglist
[SIGTSTP
] = "Stopped (user)";
2195 sys_siglist
[SIGTTIN
] = "Stopped (tty input)";
2198 sys_siglist
[SIGTTOU
] = "Stopped (tty output)";
2201 sys_siglist
[SIGURG
] = "Urgent I/O condition";
2204 sys_siglist
[SIGUSR1
] = "User defined signal 1";
2207 sys_siglist
[SIGUSR2
] = "User defined signal 2";
2210 sys_siglist
[SIGVTALRM
] = "Virtual timer expired";
2213 sys_siglist
[SIGWAITING
] = "Process's LWPs are blocked";
2216 sys_siglist
[SIGWINCH
] = "Window size changed";
2219 sys_siglist
[SIGWIND
] = "SIGWIND";
2222 sys_siglist
[SIGXCPU
] = "CPU time limit exceeded";
2225 sys_siglist
[SIGXFSZ
] = "File size limit exceeded";
2228 #endif /* !defined HAVE_STRSIGNAL && !defined HAVE_DECL_SYS_SIGLIST */
2237 /* Figure out how many bits the system's random number generator uses.
2238 `random' and `lrand48' are assumed to return 31 usable bits.
2239 BSD `rand' returns a 31 bit value but the low order bits are unusable;
2240 so we'll shift it and treat it like the 15-bit USG `rand'. */
2244 # define RAND_BITS 31
2245 # else /* !HAVE_RANDOM */
2246 # ifdef HAVE_LRAND48
2247 # define RAND_BITS 31
2248 # define random lrand48
2249 # else /* !HAVE_LRAND48 */
2250 # define RAND_BITS 15
2251 # if RAND_MAX == 32767
2252 # define random rand
2253 # else /* RAND_MAX != 32767 */
2254 # if RAND_MAX == 2147483647
2255 # define random() (rand () >> 16)
2256 # else /* RAND_MAX != 2147483647 */
2258 # define random rand
2260 # define random() (rand () >> 16)
2262 # endif /* RAND_MAX != 2147483647 */
2263 # endif /* RAND_MAX != 32767 */
2264 # endif /* !HAVE_LRAND48 */
2265 # endif /* !HAVE_RANDOM */
2266 #endif /* !RAND_BITS */
2269 seed_random (long int arg
)
2272 srandom ((unsigned int)arg
);
2274 # ifdef HAVE_LRAND48
2277 srand ((unsigned int)arg
);
2283 * Build a full Emacs-sized word out of whatever we've got.
2284 * This suffices even for a 64-bit architecture with a 15-bit rand.
2289 long val
= random ();
2290 #if VALBITS > RAND_BITS
2291 val
= (val
<< RAND_BITS
) ^ random ();
2292 #if VALBITS > 2*RAND_BITS
2293 val
= (val
<< RAND_BITS
) ^ random ();
2294 #if VALBITS > 3*RAND_BITS
2295 val
= (val
<< RAND_BITS
) ^ random ();
2296 #if VALBITS > 4*RAND_BITS
2297 val
= (val
<< RAND_BITS
) ^ random ();
2298 #endif /* need at least 5 */
2299 #endif /* need at least 4 */
2300 #endif /* need at least 3 */
2301 #endif /* need at least 2 */
2302 return val
& ((1L << VALBITS
) - 1);
2305 #ifndef HAVE_STRERROR
2311 extern char *sys_errlist
[];
2312 extern int sys_nerr
;
2314 if (errnum
>= 0 && errnum
< sys_nerr
)
2315 return sys_errlist
[errnum
];
2316 return (char *) "Unknown error";
2318 #endif /* not WINDOWSNT */
2319 #endif /* ! HAVE_STRERROR */
2322 emacs_open (const char *path
, int oflag
, int mode
)
2324 register int rtnval
;
2326 while ((rtnval
= open (path
, oflag
, mode
)) == -1
2327 && (errno
== EINTR
))
2333 emacs_close (int fd
)
2336 register int rtnval
;
2338 while ((rtnval
= close (fd
)) == -1
2339 && (errno
== EINTR
))
2342 /* If close is interrupted SunOS 4.1 may or may not have closed the
2343 file descriptor. If it did the second close will fail with
2344 errno = EBADF. That means we have succeeded. */
2345 if (rtnval
== -1 && did_retry
&& errno
== EBADF
)
2352 emacs_read (int fildes
, char *buf
, unsigned int nbyte
)
2354 register int rtnval
;
2356 while ((rtnval
= read (fildes
, buf
, nbyte
)) == -1
2357 && (errno
== EINTR
))
2363 emacs_write (int fildes
, const char *buf
, unsigned int nbyte
)
2365 register int rtnval
, bytes_written
;
2371 rtnval
= write (fildes
, buf
, nbyte
);
2378 /* I originally used `QUIT' but that might causes files to
2379 be truncated if you hit C-g in the middle of it. --Stef */
2380 process_pending_signals ();
2385 return (bytes_written
? bytes_written
: -1);
2390 bytes_written
+= rtnval
;
2392 return (bytes_written
);
2397 * All of the following are for USG.
2399 * On USG systems the system calls are INTERRUPTIBLE by signals
2400 * that the user program has elected to catch. Thus the system call
2401 * must be retried in these cases. To handle this without massive
2402 * changes in the source code, we remap the standard system call names
2403 * to names for our own functions in sysdep.c that do the system call
2404 * with retries. Actually, for portability reasons, it is good
2405 * programming practice, as this example shows, to limit all actual
2406 * system calls to a single occurrence in the source. Sure, this
2407 * adds an extra level of function call overhead but it is almost
2408 * always negligible. Fred Fish, Unisoft Systems Inc.
2412 * Warning, this function may not duplicate 4.2 action properly
2413 * under error conditions.
2417 /* In 4.1, param.h fails to define this. */
2418 #define MAXPATHLEN 1024
2424 getwd (char *pathname
)
2426 char *npath
, *spath
;
2427 extern char *getcwd (char *, size_t);
2429 BLOCK_INPUT
; /* getcwd uses malloc */
2430 spath
= npath
= getcwd ((char *) 0, MAXPATHLEN
);
2436 /* On Altos 3068, getcwd can return @hostname/dir, so discard
2437 up to first slash. Should be harmless on other systems. */
2438 while (*npath
&& *npath
!= '/')
2440 strcpy (pathname
, npath
);
2441 free (spath
); /* getcwd uses malloc */
2446 #endif /* HAVE_GETWD */
2449 * Emulate rename using unlink/link. Note that this is
2450 * only partially correct. Also, doesn't enforce restriction
2451 * that files be of same type (regular->regular, dir->dir, etc).
2457 rename (const char *from
, const char *to
)
2459 if (access (from
, 0) == 0)
2462 if (link (from
, to
) == 0)
2463 if (unlink (from
) == 0)
2472 #if defined(HPUX) && !defined(HAVE_PERROR)
2474 /* HPUX curses library references perror, but as far as we know
2475 it won't be called. Anyway this definition will do for now. */
2481 #endif /* HPUX and not HAVE_PERROR */
2486 * Emulate BSD dup2. First close newd if it already exists.
2487 * Then, attempt to dup oldd. If not successful, call dup2 recursively
2488 * until we are, then close the unsuccessful ones.
2492 dup2 (int oldd
, int newd
)
2494 register int fd
, ret
;
2499 return fcntl (oldd
, F_DUPFD
, newd
);
2506 ret
= dup2 (old
,new);
2512 #endif /* not HAVE_DUP2 */
2515 * Gettimeofday. Simulate as much as possible. Only accurate
2516 * to nearest second. Emacs doesn't use tzp so ignore it for now.
2517 * Only needed when subprocesses are defined.
2521 #ifndef HAVE_GETTIMEOFDAY
2526 gettimeofday (struct timeval
*tp
, struct timezone
*tzp
)
2528 extern long time (long);
2530 tp
->tv_sec
= time ((long *)0);
2533 tzp
->tz_minuteswest
= -1;
2539 #endif /* subprocess && !HAVE_GETTIMEOFDAY && HAVE_TIMEVAL */
2542 * This function will go away as soon as all the stubs fixed. (fnf)
2546 croak (char *badfunc
)
2548 printf ("%s not yet implemented\r\n", badfunc
);
2549 reset_all_sys_modes ();
2555 /* Directory routines for systems that don't have them. */
2557 #ifdef SYSV_SYSTEM_DIR
2561 #if !defined (HAVE_CLOSEDIR)
2564 closedir (DIR *dirp
/* stream from opendir */)
2568 rtnval
= emacs_close (dirp
->dd_fd
);
2569 xfree ((char *) dirp
);
2573 #endif /* not HAVE_CLOSEDIR */
2574 #endif /* SYSV_SYSTEM_DIR */
2578 set_file_times (const char *filename
, EMACS_TIME atime
, EMACS_TIME mtime
)
2581 struct timeval tv
[2];
2584 return utimes (filename
, tv
);
2585 #else /* not HAVE_UTIMES */
2587 utb
.actime
= EMACS_SECS (atime
);
2588 utb
.modtime
= EMACS_SECS (mtime
);
2589 return utime (filename
, &utb
);
2590 #endif /* not HAVE_UTIMES */
2593 /* mkdir and rmdir functions, for systems which don't have them. */
2597 * Written by Robert Rother, Mariah Corporation, August 1985.
2599 * If you want it, it's yours. All I ask in return is that if you
2600 * figure out how to do this in a Bourne Shell script you send me
2602 * sdcsvax!rmr or rmr@uscd
2604 * Severely hacked over by John Gilmore to make a 4.2BSD compatible
2605 * subroutine. 11Mar86; hoptoad!gnu
2607 * Modified by rmtodd@uokmax 6-28-87 -- when making an already existing dir,
2608 * subroutine didn't return EEXIST. It does now.
2615 mkdir (char *dpath
, int dmode
)
2617 int cpid
, status
, fd
;
2618 struct stat statbuf
;
2620 if (stat (dpath
, &statbuf
) == 0)
2622 errno
= EEXIST
; /* Stat worked, so it already exists */
2626 /* If stat fails for a reason other than non-existence, return error */
2627 if (errno
!= ENOENT
)
2630 synch_process_alive
= 1;
2631 switch (cpid
= fork ())
2634 case -1: /* Error in fork */
2635 return (-1); /* Errno is set already */
2637 case 0: /* Child process */
2639 * Cheap hack to set mode of new directory. Since this
2640 * child process is going away anyway, we zap its umask.
2641 * FIXME, this won't suffice to set SUID, SGID, etc. on this
2642 * directory. Does anybody care?
2644 status
= umask (0); /* Get current umask */
2645 status
= umask (status
| (0777 & ~dmode
)); /* Set for mkdir */
2646 fd
= emacs_open ("/dev/null", O_RDWR
, 0);
2653 execl ("/bin/mkdir", "mkdir", dpath
, (char *) 0);
2654 _exit (-1); /* Can't exec /bin/mkdir */
2656 default: /* Parent process */
2657 wait_for_termination (cpid
);
2660 if (synch_process_death
!= 0 || synch_process_retcode
!= 0
2661 || synch_process_termsig
!= 0)
2663 errno
= EIO
; /* We don't know why, but */
2664 return -1; /* /bin/mkdir failed */
2669 #endif /* not HAVE_MKDIR */
2675 int cpid
, status
, fd
;
2676 struct stat statbuf
;
2678 if (stat (dpath
, &statbuf
) != 0)
2680 /* Stat just set errno. We don't have to */
2684 synch_process_alive
= 1;
2685 switch (cpid
= fork ())
2688 case -1: /* Error in fork */
2689 return (-1); /* Errno is set already */
2691 case 0: /* Child process */
2692 fd
= emacs_open ("/dev/null", O_RDWR
, 0);
2699 execl ("/bin/rmdir", "rmdir", dpath
, (char *) 0);
2700 _exit (-1); /* Can't exec /bin/rmdir */
2702 default: /* Parent process */
2703 wait_for_termination (cpid
);
2706 if (synch_process_death
!= 0 || synch_process_retcode
!= 0
2707 || synch_process_termsig
!= 0)
2709 errno
= EIO
; /* We don't know why, but */
2710 return -1; /* /bin/rmdir failed */
2715 #endif /* !HAVE_RMDIR */
2720 memset (void *b
, int n
, size_t length
)
2722 unsigned char *p
= b
;
2723 while (length
-- > 0)
2727 #endif /* !HAVE_MEMSET */
2731 memcpy (void *b1
, void *b2
, size_t length
)
2733 unsigned char *p1
= b1
, *p2
= b2
;
2734 while (length
-- > 0)
2738 #endif /* !HAVE_MEMCPY */
2740 #ifndef HAVE_MEMMOVE
2742 memmove (void *b1
, void *b2
, size_t length
)
2744 unsigned char *p1
= b1
, *p2
= b2
;
2745 if (p1
< p2
|| p1
>= p2
+ length
)
2746 while (length
-- > 0)
2752 while (length
-- > 0)
2757 #endif /* !HAVE_MEMCPY */
2761 memcmp (void *b1
, void *b2
, size_t length
)
2763 unsigned char *p1
= b1
, *p2
= b2
;
2764 while (length
-- > 0)
2766 return p1
[-1] < p2
[-1] ? -1 : 1;
2769 #endif /* !HAVE_MEMCMP */
2771 #ifndef HAVE_STRSIGNAL
2773 strsignal (int code
)
2777 if (0 <= code
&& code
< NSIG
)
2779 /* Cast to suppress warning if the table has const char *. */
2780 signame
= (char *) sys_siglist
[code
];
2785 #endif /* HAVE_STRSIGNAL */
2788 /* For make-serial-process */
2790 serial_open (char *port
)
2794 fd
= emacs_open ((char*) port
,
2807 error ("Could not open %s: %s",
2808 port
, emacs_strerror (errno
));
2811 ioctl (fd
, TIOCEXCL
, (char *) 0);
2816 #endif /* TERMIOS */
2820 #if !defined (HAVE_CFMAKERAW)
2821 /* Workaround for targets which are missing cfmakeraw. */
2822 /* Pasted from man page. */
2824 cfmakeraw (struct termios
*termios_p
)
2826 termios_p
->c_iflag
&= ~(IGNBRK
|BRKINT
|PARMRK
|ISTRIP
|INLCR
|IGNCR
|ICRNL
|IXON
);
2827 termios_p
->c_oflag
&= ~OPOST
;
2828 termios_p
->c_lflag
&= ~(ECHO
|ECHONL
|ICANON
|ISIG
|IEXTEN
);
2829 termios_p
->c_cflag
&= ~(CSIZE
|PARENB
);
2830 termios_p
->c_cflag
|= CS8
;
2832 #endif /* !defined (HAVE_CFMAKERAW */
2834 #if !defined (HAVE_CFSETSPEED)
2835 /* Workaround for targets which are missing cfsetspeed. */
2837 cfsetspeed (struct termios
*termios_p
, speed_t vitesse
)
2839 return (cfsetispeed (termios_p
, vitesse
)
2840 + cfsetospeed (termios_p
, vitesse
));
2844 /* For serial-process-configure */
2846 serial_configure (struct Lisp_Process
*p
,
2847 Lisp_Object contact
)
2849 Lisp_Object childp2
= Qnil
;
2850 Lisp_Object tem
= Qnil
;
2851 struct termios attr
;
2853 char summary
[4] = "???"; /* This usually becomes "8N1". */
2855 childp2
= Fcopy_sequence (p
->childp
);
2857 /* Read port attributes and prepare default configuration. */
2858 err
= tcgetattr (p
->outfd
, &attr
);
2860 error ("tcgetattr() failed: %s", emacs_strerror (errno
));
2862 #if defined (CLOCAL)
2863 attr
.c_cflag
|= CLOCAL
;
2866 attr
.c_cflag
|= CREAD
;
2869 /* Configure speed. */
2870 if (!NILP (Fplist_member (contact
, QCspeed
)))
2871 tem
= Fplist_get (contact
, QCspeed
);
2873 tem
= Fplist_get (p
->childp
, QCspeed
);
2875 err
= cfsetspeed (&attr
, XINT (tem
));
2877 error ("cfsetspeed(%d) failed: %s", XINT (tem
), emacs_strerror (errno
));
2878 childp2
= Fplist_put (childp2
, QCspeed
, tem
);
2880 /* Configure bytesize. */
2881 if (!NILP (Fplist_member (contact
, QCbytesize
)))
2882 tem
= Fplist_get (contact
, QCbytesize
);
2884 tem
= Fplist_get (p
->childp
, QCbytesize
);
2886 tem
= make_number (8);
2888 if (XINT (tem
) != 7 && XINT (tem
) != 8)
2889 error (":bytesize must be nil (8), 7, or 8");
2890 summary
[0] = XINT (tem
) + '0';
2891 #if defined (CSIZE) && defined (CS7) && defined (CS8)
2892 attr
.c_cflag
&= ~CSIZE
;
2893 attr
.c_cflag
|= ((XINT (tem
) == 7) ? CS7
: CS8
);
2895 /* Don't error on bytesize 8, which should be set by cfmakeraw. */
2896 if (XINT (tem
) != 8)
2897 error ("Bytesize cannot be changed");
2899 childp2
= Fplist_put (childp2
, QCbytesize
, tem
);
2901 /* Configure parity. */
2902 if (!NILP (Fplist_member (contact
, QCparity
)))
2903 tem
= Fplist_get (contact
, QCparity
);
2905 tem
= Fplist_get (p
->childp
, QCparity
);
2906 if (!NILP (tem
) && !EQ (tem
, Qeven
) && !EQ (tem
, Qodd
))
2907 error (":parity must be nil (no parity), `even', or `odd'");
2908 #if defined (PARENB) && defined (PARODD) && defined (IGNPAR) && defined (INPCK)
2909 attr
.c_cflag
&= ~(PARENB
| PARODD
);
2910 attr
.c_iflag
&= ~(IGNPAR
| INPCK
);
2915 else if (EQ (tem
, Qeven
))
2918 attr
.c_cflag
|= PARENB
;
2919 attr
.c_iflag
|= (IGNPAR
| INPCK
);
2921 else if (EQ (tem
, Qodd
))
2924 attr
.c_cflag
|= (PARENB
| PARODD
);
2925 attr
.c_iflag
|= (IGNPAR
| INPCK
);
2928 /* Don't error on no parity, which should be set by cfmakeraw. */
2930 error ("Parity cannot be configured");
2932 childp2
= Fplist_put (childp2
, QCparity
, tem
);
2934 /* Configure stopbits. */
2935 if (!NILP (Fplist_member (contact
, QCstopbits
)))
2936 tem
= Fplist_get (contact
, QCstopbits
);
2938 tem
= Fplist_get (p
->childp
, QCstopbits
);
2940 tem
= make_number (1);
2942 if (XINT (tem
) != 1 && XINT (tem
) != 2)
2943 error (":stopbits must be nil (1 stopbit), 1, or 2");
2944 summary
[2] = XINT (tem
) + '0';
2945 #if defined (CSTOPB)
2946 attr
.c_cflag
&= ~CSTOPB
;
2947 if (XINT (tem
) == 2)
2948 attr
.c_cflag
|= CSTOPB
;
2950 /* Don't error on 1 stopbit, which should be set by cfmakeraw. */
2951 if (XINT (tem
) != 1)
2952 error ("Stopbits cannot be configured");
2954 childp2
= Fplist_put (childp2
, QCstopbits
, tem
);
2956 /* Configure flowcontrol. */
2957 if (!NILP (Fplist_member (contact
, QCflowcontrol
)))
2958 tem
= Fplist_get (contact
, QCflowcontrol
);
2960 tem
= Fplist_get (p
->childp
, QCflowcontrol
);
2961 if (!NILP (tem
) && !EQ (tem
, Qhw
) && !EQ (tem
, Qsw
))
2962 error (":flowcontrol must be nil (no flowcontrol), `hw', or `sw'");
2963 #if defined (CRTSCTS)
2964 attr
.c_cflag
&= ~CRTSCTS
;
2966 #if defined (CNEW_RTSCTS)
2967 attr
.c_cflag
&= ~CNEW_RTSCTS
;
2969 #if defined (IXON) && defined (IXOFF)
2970 attr
.c_iflag
&= ~(IXON
| IXOFF
);
2974 /* Already configured. */
2976 else if (EQ (tem
, Qhw
))
2978 #if defined (CRTSCTS)
2979 attr
.c_cflag
|= CRTSCTS
;
2980 #elif defined (CNEW_RTSCTS)
2981 attr
.c_cflag
|= CNEW_RTSCTS
;
2983 error ("Hardware flowcontrol (RTS/CTS) not supported");
2986 else if (EQ (tem
, Qsw
))
2988 #if defined (IXON) && defined (IXOFF)
2989 attr
.c_iflag
|= (IXON
| IXOFF
);
2991 error ("Software flowcontrol (XON/XOFF) not supported");
2994 childp2
= Fplist_put (childp2
, QCflowcontrol
, tem
);
2996 /* Activate configuration. */
2997 err
= tcsetattr (p
->outfd
, TCSANOW
, &attr
);
2999 error ("tcsetattr() failed: %s", emacs_strerror (errno
));
3001 childp2
= Fplist_put (childp2
, QCsummary
, build_string (summary
));
3002 p
->childp
= childp2
;
3005 #endif /* TERMIOS */
3007 /* System depended enumeration of and access to system processes a-la ps(1). */
3011 /* Process enumeration and access via /proc. */
3014 list_system_processes (void)
3016 Lisp_Object procdir
, match
, proclist
, next
;
3017 struct gcpro gcpro1
, gcpro2
;
3018 register Lisp_Object tail
;
3020 GCPRO2 (procdir
, match
);
3021 /* For every process on the system, there's a directory in the
3022 "/proc" pseudo-directory whose name is the numeric ID of that
3024 procdir
= build_string ("/proc");
3025 match
= build_string ("[0-9]+");
3026 proclist
= directory_files_internal (procdir
, Qnil
, match
, Qt
, 0, Qnil
);
3028 /* `proclist' gives process IDs as strings. Destructively convert
3029 each string into a number. */
3030 for (tail
= proclist
; CONSP (tail
); tail
= next
)
3033 XSETCAR (tail
, Fstring_to_number (XCAR (tail
), Qnil
));
3037 /* directory_files_internal returns the files in reverse order; undo
3039 proclist
= Fnreverse (proclist
);
3043 /* The WINDOWSNT implementation is in w32.c.
3044 The MSDOS implementation is in dosfns.c. */
3045 #elif !defined (WINDOWSNT) && !defined (MSDOS)
3048 list_system_processes (void)
3053 #endif /* !defined (WINDOWSNT) */
3057 time_from_jiffies (unsigned long long tval
, long hz
,
3058 time_t *sec
, unsigned *usec
)
3060 unsigned long long ullsec
;
3064 tval
-= ullsec
* hz
;
3065 /* Careful: if HZ > 1 million, then integer division by it yields zero. */
3067 *usec
= tval
* 1000000 / hz
;
3069 *usec
= tval
/ (hz
/ 1000000);
3073 ltime_from_jiffies (unsigned long long tval
, long hz
)
3078 time_from_jiffies (tval
, hz
, &sec
, &usec
);
3080 return list3 (make_number ((sec
>> 16) & 0xffff),
3081 make_number (sec
& 0xffff),
3082 make_number (usec
));
3086 get_up_time (time_t *sec
, unsigned *usec
)
3093 fup
= fopen ("/proc/uptime", "r");
3097 double uptime
, idletime
;
3099 /* The numbers in /proc/uptime use C-locale decimal point, but
3100 we already set ourselves to the C locale (see `fixup_locale'
3102 if (2 <= fscanf (fup
, "%lf %lf", &uptime
, &idletime
))
3105 *usec
= (uptime
- *sec
) * 1000000;
3112 #define MAJOR(d) (((unsigned)(d) >> 8) & 0xfff)
3113 #define MINOR(d) (((unsigned)(d) & 0xff) | (((unsigned)(d) & 0xfff00000) >> 12))
3116 procfs_ttyname (int rdev
)
3119 char name
[PATH_MAX
];
3122 fdev
= fopen ("/proc/tty/drivers", "r");
3127 unsigned long minor_beg
, minor_end
;
3128 char minor
[25]; /* 2 32-bit numbers + dash */
3131 while (!feof (fdev
) && !ferror (fdev
))
3133 if (3 <= fscanf (fdev
, "%*s %s %u %s %*s\n", name
, &major
, minor
)
3134 && major
== MAJOR (rdev
))
3136 minor_beg
= strtoul (minor
, &endp
, 0);
3138 minor_end
= minor_beg
;
3139 else if (*endp
== '-')
3140 minor_end
= strtoul (endp
+ 1, &endp
, 0);
3144 if (MINOR (rdev
) >= minor_beg
&& MINOR (rdev
) <= minor_end
)
3146 sprintf (name
+ strlen (name
), "%u", MINOR (rdev
));
3154 return build_string (name
);
3157 static unsigned long
3158 procfs_get_total_memory (void)
3161 unsigned long retval
= 2 * 1024 * 1024; /* default: 2GB */
3164 fmem
= fopen ("/proc/meminfo", "r");
3168 unsigned long entry_value
;
3169 char entry_name
[20]; /* the longest I saw is 13+1 */
3171 while (!feof (fmem
) && !ferror (fmem
))
3173 if (2 <= fscanf (fmem
, "%s %lu kB\n", entry_name
, &entry_value
)
3174 && strcmp (entry_name
, "MemTotal:") == 0)
3176 retval
= entry_value
;
3187 system_process_attributes (Lisp_Object pid
)
3189 char procfn
[PATH_MAX
], fn
[PATH_MAX
];
3193 long clocks_per_sec
;
3195 char procbuf
[1025], *p
, *q
;
3198 const char *cmd
= NULL
;
3199 char *cmdline
= NULL
;
3200 size_t cmdsize
= 0, cmdline_size
;
3202 int proc_id
, ppid
, uid
, gid
, pgrp
, sess
, tty
, tpgid
, thcount
;
3203 unsigned long long utime
, stime
, cutime
, cstime
, start
;
3204 long priority
, nice
, rss
;
3205 unsigned long minflt
, majflt
, cminflt
, cmajflt
, vsize
;
3208 EMACS_TIME tnow
, tstart
, tboot
, telapsed
;
3210 Lisp_Object attrs
= Qnil
;
3211 Lisp_Object cmd_str
, decoded_cmd
, tem
;
3212 struct gcpro gcpro1
, gcpro2
;
3213 EMACS_INT uid_eint
, gid_eint
;
3215 CHECK_NUMBER_OR_FLOAT (pid
);
3216 proc_id
= FLOATP (pid
) ? XFLOAT_DATA (pid
) : XINT (pid
);
3217 sprintf (procfn
, "/proc/%u", proc_id
);
3218 if (stat (procfn
, &st
) < 0)
3221 GCPRO2 (attrs
, decoded_cmd
);
3225 /* Use of EMACS_INT stops GCC whining about limited range of data type. */
3227 attrs
= Fcons (Fcons (Qeuid
, make_fixnum_or_float (uid_eint
)), attrs
);
3229 pw
= getpwuid (uid
);
3232 attrs
= Fcons (Fcons (Quser
, build_string (pw
->pw_name
)), attrs
);
3236 attrs
= Fcons (Fcons (Qegid
, make_fixnum_or_float (gid_eint
)), attrs
);
3238 gr
= getgrgid (gid
);
3241 attrs
= Fcons (Fcons (Qgroup
, build_string (gr
->gr_name
)), attrs
);
3243 strcpy (fn
, procfn
);
3244 procfn_end
= fn
+ strlen (fn
);
3245 strcpy (procfn_end
, "/stat");
3246 fd
= emacs_open (fn
, O_RDONLY
, 0);
3247 if (fd
>= 0 && (nread
= emacs_read (fd
, procbuf
, sizeof (procbuf
) - 1)) > 0)
3249 procbuf
[nread
] = '\0';
3252 p
= strchr (p
, '(');
3255 q
= strrchr (p
+ 1, ')');
3270 /* Command name is encoded in locale-coding-system; decode it. */
3271 cmd_str
= make_unibyte_string (cmd
, cmdsize
);
3272 decoded_cmd
= code_convert_string_norecord (cmd_str
,
3273 Vlocale_coding_system
, 0);
3274 attrs
= Fcons (Fcons (Qcomm
, decoded_cmd
), attrs
);
3278 EMACS_INT ppid_eint
, pgrp_eint
, sess_eint
, tpgid_eint
, thcount_eint
;
3280 /* state ppid pgrp sess tty tpgid . minflt cminflt majflt cmajflt utime stime cutime cstime priority nice thcount . start vsize rss */
3281 sscanf (p
, "%c %d %d %d %d %d %*u %lu %lu %lu %lu %Lu %Lu %Lu %Lu %ld %ld %d %*d %Lu %lu %ld",
3282 &c
, &ppid
, &pgrp
, &sess
, &tty
, &tpgid
,
3283 &minflt
, &cminflt
, &majflt
, &cmajflt
,
3284 &utime
, &stime
, &cutime
, &cstime
,
3285 &priority
, &nice
, &thcount
, &start
, &vsize
, &rss
);
3290 state_str
[1] = '\0';
3291 tem
= build_string (state_str
);
3292 attrs
= Fcons (Fcons (Qstate
, tem
), attrs
);
3294 /* Stops GCC whining about limited range of data type. */
3299 thcount_eint
= thcount
;
3300 attrs
= Fcons (Fcons (Qppid
, make_fixnum_or_float (ppid_eint
)), attrs
);
3301 attrs
= Fcons (Fcons (Qpgrp
, make_fixnum_or_float (pgrp_eint
)), attrs
);
3302 attrs
= Fcons (Fcons (Qsess
, make_fixnum_or_float (sess_eint
)), attrs
);
3303 attrs
= Fcons (Fcons (Qttname
, procfs_ttyname (tty
)), attrs
);
3304 attrs
= Fcons (Fcons (Qtpgid
, make_fixnum_or_float (tpgid_eint
)), attrs
);
3305 attrs
= Fcons (Fcons (Qminflt
, make_fixnum_or_float (minflt
)), attrs
);
3306 attrs
= Fcons (Fcons (Qmajflt
, make_fixnum_or_float (majflt
)), attrs
);
3307 attrs
= Fcons (Fcons (Qcminflt
, make_fixnum_or_float (cminflt
)), attrs
);
3308 attrs
= Fcons (Fcons (Qcmajflt
, make_fixnum_or_float (cmajflt
)), attrs
);
3309 clocks_per_sec
= sysconf (_SC_CLK_TCK
);
3310 if (clocks_per_sec
< 0)
3311 clocks_per_sec
= 100;
3312 attrs
= Fcons (Fcons (Qutime
,
3313 ltime_from_jiffies (utime
, clocks_per_sec
)),
3315 attrs
= Fcons (Fcons (Qstime
,
3316 ltime_from_jiffies (stime
, clocks_per_sec
)),
3318 attrs
= Fcons (Fcons (Qtime
,
3319 ltime_from_jiffies (stime
+utime
, clocks_per_sec
)),
3321 attrs
= Fcons (Fcons (Qcutime
,
3322 ltime_from_jiffies (cutime
, clocks_per_sec
)),
3324 attrs
= Fcons (Fcons (Qcstime
,
3325 ltime_from_jiffies (cstime
, clocks_per_sec
)),
3327 attrs
= Fcons (Fcons (Qctime
,
3328 ltime_from_jiffies (cstime
+cutime
, clocks_per_sec
)),
3330 attrs
= Fcons (Fcons (Qpri
, make_number (priority
)), attrs
);
3331 attrs
= Fcons (Fcons (Qnice
, make_number (nice
)), attrs
);
3332 attrs
= Fcons (Fcons (Qthcount
, make_fixnum_or_float (thcount_eint
)), attrs
);
3333 EMACS_GET_TIME (tnow
);
3334 get_up_time (&sec
, &usec
);
3335 EMACS_SET_SECS (telapsed
, sec
);
3336 EMACS_SET_USECS (telapsed
, usec
);
3337 EMACS_SUB_TIME (tboot
, tnow
, telapsed
);
3338 time_from_jiffies (start
, clocks_per_sec
, &sec
, &usec
);
3339 EMACS_SET_SECS (tstart
, sec
);
3340 EMACS_SET_USECS (tstart
, usec
);
3341 EMACS_ADD_TIME (tstart
, tboot
, tstart
);
3342 attrs
= Fcons (Fcons (Qstart
,
3344 ((EMACS_SECS (tstart
) >> 16) & 0xffff),
3346 (EMACS_SECS (tstart
) & 0xffff),
3348 (EMACS_USECS (tstart
)))),
3350 attrs
= Fcons (Fcons (Qvsize
, make_fixnum_or_float (vsize
/1024)), attrs
);
3351 attrs
= Fcons (Fcons (Qrss
, make_fixnum_or_float (4*rss
)), attrs
);
3352 EMACS_SUB_TIME (telapsed
, tnow
, tstart
);
3353 attrs
= Fcons (Fcons (Qetime
,
3355 ((EMACS_SECS (telapsed
) >> 16) & 0xffff),
3357 (EMACS_SECS (telapsed
) & 0xffff),
3359 (EMACS_USECS (telapsed
)))),
3361 time_from_jiffies (utime
+ stime
, clocks_per_sec
, &sec
, &usec
);
3362 pcpu
= (sec
+ usec
/ 1000000.0) / (EMACS_SECS (telapsed
) + EMACS_USECS (telapsed
) / 1000000.0);
3365 attrs
= Fcons (Fcons (Qpcpu
, make_float (100 * pcpu
)), attrs
);
3366 pmem
= 4.0 * 100 * rss
/ procfs_get_total_memory ();
3369 attrs
= Fcons (Fcons (Qpmem
, make_float (pmem
)), attrs
);
3376 strcpy (procfn_end
, "/cmdline");
3377 fd
= emacs_open (fn
, O_RDONLY
, 0);
3380 for (cmdline_size
= 0; emacs_read (fd
, &c
, 1) == 1; cmdline_size
++)
3382 if (isspace (c
) || c
== '\\')
3383 cmdline_size
++; /* for later quoting, see below */
3387 cmdline
= xmalloc (cmdline_size
+ 1);
3388 lseek (fd
, 0L, SEEK_SET
);
3390 if ((nread
= read (fd
, cmdline
, cmdline_size
)) >= 0)
3391 cmdline
[nread
++] = '\0';
3394 /* Assigning zero to `nread' makes us skip the following
3395 two loops, assign zero to cmdline_size, and enter the
3396 following `if' clause that handles unknown command
3400 /* We don't want trailing null characters. */
3401 for (p
= cmdline
+ nread
- 1; p
> cmdline
&& !*p
; p
--)
3403 for (p
= cmdline
; p
< cmdline
+ nread
; p
++)
3405 /* Escape-quote whitespace and backslashes. */
3406 if (isspace (*p
) || *p
== '\\')
3408 memmove (p
+ 1, p
, nread
- (p
- cmdline
));
3412 else if (*p
== '\0')
3415 cmdline_size
= nread
;
3422 cmdsize
= strlen (cmd
);
3423 cmdline_size
= cmdsize
+ 2;
3424 cmdline
= xmalloc (cmdline_size
+ 1);
3425 strcpy (cmdline
, "[");
3426 strcat (strncat (cmdline
, cmd
, cmdsize
), "]");
3429 /* Command line is encoded in locale-coding-system; decode it. */
3430 cmd_str
= make_unibyte_string (cmdline
, cmdline_size
);
3431 decoded_cmd
= code_convert_string_norecord (cmd_str
,
3432 Vlocale_coding_system
, 0);
3434 attrs
= Fcons (Fcons (Qargs
, decoded_cmd
), attrs
);
3441 #elif defined (SOLARIS2) && defined (HAVE_PROCFS)
3443 /* The <procfs.h> header does not like to be included if _LP64 is defined and
3444 __FILE_OFFSET_BITS == 64. This is an ugly workaround that. */
3445 #if !defined (_LP64) && defined (_FILE_OFFSET_BITS) && (_FILE_OFFSET_BITS == 64)
3446 #define PROCFS_FILE_OFFSET_BITS_HACK 1
3447 #undef _FILE_OFFSET_BITS
3449 #define PROCFS_FILE_OFFSET_BITS_HACK 0
3454 #if PROCFS_FILE_OFFSET_BITS_HACK == 1
3455 #define _FILE_OFFSET_BITS 64
3456 #endif /* PROCFS_FILE_OFFSET_BITS_HACK == 1 */
3459 system_process_attributes (Lisp_Object pid
)
3461 char procfn
[PATH_MAX
], fn
[PATH_MAX
];
3466 struct psinfo pinfo
;
3469 int proc_id
, uid
, gid
;
3470 Lisp_Object attrs
= Qnil
;
3471 Lisp_Object decoded_cmd
, tem
;
3472 struct gcpro gcpro1
, gcpro2
;
3473 EMACS_INT uid_eint
, gid_eint
;
3475 CHECK_NUMBER_OR_FLOAT (pid
);
3476 proc_id
= FLOATP (pid
) ? XFLOAT_DATA (pid
) : XINT (pid
);
3477 sprintf (procfn
, "/proc/%u", proc_id
);
3478 if (stat (procfn
, &st
) < 0)
3481 GCPRO2 (attrs
, decoded_cmd
);
3485 /* Use of EMACS_INT stops GCC whining about limited range of data type. */
3487 attrs
= Fcons (Fcons (Qeuid
, make_fixnum_or_float (uid_eint
)), attrs
);
3489 pw
= getpwuid (uid
);
3492 attrs
= Fcons (Fcons (Quser
, build_string (pw
->pw_name
)), attrs
);
3496 attrs
= Fcons (Fcons (Qegid
, make_fixnum_or_float (gid_eint
)), attrs
);
3498 gr
= getgrgid (gid
);
3501 attrs
= Fcons (Fcons (Qgroup
, build_string (gr
->gr_name
)), attrs
);
3503 strcpy (fn
, procfn
);
3504 procfn_end
= fn
+ strlen (fn
);
3505 strcpy (procfn_end
, "/psinfo");
3506 fd
= emacs_open (fn
, O_RDONLY
, 0);
3508 && (nread
= read (fd
, (char*)&pinfo
, sizeof (struct psinfo
)) > 0))
3510 attrs
= Fcons (Fcons (Qppid
, make_fixnum_or_float (pinfo
.pr_ppid
)), attrs
);
3511 attrs
= Fcons (Fcons (Qpgrp
, make_fixnum_or_float (pinfo
.pr_pgid
)), attrs
);
3512 attrs
= Fcons (Fcons (Qsess
, make_fixnum_or_float (pinfo
.pr_sid
)), attrs
);
3516 state_str
[0] = pinfo
.pr_lwp
.pr_sname
;
3517 state_str
[1] = '\0';
3518 tem
= build_string (state_str
);
3519 attrs
= Fcons (Fcons (Qstate
, tem
), attrs
);
3522 /* FIXME: missing Qttyname. psinfo.pr_ttydev is a dev_t,
3523 need to get a string from it. */
3525 /* FIXME: missing: Qtpgid */
3537 Are they available? */
3539 attrs
= Fcons (Fcons (Qtime
,
3540 list3 (make_number (pinfo
.pr_time
.tv_sec
>> 16),
3541 make_number (pinfo
.pr_time
.tv_sec
& 0xffff),
3542 make_number (pinfo
.pr_time
.tv_nsec
))),
3545 attrs
= Fcons (Fcons (Qctime
,
3546 list3 (make_number (pinfo
.pr_ctime
.tv_sec
>> 16),
3547 make_number (pinfo
.pr_ctime
.tv_sec
& 0xffff),
3548 make_number (pinfo
.pr_ctime
.tv_nsec
))),
3551 attrs
= Fcons (Fcons (Qpri
, make_number (pinfo
.pr_lwp
.pr_pri
)), attrs
);
3552 attrs
= Fcons (Fcons (Qnice
, make_number (pinfo
.pr_lwp
.pr_nice
)), attrs
);
3553 attrs
= Fcons (Fcons (Qthcount
, make_fixnum_or_float (pinfo
.pr_nlwp
)), attrs
);
3555 attrs
= Fcons (Fcons (Qstart
,
3556 list3 (make_number (pinfo
.pr_start
.tv_sec
>> 16),
3557 make_number (pinfo
.pr_start
.tv_sec
& 0xffff),
3558 make_number (pinfo
.pr_start
.tv_nsec
))),
3560 attrs
= Fcons (Fcons (Qvsize
, make_fixnum_or_float (pinfo
.pr_size
)), attrs
);
3561 attrs
= Fcons (Fcons (Qrss
, make_fixnum_or_float (pinfo
.pr_rssize
)), attrs
);
3563 /* pr_pctcpu and pr_pctmem are encoded as a fixed point 16 bit number in [0 ... 1]. */
3564 attrs
= Fcons (Fcons (Qpcpu
, (pinfo
.pr_pctcpu
* 100.0) / (double)0x8000), attrs
);
3565 attrs
= Fcons (Fcons (Qpmem
, (pinfo
.pr_pctmem
* 100.0) / (double)0x8000), attrs
);
3568 = code_convert_string_norecord (make_unibyte_string (pinfo
.pr_fname
,
3569 strlen (pinfo
.pr_fname
)),
3570 Vlocale_coding_system
, 0);
3571 attrs
= Fcons (Fcons (Qcomm
, decoded_cmd
), attrs
);
3573 = code_convert_string_norecord (make_unibyte_string (pinfo
.pr_psargs
,
3574 strlen (pinfo
.pr_psargs
)),
3575 Vlocale_coding_system
, 0);
3576 attrs
= Fcons (Fcons (Qargs
, decoded_cmd
), attrs
);
3586 /* The WINDOWSNT implementation is in w32.c.
3587 The MSDOS implementation is in dosfns.c. */
3588 #elif !defined (WINDOWSNT) && !defined (MSDOS)
3591 system_process_attributes (Lisp_Object pid
)
3596 #endif /* !defined (WINDOWSNT) */
3599 /* arch-tag: edb43589-4e09-4544-b325-978b5b121dcf
3600 (do not change this comment) */