1 /* Interfaces to system-dependent kernel and library entries.
2 Copyright (C) 1985, 86,87,88,93,94,95, 1999 Free Software Foundation, Inc.
4 This file is part of GNU Emacs.
6 GNU Emacs is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
11 GNU Emacs is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GNU Emacs; see the file COPYING. If not, write to
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
30 #include "blockinput.h"
35 __sigfun
sys_signal (int signal
, __sigfun signal_func
);
37 __signal_func_ptr
sys_signal (int signal
, __signal_func_ptr signal_func
);
42 /* Nonzero means delete a process right away if it exits (process.c). */
43 static int delete_exited_processes
;
45 #ifndef HAVE_X_WINDOWS
46 /* Search path for bitmap files (xfns.c). */
47 Lisp_Object Vx_bitmap_file_path
;
49 #endif /* macintosh */
51 #define min(x,y) ((x) > (y) ? (y) : (x))
55 #define write sys_write
58 #endif /* not WINDOWSNT */
60 /* Does anyone other than VMS need this? */
62 #define sys_fwrite fwrite
72 #include <sys/types.h>
76 /* Get _POSIX_VDISABLE, if it is available. */
86 #if !defined (USG) || defined (BSD_PGRPS)
87 #define setpgrp setpgid
91 /* Get SI_SRPC_DOMAIN, if it is available. */
92 #ifdef HAVE_SYS_SYSTEMINFO_H
93 #include <sys/systeminfo.h>
96 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida, MW Aug 1993 */
100 #include <sys/param.h>
104 extern unsigned start
__asm__ ("start");
124 #include <sys/file.h>
132 #define MAXIOSIZE (32 * PAGESIZE) /* Don't I/O more than 32 blocks at a time */
136 #ifdef BSD_SYSTEM /* avoid writing defined (BSD_SYSTEM) || defined (USG)
137 because the vms compiler doesn't grok `defined' */
145 #endif /* not 4.1 bsd */
148 #include <sys/ioctl.h>
154 #ifdef BROKEN_TIOCGWINSZ
159 #if defined (USG) || defined (DGUX)
160 #include <sys/utsname.h>
162 #ifndef MEMORY_IN_STRING_H
165 #if defined (TIOCGWINSZ) || defined (ISC4_0)
167 #include <sys/sioctl.h>
170 #include <sys/stream.h>
171 #include <sys/ptem.h>
173 #endif /* TIOCGWINSZ or ISC4_0 */
174 #endif /* USG or DGUX */
176 extern int quit_char
;
180 #include "termhooks.h"
181 #include "termchar.h"
182 #include "termopts.h"
183 #include "dispextern.h"
188 /* In process.h which conflicts with the local copy. */
190 int _CRTAPI1
_spawnlp (int, const char *, const char *, ...);
191 int _CRTAPI1
_getpid (void);
194 #ifdef NONSYSTEM_DIR_LIBRARY
196 #endif /* NONSYSTEM_DIR_LIBRARY */
198 #include "syssignal.h"
205 #ifndef HAVE_STRUCT_UTIMBUF
206 /* We want to use utime rather than utimes, but we couldn't find the
207 structure declaration. We'll use the traditional one. */
215 /* LPASS8 is new in 4.3, and makes cbreak mode provide all 8 bits. */
221 #define LNOFLSH 0100000
224 static int baud_convert
[] =
229 0, 50, 75, 110, 135, 150, 200, 300, 600, 1200,
230 1800, 2400, 4800, 9600, 19200, 38400
236 extern speed_t ospeed
;
238 #if defined (HAVE_LIBNCURSES) && ! defined (NCURSES_OSPEED_T)
241 #if defined (HAVE_TERMIOS_H) && defined (LINUX)
243 /* HJL's version of libc is said to need this on the Alpha.
244 On the other hand, DEC OSF1 on the Alpha needs ospeed to be a short. */
245 extern speed_t ospeed
;
252 /* The file descriptor for Emacs's input terminal.
253 Under Unix, this is normally zero except when using X;
254 under VMS, we place the input channel number here. */
257 void croak
P_ ((char *));
264 /* Temporary used by `sigblock' when defined in terms of signprocmask. */
266 SIGMASKTYPE sigprocmask_set
;
269 /* Specify a different file descriptor for further input operations. */
278 /* Discard pending input on descriptor input_fd. */
284 struct emacs_tty buf
;
289 /* Discarding input is not safe when the input could contain
290 replies from the X server. So don't do it. */
291 if (read_socket_hook
)
296 SYS$
QIOW (0, input_fd
, IO$_READVBLK
|IO$M_PURGE
, input_iosb
, 0, 0,
297 &buf
.main
, 0, 0, terminator_mask
, 0, 0);
303 ioctl (input_fd
, TIOCFLUSH
, &zero
);
305 #else /* not Apollo */
306 #ifdef MSDOS /* Demacs 1.1.1 91/10/16 HIRANO Satoshi */
307 while (dos_keyread () != -1)
309 #else /* not MSDOS */
310 EMACS_GET_TTY (input_fd
, &buf
);
311 EMACS_SET_TTY (input_fd
, &buf
, 0);
312 #endif /* not MSDOS */
313 #endif /* not Apollo */
315 #endif /* not WINDOWSNT */
320 /* Arrange for character C to be read as the next input from
327 if (read_socket_hook
)
330 /* Should perhaps error if in batch mode */
332 ioctl (input_fd
, TIOCSTI
, &c
);
333 #else /* no TIOCSTI */
334 error ("Cannot stuff terminal input characters in this version of Unix");
335 #endif /* no TIOCSTI */
347 #ifdef INIT_BAUD_RATE
352 #else /* not DOS_NT */
356 SYS$
QIOW (0, input_fd
, IO$_SENSEMODE
, &sg
, 0, 0,
357 &sg
.class, 12, 0, 0, 0, 0 );
358 ospeed
= sg
.xmit_baud
;
364 tcgetattr (input_fd
, &sg
);
365 ospeed
= cfgetospeed (&sg
);
366 #if defined (USE_GETOBAUD) && defined (getobaud)
367 /* m88k-motorola-sysv3 needs this (ghazi@noc.rutgers.edu) 9/1/94. */
369 ospeed
= getobaud (sg
.c_cflag
);
371 #else /* neither VMS nor TERMIOS */
377 tcgetattr (input_fd
, &sg
);
379 ioctl (input_fd
, TCGETA
, &sg
);
381 ospeed
= sg
.c_cflag
& CBAUD
;
382 #else /* neither VMS nor TERMIOS nor TERMIO */
385 sg
.sg_ospeed
= B9600
;
386 if (ioctl (input_fd
, TIOCGETP
, &sg
) < 0)
388 ospeed
= sg
.sg_ospeed
;
389 #endif /* not HAVE_TERMIO */
390 #endif /* not HAVE_TERMIOS */
392 #endif /* not DOS_NT */
393 #endif /* not INIT_BAUD_RATE */
396 baud_rate
= (ospeed
< sizeof baud_convert
/ sizeof baud_convert
[0]
397 ? baud_convert
[ospeed
] : 9600);
404 set_exclusive_use (fd
)
408 ioctl (fd
, FIOCLEX
, 0);
410 /* Ok to do nothing if this feature does not exist */
415 wait_without_blocking ()
418 wait3 (0, WNOHANG
| WUNTRACED
, 0);
420 croak ("wait_without_blocking");
422 synch_process_alive
= 0;
425 #endif /* not subprocesses */
427 int wait_debugging
; /* Set nonzero to make following function work under dbx
428 (at least for bsd). */
431 wait_for_termination_signal ()
434 /* Wait for subprocess with process id `pid' to terminate and
435 make sure it will get eliminated (not remain forever as a zombie) */
438 wait_for_termination (pid
)
447 status
= SYS$
FORCEX (&pid
, 0, 0);
450 #if defined (BSD_SYSTEM) || (defined (HPUX) && !defined (HPUX_5))
451 /* Note that kill returns -1 even if the process is just a zombie now.
452 But inevitably a SIGCHLD interrupt should be generated
453 and child_sig will do wait3 and make the process go away. */
454 /* There is some indication that there is a bug involved with
455 termination of subprocesses, perhaps involving a kernel bug too,
456 but no idea what it is. Just as a hunch we signal SIGCHLD to see
457 if that causes the problem to go away or get worse. */
458 sigsetmask (sigmask (SIGCHLD
));
459 if (0 > kill (pid
, 0))
461 sigsetmask (SIGEMPTYMASK
);
462 kill (getpid (), SIGCHLD
);
468 sigpause (SIGEMPTYMASK
);
469 #else /* not BSD_SYSTEM, and not HPUX version >= 6 */
470 #if defined (UNIPLUS)
471 if (0 > kill (pid
, 0))
474 #else /* neither BSD_SYSTEM nor UNIPLUS: random sysV */
475 #ifdef POSIX_SIGNALS /* would this work for LINUX as well? */
476 sigblock (sigmask (SIGCHLD
));
477 if (0 > kill (pid
, 0))
479 sigunblock (sigmask (SIGCHLD
));
482 sigpause (SIGEMPTYMASK
);
483 #else /* not POSIX_SIGNALS */
484 #ifdef HAVE_SYSV_SIGPAUSE
486 if (0 > kill (pid
, 0))
492 #else /* not HAVE_SYSV_SIGPAUSE */
496 #else /* not WINDOWSNT */
497 if (0 > kill (pid
, 0))
499 /* Using sleep instead of pause avoids timing error.
500 If the inferior dies just before the sleep,
501 we lose just one second. */
503 #endif /* not WINDOWSNT */
504 #endif /* not HAVE_SYSV_SIGPAUSE */
505 #endif /* not POSIX_SIGNALS */
506 #endif /* not UNIPLUS */
507 #endif /* not BSD_SYSTEM, and not HPUX version >= 6 */
509 #else /* not subprocesses */
512 #else /* not __DJGPP__ > 1 */
514 if (kill (pid
, 0) < 0)
520 if (status
== pid
|| status
== -1)
523 #endif /* not __DJGPP__ > 1*/
524 #endif /* not subprocesses */
531 * flush any pending output
532 * (may flush input as well; it does not matter the way we use it)
536 flush_pending_output (channel
)
540 /* If we try this, we get hit with SIGTTIN, because
541 the child's tty belongs to the child's pgrp. */
544 ioctl (channel
, TCFLSH
, 1);
548 /* 3rd arg should be ignored
549 but some 4.2 kernels actually want the address of an int
550 and nonzero means something different. */
551 ioctl (channel
, TIOCFLUSH
, &zero
);
558 /* Set up the terminal at the other end of a pseudo-terminal that
559 we will be controlling an inferior through.
560 It should not echo or do line-editing, since that is done
561 in Emacs. No padding needed for insertion into an Emacs buffer. */
564 child_setup_tty (out
)
570 EMACS_GET_TTY (out
, &s
);
572 #if defined (HAVE_TERMIO) || defined (HAVE_TERMIOS)
573 s
.main
.c_oflag
|= OPOST
; /* Enable output postprocessing */
574 s
.main
.c_oflag
&= ~ONLCR
; /* Disable map of NL to CR-NL on output */
576 s
.main
.c_oflag
&= ~(NLDLY
|CRDLY
|TABDLY
|BSDLY
|VTDLY
|FFDLY
);
577 /* No output delays */
579 s
.main
.c_lflag
&= ~ECHO
; /* Disable echo */
580 s
.main
.c_lflag
|= ISIG
; /* Enable signals */
582 s
.main
.c_iflag
&= ~IUCLC
; /* Disable downcasing on input. */
585 s
.main
.c_iflag
&= ~ISTRIP
; /* don't strip 8th bit on input */
588 s
.main
.c_oflag
&= ~OLCUC
; /* Disable upcasing on output. */
590 s
.main
.c_oflag
&= ~TAB3
; /* Disable tab expansion */
591 s
.main
.c_cflag
= (s
.main
.c_cflag
& ~CSIZE
) | CS8
; /* Don't strip 8th bit */
593 /* Said to be unnecessary: */
594 s
.main
.c_cc
[VMIN
] = 1; /* minimum number of characters to accept */
595 s
.main
.c_cc
[VTIME
] = 0; /* wait forever for at least 1 character */
598 s
.main
.c_lflag
|= ICANON
; /* Enable erase/kill and eof processing */
599 s
.main
.c_cc
[VEOF
] = 04; /* insure that EOF is Control-D */
600 s
.main
.c_cc
[VERASE
] = CDISABLE
; /* disable erase processing */
601 s
.main
.c_cc
[VKILL
] = CDISABLE
; /* disable kill processing */
604 s
.main
.c_cflag
= (s
.main
.c_cflag
& ~CBAUD
) | B9600
; /* baud rate sanity */
608 /* AIX enhanced edit loses NULs, so disable it */
611 s
.main
.c_iflag
&= ~ASCEDIT
;
613 /* Also, PTY overloads NUL and BREAK.
614 don't ignore break, but don't signal either, so it looks like NUL. */
615 s
.main
.c_iflag
&= ~IGNBRK
;
616 s
.main
.c_iflag
&= ~BRKINT
;
617 /* QUIT and INTR work better as signals, so disable character forms */
618 s
.main
.c_cc
[VINTR
] = 0377;
619 #ifdef SIGNALS_VIA_CHARACTERS
620 /* the QUIT and INTR character are used in process_send_signal
621 so set them here to something useful. */
622 if (s
.main
.c_cc
[VQUIT
] == 0377)
623 s
.main
.c_cc
[VQUIT
] = '\\'&037; /* Control-\ */
624 if (s
.main
.c_cc
[VINTR
] == 0377)
625 s
.main
.c_cc
[VINTR
] = 'C'&037; /* Control-C */
626 #else /* no TIOCGPGRP or no TIOCGLTC or no TIOCGETC */
627 /* QUIT and INTR work better as signals, so disable character forms */
628 s
.main
.c_cc
[VQUIT
] = 0377;
629 s
.main
.c_cc
[VINTR
] = 0377;
630 s
.main
.c_lflag
&= ~ISIG
;
631 #endif /* no TIOCGPGRP or no TIOCGLTC or no TIOCGETC */
632 s
.main
.c_cc
[VEOL
] = 0377;
633 s
.main
.c_cflag
= (s
.main
.c_cflag
& ~CBAUD
) | B9600
; /* baud rate sanity */
636 #else /* not HAVE_TERMIO */
638 s
.main
.sg_flags
&= ~(ECHO
| CRMOD
| ANYP
| ALLDELAY
| RAW
| LCASE
640 s
.main
.sg_flags
|= LPASS8
;
641 s
.main
.sg_erase
= 0377;
642 s
.main
.sg_kill
= 0377;
643 s
.lmode
= LLITOUT
| s
.lmode
; /* Don't strip 8th bit */
645 #endif /* not HAVE_TERMIO */
647 EMACS_SET_TTY (out
, &s
, 0);
656 ioctl (out
, FIOASYNC
, &zero
);
659 #endif /* not DOS_NT */
663 #endif /* subprocesses */
665 /* Record a signal code and the handler for it. */
669 SIGTYPE (*handler
) P_ ((int));
672 static void save_signal_handlers
P_ ((struct save_signal
*));
673 static void restore_signal_handlers
P_ ((struct save_signal
*));
675 /* Suspend the Emacs process; give terminal to its superior. */
681 /* "Foster" parentage allows emacs to return to a subprocess that attached
682 to the current emacs as a cheaper than starting a whole new process. This
683 is set up by KEPTEDITOR.COM. */
684 unsigned long parent_id
, foster_parent_id
;
687 fpid_string
= getenv ("EMACS_PARENT_PID");
688 if (fpid_string
!= NULL
)
690 sscanf (fpid_string
, "%x", &foster_parent_id
);
691 if (foster_parent_id
!= 0)
692 parent_id
= foster_parent_id
;
694 parent_id
= getppid ();
697 parent_id
= getppid ();
699 xfree (fpid_string
); /* On VMS, this was malloc'd */
701 if (parent_id
&& parent_id
!= 0xffffffff)
703 SIGTYPE (*oldsig
)() = (int) signal (SIGINT
, SIG_IGN
);
704 int status
= LIB$
ATTACH (&parent_id
) & 1;
705 signal (SIGINT
, oldsig
);
714 d_prompt
.l
= sizeof ("Emacs: "); /* Our special prompt */
715 d_prompt
.a
= "Emacs: "; /* Just a reminder */
716 LIB$
SPAWN (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, &d_prompt
, 0);
721 #if defined (SIGTSTP) && !defined (MSDOS)
724 int pgrp
= EMACS_GETPGRP (0);
725 EMACS_KILLPG (pgrp
, SIGTSTP
);
728 #else /* No SIGTSTP */
729 #ifdef USG_JOBCTRL /* If you don't know what this is don't mess with it */
730 ptrace (0, 0, 0, 0); /* set for ptrace - caught by csh */
731 kill (getpid (), SIGQUIT
);
733 #else /* No SIGTSTP or USG_JOBCTRL */
735 /* On a system where suspending is not implemented,
736 instead fork a subshell and let it talk directly to the terminal
740 #endif /* no USG_JOBCTRL */
741 #endif /* no SIGTSTP */
745 /* Fork a subshell. */
751 error ("Can't spawn subshell");
754 #ifdef DOS_NT /* Demacs 1.1.2 91/10/20 Manabu Higashida */
756 char oldwd
[MAXPATHLEN
+1]; /* Fixed length is safe on MSDOS. */
759 struct save_signal saved_handlers
[5];
761 unsigned char *str
= 0;
764 saved_handlers
[0].code
= SIGINT
;
765 saved_handlers
[1].code
= SIGQUIT
;
766 saved_handlers
[2].code
= SIGTERM
;
768 saved_handlers
[3].code
= SIGIO
;
769 saved_handlers
[4].code
= 0;
771 saved_handlers
[3].code
= 0;
774 /* Mentioning current_buffer->buffer would mean including buffer.h,
775 which somehow wedges the hp compiler. So instead... */
777 dir
= intern ("default-directory");
778 if (NILP (Fboundp (dir
)))
780 dir
= Fsymbol_value (dir
);
784 dir
= expand_and_dir_to_file (Funhandled_file_name_directory (dir
), Qnil
);
785 str
= (unsigned char *) alloca (XSTRING (dir
)->size
+ 2);
786 len
= XSTRING (dir
)->size
;
787 bcopy (XSTRING (dir
)->data
, str
, len
);
788 if (str
[len
- 1] != '/') str
[len
++] = '/';
795 save_signal_handlers (saved_handlers
);
796 synch_process_alive
= 1;
797 #endif /* __DJGPP__ > 1 */
801 error ("Can't spawn subshell");
808 #ifdef DOS_NT /* MW, Aug 1993 */
811 sh
= (char *) egetenv ("SUSPEND"); /* KFS, 1994-12-14 */
814 sh
= (char *) egetenv ("SHELL");
818 /* Use our buffer's default directory for the subshell. */
820 chdir ((char *) str
);
823 close_process_descs (); /* Close Emacs's pipes/ptys */
826 #ifdef SET_EMACS_PRIORITY
828 extern int emacs_priority
;
830 if (emacs_priority
< 0)
831 nice (-emacs_priority
);
835 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida */
838 #if 0 /* This is also reported if last command executed in subshell failed, KFS */
840 report_file_error ("Can't execute subshell", Fcons (build_string (sh
), Qnil
));
842 #else /* not MSDOS */
844 /* Waits for process completion */
845 pid
= _spawnlp (_P_WAIT
, sh
, sh
, NULL
);
848 write (1, "Can't execute subshell", 22);
849 #else /* not WINDOWSNT */
851 write (1, "Can't execute subshell", 22);
853 #endif /* not WINDOWSNT */
854 #endif /* not MSDOS */
857 /* Do this now if we did not do it before. */
858 #if !defined (MSDOS) || __DJGPP__ == 1
859 save_signal_handlers (saved_handlers
);
860 synch_process_alive
= 1;
864 wait_for_termination (pid
);
866 restore_signal_handlers (saved_handlers
);
867 synch_process_alive
= 0;
869 #endif /* !macintosh */
873 save_signal_handlers (saved_handlers
)
874 struct save_signal
*saved_handlers
;
876 while (saved_handlers
->code
)
878 saved_handlers
->handler
879 = (SIGTYPE (*) P_ ((int))) signal (saved_handlers
->code
, SIG_IGN
);
885 restore_signal_handlers (saved_handlers
)
886 struct save_signal
*saved_handlers
;
888 while (saved_handlers
->code
)
890 signal (saved_handlers
->code
, saved_handlers
->handler
);
904 old_fcntl_flags
= fcntl (fd
, F_GETFL
, 0) & ~FASYNC
;
905 fcntl (fd
, F_SETFL
, old_fcntl_flags
| FASYNC
);
907 interrupts_deferred
= 0;
916 #ifdef FASYNC /* F_SETFL does not imply existence of FASYNC */
921 if (read_socket_hook
)
925 sigunblock (sigmask (SIGWINCH
));
927 fcntl (input_fd
, F_SETFL
, old_fcntl_flags
| FASYNC
);
929 interrupts_deferred
= 0;
935 if (read_socket_hook
)
939 sigblock (sigmask (SIGWINCH
));
941 fcntl (input_fd
, F_SETFL
, old_fcntl_flags
);
942 interrupts_deferred
= 1;
945 #else /* no FASYNC */
946 #ifdef STRIDE /* Stride doesn't have FASYNC - use FIOASYNC */
953 if (read_socket_hook
)
956 ioctl (input_fd
, FIOASYNC
, &on
);
957 interrupts_deferred
= 0;
965 if (read_socket_hook
)
968 ioctl (input_fd
, FIOASYNC
, &off
);
969 interrupts_deferred
= 1;
972 #else /* not FASYNC, not STRIDE */
984 if (read_socket_hook
)
988 sigaddset (&st
, SIGIO
);
989 ioctl (input_fd
, FIOASYNC
, &on
);
990 interrupts_deferred
= 0;
991 sigprocmask (SIG_UNBLOCK
, &st
, (sigset_t
*)0);
999 if (read_socket_hook
)
1002 ioctl (input_fd
, FIOASYNC
, &off
);
1003 interrupts_deferred
= 1;
1006 #else /* ! _CX_UX */
1011 if (read_socket_hook
)
1014 croak ("request_sigio");
1020 if (read_socket_hook
)
1023 croak ("unrequest_sigio");
1029 #endif /* F_SETFL */
1031 /* Saving and restoring the process group of Emacs's terminal. */
1035 /* The process group of which Emacs was a member when it initially
1038 If Emacs was in its own process group (i.e. inherited_pgroup ==
1039 getpid ()), then we know we're running under a shell with job
1040 control (Emacs would never be run as part of a pipeline).
1043 If Emacs was not in its own process group, then we know we're
1044 running under a shell (or a caller) that doesn't know how to
1045 separate itself from Emacs (like sh). Emacs must be in its own
1046 process group in order to receive SIGIO correctly. In this
1047 situation, we put ourselves in our own pgroup, forcibly set the
1048 tty's pgroup to our pgroup, and make sure to restore and reinstate
1049 the tty's pgroup just like any other terminal setting. If
1050 inherited_group was not the tty's pgroup, then we'll get a
1051 SIGTTmumble when we try to change the tty's pgroup, and a CONT if
1052 it goes foreground in the future, which is what should happen. */
1053 int inherited_pgroup
;
1055 /* Split off the foreground process group to Emacs alone.
1056 When we are in the foreground, but not started in our own process
1057 group, redirect the TTY to point to our own process group. We need
1058 to be in our own process group to receive SIGIO properly. */
1060 narrow_foreground_group ()
1064 setpgrp (0, inherited_pgroup
);
1065 if (inherited_pgroup
!= me
)
1066 EMACS_SET_TTY_PGRP (input_fd
, &me
);
1070 /* Set the tty to our original foreground group. */
1072 widen_foreground_group ()
1074 if (inherited_pgroup
!= getpid ())
1075 EMACS_SET_TTY_PGRP (input_fd
, &inherited_pgroup
);
1076 setpgrp (0, inherited_pgroup
);
1079 #endif /* BSD_PGRPS */
1081 /* Getting and setting emacs_tty structures. */
1083 /* Set *TC to the parameters associated with the terminal FD.
1084 Return zero if all's well, or -1 if we ran into an error we
1085 couldn't deal with. */
1087 emacs_get_tty (fd
, settings
)
1089 struct emacs_tty
*settings
;
1091 /* Retrieve the primary parameters - baud rate, character size, etcetera. */
1093 /* We have those nifty POSIX tcmumbleattr functions. */
1094 bzero (&settings
->main
, sizeof (settings
->main
));
1095 if (tcgetattr (fd
, &settings
->main
) < 0)
1100 /* The SYSV-style interface? */
1101 if (ioctl (fd
, TCGETA
, &settings
->main
) < 0)
1106 /* Vehemently Monstrous System? :-) */
1107 if (! (SYS$
QIOW (0, fd
, IO$_SENSEMODE
, settings
, 0, 0,
1108 &settings
->main
.class, 12, 0, 0, 0, 0)
1114 /* I give up - I hope you have the BSD ioctls. */
1115 if (ioctl (fd
, TIOCGETP
, &settings
->main
) < 0)
1117 #endif /* not DOS_NT */
1122 /* Suivant - Do we have to get struct ltchars data? */
1124 if (ioctl (fd
, TIOCGLTC
, &settings
->ltchars
) < 0)
1128 /* How about a struct tchars and a wordful of lmode bits? */
1130 if (ioctl (fd
, TIOCGETC
, &settings
->tchars
) < 0
1131 || ioctl (fd
, TIOCLGET
, &settings
->lmode
) < 0)
1135 /* We have survived the tempest. */
1140 /* Set the parameters of the tty on FD according to the contents of
1141 *SETTINGS. If FLUSHP is non-zero, we discard input.
1142 Return 0 if all went well, and -1 if anything failed. */
1145 emacs_set_tty (fd
, settings
, flushp
)
1147 struct emacs_tty
*settings
;
1150 /* Set the primary parameters - baud rate, character size, etcetera. */
1153 /* We have those nifty POSIX tcmumbleattr functions.
1154 William J. Smith <wjs@wiis.wang.com> writes:
1155 "POSIX 1003.1 defines tcsetattr to return success if it was
1156 able to perform any of the requested actions, even if some
1157 of the requested actions could not be performed.
1158 We must read settings back to ensure tty setup properly.
1159 AIX requires this to keep tty from hanging occasionally." */
1160 /* This make sure that we don't loop indefinitely in here. */
1161 for (i
= 0 ; i
< 10 ; i
++)
1162 if (tcsetattr (fd
, flushp
? TCSAFLUSH
: TCSADRAIN
, &settings
->main
) < 0)
1173 bzero (&new, sizeof (new));
1174 /* Get the current settings, and see if they're what we asked for. */
1175 tcgetattr (fd
, &new);
1176 /* We cannot use memcmp on the whole structure here because under
1177 * aix386 the termios structure has some reserved field that may
1180 if ( new.c_iflag
== settings
->main
.c_iflag
1181 && new.c_oflag
== settings
->main
.c_oflag
1182 && new.c_cflag
== settings
->main
.c_cflag
1183 && new.c_lflag
== settings
->main
.c_lflag
1184 && memcmp (new.c_cc
, settings
->main
.c_cc
, NCCS
) == 0)
1192 /* The SYSV-style interface? */
1193 if (ioctl (fd
, flushp
? TCSETAF
: TCSETAW
, &settings
->main
) < 0)
1198 /* Vehemently Monstrous System? :-) */
1199 if (! (SYS$
QIOW (0, fd
, IO$_SETMODE
, &input_iosb
, 0, 0,
1200 &settings
->main
.class, 12, 0, 0, 0, 0)
1206 /* I give up - I hope you have the BSD ioctls. */
1207 if (ioctl (fd
, (flushp
) ? TIOCSETP
: TIOCSETN
, &settings
->main
) < 0)
1209 #endif /* not DOS_NT */
1215 /* Suivant - Do we have to get struct ltchars data? */
1217 if (ioctl (fd
, TIOCSLTC
, &settings
->ltchars
) < 0)
1221 /* How about a struct tchars and a wordful of lmode bits? */
1223 if (ioctl (fd
, TIOCSETC
, &settings
->tchars
) < 0
1224 || ioctl (fd
, TIOCLSET
, &settings
->lmode
) < 0)
1228 /* We have survived the tempest. */
1233 /* The initial tty mode bits */
1234 struct emacs_tty old_tty
;
1236 /* 1 if we have been through init_sys_modes. */
1239 /* 1 if outer tty status has been recorded. */
1243 /* BSD 4.1 needs to keep track of the lmode bits in order to start
1248 #ifndef F_SETOWN_BUG
1250 int old_fcntl_owner
;
1251 #endif /* F_SETOWN */
1252 #endif /* F_SETOWN_BUG */
1254 /* This may also be defined in stdio,
1255 but if so, this does no harm,
1256 and using the same name avoids wasting the other one's space. */
1259 extern char *_sobuf
;
1261 #if defined (USG) || defined (DGUX)
1262 unsigned char _sobuf
[BUFSIZ
+8];
1264 char _sobuf
[BUFSIZ
];
1269 static struct ltchars new_ltchars
= {-1,-1,-1,-1,-1,-1};
1272 static struct tchars new_tchars
= {-1,-1,-1,-1,-1,-1};
1278 struct emacs_tty tty
;
1281 Vwindow_system
= intern ("mac");
1282 Vwindow_system_version
= make_number (1);
1284 /* cus-start.el complains if delete-exited-processes and x-bitmap-file-path not defined */
1285 #ifndef subprocesses
1286 DEFVAR_BOOL ("delete-exited-processes", &delete_exited_processes
,
1287 "*Non-nil means delete processes immediately when they exit.\n\
1288 nil means don't delete them until `list-processes' is run.");
1289 delete_exited_processes
= 0;
1292 #ifndef HAVE_X_WINDOWS
1293 DEFVAR_LISP ("x-bitmap-file-path", &Vx_bitmap_file_path
,
1294 "List of directories to search for bitmap files for X.");
1295 Vx_bitmap_file_path
= decode_env_path ((char *) 0, ".");
1298 #endif /* not macintosh */
1302 static int oob_chars
[2] = {0, 1 << 7}; /* catch C-g's */
1303 extern int (*interrupt_signal
) ();
1307 Vtty_erase_char
= Qnil
;
1314 input_ef
= get_kbd_event_flag ();
1315 /* LIB$GET_EF (&input_ef); */
1316 SYS$
CLREF (input_ef
);
1317 waiting_for_ast
= 0;
1319 timer_ef
= get_timer_event_flag ();
1320 /* LIB$GET_EF (&timer_ef); */
1321 SYS$
CLREF (timer_ef
);
1325 LIB$
GET_EF (&process_ef
);
1326 SYS$
CLREF (process_ef
);
1328 if (input_ef
/ 32 != process_ef
/ 32)
1329 croak ("Input and process event flags in different clusters.");
1331 if (input_ef
/ 32 != timer_ef
/ 32)
1332 croak ("Input and timer event flags in different clusters.");
1334 input_eflist
= ((unsigned) 1 << (input_ef
% 32)) |
1335 ((unsigned) 1 << (process_ef
% 32));
1337 timer_eflist
= ((unsigned) 1 << (input_ef
% 32)) |
1338 ((unsigned) 1 << (timer_ef
% 32));
1340 sys_access_reinit ();
1342 #endif /* not VMS */
1345 if (! read_socket_hook
&& EQ (Vwindow_system
, Qnil
))
1346 narrow_foreground_group ();
1349 #ifdef HAVE_WINDOW_SYSTEM
1350 /* Emacs' window system on MSDOG uses the `internal terminal' and therefore
1351 needs the initialization code below. */
1352 if (!read_socket_hook
&& EQ (Vwindow_system
, Qnil
))
1355 EMACS_GET_TTY (input_fd
, &old_tty
);
1361 #if defined (HAVE_TERMIO) || defined (HAVE_TERMIOS)
1362 XSETINT (Vtty_erase_char
, old_tty
.main
.c_cc
[VERASE
]);
1365 /* This allows meta to be sent on 8th bit. */
1366 tty
.main
.c_iflag
&= ~INPCK
; /* don't check input for parity */
1368 tty
.main
.c_iflag
|= (IGNBRK
); /* Ignore break condition */
1369 tty
.main
.c_iflag
&= ~ICRNL
; /* Disable map of CR to NL on input */
1370 #ifdef INLCR /* I'm just being cautious,
1371 since I can't check how widespread INLCR is--rms. */
1372 tty
.main
.c_iflag
&= ~INLCR
; /* Disable map of NL to CR on input */
1375 tty
.main
.c_iflag
&= ~ISTRIP
; /* don't strip 8th bit on input */
1377 tty
.main
.c_lflag
&= ~ECHO
; /* Disable echo */
1378 tty
.main
.c_lflag
&= ~ICANON
; /* Disable erase/kill processing */
1380 tty
.main
.c_lflag
&= ~IEXTEN
; /* Disable other editing characters. */
1382 tty
.main
.c_lflag
|= ISIG
; /* Enable signals */
1385 tty
.main
.c_iflag
|= IXON
; /* Enable start/stop output control */
1387 tty
.main
.c_iflag
&= ~IXANY
;
1391 tty
.main
.c_iflag
&= ~IXON
; /* Disable start/stop output control */
1392 tty
.main
.c_oflag
&= ~ONLCR
; /* Disable map of NL to CR-NL
1394 tty
.main
.c_oflag
&= ~TAB3
; /* Disable tab expansion */
1398 tty
.main
.c_cflag
|= CS8
; /* allow 8th bit on input */
1399 tty
.main
.c_cflag
&= ~PARENB
;/* Don't check parity */
1402 tty
.main
.c_cc
[VINTR
] = quit_char
; /* C-g (usually) gives SIGINT */
1403 /* Set up C-g for both SIGQUIT and SIGINT.
1404 We don't know which we will get, but we handle both alike
1405 so which one it really gives us does not matter. */
1406 tty
.main
.c_cc
[VQUIT
] = quit_char
;
1407 tty
.main
.c_cc
[VMIN
] = 1; /* Input should wait for at least 1 char */
1408 tty
.main
.c_cc
[VTIME
] = 0; /* no matter how long that takes. */
1410 tty
.main
.c_cc
[VSWTCH
] = CDISABLE
; /* Turn off shell layering use
1414 #if defined (mips) || defined (HAVE_TCATTR)
1416 tty
.main
.c_cc
[VSUSP
] = CDISABLE
; /* Turn off mips handling of C-z. */
1419 tty
.main
.c_cc
[V_DSUSP
] = CDISABLE
; /* Turn off mips handling of C-y. */
1420 #endif /* V_DSUSP */
1421 #ifdef VDSUSP /* Some systems have VDSUSP, some have V_DSUSP. */
1422 tty
.main
.c_cc
[VDSUSP
] = CDISABLE
;
1425 tty
.main
.c_cc
[VLNEXT
] = CDISABLE
;
1428 tty
.main
.c_cc
[VREPRINT
] = CDISABLE
;
1429 #endif /* VREPRINT */
1431 tty
.main
.c_cc
[VWERASE
] = CDISABLE
;
1432 #endif /* VWERASE */
1434 tty
.main
.c_cc
[VDISCARD
] = CDISABLE
;
1435 #endif /* VDISCARD */
1440 tty
.main
.c_cc
[VSTART
] = '\021';
1443 tty
.main
.c_cc
[VSTOP
] = '\023';
1449 tty
.main
.c_cc
[VSTART
] = CDISABLE
;
1452 tty
.main
.c_cc
[VSTOP
] = CDISABLE
;
1455 #endif /* mips or HAVE_TCATTR */
1457 #ifdef SET_LINE_DISCIPLINE
1458 /* Need to explicitly request TERMIODISC line discipline or
1459 Ultrix's termios does not work correctly. */
1460 tty
.main
.c_line
= SET_LINE_DISCIPLINE
;
1464 /* AIX enhanced edit loses NULs, so disable it. */
1465 tty
.main
.c_line
= 0;
1466 tty
.main
.c_iflag
&= ~ASCEDIT
;
1468 tty
.main
.c_cc
[VSTRT
] = 255;
1469 tty
.main
.c_cc
[VSTOP
] = 255;
1470 tty
.main
.c_cc
[VSUSP
] = 255;
1471 tty
.main
.c_cc
[VDSUSP
] = 255;
1472 #endif /* IBMR2AIX */
1476 tty
.main
.c_cc
[VSTART
] = '\021';
1479 tty
.main
.c_cc
[VSTOP
] = '\023';
1482 /* Also, PTY overloads NUL and BREAK.
1483 don't ignore break, but don't signal either, so it looks like NUL.
1484 This really serves a purpose only if running in an XTERM window
1485 or via TELNET or the like, but does no harm elsewhere. */
1486 tty
.main
.c_iflag
&= ~IGNBRK
;
1487 tty
.main
.c_iflag
&= ~BRKINT
;
1489 #else /* if not HAVE_TERMIO */
1491 tty
.main
.tt_char
|= TT$M_NOECHO
;
1493 tty
.main
.tt_char
|= TT$M_EIGHTBIT
;
1495 tty
.main
.tt_char
|= TT$M_TTSYNC
;
1497 tty
.main
.tt_char
&= ~TT$M_TTSYNC
;
1498 tty
.main
.tt2_char
|= TT2$M_PASTHRU
| TT2$M_XON
;
1499 #else /* not VMS (BSD, that is) */
1501 XSETINT (Vtty_erase_char
, tty
.main
.sg_erase
);
1502 tty
.main
.sg_flags
&= ~(ECHO
| CRMOD
| XTABS
);
1504 tty
.main
.sg_flags
|= ANYP
;
1505 tty
.main
.sg_flags
|= interrupt_input
? RAW
: CBREAK
;
1506 #endif /* not DOS_NT */
1507 #endif /* not VMS (BSD, that is) */
1508 #endif /* not HAVE_TERMIO */
1510 /* If going to use CBREAK mode, we must request C-g to interrupt
1511 and turn off start and stop chars, etc. If not going to use
1512 CBREAK mode, do this anyway so as to turn off local flow
1513 control for user coming over network on 4.2; in this case,
1514 only t_stopc and t_startc really matter. */
1517 /* Note: if not using CBREAK mode, it makes no difference how we
1519 tty
.tchars
= new_tchars
;
1520 tty
.tchars
.t_intrc
= quit_char
;
1523 tty
.tchars
.t_startc
= '\021';
1524 tty
.tchars
.t_stopc
= '\023';
1527 tty
.lmode
= LDECCTQ
| LLITOUT
| LPASS8
| LNOFLSH
| old_tty
.lmode
;
1529 /* Under Ultrix 4.2a, leaving this out doesn't seem to hurt
1530 anything, and leaving it in breaks the meta key. Go figure. */
1531 tty
.lmode
&= ~LLITOUT
;
1538 #endif /* HAVE_TCHARS */
1539 #endif /* not HAVE_TERMIO */
1542 tty
.ltchars
= new_ltchars
;
1543 #endif /* HAVE_LTCHARS */
1544 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida, MW Aug 1993 */
1546 internal_terminal_init ();
1550 EMACS_SET_TTY (input_fd
, &tty
, 0);
1552 /* This code added to insure that, if flow-control is not to be used,
1553 we have an unlocked terminal at the start. */
1556 if (!flow_control
) ioctl (input_fd
, TCXONC
, 1);
1560 if (!flow_control
) ioctl (input_fd
, TIOCSTART
, 0);
1564 #if defined (HAVE_TERMIOS) || defined (HPUX9)
1566 if (!flow_control
) tcflow (input_fd
, TCOON
);
1574 /* IBM's HFT device usually thinks a ^J should be LF/CR. We need it
1575 to be only LF. This is the way that is done. */
1578 if (ioctl (1, HFTGETID
, &tty
) != -1)
1579 write (1, "\033[20l", 5);
1585 /* Appears to do nothing when in PASTHRU mode.
1586 SYS$QIOW (0, input_fd, IO$_SETMODE|IO$M_OUTBAND, 0, 0, 0,
1587 interrupt_signal, oob_chars, 0, 0, 0, 0);
1589 queue_kbd_input (0);
1594 #ifndef F_SETOWN_BUG
1595 #ifdef F_GETOWN /* F_SETFL does not imply existence of F_GETOWN */
1597 && ! read_socket_hook
&& EQ (Vwindow_system
, Qnil
))
1599 old_fcntl_owner
= fcntl (input_fd
, F_GETOWN
, 0);
1600 fcntl (input_fd
, F_SETOWN
, getpid ());
1601 init_sigio (input_fd
);
1603 #endif /* F_GETOWN */
1604 #endif /* F_SETOWN_BUG */
1605 #endif /* F_SETFL */
1608 if (interrupt_input
)
1609 init_sigio (input_fd
);
1612 #ifdef VMS /* VMS sometimes has this symbol but lacks setvbuf. */
1616 /* This symbol is defined on recent USG systems.
1617 Someone says without this call USG won't really buffer the file
1618 even with a call to setbuf. */
1619 setvbuf (stdout
, (char *) _sobuf
, _IOFBF
, sizeof _sobuf
);
1621 setbuf (stdout
, (char *) _sobuf
);
1623 #ifdef HAVE_WINDOW_SYSTEM
1624 /* Emacs' window system on MSDOG uses the `internal terminal' and therefore
1625 needs the initialization code below. */
1626 if (EQ (Vwindow_system
, Qnil
)
1628 /* When running in tty mode on NT/Win95, we have a read_socket
1629 hook, but still need the rest of the initialization code below. */
1630 && (! read_socket_hook
)
1634 set_terminal_modes ();
1637 && FRAMEP (Vterminal_frame
)
1638 && FRAME_TERMCAP_P (XFRAME (Vterminal_frame
)))
1639 init_frame_faces (XFRAME (Vterminal_frame
));
1641 if (term_initted
&& no_redraw_on_reenter
)
1643 if (display_completed
)
1644 direct_output_forward_char (0);
1649 if (FRAMEP (Vterminal_frame
))
1650 FRAME_GARBAGED_P (XFRAME (Vterminal_frame
)) = 1;
1656 /* Return nonzero if safe to use tabs in output.
1657 At the time this is called, init_sys_modes has not been done yet. */
1662 struct emacs_tty tty
;
1664 EMACS_GET_TTY (input_fd
, &tty
);
1665 return EMACS_TTY_TABS_OK (&tty
);
1668 /* Get terminal size from system.
1669 Store number of lines into *HEIGHTP and width into *WIDTHP.
1670 We store 0 if there's no valid information. */
1673 get_frame_size (widthp
, heightp
)
1674 int *widthp
, *heightp
;
1680 struct winsize size
;
1682 if (ioctl (input_fd
, TIOCGWINSZ
, &size
) == -1)
1683 *widthp
= *heightp
= 0;
1686 *widthp
= size
.ws_col
;
1687 *heightp
= size
.ws_row
;
1693 /* SunOS - style. */
1694 struct ttysize size
;
1696 if (ioctl (input_fd
, TIOCGSIZE
, &size
) == -1)
1697 *widthp
= *heightp
= 0;
1700 *widthp
= size
.ts_cols
;
1701 *heightp
= size
.ts_lines
;
1707 struct sensemode tty
;
1709 SYS$
QIOW (0, input_fd
, IO$_SENSEMODE
, &tty
, 0, 0,
1710 &tty
.class, 12, 0, 0, 0, 0);
1711 *widthp
= tty
.scr_wid
;
1712 *heightp
= tty
.scr_len
;
1716 *widthp
= ScreenCols ();
1717 *heightp
= ScreenRows ();
1718 #else /* system doesn't know size */
1723 #endif /* not VMS */
1724 #endif /* not SunOS-style */
1725 #endif /* not BSD-style */
1728 /* Set the logical window size associated with descriptor FD
1729 to HEIGHT and WIDTH. This is used mainly with ptys. */
1732 set_window_size (fd
, height
, width
)
1733 int fd
, height
, width
;
1738 struct winsize size
;
1739 size
.ws_row
= height
;
1740 size
.ws_col
= width
;
1742 if (ioctl (fd
, TIOCSWINSZ
, &size
) == -1)
1743 return 0; /* error */
1750 /* SunOS - style. */
1751 struct ttysize size
;
1752 size
.ts_lines
= height
;
1753 size
.ts_cols
= width
;
1755 if (ioctl (fd
, TIOCGSIZE
, &size
) == -1)
1761 #endif /* not SunOS-style */
1762 #endif /* not BSD-style */
1766 /* Prepare the terminal for exiting Emacs; move the cursor to the
1767 bottom of the frame, turn off interrupt-driven I/O, etc. */
1780 #ifdef HAVE_WINDOW_SYSTEM
1781 /* Emacs' window system on MSDOG uses the `internal terminal' and therefore
1782 needs the clean-up code below. */
1783 if (!EQ (Vwindow_system
, Qnil
)
1785 /* When running in tty mode on NT/Win95, we have a read_socket
1786 hook, but still need the rest of the clean-up code below. */
1792 sf
= SELECTED_FRAME ();
1793 cursor_to (FRAME_HEIGHT (sf
) - 1, 0);
1794 clear_end_of_line (FRAME_WIDTH (sf
));
1795 /* clear_end_of_line may move the cursor */
1796 cursor_to (FRAME_HEIGHT (sf
) - 1, 0);
1797 #if defined (IBMR2AIX) && defined (AIXHFT)
1799 /* HFT devices normally use ^J as a LF/CR. We forced it to
1800 do the LF only. Now, we need to reset it. */
1803 if (ioctl (1, HFTGETID
, &tty
) != -1)
1804 write (1, "\033[20h", 5);
1808 reset_terminal_modes ();
1812 /* Avoid possible loss of output when changing terminal modes. */
1813 fsync (fileno (stdout
));
1818 #ifndef F_SETOWN_BUG
1819 #ifdef F_SETOWN /* F_SETFL does not imply existence of F_SETOWN */
1820 if (interrupt_input
)
1823 fcntl (input_fd
, F_SETOWN
, old_fcntl_owner
);
1825 #endif /* F_SETOWN */
1826 #endif /* F_SETOWN_BUG */
1828 fcntl (input_fd
, F_SETFL
, fcntl (input_fd
, F_GETFL
, 0) & ~O_NDELAY
);
1830 #endif /* F_SETFL */
1832 if (interrupt_input
)
1837 while (EMACS_SET_TTY (input_fd
, &old_tty
, 0) < 0 && errno
== EINTR
)
1840 #ifdef MSDOS /* Demacs 1.1.2 91/10/20 Manabu Higashida */
1844 #ifdef SET_LINE_DISCIPLINE
1845 /* Ultrix's termios *ignores* any line discipline except TERMIODISC.
1846 A different old line discipline is therefore not restored, yet.
1847 Restore the old line discipline by hand. */
1848 ioctl (0, TIOCSETD
, &old_tty
.main
.c_line
);
1856 widen_foreground_group ();
1862 /* Set up the proper status flags for use of a pty. */
1868 /* I'm told that TOICREMOTE does not mean control chars
1869 "can't be sent" but rather that they don't have
1870 input-editing or signaling effects.
1871 That should be good, because we have other ways
1872 to do those things in Emacs.
1873 However, telnet mode seems not to work on 4.2.
1874 So TIOCREMOTE is turned off now. */
1876 /* Under hp-ux, if TIOCREMOTE is turned on, some calls
1877 will hang. In particular, the "timeout" feature (which
1878 causes a read to return if there is no data available)
1879 does this. Also it is known that telnet mode will hang
1880 in such a way that Emacs must be stopped (perhaps this
1881 is the same problem).
1883 If TIOCREMOTE is turned off, then there is a bug in
1884 hp-ux which sometimes loses data. Apparently the
1885 code which blocks the master process when the internal
1886 buffer fills up does not work. Other than this,
1887 though, everything else seems to work fine.
1889 Since the latter lossage is more benign, we may as well
1890 lose that way. -- cph */
1892 #if defined(SYSV_PTYS) || defined(UNIX98_PTYS)
1895 ioctl (fd
, FIONBIO
, &on
);
1900 /* On AIX, the parent gets SIGHUP when a pty attached child dies. So, we */
1901 /* ignore SIGHUP once we've started a child on a pty. Note that this may */
1902 /* cause EMACS not to die when it should, i.e., when its own controlling */
1903 /* tty goes away. I've complained to the AIX developers, and they may */
1904 /* change this behavior, but I'm not going to hold my breath. */
1905 signal (SIGHUP
, SIG_IGN
);
1908 #endif /* HAVE_PTYS */
1912 /* Assigning an input channel is done at the start of Emacs execution.
1913 This is called each time Emacs is resumed, also, but does nothing
1914 because input_chain is no longer zero. */
1923 status
= SYS$
ASSIGN (&input_dsc
, &input_fd
, 0, 0);
1929 /* Deassigning the input channel is done before exiting. */
1934 return SYS$
DASSGN (input_fd
);
1939 /* Request reading one character into the keyboard buffer.
1940 This is done as soon as the buffer becomes empty. */
1946 extern kbd_input_ast ();
1948 waiting_for_ast
= 0;
1950 status
= SYS$
QIO (0, input_fd
, IO$_READVBLK
,
1951 &input_iosb
, kbd_input_ast
, 1,
1952 &input_buffer
, 1, 0, terminator_mask
, 0, 0);
1957 /* Ast routine that is called when keyboard input comes in
1958 in accord with the SYS$QIO above. */
1963 register int c
= -1;
1964 int old_errno
= errno
;
1965 extern EMACS_TIME
*input_available_clear_time
;
1967 if (waiting_for_ast
)
1968 SYS$
SETEF (input_ef
);
1969 waiting_for_ast
= 0;
1972 if (input_count
== 25)
1974 printf ("Ast # %d,", input_count
);
1975 printf (" iosb = %x, %x, %x, %x",
1976 input_iosb
.offset
, input_iosb
.status
, input_iosb
.termlen
,
1979 if (input_iosb
.offset
)
1983 printf (", char = 0%o", c
);
1995 struct input_event e
;
1996 e
.kind
= ascii_keystroke
;
1997 XSETINT (e
.code
, c
);
1998 e
.frame_or_window
= selected_frame
;
1999 kbd_buffer_store_event (&e
);
2001 if (input_available_clear_time
)
2002 EMACS_SET_SECS_USECS (*input_available_clear_time
, 0, 0);
2006 /* Wait until there is something in kbd_buffer. */
2009 wait_for_kbd_input ()
2011 extern int have_process_input
, process_exited
;
2013 /* If already something, avoid doing system calls. */
2014 if (detect_input_pending ())
2018 /* Clear a flag, and tell ast routine above to set it. */
2019 SYS$
CLREF (input_ef
);
2020 waiting_for_ast
= 1;
2021 /* Check for timing error: ast happened while we were doing that. */
2022 if (!detect_input_pending ())
2024 /* No timing error: wait for flag to be set. */
2025 set_waiting_for_input (0);
2026 SYS$
WFLOR (input_ef
, input_eflist
);
2027 clear_waiting_for_input (0);
2028 if (!detect_input_pending ())
2029 /* Check for subprocess input availability */
2031 int dsp
= have_process_input
|| process_exited
;
2033 SYS$
CLREF (process_ef
);
2034 if (have_process_input
)
2035 process_command_input ();
2040 update_mode_lines
++;
2041 prepare_menu_bars ();
2042 redisplay_preserve_echo_area ();
2046 waiting_for_ast
= 0;
2049 /* Get rid of any pending QIO, when we are about to suspend
2050 or when we want to throw away pending input.
2051 We wait for a positive sign that the AST routine has run
2052 and therefore there is no I/O request queued when we return.
2053 SYS$SETAST is used to avoid a timing error. */
2059 printf ("At end_kbd_input.\n");
2063 if (LIB$
AST_IN_PROG ()) /* Don't wait if suspending from kbd_buffer_store_event! */
2065 SYS$
CANCEL (input_fd
);
2070 /* Clear a flag, and tell ast routine above to set it. */
2071 SYS$
CLREF (input_ef
);
2072 waiting_for_ast
= 1;
2074 SYS$
CANCEL (input_fd
);
2076 SYS$
WAITFR (input_ef
);
2077 waiting_for_ast
= 0;
2080 /* Wait for either input available or time interval expiry. */
2083 input_wait_timeout (timeval
)
2084 int timeval
; /* Time to wait, in seconds */
2087 static int zero
= 0;
2088 static int large
= -10000000;
2090 LIB$
EMUL (&timeval
, &large
, &zero
, time
); /* Convert to VMS format */
2092 /* If already something, avoid doing system calls. */
2093 if (detect_input_pending ())
2097 /* Clear a flag, and tell ast routine above to set it. */
2098 SYS$
CLREF (input_ef
);
2099 waiting_for_ast
= 1;
2100 /* Check for timing error: ast happened while we were doing that. */
2101 if (!detect_input_pending ())
2103 /* No timing error: wait for flag to be set. */
2105 if (SYS$
SETIMR (timer_ef
, time
, 0, 1) & 1) /* Set timer */
2106 SYS$
WFLOR (timer_ef
, timer_eflist
); /* Wait for timer expiry or input */
2108 waiting_for_ast
= 0;
2111 /* The standard `sleep' routine works some other way
2112 and it stops working if you have ever quit out of it.
2113 This one continues to work. */
2119 static int zero
= 0;
2120 static int large
= -10000000;
2122 LIB$
EMUL (&timeval
, &large
, &zero
, time
); /* Convert to VMS format */
2125 if (SYS$
SETIMR (timer_ef
, time
, 0, 1) & 1) /* Set timer */
2126 SYS$
WAITFR (timer_ef
); /* Wait for timer expiry only */
2144 croak ("request sigio");
2150 croak ("unrequest sigio");
2155 /* Note that VMS compiler won't accept defined (CANNOT_DUMP). */
2160 #ifndef SYSTEM_MALLOC
2167 /* Some systems that cannot dump also cannot implement these. */
2170 * Return the address of the start of the text segment prior to
2171 * doing an unexec. After unexec the return value is undefined.
2172 * See crt0.c for further explanation and _start.
2176 #if !(defined (__NetBSD__) && defined (__ELF__))
2177 #ifndef HAVE_TEXT_START
2182 return ((char *) TEXT_START
);
2186 return ((char *) csrt
);
2187 #else /* not GOULD */
2188 extern int _start ();
2189 return ((char *) _start
);
2191 #endif /* TEXT_START */
2193 #endif /* not HAVE_TEXT_START */
2197 * Return the address of the start of the data segment prior to
2198 * doing an unexec. After unexec the return value is undefined.
2199 * See crt0.c for further information and definition of data_start.
2201 * Apparently, on BSD systems this is etext at startup. On
2202 * USG systems (swapping) this is highly mmu dependent and
2203 * is also dependent on whether or not the program is running
2204 * with shared text. Generally there is a (possibly large)
2205 * gap between end of text and start of data with shared text.
2207 * On Uniplus+ systems with shared text, data starts at a
2208 * fixed address. Each port (from a given oem) is generally
2209 * different, and the specific value of the start of data can
2210 * be obtained via the UniPlus+ specific "uvar" system call,
2211 * however the method outlined in crt0.c seems to be more portable.
2213 * Probably what will have to happen when a USG unexec is available,
2214 * at least on UniPlus, is temacs will have to be made unshared so
2215 * that text and data are contiguous. Then once loadup is complete,
2216 * unexec will produce a shared executable where the data can be
2217 * at the normal shared text boundary and the startofdata variable
2218 * will be patched by unexec to the correct value.
2226 return ((char *) DATA_START
);
2228 #ifdef ORDINARY_LINK
2230 * This is a hack. Since we're not linking crt0.c or pre_crt0.c,
2231 * data_start isn't defined. We take the address of environ, which
2232 * is known to live at or near the start of the system crt0.c, and
2233 * we don't sweat the handful of bytes that might lose.
2235 extern char **environ
;
2237 return ((char *) &environ
);
2239 extern int data_start
;
2240 return ((char *) &data_start
);
2241 #endif /* ORDINARY_LINK */
2242 #endif /* DATA_START */
2244 #endif /* NEED_STARTS (not CANNOT_DUMP or not SYSTEM_MALLOC) */
2247 /* Some systems that cannot dump also cannot implement these. */
2250 * Return the address of the end of the text segment prior to
2251 * doing an unexec. After unexec the return value is undefined.
2258 return ((char *) TEXT_END
);
2261 return ((char *) &etext
);
2266 * Return the address of the end of the data segment prior to
2267 * doing an unexec. After unexec the return value is undefined.
2274 return ((char *) DATA_END
);
2277 return ((char *) &edata
);
2281 #endif /* not CANNOT_DUMP */
2283 /* init_system_name sets up the string for the Lisp function
2284 system-name to return. */
2290 extern Lisp_Object Vsystem_name
;
2295 #include <sys/socket.h>
2297 #endif /* HAVE_SOCKETS */
2298 #endif /* not VMS */
2299 #endif /* not BSD4_1 */
2305 Vsystem_name
= build_string (sysname
);
2309 if ((sp
= egetenv ("SYS$NODE")) == 0)
2310 Vsystem_name
= build_string ("vax-vms");
2311 else if ((end
= index (sp
, ':')) == 0)
2312 Vsystem_name
= build_string (sp
);
2314 Vsystem_name
= make_string (sp
, end
- sp
);
2316 #ifndef HAVE_GETHOSTNAME
2319 Vsystem_name
= build_string (uts
.nodename
);
2320 #else /* HAVE_GETHOSTNAME */
2321 unsigned int hostname_size
= 256;
2322 char *hostname
= (char *) alloca (hostname_size
);
2324 /* Try to get the host name; if the buffer is too short, try
2325 again. Apparently, the only indication gethostname gives of
2326 whether the buffer was large enough is the presence or absence
2327 of a '\0' in the string. Eech. */
2330 gethostname (hostname
, hostname_size
- 1);
2331 hostname
[hostname_size
- 1] = '\0';
2333 /* Was the buffer large enough for the '\0'? */
2334 if (strlen (hostname
) < hostname_size
- 1)
2337 hostname_size
<<= 1;
2338 hostname
= (char *) alloca (hostname_size
);
2341 /* Turn the hostname into the official, fully-qualified hostname.
2342 Don't do this if we're going to dump; this can confuse system
2343 libraries on some machines and make the dumped emacs core dump. */
2346 #endif /* not CANNOT_DUMP */
2347 if (! index (hostname
, '.'))
2351 for (count
= 0;; count
++)
2356 hp
= gethostbyname (hostname
);
2358 if (! (hp
== 0 && h_errno
== TRY_AGAIN
))
2363 Fsleep_for (make_number (1), Qnil
);
2367 char *fqdn
= (char *) hp
->h_name
;
2370 if (!index (fqdn
, '.'))
2372 /* We still don't have a fully qualified domain name.
2373 Try to find one in the list of alternate names */
2374 char **alias
= hp
->h_aliases
;
2375 while (*alias
&& !index (*alias
, '.'))
2382 /* Convert the host name to lower case. */
2383 /* Using ctype.h here would introduce a possible locale
2384 dependence that is probably wrong for hostnames. */
2388 if (*p
>= 'A' && *p
<= 'Z')
2395 #endif /* HAVE_SOCKETS */
2396 /* We used to try using getdomainname here,
2397 but NIIBE Yutaka <gniibe@etl.go.jp> says that
2398 getdomainname gets the NIS/YP domain which often is not the same
2399 as in Internet domain name. */
2400 #if 0 /* Turned off because sysinfo is not really likely to return the
2401 correct Internet domain. */
2402 #if (HAVE_SYSINFO && defined (SI_SRPC_DOMAIN))
2403 if (! index (hostname
, '.'))
2405 /* The hostname is not fully qualified. Append the domain name. */
2407 int hostlen
= strlen (hostname
);
2408 int domain_size
= 256;
2412 char *domain
= (char *) alloca (domain_size
+ 1);
2413 char *fqdn
= (char *) alloca (hostlen
+ 1 + domain_size
+ 1);
2414 int sys_domain_size
= sysinfo (SI_SRPC_DOMAIN
, domain
, domain_size
);
2415 if (sys_domain_size
<= 0)
2417 if (domain_size
< sys_domain_size
)
2419 domain_size
= sys_domain_size
;
2422 strcpy (fqdn
, hostname
);
2423 if (domain
[0] == '.')
2424 strcpy (fqdn
+ hostlen
, domain
);
2425 else if (domain
[0] != 0)
2427 fqdn
[hostlen
] = '.';
2428 strcpy (fqdn
+ hostlen
+ 1, domain
);
2434 #endif /* HAVE_SYSINFO && defined (SI_SRPC_DOMAIN) */
2436 Vsystem_name
= build_string (hostname
);
2437 #endif /* HAVE_GETHOSTNAME */
2442 for (p
= XSTRING (Vsystem_name
)->data
; *p
; p
++)
2443 if (*p
== ' ' || *p
== '\t')
2450 #if !defined (HAVE_SELECT) || defined (BROKEN_SELECT_NON_X)
2452 #include "sysselect.h"
2455 #if defined (HAVE_X_WINDOWS) && !defined (HAVE_SELECT)
2456 /* Cause explanatory error message at compile time,
2457 since the select emulation is not good enough for X. */
2458 int *x
= &x_windows_lose_if_no_select_system_call
;
2461 /* Emulate as much as select as is possible under 4.1 and needed by Gnu Emacs
2462 * Only checks read descriptors.
2464 /* How long to wait between checking fds in select */
2465 #define SELECT_PAUSE 1
2468 /* For longjmp'ing back to read_input_waiting. */
2470 jmp_buf read_alarm_throw
;
2472 /* Nonzero if the alarm signal should throw back to read_input_waiting.
2473 The read_socket_hook function sets this to 1 while it is waiting. */
2475 int read_alarm_should_throw
;
2483 #else /* not BSD4_1 */
2484 signal (SIGALRM
, SIG_IGN
);
2485 #endif /* not BSD4_1 */
2486 if (read_alarm_should_throw
)
2487 longjmp (read_alarm_throw
, 1);
2491 /* Only rfds are checked. */
2493 sys_select (nfds
, rfds
, wfds
, efds
, timeout
)
2495 SELECT_TYPE
*rfds
, *wfds
, *efds
;
2496 EMACS_TIME
*timeout
;
2502 extern int proc_buffered_char
[];
2503 #ifndef subprocesses
2504 int process_tick
= 0, update_tick
= 0;
2506 extern int process_tick
, update_tick
;
2510 #if defined (HAVE_SELECT) && defined (HAVE_X_WINDOWS)
2511 /* If we're using X, then the native select will work; we only need the
2512 emulation for non-X usage. */
2513 if (!NILP (Vwindow_system
))
2514 return select (nfds
, rfds
, wfds
, efds
, timeout
);
2516 timeoutval
= timeout
? EMACS_SECS (*timeout
) : 100000;
2517 local_timeout
= &timeoutval
;
2529 /* If we are looking only for the terminal, with no timeout,
2530 just read it and wait -- that's more efficient. */
2531 if (*local_timeout
== 100000 && process_tick
== update_tick
2532 && FD_ISSET (0, &orfds
))
2535 for (fd
= 1; fd
< nfds
; ++fd
)
2536 if (FD_ISSET (fd
, &orfds
))
2538 if (! detect_input_pending ())
2539 read_input_waiting ();
2545 /* Once a second, till the timer expires, check all the flagged read
2546 * descriptors to see if any input is available. If there is some then
2547 * set the corresponding bit in the return copy of rfds.
2551 register int to_check
, fd
;
2555 for (to_check
= nfds
, fd
= 0; --to_check
>= 0; fd
++)
2557 if (FD_ISSET (fd
, &orfds
))
2559 int avail
= 0, status
= 0;
2562 avail
= detect_input_pending (); /* Special keyboard handler */
2566 status
= ioctl (fd
, FIONREAD
, &avail
);
2567 #else /* no FIONREAD */
2568 /* Hoping it will return -1 if nothing available
2569 or 0 if all 0 chars requested are read. */
2570 if (proc_buffered_char
[fd
] >= 0)
2574 avail
= read (fd
, &buf
, 1);
2576 proc_buffered_char
[fd
] = buf
;
2578 #endif /* no FIONREAD */
2580 if (status
>= 0 && avail
> 0)
2588 if (*local_timeout
== 0 || ravail
!= 0 || process_tick
!= update_tick
)
2591 turn_on_atimers (0);
2592 signal (SIGALRM
, select_alarm
);
2594 alarm (SELECT_PAUSE
);
2596 /* Wait for a SIGALRM (or maybe a SIGTINT) */
2597 while (select_alarmed
== 0 && *local_timeout
!= 0
2598 && process_tick
== update_tick
)
2600 /* If we are interested in terminal input,
2601 wait by reading the terminal.
2602 That makes instant wakeup for terminal input at least. */
2603 if (FD_ISSET (0, &orfds
))
2605 read_input_waiting ();
2606 if (detect_input_pending ())
2612 (*local_timeout
) -= SELECT_PAUSE
;
2614 /* Reset the old alarm if there was one. */
2615 turn_on_atimers (1);
2617 if (*local_timeout
== 0) /* Stop on timer being cleared */
2622 #endif /* not WINDOWSNT */
2624 /* Read keyboard input into the standard buffer,
2625 waiting for at least one character. */
2627 /* Make all keyboard buffers much bigger when using a window system. */
2628 #ifdef HAVE_WINDOW_SYSTEM
2629 #define BUFFER_SIZE_FACTOR 16
2631 #define BUFFER_SIZE_FACTOR 1
2635 read_input_waiting ()
2637 struct input_event e
;
2639 extern int quit_char
;
2641 if (read_socket_hook
)
2643 struct input_event buf
[256];
2645 read_alarm_should_throw
= 0;
2646 if (! setjmp (read_alarm_throw
))
2647 nread
= (*read_socket_hook
) (0, buf
, 256, 1);
2651 /* Scan the chars for C-g and store them in kbd_buffer. */
2652 for (i
= 0; i
< nread
; i
++)
2654 kbd_buffer_store_event (&buf
[i
]);
2655 /* Don't look at input that follows a C-g too closely.
2656 This reduces lossage due to autorepeat on C-g. */
2657 if (buf
[i
].kind
== ascii_keystroke
2658 && buf
[i
].code
== quit_char
)
2665 nread
= read (fileno (stdin
), buf
, 1);
2667 /* Scan the chars for C-g and store them in kbd_buffer. */
2668 e
.kind
= ascii_keystroke
;
2669 e
.frame_or_window
= selected_frame
;
2671 for (i
= 0; i
< nread
; i
++)
2673 /* Convert chars > 0177 to meta events if desired.
2674 We do this under the same conditions that read_avail_input does. */
2675 if (read_socket_hook
== 0)
2677 /* If the user says she has a meta key, then believe her. */
2678 if (meta_key
== 1 && (buf
[i
] & 0x80))
2679 e
.modifiers
= meta_modifier
;
2684 XSETINT (e
.code
, buf
[i
]);
2685 kbd_buffer_store_event (&e
);
2686 /* Don't look at input that follows a C-g too closely.
2687 This reduces lossage due to autorepeat on C-g. */
2688 if (buf
[i
] == quit_char
)
2694 #endif /* not HAVE_SELECT */
2695 #endif /* not VMS */
2696 #endif /* not MSDOS */
2705 lmode
= LINTRUP
| lmode
;
2706 ioctl (fd
, TIOCLSET
, &lmode
);
2714 lmode
= ~LINTRUP
& lmode
;
2715 ioctl (0, TIOCLSET
, &lmode
);
2723 interrupts_deferred
= 0;
2731 interrupts_deferred
= 1;
2734 /* still inside #ifdef BSD4_1 */
2737 int sigheld
; /* Mask of held signals */
2743 sigheld
|= sigbit (signum
);
2751 sigheld
|= sigbit (signum
);
2758 sigheld
&= ~sigbit (signum
);
2763 sigfree () /* Free all held signals */
2766 for (i
= 0; i
< NSIG
; i
++)
2767 if (sigheld
& sigbit (i
))
2775 return 1 << (i
- 1);
2777 #endif /* subprocesses */
2780 /* POSIX signals support - DJB */
2781 /* Anyone with POSIX signals should have ANSI C declarations */
2783 #ifdef POSIX_SIGNALS
2785 sigset_t empty_mask
, full_mask
;
2788 sys_signal (int signal_number
, signal_handler_t action
)
2790 struct sigaction new_action
, old_action
;
2791 sigemptyset (&new_action
.sa_mask
);
2792 new_action
.sa_handler
= action
;
2794 /* Emacs mostly works better with restartable system services. If this
2795 * flag exists, we probably want to turn it on here.
2797 new_action
.sa_flags
= SA_RESTART
;
2799 new_action
.sa_flags
= 0;
2801 sigaction (signal_number
, &new_action
, &old_action
);
2802 return (old_action
.sa_handler
);
2806 /* If we're compiling with GCC, we don't need this function, since it
2807 can be written as a macro. */
2809 sys_sigmask (int sig
)
2812 sigemptyset (&mask
);
2813 sigaddset (&mask
, sig
);
2818 /* I'd like to have these guys return pointers to the mask storage in here,
2819 but there'd be trouble if the code was saving multiple masks. I'll be
2820 safe and pass the structure. It normally won't be more than 2 bytes
2824 sys_sigblock (sigset_t new_mask
)
2827 sigprocmask (SIG_BLOCK
, &new_mask
, &old_mask
);
2832 sys_sigunblock (sigset_t new_mask
)
2835 sigprocmask (SIG_UNBLOCK
, &new_mask
, &old_mask
);
2840 sys_sigsetmask (sigset_t new_mask
)
2843 sigprocmask (SIG_SETMASK
, &new_mask
, &old_mask
);
2847 #endif /* POSIX_SIGNALS */
2849 #if !defined HAVE_STRSIGNAL && !defined SYS_SIGLIST_DECLARED
2850 static char *my_sys_siglist
[NSIG
];
2854 # define sys_siglist my_sys_siglist
2860 #ifdef POSIX_SIGNALS
2861 sigemptyset (&empty_mask
);
2862 sigfillset (&full_mask
);
2865 #if !defined HAVE_STRSIGNAL && !defined SYS_SIGLIST_DECLARED
2869 sys_siglist
[SIGABRT
] = "Aborted";
2872 sys_siglist
[SIGAIO
] = "LAN I/O interrupt";
2875 sys_siglist
[SIGALRM
] = "Alarm clock";
2878 sys_siglist
[SIGBUS
] = "Bus error";
2881 sys_siglist
[SIGCLD
] = "Child status changed";
2884 sys_siglist
[SIGCHLD
] = "Child status changed";
2887 sys_siglist
[SIGCONT
] = "Continued";
2890 sys_siglist
[SIGDANGER
] = "Swap space dangerously low";
2893 sys_siglist
[SIGDGNOTIFY
] = "Notification message in queue";
2896 sys_siglist
[SIGEMT
] = "Emulation trap";
2899 sys_siglist
[SIGFPE
] = "Arithmetic exception";
2902 sys_siglist
[SIGFREEZE
] = "SIGFREEZE";
2905 sys_siglist
[SIGGRANT
] = "Monitor mode granted";
2908 sys_siglist
[SIGHUP
] = "Hangup";
2911 sys_siglist
[SIGILL
] = "Illegal instruction";
2914 sys_siglist
[SIGINT
] = "Interrupt";
2917 sys_siglist
[SIGIO
] = "I/O possible";
2920 sys_siglist
[SIGIOINT
] = "I/O intervention required";
2923 sys_siglist
[SIGIOT
] = "IOT trap";
2926 sys_siglist
[SIGKILL
] = "Killed";
2929 sys_siglist
[SIGLOST
] = "Resource lost";
2932 sys_siglist
[SIGLWP
] = "SIGLWP";
2935 sys_siglist
[SIGMSG
] = "Monitor mode data available";
2938 sys_siglist
[SIGWIND
] = "SIGPHONE";
2941 sys_siglist
[SIGPIPE
] = "Broken pipe";
2944 sys_siglist
[SIGPOLL
] = "Pollable event occurred";
2947 sys_siglist
[SIGPROF
] = "Profiling timer expired";
2950 sys_siglist
[SIGPTY
] = "PTY I/O interrupt";
2953 sys_siglist
[SIGPWR
] = "Power-fail restart";
2956 sys_siglist
[SIGQUIT
] = "Quit";
2959 sys_siglist
[SIGRETRACT
] = "Need to relinguish monitor mode";
2962 sys_siglist
[SIGSAK
] = "Secure attention";
2965 sys_siglist
[SIGSEGV
] = "Segmentation violation";
2968 sys_siglist
[SIGSOUND
] = "Sound completed";
2971 sys_siglist
[SIGSTOP
] = "Stopped (signal)";
2974 sys_siglist
[SIGSTP
] = "Stopped (user)";
2977 sys_siglist
[SIGSYS
] = "Bad argument to system call";
2980 sys_siglist
[SIGTERM
] = "Terminated";
2983 sys_siglist
[SIGTHAW
] = "SIGTHAW";
2986 sys_siglist
[SIGTRAP
] = "Trace/breakpoint trap";
2989 sys_siglist
[SIGTSTP
] = "Stopped (user)";
2992 sys_siglist
[SIGTTIN
] = "Stopped (tty input)";
2995 sys_siglist
[SIGTTOU
] = "Stopped (tty output)";
2998 sys_siglist
[SIGURG
] = "Urgent I/O condition";
3001 sys_siglist
[SIGUSR1
] = "User defined signal 1";
3004 sys_siglist
[SIGUSR2
] = "User defined signal 2";
3007 sys_siglist
[SIGVTALRM
] = "Virtual timer expired";
3010 sys_siglist
[SIGWAITING
] = "Process's LWPs are blocked";
3013 sys_siglist
[SIGWINCH
] = "Window size changed";
3016 sys_siglist
[SIGWIND
] = "SIGWIND";
3019 sys_siglist
[SIGXCPU
] = "CPU time limit exceeded";
3022 sys_siglist
[SIGXFSZ
] = "File size limit exceeded";
3025 #endif /* !defined HAVE_STRSIGNAL && !defined SYS_SIGLIST_DECLARED */
3034 /* Figure out how many bits the system's random number generator uses.
3035 `random' and `lrand48' are assumed to return 31 usable bits.
3036 BSD `rand' returns a 31 bit value but the low order bits are unusable;
3037 so we'll shift it and treat it like the 15-bit USG `rand'. */
3041 # define RAND_BITS 31
3042 # else /* !HAVE_RANDOM */
3043 # ifdef HAVE_LRAND48
3044 # define RAND_BITS 31
3045 # define random lrand48
3046 # else /* !HAVE_LRAND48 */
3047 # define RAND_BITS 15
3048 # if RAND_MAX == 32767
3049 # define random rand
3050 # else /* RAND_MAX != 32767 */
3051 # if RAND_MAX == 2147483647
3052 # define random() (rand () >> 16)
3053 # else /* RAND_MAX != 2147483647 */
3055 # define random rand
3057 # define random() (rand () >> 16)
3059 # endif /* RAND_MAX != 2147483647 */
3060 # endif /* RAND_MAX != 32767 */
3061 # endif /* !HAVE_LRAND48 */
3062 # endif /* !HAVE_RANDOM */
3063 #endif /* !RAND_BITS */
3070 srandom ((unsigned int)arg
);
3072 # ifdef HAVE_LRAND48
3075 srand ((unsigned int)arg
);
3081 * Build a full Emacs-sized word out of whatever we've got.
3082 * This suffices even for a 64-bit architecture with a 15-bit rand.
3087 long val
= random ();
3088 #if VALBITS > RAND_BITS
3089 val
= (val
<< RAND_BITS
) ^ random ();
3090 #if VALBITS > 2*RAND_BITS
3091 val
= (val
<< RAND_BITS
) ^ random ();
3092 #if VALBITS > 3*RAND_BITS
3093 val
= (val
<< RAND_BITS
) ^ random ();
3094 #if VALBITS > 4*RAND_BITS
3095 val
= (val
<< RAND_BITS
) ^ random ();
3096 #endif /* need at least 5 */
3097 #endif /* need at least 4 */
3098 #endif /* need at least 3 */
3099 #endif /* need at least 2 */
3100 return val
& ((1L << VALBITS
) - 1);
3103 #ifdef WRONG_NAME_INSQUE
3116 /* If any place else asks for the TERM variable,
3117 allow it to be overridden with the EMACS_TERM variable
3118 before attempting to translate the logical name TERM. As a last
3119 resort, ask for VAX C's special idea of the TERM variable. */
3126 static char buf
[256];
3127 static struct dsc$descriptor_s equiv
3128 = {sizeof (buf
), DSC$K_DTYPE_T
, DSC$K_CLASS_S
, buf
};
3129 static struct dsc$descriptor_s d_name
3130 = {0, DSC$K_DTYPE_T
, DSC$K_CLASS_S
, 0};
3133 if (!strcmp (name
, "TERM"))
3135 val
= (char *) getenv ("EMACS_TERM");
3140 d_name
.dsc$w_length
= strlen (name
);
3141 d_name
.dsc$a_pointer
= name
;
3142 if (LIB$
SYS_TRNLOG (&d_name
, &eqlen
, &equiv
) == 1)
3144 char *str
= (char *) xmalloc (eqlen
+ 1);
3145 bcopy (buf
, str
, eqlen
);
3147 /* This is a storage leak, but a pain to fix. With luck,
3148 no one will ever notice. */
3151 return (char *) getenv (name
);
3156 /* Since VMS doesn't believe in core dumps, the only way to debug this beast is
3157 to force a call on the debugger from within the image. */
3162 LIB$
SIGNAL (SS$_DEBUG
);
3168 #ifdef LINK_CRTL_SHARE
3169 #ifdef SHARABLE_LIB_BUG
3170 /* Variables declared noshare and initialized in sharable libraries
3171 cannot be shared. The VMS linker incorrectly forces you to use a private
3172 version which is uninitialized... If not for this "feature", we
3173 could use the C library definition of sys_nerr and sys_errlist. */
3175 char *sys_errlist
[] =
3179 "no such file or directory",
3181 "interrupted system call",
3183 "no such device or address",
3184 "argument list too long",
3185 "exec format error",
3188 "no more processes",
3189 "not enough memory",
3190 "permission denied",
3192 "block device required",
3193 "mount devices busy",
3195 "cross-device link",
3200 "file table overflow",
3201 "too many open files",
3205 "no space left on device",
3207 "read-only file system",
3213 "vax/vms specific error code nontranslatable error"
3215 #endif /* SHARABLE_LIB_BUG */
3216 #endif /* LINK_CRTL_SHARE */
3219 #ifndef HAVE_STRERROR
3225 extern char *sys_errlist
[];
3226 extern int sys_nerr
;
3228 if (errnum
>= 0 && errnum
< sys_nerr
)
3229 return sys_errlist
[errnum
];
3230 return (char *) "Unknown error";
3232 #endif /* not WINDOWSNT */
3233 #endif /* ! HAVE_STRERROR */
3236 emacs_open (path
, oflag
, mode
)
3240 register int rtnval
;
3243 if (oflag
& O_CREAT
)
3244 return creat (path
, mode
);
3247 while ((rtnval
= open (path
, oflag
, mode
)) == -1
3248 && (errno
== EINTR
));
3257 register int rtnval
;
3259 while ((rtnval
= close (fd
)) == -1
3260 && (errno
== EINTR
))
3263 /* If close is interrupted SunOS 4.1 may or may not have closed the
3264 file descriptor. If it did the second close will fail with
3265 errno = EBADF. That means we have succeeded. */
3266 if (rtnval
== -1 && did_retry
&& errno
== EBADF
)
3273 emacs_read (fildes
, buf
, nbyte
)
3278 register int rtnval
;
3280 while ((rtnval
= read (fildes
, buf
, nbyte
)) == -1
3281 && (errno
== EINTR
));
3286 emacs_write (fildes
, buf
, nbyte
)
3291 register int rtnval
, bytes_written
;
3297 rtnval
= write (fildes
, buf
, nbyte
);
3304 return (bytes_written
? bytes_written
: -1);
3309 bytes_written
+= rtnval
;
3311 return (bytes_written
);
3316 * All of the following are for USG.
3318 * On USG systems the system calls are INTERRUPTIBLE by signals
3319 * that the user program has elected to catch. Thus the system call
3320 * must be retried in these cases. To handle this without massive
3321 * changes in the source code, we remap the standard system call names
3322 * to names for our own functions in sysdep.c that do the system call
3323 * with retries. Actually, for portability reasons, it is good
3324 * programming practice, as this example shows, to limit all actual
3325 * system calls to a single occurrence in the source. Sure, this
3326 * adds an extra level of function call overhead but it is almost
3327 * always negligible. Fred Fish, Unisoft Systems Inc.
3331 * Warning, this function may not duplicate 4.2 action properly
3332 * under error conditions.
3336 /* In 4.1, param.h fails to define this. */
3337 #define MAXPATHLEN 1024
3346 char *npath
, *spath
;
3347 extern char *getcwd ();
3349 BLOCK_INPUT
; /* getcwd uses malloc */
3350 spath
= npath
= getcwd ((char *) 0, MAXPATHLEN
);
3353 /* On Altos 3068, getcwd can return @hostname/dir, so discard
3354 up to first slash. Should be harmless on other systems. */
3355 while (*npath
&& *npath
!= '/')
3357 strcpy (pathname
, npath
);
3358 free (spath
); /* getcwd uses malloc */
3363 #endif /* HAVE_GETWD */
3366 * Emulate rename using unlink/link. Note that this is
3367 * only partially correct. Also, doesn't enforce restriction
3368 * that files be of same type (regular->regular, dir->dir, etc).
3377 if (access (from
, 0) == 0)
3380 if (link (from
, to
) == 0)
3381 if (unlink (from
) == 0)
3393 /* HPUX curses library references perror, but as far as we know
3394 it won't be called. Anyway this definition will do for now. */
3400 #endif /* not HAVE_PERROR */
3406 * Emulate BSD dup2. First close newd if it already exists.
3407 * Then, attempt to dup oldd. If not successful, call dup2 recursively
3408 * until we are, then close the unsuccessful ones.
3415 register int fd
, ret
;
3420 return fcntl (oldd
, F_DUPFD
, newd
);
3427 ret
= dup2 (old
,new);
3433 #endif /* not HAVE_DUP2 */
3436 * Gettimeofday. Simulate as much as possible. Only accurate
3437 * to nearest second. Emacs doesn't use tzp so ignore it for now.
3438 * Only needed when subprocesses are defined.
3443 #ifndef HAVE_GETTIMEOFDAY
3448 gettimeofday (tp
, tzp
)
3450 struct timezone
*tzp
;
3452 extern long time ();
3454 tp
->tv_sec
= time ((long *)0);
3457 tzp
->tz_minuteswest
= -1;
3464 #endif /* subprocess && !HAVE_GETTIMEOFDAY && HAVE_TIMEVAL && !VMS */
3467 * This function will go away as soon as all the stubs fixed. (fnf)
3474 printf ("%s not yet implemented\r\n", badfunc
);
3481 /* Directory routines for systems that don't have them. */
3483 #ifdef SYSV_SYSTEM_DIR
3487 #if defined (BROKEN_CLOSEDIR) || !defined (HAVE_CLOSEDIR)
3491 register DIR *dirp
; /* stream from opendir */
3495 rtnval
= emacs_close (dirp
->dd_fd
);
3497 /* Some systems (like Solaris) allocate the buffer and the DIR all
3498 in one block. Why in the world are we freeing this ourselves
3500 #if ! (defined (sun) && defined (USG5_4))
3501 xfree ((char *) dirp
->dd_buf
); /* directory block defined in <dirent.h> */
3503 xfree ((char *) dirp
);
3507 #endif /* BROKEN_CLOSEDIR or not HAVE_CLOSEDIR */
3508 #endif /* SYSV_SYSTEM_DIR */
3510 #ifdef NONSYSTEM_DIR_LIBRARY
3514 char *filename
; /* name of directory */
3516 register DIR *dirp
; /* -> malloc'ed storage */
3517 register int fd
; /* file descriptor for read */
3518 struct stat sbuf
; /* result of fstat */
3520 fd
= emacs_open (filename
, O_RDONLY
, 0);
3525 if (fstat (fd
, &sbuf
) < 0
3526 || (sbuf
.st_mode
& S_IFMT
) != S_IFDIR
3527 || (dirp
= (DIR *) malloc (sizeof (DIR))) == 0)
3531 return 0; /* bad luck today */
3536 dirp
->dd_loc
= dirp
->dd_size
= 0; /* refill needed */
3543 register DIR *dirp
; /* stream from opendir */
3545 emacs_close (dirp
->dd_fd
);
3546 xfree ((char *) dirp
);
3554 ino_t od_ino
; /* inode */
3555 char od_name
[DIRSIZ
]; /* filename */
3557 #endif /* not VMS */
3559 struct direct dir_static
; /* simulated directory contents */
3564 register DIR *dirp
; /* stream from opendir */
3567 register struct olddir
*dp
; /* -> directory data */
3569 register struct dir$_name
*dp
; /* -> directory data */
3570 register struct dir$_version
*dv
; /* -> version data */
3575 if (dirp
->dd_loc
>= dirp
->dd_size
)
3576 dirp
->dd_loc
= dirp
->dd_size
= 0;
3578 if (dirp
->dd_size
== 0 /* refill buffer */
3579 && (dirp
->dd_size
= emacs_read (dirp
->dd_fd
, dirp
->dd_buf
, DIRBLKSIZ
)) <= 0)
3583 dp
= (struct olddir
*) &dirp
->dd_buf
[dirp
->dd_loc
];
3584 dirp
->dd_loc
+= sizeof (struct olddir
);
3586 if (dp
->od_ino
!= 0) /* not deleted entry */
3588 dir_static
.d_ino
= dp
->od_ino
;
3589 strncpy (dir_static
.d_name
, dp
->od_name
, DIRSIZ
);
3590 dir_static
.d_name
[DIRSIZ
] = '\0';
3591 dir_static
.d_namlen
= strlen (dir_static
.d_name
);
3592 dir_static
.d_reclen
= sizeof (struct direct
)
3594 + dir_static
.d_namlen
- dir_static
.d_namlen
% 4;
3595 return &dir_static
; /* -> simulated structure */
3598 dp
= (struct dir$_name
*) dirp
->dd_buf
;
3599 if (dirp
->dd_loc
== 0)
3600 dirp
->dd_loc
= (dp
->dir$b_namecount
&1) ? dp
->dir$b_namecount
+ 1
3601 : dp
->dir$b_namecount
;
3602 dv
= (struct dir$_version
*)&dp
->dir$t_name
[dirp
->dd_loc
];
3603 dir_static
.d_ino
= dv
->dir$w_fid_num
;
3604 dir_static
.d_namlen
= dp
->dir$b_namecount
;
3605 dir_static
.d_reclen
= sizeof (struct direct
)
3607 + dir_static
.d_namlen
- dir_static
.d_namlen
% 4;
3608 strncpy (dir_static
.d_name
, dp
->dir$t_name
, dp
->dir$b_namecount
);
3609 dir_static
.d_name
[dir_static
.d_namlen
] = '\0';
3610 dirp
->dd_loc
= dirp
->dd_size
; /* only one record at a time */
3617 /* readdirver is just like readdir except it returns all versions of a file
3618 as separate entries. */
3623 register DIR *dirp
; /* stream from opendir */
3625 register struct dir$_name
*dp
; /* -> directory data */
3626 register struct dir$_version
*dv
; /* -> version data */
3628 if (dirp
->dd_loc
>= dirp
->dd_size
- sizeof (struct dir$_name
))
3629 dirp
->dd_loc
= dirp
->dd_size
= 0;
3631 if (dirp
->dd_size
== 0 /* refill buffer */
3632 && (dirp
->dd_size
= sys_read (dirp
->dd_fd
, dirp
->dd_buf
, DIRBLKSIZ
)) <= 0)
3635 dp
= (struct dir$_name
*) dirp
->dd_buf
;
3636 if (dirp
->dd_loc
== 0)
3637 dirp
->dd_loc
= (dp
->dir$b_namecount
& 1) ? dp
->dir$b_namecount
+ 1
3638 : dp
->dir$b_namecount
;
3639 dv
= (struct dir$_version
*) &dp
->dir$t_name
[dirp
->dd_loc
];
3640 strncpy (dir_static
.d_name
, dp
->dir$t_name
, dp
->dir$b_namecount
);
3641 sprintf (&dir_static
.d_name
[dp
->dir$b_namecount
], ";%d", dv
->dir$w_version
);
3642 dir_static
.d_namlen
= strlen (dir_static
.d_name
);
3643 dir_static
.d_ino
= dv
->dir$w_fid_num
;
3644 dir_static
.d_reclen
= sizeof (struct direct
) - MAXNAMLEN
+ 3
3645 + dir_static
.d_namlen
- dir_static
.d_namlen
% 4;
3646 dirp
->dd_loc
= ((char *) (++dv
) - dp
->dir$t_name
);
3652 #endif /* NONSYSTEM_DIR_LIBRARY */
3656 set_file_times (filename
, atime
, mtime
)
3658 EMACS_TIME atime
, mtime
;
3661 struct timeval tv
[2];
3664 return utimes (filename
, tv
);
3665 #else /* not HAVE_UTIMES */
3667 utb
.actime
= EMACS_SECS (atime
);
3668 utb
.modtime
= EMACS_SECS (mtime
);
3669 return utime (filename
, &utb
);
3670 #endif /* not HAVE_UTIMES */
3673 /* mkdir and rmdir functions, for systems which don't have them. */
3677 * Written by Robert Rother, Mariah Corporation, August 1985.
3679 * If you want it, it's yours. All I ask in return is that if you
3680 * figure out how to do this in a Bourne Shell script you send me
3682 * sdcsvax!rmr or rmr@uscd
3684 * Severely hacked over by John Gilmore to make a 4.2BSD compatible
3685 * subroutine. 11Mar86; hoptoad!gnu
3687 * Modified by rmtodd@uokmax 6-28-87 -- when making an already existing dir,
3688 * subroutine didn't return EEXIST. It does now.
3694 #ifdef MKDIR_PROTOTYPE
3698 mkdir (dpath
, dmode
)
3703 int cpid
, status
, fd
;
3704 struct stat statbuf
;
3706 if (stat (dpath
, &statbuf
) == 0)
3708 errno
= EEXIST
; /* Stat worked, so it already exists */
3712 /* If stat fails for a reason other than non-existence, return error */
3713 if (errno
!= ENOENT
)
3716 synch_process_alive
= 1;
3717 switch (cpid
= fork ())
3720 case -1: /* Error in fork */
3721 return (-1); /* Errno is set already */
3723 case 0: /* Child process */
3725 * Cheap hack to set mode of new directory. Since this
3726 * child process is going away anyway, we zap its umask.
3727 * FIXME, this won't suffice to set SUID, SGID, etc. on this
3728 * directory. Does anybody care?
3730 status
= umask (0); /* Get current umask */
3731 status
= umask (status
| (0777 & ~dmode
)); /* Set for mkdir */
3732 fd
= emacs_open ("/dev/null", O_RDWR
, 0);
3739 execl ("/bin/mkdir", "mkdir", dpath
, (char *) 0);
3740 _exit (-1); /* Can't exec /bin/mkdir */
3742 default: /* Parent process */
3743 wait_for_termination (cpid
);
3746 if (synch_process_death
!= 0 || synch_process_retcode
!= 0)
3748 errno
= EIO
; /* We don't know why, but */
3749 return -1; /* /bin/mkdir failed */
3754 #endif /* not HAVE_MKDIR */
3761 int cpid
, status
, fd
;
3762 struct stat statbuf
;
3764 if (stat (dpath
, &statbuf
) != 0)
3766 /* Stat just set errno. We don't have to */
3770 synch_process_alive
= 1;
3771 switch (cpid
= fork ())
3774 case -1: /* Error in fork */
3775 return (-1); /* Errno is set already */
3777 case 0: /* Child process */
3778 fd
= emacs_open ("/dev/null", O_RDWR
, 0);
3785 execl ("/bin/rmdir", "rmdir", dpath
, (char *) 0);
3786 _exit (-1); /* Can't exec /bin/rmdir */
3788 default: /* Parent process */
3789 wait_for_termination (cpid
);
3792 if (synch_process_death
!= 0 || synch_process_retcode
!= 0)
3794 errno
= EIO
; /* We don't know why, but */
3795 return -1; /* /bin/rmdir failed */
3800 #endif /* !HAVE_RMDIR */
3804 /* Functions for VMS */
3806 #include "vms-pwd.h"
3811 /* Return as a string the VMS error string pertaining to STATUS.
3812 Reuses the same static buffer each time it is called. */
3816 int status
; /* VMS status code */
3820 static char buf
[257];
3822 bufadr
[0] = sizeof buf
- 1;
3823 bufadr
[1] = (int) buf
;
3824 if (! (SYS$
GETMSG (status
, &len
, bufadr
, 0x1, 0) & 1))
3825 return "untranslatable VMS error status";
3833 /* The following is necessary because 'access' emulation by VMS C (2.0) does
3834 * not work correctly. (It also doesn't work well in version 2.3.)
3839 #define DESCRIPTOR(name,string) struct dsc$descriptor_s name = \
3840 { strlen (string), DSC$K_DTYPE_T, DSC$K_CLASS_S, string }
3844 unsigned short s_buflen
;
3845 unsigned short s_code
;
3847 unsigned short *s_retlenadr
;
3851 #define buflen s.s_buflen
3852 #define code s.s_code
3853 #define bufadr s.s_bufadr
3854 #define retlenadr s.s_retlenadr
3856 #define R_OK 4 /* test for read permission */
3857 #define W_OK 2 /* test for write permission */
3858 #define X_OK 1 /* test for execute (search) permission */
3859 #define F_OK 0 /* test for presence of file */
3862 sys_access (path
, mode
)
3866 static char *user
= NULL
;
3869 /* translate possible directory spec into .DIR file name, so brain-dead
3870 * access can treat the directory like a file. */
3871 if (directory_file_name (path
, dir_fn
))
3875 return access (path
, mode
);
3876 if (user
== NULL
&& (user
= (char *) getenv ("USER")) == NULL
)
3882 unsigned short int dummy
;
3884 static int constant
= ACL$C_FILE
;
3885 DESCRIPTOR (path_desc
, path
);
3886 DESCRIPTOR (user_desc
, user
);
3890 if ((mode
& X_OK
) && ((stat
= access (path
, mode
)) < 0 || mode
== X_OK
))
3893 acces
|= CHP$M_READ
;
3895 acces
|= CHP$M_WRITE
;
3896 itemlst
[0].buflen
= sizeof (int);
3897 itemlst
[0].code
= CHP$_FLAGS
;
3898 itemlst
[0].bufadr
= (char *) &flags
;
3899 itemlst
[0].retlenadr
= &dummy
;
3900 itemlst
[1].buflen
= sizeof (int);
3901 itemlst
[1].code
= CHP$_ACCESS
;
3902 itemlst
[1].bufadr
= (char *) &acces
;
3903 itemlst
[1].retlenadr
= &dummy
;
3904 itemlst
[2].end
= CHP$_END
;
3905 stat
= SYS$
CHECK_ACCESS (&constant
, &path_desc
, &user_desc
, itemlst
);
3906 return stat
== SS$_NORMAL
? 0 : -1;
3910 #else /* not VMS4_4 */
3913 #define ACE$M_WRITE 2
3914 #define ACE$C_KEYID 1
3916 static unsigned short memid
, grpid
;
3917 static unsigned int uic
;
3919 /* Called from init_sys_modes, so it happens not very often
3920 but at least each time Emacs is loaded. */
3922 sys_access_reinit ()
3928 sys_access (filename
, type
)
3934 int status
, size
, i
, typecode
, acl_controlled
;
3935 unsigned int *aclptr
, *aclend
, aclbuf
[60];
3936 union prvdef prvmask
;
3938 /* Get UIC and GRP values for protection checking. */
3941 status
= LIB$
GETJPI (&JPI$_UIC
, 0, 0, &uic
, 0, 0);
3944 memid
= uic
& 0xFFFF;
3948 if (type
!= 2) /* not checking write access */
3949 return access (filename
, type
);
3951 /* Check write protection. */
3953 #define CHECKPRIV(bit) (prvmask.bit)
3954 #define WRITABLE(field) (! ((xab.xab$w_pro >> field) & XAB$M_NOWRITE))
3956 /* Find privilege bits */
3957 status
= SYS$
SETPRV (0, 0, 0, prvmask
);
3959 error ("Unable to find privileges: %s", vmserrstr (status
));
3960 if (CHECKPRIV (PRV$V_BYPASS
))
3961 return 0; /* BYPASS enabled */
3963 fab
.fab$b_fac
= FAB$M_GET
;
3964 fab
.fab$l_fna
= filename
;
3965 fab
.fab$b_fns
= strlen (filename
);
3966 fab
.fab$l_xab
= &xab
;
3967 xab
= cc$rms_xabpro
;
3968 xab
.xab$l_aclbuf
= aclbuf
;
3969 xab
.xab$w_aclsiz
= sizeof (aclbuf
);
3970 status
= SYS$
OPEN (&fab
, 0, 0);
3973 SYS$
CLOSE (&fab
, 0, 0);
3974 /* Check system access */
3975 if (CHECKPRIV (PRV$V_SYSPRV
) && WRITABLE (XAB$V_SYS
))
3977 /* Check ACL entries, if any */
3979 if (xab
.xab$w_acllen
> 0)
3982 aclend
= &aclbuf
[xab
.xab$w_acllen
/ 4];
3983 while (*aclptr
&& aclptr
< aclend
)
3985 size
= (*aclptr
& 0xff) / 4;
3986 typecode
= (*aclptr
>> 8) & 0xff;
3987 if (typecode
== ACE$C_KEYID
)
3988 for (i
= size
- 1; i
> 1; i
--)
3989 if (aclptr
[i
] == uic
)
3992 if (aclptr
[1] & ACE$M_WRITE
)
3993 return 0; /* Write access through ACL */
3995 aclptr
= &aclptr
[size
];
3997 if (acl_controlled
) /* ACL specified, prohibits write access */
4000 /* No ACL entries specified, check normal protection */
4001 if (WRITABLE (XAB$V_WLD
)) /* World writable */
4003 if (WRITABLE (XAB$V_GRP
) &&
4004 (unsigned short) (xab
.xab$l_uic
>> 16) == grpid
)
4005 return 0; /* Group writable */
4006 if (WRITABLE (XAB$V_OWN
) &&
4007 (xab
.xab$l_uic
& 0xFFFF) == memid
)
4008 return 0; /* Owner writable */
4010 return -1; /* Not writable */
4012 #endif /* not VMS4_4 */
4015 static char vtbuf
[NAM$C_MAXRSS
+1];
4017 /* translate a vms file spec to a unix path */
4019 sys_translate_vms (vfile
)
4030 /* leading device or logical name is a root directory */
4031 if (p
= strchr (vfile
, ':'))
4040 if (*p
== '[' || *p
== '<')
4042 while (*++vfile
!= *p
+ 2)
4046 if (vfile
[-1] == *p
)
4069 static char utbuf
[NAM$C_MAXRSS
+1];
4071 /* translate a unix path to a VMS file spec */
4073 sys_translate_unix (ufile
)
4096 if (index (&ufile
[1], '/'))
4103 if (index (&ufile
[1], '/'))
4110 if (strncmp (ufile
, "./", 2) == 0)
4117 ufile
++; /* skip the dot */
4118 if (index (&ufile
[1], '/'))
4123 else if (strncmp (ufile
, "../", 3) == 0)
4131 ufile
+= 2; /* skip the dots */
4132 if (index (&ufile
[1], '/'))
4157 extern char *getcwd ();
4159 #define MAXPATHLEN 1024
4161 ptr
= xmalloc (MAXPATHLEN
);
4162 val
= getcwd (ptr
, MAXPATHLEN
);
4168 strcpy (pathname
, ptr
);
4177 long item_code
= JPI$_OWNER
;
4178 unsigned long parent_id
;
4181 if (((status
= LIB$
GETJPI (&item_code
, 0, 0, &parent_id
)) & 1) == 0)
4184 vaxc$errno
= status
;
4194 return (getgid () << 16) | getuid ();
4199 sys_read (fildes
, buf
, nbyte
)
4204 return read (fildes
, buf
, (nbyte
< MAXIOSIZE
? nbyte
: MAXIOSIZE
));
4209 sys_write (fildes
, buf
, nbyte
)
4214 register int nwrote
, rtnval
= 0;
4216 while (nbyte
> MAXIOSIZE
&& (nwrote
= write (fildes
, buf
, MAXIOSIZE
)) > 0) {
4222 return rtnval
? rtnval
: -1;
4223 if ((nwrote
= write (fildes
, buf
, nbyte
)) < 0)
4224 return rtnval
? rtnval
: -1;
4225 return (rtnval
+ nwrote
);
4230 * VAX/VMS VAX C RTL really loses. It insists that records
4231 * end with a newline (carriage return) character, and if they
4232 * don't it adds one (nice of it isn't it!)
4234 * Thus we do this stupidity below.
4239 sys_write (fildes
, buf
, nbytes
)
4242 unsigned int nbytes
;
4249 fstat (fildes
, &st
);
4255 /* Handle fixed-length files with carriage control. */
4256 if (st
.st_fab_rfm
== FAB$C_FIX
4257 && ((st
.st_fab_rat
& (FAB$M_FTN
| FAB$M_CR
)) != 0))
4259 len
= st
.st_fab_mrs
;
4260 retval
= write (fildes
, p
, min (len
, nbytes
));
4263 retval
++; /* This skips the implied carriage control */
4267 e
= p
+ min (MAXIOSIZE
, nbytes
) - 1;
4268 while (*e
!= '\n' && e
> p
) e
--;
4269 if (p
== e
) /* Ok.. so here we add a newline... sigh. */
4270 e
= p
+ min (MAXIOSIZE
, nbytes
) - 1;
4272 retval
= write (fildes
, p
, len
);
4283 /* Create file NEW copying its attributes from file OLD. If
4284 OLD is 0 or does not exist, create based on the value of
4287 /* Protection value the file should ultimately have.
4288 Set by create_copy_attrs, and use by rename_sansversions. */
4289 static unsigned short int fab_final_pro
;
4292 creat_copy_attrs (old
, new)
4295 struct FAB fab
= cc$rms_fab
;
4296 struct XABPRO xabpro
;
4297 char aclbuf
[256]; /* Choice of size is arbitrary. See below. */
4298 extern int vms_stmlf_recfm
;
4302 fab
.fab$b_fac
= FAB$M_GET
;
4303 fab
.fab$l_fna
= old
;
4304 fab
.fab$b_fns
= strlen (old
);
4305 fab
.fab$l_xab
= (char *) &xabpro
;
4306 xabpro
= cc$rms_xabpro
;
4307 xabpro
.xab$l_aclbuf
= aclbuf
;
4308 xabpro
.xab$w_aclsiz
= sizeof aclbuf
;
4309 /* Call $OPEN to fill in the fab & xabpro fields. */
4310 if (SYS$
OPEN (&fab
, 0, 0) & 1)
4312 SYS$
CLOSE (&fab
, 0, 0);
4313 fab
.fab$l_alq
= 0; /* zero the allocation quantity */
4314 if (xabpro
.xab$w_acllen
> 0)
4316 if (xabpro
.xab$w_acllen
> sizeof aclbuf
)
4317 /* If the acl buffer was too short, redo open with longer one.
4318 Wouldn't need to do this if there were some system imposed
4319 limit on the size of an ACL, but I can't find any such. */
4321 xabpro
.xab$l_aclbuf
= (char *) alloca (xabpro
.xab$w_acllen
);
4322 xabpro
.xab$w_aclsiz
= xabpro
.xab$w_acllen
;
4323 if (SYS$
OPEN (&fab
, 0, 0) & 1)
4324 SYS$
CLOSE (&fab
, 0, 0);
4330 xabpro
.xab$l_aclbuf
= 0;
4335 fab
.fab$l_fna
= new;
4336 fab
.fab$b_fns
= strlen (new);
4340 fab
.fab$b_rfm
= vms_stmlf_recfm
? FAB$C_STMLF
: FAB$C_VAR
;
4341 fab
.fab$b_rat
= FAB$M_CR
;
4344 /* Set the file protections such that we will be able to manipulate
4345 this file. Once we are done writing and renaming it, we will set
4346 the protections back. */
4348 fab_final_pro
= xabpro
.xab$w_pro
;
4350 SYS$
SETDFPROT (0, &fab_final_pro
);
4351 xabpro
.xab$w_pro
&= 0xff0f; /* set O:rewd for now. This is set back later. */
4353 /* Create the new file with either default attrs or attrs copied
4355 if (!(SYS$
CREATE (&fab
, 0, 0) & 1))
4357 SYS$
CLOSE (&fab
, 0, 0);
4358 /* As this is a "replacement" for creat, return a file descriptor
4359 opened for writing. */
4360 return open (new, O_WRONLY
);
4365 #include <varargs.h>
4368 #define va_count(X) ((X) = *(((int *) &(va_alist)) - 1))
4373 sys_creat (va_alist
)
4376 va_list list_incrementer
;
4379 int rfd
; /* related file descriptor */
4380 int fd
; /* Our new file descriptor */
4387 extern int vms_stmlf_recfm
;
4390 va_start (list_incrementer
);
4391 name
= va_arg (list_incrementer
, char *);
4392 mode
= va_arg (list_incrementer
, int);
4394 rfd
= va_arg (list_incrementer
, int);
4395 va_end (list_incrementer
);
4398 /* Use information from the related file descriptor to set record
4399 format of the newly created file. */
4400 fstat (rfd
, &st_buf
);
4401 switch (st_buf
.st_fab_rfm
)
4404 strcpy (rfm
, "rfm = fix");
4405 sprintf (mrs
, "mrs = %d", st_buf
.st_fab_mrs
);
4406 strcpy (rat
, "rat = ");
4407 if (st_buf
.st_fab_rat
& FAB$M_CR
)
4409 else if (st_buf
.st_fab_rat
& FAB$M_FTN
)
4410 strcat (rat
, "ftn");
4411 else if (st_buf
.st_fab_rat
& FAB$M_PRN
)
4412 strcat (rat
, "prn");
4413 if (st_buf
.st_fab_rat
& FAB$M_BLK
)
4414 if (st_buf
.st_fab_rat
& (FAB$M_CR
|FAB$M_FTN
|FAB$M_PRN
))
4415 strcat (rat
, ", blk");
4417 strcat (rat
, "blk");
4418 return creat (name
, 0, rfm
, rat
, mrs
);
4421 strcpy (rfm
, "rfm = vfc");
4422 sprintf (fsz
, "fsz = %d", st_buf
.st_fab_fsz
);
4423 strcpy (rat
, "rat = ");
4424 if (st_buf
.st_fab_rat
& FAB$M_CR
)
4426 else if (st_buf
.st_fab_rat
& FAB$M_FTN
)
4427 strcat (rat
, "ftn");
4428 else if (st_buf
.st_fab_rat
& FAB$M_PRN
)
4429 strcat (rat
, "prn");
4430 if (st_buf
.st_fab_rat
& FAB$M_BLK
)
4431 if (st_buf
.st_fab_rat
& (FAB$M_CR
|FAB$M_FTN
|FAB$M_PRN
))
4432 strcat (rat
, ", blk");
4434 strcat (rat
, "blk");
4435 return creat (name
, 0, rfm
, rat
, fsz
);
4438 strcpy (rfm
, "rfm = stm");
4442 strcpy (rfm
, "rfm = stmcr");
4446 strcpy (rfm
, "rfm = stmlf");
4450 strcpy (rfm
, "rfm = udf");
4454 strcpy (rfm
, "rfm = var");
4457 strcpy (rat
, "rat = ");
4458 if (st_buf
.st_fab_rat
& FAB$M_CR
)
4460 else if (st_buf
.st_fab_rat
& FAB$M_FTN
)
4461 strcat (rat
, "ftn");
4462 else if (st_buf
.st_fab_rat
& FAB$M_PRN
)
4463 strcat (rat
, "prn");
4464 if (st_buf
.st_fab_rat
& FAB$M_BLK
)
4465 if (st_buf
.st_fab_rat
& (FAB$M_CR
|FAB$M_FTN
|FAB$M_PRN
))
4466 strcat (rat
, ", blk");
4468 strcat (rat
, "blk");
4472 strcpy (rfm
, vms_stmlf_recfm
? "rfm = stmlf" : "rfm=var");
4473 strcpy (rat
, "rat=cr");
4475 /* Until the VAX C RTL fixes the many bugs with modes, always use
4476 mode 0 to get the user's default protection. */
4477 fd
= creat (name
, 0, rfm
, rat
);
4478 if (fd
< 0 && errno
== EEXIST
)
4480 if (unlink (name
) < 0)
4481 report_file_error ("delete", build_string (name
));
4482 fd
= creat (name
, 0, rfm
, rat
);
4488 /* fwrite to stdout is S L O W. Speed it up by using fputc...*/
4490 sys_fwrite (ptr
, size
, num
, fp
)
4491 register char * ptr
;
4494 register int tot
= num
* size
;
4502 * The VMS C library routine creat actually creates a new version of an
4503 * existing file rather than truncating the old version. There are times
4504 * when this is not the desired behavior, for instance, when writing an
4505 * auto save file (you only want one version), or when you don't have
4506 * write permission in the directory containing the file (but the file
4507 * itself is writable). Hence this routine, which is equivalent to
4508 * "close (creat (fn, 0));" on Unix if fn already exists.
4514 struct FAB xfab
= cc$rms_fab
;
4515 struct RAB xrab
= cc$rms_rab
;
4518 xfab
.fab$l_fop
= FAB$M_TEF
; /* free allocated but unused blocks on close */
4519 xfab
.fab$b_fac
= FAB$M_TRN
| FAB$M_GET
; /* allow truncate and get access */
4520 xfab
.fab$b_shr
= FAB$M_NIL
; /* allow no sharing - file must be locked */
4521 xfab
.fab$l_fna
= fn
;
4522 xfab
.fab$b_fns
= strlen (fn
);
4523 xfab
.fab$l_dna
= ";0"; /* default to latest version of the file */
4525 xrab
.rab$l_fab
= &xfab
;
4527 /* This gibberish opens the file, positions to the first record, and
4528 deletes all records from there until the end of file. */
4529 if ((SYS$
OPEN (&xfab
) & 01) == 01)
4531 if ((SYS$
CONNECT (&xrab
) & 01) == 01 &&
4532 (SYS$
FIND (&xrab
) & 01) == 01 &&
4533 (SYS$
TRUNCATE (&xrab
) & 01) == 01)
4544 /* Define this symbol to actually read SYSUAF.DAT. This requires either
4545 SYSPRV or a readable SYSUAF.DAT. */
4551 * Routine to read the VMS User Authorization File and return
4552 * a specific user's record.
4555 static struct UAF retuaf
;
4558 get_uaf_name (uname
)
4565 uaf_fab
= cc$rms_fab
;
4566 uaf_rab
= cc$rms_rab
;
4567 /* initialize fab fields */
4568 uaf_fab
.fab$l_fna
= "SYS$SYSTEM:SYSUAF.DAT";
4569 uaf_fab
.fab$b_fns
= 21;
4570 uaf_fab
.fab$b_fac
= FAB$M_GET
;
4571 uaf_fab
.fab$b_org
= FAB$C_IDX
;
4572 uaf_fab
.fab$b_shr
= FAB$M_GET
|FAB$M_PUT
|FAB$M_UPD
|FAB$M_DEL
;
4573 /* initialize rab fields */
4574 uaf_rab
.rab$l_fab
= &uaf_fab
;
4575 /* open the User Authorization File */
4576 status
= SYS$
OPEN (&uaf_fab
);
4580 vaxc$errno
= status
;
4583 status
= SYS$
CONNECT (&uaf_rab
);
4587 vaxc$errno
= status
;
4590 /* read the requested record - index is in uname */
4591 uaf_rab
.rab$l_kbf
= uname
;
4592 uaf_rab
.rab$b_ksz
= strlen (uname
);
4593 uaf_rab
.rab$b_rac
= RAB$C_KEY
;
4594 uaf_rab
.rab$l_ubf
= (char *)&retuaf
;
4595 uaf_rab
.rab$w_usz
= sizeof retuaf
;
4596 status
= SYS$
GET (&uaf_rab
);
4600 vaxc$errno
= status
;
4603 /* close the User Authorization File */
4604 status
= SYS$
DISCONNECT (&uaf_rab
);
4608 vaxc$errno
= status
;
4611 status
= SYS$
CLOSE (&uaf_fab
);
4615 vaxc$errno
= status
;
4629 uaf_fab
= cc$rms_fab
;
4630 uaf_rab
= cc$rms_rab
;
4631 /* initialize fab fields */
4632 uaf_fab
.fab$l_fna
= "SYS$SYSTEM:SYSUAF.DAT";
4633 uaf_fab
.fab$b_fns
= 21;
4634 uaf_fab
.fab$b_fac
= FAB$M_GET
;
4635 uaf_fab
.fab$b_org
= FAB$C_IDX
;
4636 uaf_fab
.fab$b_shr
= FAB$M_GET
|FAB$M_PUT
|FAB$M_UPD
|FAB$M_DEL
;
4637 /* initialize rab fields */
4638 uaf_rab
.rab$l_fab
= &uaf_fab
;
4639 /* open the User Authorization File */
4640 status
= SYS$
OPEN (&uaf_fab
);
4644 vaxc$errno
= status
;
4647 status
= SYS$
CONNECT (&uaf_rab
);
4651 vaxc$errno
= status
;
4654 /* read the requested record - index is in uic */
4655 uaf_rab
.rab$b_krf
= 1; /* 1st alternate key */
4656 uaf_rab
.rab$l_kbf
= (char *) &uic
;
4657 uaf_rab
.rab$b_ksz
= sizeof uic
;
4658 uaf_rab
.rab$b_rac
= RAB$C_KEY
;
4659 uaf_rab
.rab$l_ubf
= (char *)&retuaf
;
4660 uaf_rab
.rab$w_usz
= sizeof retuaf
;
4661 status
= SYS$
GET (&uaf_rab
);
4665 vaxc$errno
= status
;
4668 /* close the User Authorization File */
4669 status
= SYS$
DISCONNECT (&uaf_rab
);
4673 vaxc$errno
= status
;
4676 status
= SYS$
CLOSE (&uaf_fab
);
4680 vaxc$errno
= status
;
4686 static struct passwd retpw
;
4694 /* copy these out first because if the username is 32 chars, the next
4695 section will overwrite the first byte of the UIC */
4696 retpw
.pw_uid
= up
->uaf$w_mem
;
4697 retpw
.pw_gid
= up
->uaf$w_grp
;
4699 /* I suppose this is not the best style, to possibly overwrite one
4700 byte beyond the end of the field, but what the heck... */
4701 ptr
= &up
->uaf$t_username
[UAF$S_USERNAME
];
4702 while (ptr
[-1] == ' ')
4705 strcpy (retpw
.pw_name
, up
->uaf$t_username
);
4707 /* the rest of these are counted ascii strings */
4708 strncpy (retpw
.pw_gecos
, &up
->uaf$t_owner
[1], up
->uaf$t_owner
[0]);
4709 retpw
.pw_gecos
[up
->uaf$t_owner
[0]] = '\0';
4710 strncpy (retpw
.pw_dir
, &up
->uaf$t_defdev
[1], up
->uaf$t_defdev
[0]);
4711 retpw
.pw_dir
[up
->uaf$t_defdev
[0]] = '\0';
4712 strncat (retpw
.pw_dir
, &up
->uaf$t_defdir
[1], up
->uaf$t_defdir
[0]);
4713 retpw
.pw_dir
[up
->uaf$t_defdev
[0] + up
->uaf$t_defdir
[0]] = '\0';
4714 strncpy (retpw
.pw_shell
, &up
->uaf$t_defcli
[1], up
->uaf$t_defcli
[0]);
4715 retpw
.pw_shell
[up
->uaf$t_defcli
[0]] = '\0';
4719 #else /* not READ_SYSUAF */
4720 static struct passwd retpw
;
4721 #endif /* not READ_SYSUAF */
4732 unsigned char * full
;
4733 #endif /* READ_SYSUAF */
4738 if ('a' <= *ptr
&& *ptr
<= 'z')
4743 if (!(up
= get_uaf_name (name
)))
4745 return cnv_uaf_pw (up
);
4747 if (strcmp (name
, getenv ("USER")) == 0)
4749 retpw
.pw_uid
= getuid ();
4750 retpw
.pw_gid
= getgid ();
4751 strcpy (retpw
.pw_name
, name
);
4752 if (full
= egetenv ("FULLNAME"))
4753 strcpy (retpw
.pw_gecos
, full
);
4755 *retpw
.pw_gecos
= '\0';
4756 strcpy (retpw
.pw_dir
, egetenv ("HOME"));
4757 *retpw
.pw_shell
= '\0';
4762 #endif /* not READ_SYSUAF */
4772 if (!(up
= get_uaf_uic (uid
)))
4774 return cnv_uaf_pw (up
);
4776 if (uid
== sys_getuid ())
4777 return getpwnam (egetenv ("USER"));
4780 #endif /* not READ_SYSUAF */
4783 /* return total address space available to the current process. This is
4784 the sum of the current p0 size, p1 size and free page table entries
4790 unsigned long free_pages
;
4791 unsigned long frep0va
;
4792 unsigned long frep1va
;
4795 item_code
= JPI$_FREPTECNT
;
4796 if (((status
= LIB$
GETJPI (&item_code
, 0, 0, &free_pages
)) & 1) == 0)
4799 vaxc$errno
= status
;
4804 item_code
= JPI$_FREP0VA
;
4805 if (((status
= LIB$
GETJPI (&item_code
, 0, 0, &frep0va
)) & 1) == 0)
4808 vaxc$errno
= status
;
4811 item_code
= JPI$_FREP1VA
;
4812 if (((status
= LIB$
GETJPI (&item_code
, 0, 0, &frep1va
)) & 1) == 0)
4815 vaxc$errno
= status
;
4819 return free_pages
+ frep0va
+ (0x7fffffff - frep1va
);
4823 define_logical_name (varname
, string
)
4827 struct dsc$descriptor_s strdsc
=
4828 {strlen (string
), DSC$K_DTYPE_T
, DSC$K_CLASS_S
, string
};
4829 struct dsc$descriptor_s envdsc
=
4830 {strlen (varname
), DSC$K_DTYPE_T
, DSC$K_CLASS_S
, varname
};
4831 struct dsc$descriptor_s lnmdsc
=
4832 {7, DSC$K_DTYPE_T
, DSC$K_CLASS_S
, "LNM$JOB"};
4834 return LIB$
SET_LOGICAL (&envdsc
, &strdsc
, &lnmdsc
, 0, 0);
4838 delete_logical_name (varname
)
4841 struct dsc$descriptor_s envdsc
=
4842 {strlen (varname
), DSC$K_DTYPE_T
, DSC$K_CLASS_S
, varname
};
4843 struct dsc$descriptor_s lnmdsc
=
4844 {7, DSC$K_DTYPE_T
, DSC$K_CLASS_S
, "LNM$JOB"};
4846 return LIB$
DELETE_LOGICAL (&envdsc
, &lnmdsc
);
4864 error ("execvp system call not implemented");
4873 struct FAB from_fab
= cc$rms_fab
, to_fab
= cc$rms_fab
;
4874 struct NAM from_nam
= cc$rms_nam
, to_nam
= cc$rms_nam
;
4875 char from_esn
[NAM$C_MAXRSS
];
4876 char to_esn
[NAM$C_MAXRSS
];
4878 from_fab
.fab$l_fna
= from
;
4879 from_fab
.fab$b_fns
= strlen (from
);
4880 from_fab
.fab$l_nam
= &from_nam
;
4881 from_fab
.fab$l_fop
= FAB$M_NAM
;
4883 from_nam
.nam$l_esa
= from_esn
;
4884 from_nam
.nam$b_ess
= sizeof from_esn
;
4886 to_fab
.fab$l_fna
= to
;
4887 to_fab
.fab$b_fns
= strlen (to
);
4888 to_fab
.fab$l_nam
= &to_nam
;
4889 to_fab
.fab$l_fop
= FAB$M_NAM
;
4891 to_nam
.nam$l_esa
= to_esn
;
4892 to_nam
.nam$b_ess
= sizeof to_esn
;
4894 status
= SYS$
RENAME (&from_fab
, 0, 0, &to_fab
);
4900 if (status
== RMS$_DEV
)
4904 vaxc$errno
= status
;
4909 /* This function renames a file like `rename', but it strips
4910 the version number from the "to" filename, such that the "to" file is
4911 will always be a new version. It also sets the file protection once it is
4912 finished. The protection that we will use is stored in fab_final_pro,
4913 and was set when we did a creat_copy_attrs to create the file that we
4916 We could use the chmod function, but Eunichs uses 3 bits per user category
4917 to describe the protection, and VMS uses 4 (write and delete are separate
4918 bits). To maintain portability, the VMS implementation of `chmod' wires
4919 the W and D bits together. */
4922 static struct fibdef fib
; /* We need this initialized to zero */
4923 char vms_file_written
[NAM$C_MAXRSS
];
4926 rename_sans_version (from
,to
)
4933 struct FAB to_fab
= cc$rms_fab
;
4934 struct NAM to_nam
= cc$rms_nam
;
4935 struct dsc$descriptor fib_d
={sizeof (fib
),0,0,(char*) &fib
};
4936 struct dsc$descriptor fib_attr
[2]
4937 = {{sizeof (fab_final_pro
),ATR$C_FPRO
,0,(char*) &fab_final_pro
},{0,0,0,0}};
4938 char to_esn
[NAM$C_MAXRSS
];
4940 $
DESCRIPTOR (disk
,to_esn
);
4942 to_fab
.fab$l_fna
= to
;
4943 to_fab
.fab$b_fns
= strlen (to
);
4944 to_fab
.fab$l_nam
= &to_nam
;
4945 to_fab
.fab$l_fop
= FAB$M_NAM
;
4947 to_nam
.nam$l_esa
= to_esn
;
4948 to_nam
.nam$b_ess
= sizeof to_esn
;
4950 status
= SYS$
PARSE (&to_fab
, 0, 0); /* figure out the full file name */
4952 if (to_nam
.nam$l_fnb
&& NAM$M_EXP_VER
)
4953 *(to_nam
.nam$l_ver
) = '\0';
4955 stat
= rename (from
, to_esn
);
4959 strcpy (vms_file_written
, to_esn
);
4961 to_fab
.fab$l_fna
= vms_file_written
; /* this points to the versionless name */
4962 to_fab
.fab$b_fns
= strlen (vms_file_written
);
4964 /* Now set the file protection to the correct value */
4965 SYS$
OPEN (&to_fab
, 0, 0); /* This fills in the nam$w_fid fields */
4967 /* Copy these fields into the fib */
4968 fib
.fib$r_fid_overlay
.fib$w_fid
[0] = to_nam
.nam$w_fid
[0];
4969 fib
.fib$r_fid_overlay
.fib$w_fid
[1] = to_nam
.nam$w_fid
[1];
4970 fib
.fib$r_fid_overlay
.fib$w_fid
[2] = to_nam
.nam$w_fid
[2];
4972 SYS$
CLOSE (&to_fab
, 0, 0);
4974 stat
= SYS$
ASSIGN (&disk
, &chan
, 0, 0); /* open a channel to the disk */
4977 stat
= SYS$
QIOW (0, chan
, IO$_MODIFY
, iosb
, 0, 0, &fib_d
,
4978 0, 0, 0, &fib_attr
, 0);
4981 stat
= SYS$
DASSGN (chan
);
4984 strcpy (vms_file_written
, to_esn
); /* We will write this to the terminal*/
4995 unsigned short fid
[3];
4996 char esa
[NAM$C_MAXRSS
];
4999 fab
.fab$l_fop
= FAB$M_OFP
;
5000 fab
.fab$l_fna
= file
;
5001 fab
.fab$b_fns
= strlen (file
);
5002 fab
.fab$l_nam
= &nam
;
5005 nam
.nam$l_esa
= esa
;
5006 nam
.nam$b_ess
= NAM$C_MAXRSS
;
5008 status
= SYS$
PARSE (&fab
);
5009 if ((status
& 1) == 0)
5012 vaxc$errno
= status
;
5015 status
= SYS$
SEARCH (&fab
);
5016 if ((status
& 1) == 0)
5019 vaxc$errno
= status
;
5023 fid
[0] = nam
.nam$w_fid
[0];
5024 fid
[1] = nam
.nam$w_fid
[1];
5025 fid
[2] = nam
.nam$w_fid
[2];
5027 fab
.fab$l_fna
= new;
5028 fab
.fab$b_fns
= strlen (new);
5030 status
= SYS$
PARSE (&fab
);
5031 if ((status
& 1) == 0)
5034 vaxc$errno
= status
;
5038 nam
.nam$w_fid
[0] = fid
[0];
5039 nam
.nam$w_fid
[1] = fid
[1];
5040 nam
.nam$w_fid
[2] = fid
[2];
5042 nam
.nam$l_esa
= nam
.nam$l_name
;
5043 nam
.nam$b_esl
= nam
.nam$b_name
+ nam
.nam$b_type
+ nam
.nam$b_ver
;
5045 status
= SYS$
ENTER (&fab
);
5046 if ((status
& 1) == 0)
5049 vaxc$errno
= status
;
5060 printf ("%s not yet implemented\r\n", badfunc
);
5068 /* Arrange to return a range centered on zero. */
5069 return rand () - (1 << 30);
5081 /* Called from init_sys_modes. */
5087 /* If we're not on an HFT we shouldn't do any of this. We determine
5088 if we are on an HFT by trying to get an HFT error code. If this
5089 call fails, we're not on an HFT. */
5091 if (ioctl (0, HFQERROR
, &junk
) < 0)
5093 #else /* not IBMR2AIX */
5094 if (ioctl (0, HFQEIO
, 0) < 0)
5096 #endif /* not IBMR2AIX */
5098 /* On AIX the default hft keyboard mapping uses backspace rather than delete
5099 as the rubout key's ASCII code. Here this is changed. The bug is that
5100 there's no way to determine the old mapping, so in reset_sys_modes
5101 we need to assume that the normal map had been present. Of course, this
5102 code also doesn't help if on a terminal emulator which doesn't understand
5106 struct hfkeymap keymap
;
5108 buf
.hf_bufp
= (char *)&keymap
;
5109 buf
.hf_buflen
= sizeof (keymap
);
5110 keymap
.hf_nkeys
= 2;
5111 keymap
.hfkey
[0].hf_kpos
= 15;
5112 keymap
.hfkey
[0].hf_kstate
= HFMAPCHAR
| HFSHFNONE
;
5114 keymap
.hfkey
[0].hf_keyidh
= '<';
5115 #else /* not IBMR2AIX */
5116 keymap
.hfkey
[0].hf_page
= '<';
5117 #endif /* not IBMR2AIX */
5118 keymap
.hfkey
[0].hf_char
= 127;
5119 keymap
.hfkey
[1].hf_kpos
= 15;
5120 keymap
.hfkey
[1].hf_kstate
= HFMAPCHAR
| HFSHFSHFT
;
5122 keymap
.hfkey
[1].hf_keyidh
= '<';
5123 #else /* not IBMR2AIX */
5124 keymap
.hfkey
[1].hf_page
= '<';
5125 #endif /* not IBMR2AIX */
5126 keymap
.hfkey
[1].hf_char
= 127;
5127 hftctl (0, HFSKBD
, &buf
);
5129 /* The HFT system on AIX doesn't optimize for scrolling, so it's really ugly
5131 line_ins_del_ok
= char_ins_del_ok
= 0;
5134 /* Reset the rubout key to backspace. */
5140 struct hfkeymap keymap
;
5144 if (ioctl (0, HFQERROR
, &junk
) < 0)
5146 #else /* not IBMR2AIX */
5147 if (ioctl (0, HFQEIO
, 0) < 0)
5149 #endif /* not IBMR2AIX */
5151 buf
.hf_bufp
= (char *)&keymap
;
5152 buf
.hf_buflen
= sizeof (keymap
);
5153 keymap
.hf_nkeys
= 2;
5154 keymap
.hfkey
[0].hf_kpos
= 15;
5155 keymap
.hfkey
[0].hf_kstate
= HFMAPCHAR
| HFSHFNONE
;
5157 keymap
.hfkey
[0].hf_keyidh
= '<';
5158 #else /* not IBMR2AIX */
5159 keymap
.hfkey
[0].hf_page
= '<';
5160 #endif /* not IBMR2AIX */
5161 keymap
.hfkey
[0].hf_char
= 8;
5162 keymap
.hfkey
[1].hf_kpos
= 15;
5163 keymap
.hfkey
[1].hf_kstate
= HFMAPCHAR
| HFSHFSHFT
;
5165 keymap
.hfkey
[1].hf_keyidh
= '<';
5166 #else /* not IBMR2AIX */
5167 keymap
.hfkey
[1].hf_page
= '<';
5168 #endif /* not IBMR2AIX */
5169 keymap
.hfkey
[1].hf_char
= 8;
5170 hftctl (0, HFSKBD
, &buf
);
5177 /* These are included on Sunos 4.1 when we do not use shared libraries.
5178 X11 libraries may refer to these functions but (we hope) do not
5179 actually call them. */
5199 #endif /* USE_DL_STUBS */
5208 register int length
;
5212 long max_str
= 65535;
5214 while (length
> max_str
) {
5215 (void) LIB$
MOVC5 (&zero
, &zero
, &zero
, &max_str
, b
);
5220 (void) LIB$
MOVC5 (&zero
, &zero
, &zero
, &max_str
, b
);
5222 while (length
-- > 0)
5224 #endif /* not VMS */
5227 #endif /* no bzero */
5228 #endif /* BSTRING */
5230 #if (!defined (BSTRING) && !defined (bcopy)) || defined (NEED_BCOPY)
5233 /* Saying `void' requires a declaration, above, where bcopy is used
5234 and that declaration causes pain for systems where bcopy is a macro. */
5235 bcopy (b1
, b2
, length
)
5238 register int length
;
5241 long max_str
= 65535;
5243 while (length
> max_str
) {
5244 (void) LIB$
MOVC3 (&max_str
, b1
, b2
);
5250 (void) LIB$
MOVC3 (&length
, b1
, b2
);
5252 while (length
-- > 0)
5254 #endif /* not VMS */
5256 #endif /* (!defined (BSTRING) && !defined (bcopy)) || defined (NEED_BCOPY) */
5261 bcmp (b1
, b2
, length
) /* This could be a macro! */
5264 register int length
;
5267 struct dsc$descriptor_s src1
= {length
, DSC$K_DTYPE_T
, DSC$K_CLASS_S
, b1
};
5268 struct dsc$descriptor_s src2
= {length
, DSC$K_DTYPE_T
, DSC$K_CLASS_S
, b2
};
5270 return STR$
COMPARE (&src1
, &src2
);
5272 while (length
-- > 0)
5277 #endif /* not VMS */
5279 #endif /* no bcmp */
5280 #endif /* not BSTRING */
5282 #ifndef HAVE_STRSIGNAL
5289 if (0 <= code
&& code
< NSIG
)
5292 signame
= sys_errlist
[code
];
5294 /* Cast to suppress warning if the table has const char *. */
5295 signame
= (char *) sys_siglist
[code
];
5301 #endif /* HAVE_STRSIGNAL */
5303 /* All the Macintosh stuffs go here */
5308 #include <MacTypes.h>
5309 #include <TextUtils.h>
5310 #include <Folders.h>
5313 #include <sys/stat.h>
5316 #include <sys/param.h>
5318 /* Convert a Mac pathname to Unix form. A Mac full pathname is one
5319 that does not begin with a ':' and contains at least one ':'. A Mac
5320 full pathname causes an '/' to be prepended to the Unix pathname.
5321 The algorithm for the rest of the pathname is as follows:
5322 For each segment between two ':',
5323 if it is non-null, copy as is and then add a '/' at the end,
5324 otherwise, insert a "../" into the Unix pathname.
5325 Returns 1 if successful; 0 if fails. */
5328 Mac2UnixPathname (const char *mfn
, char *ufn
, int ufnbuflen
)
5330 const char *p
, *q
, *pe
;
5337 p
= strchr (mfn
, ':');
5338 if (p
!= 0 && p
!= mfn
) /* full pathname */
5345 pe
= mfn
+ strlen (mfn
);
5348 q
= strchr (p
, ':');
5352 { /* two consecutive ':' */
5353 if (strlen (ufn
) + 3 >= ufnbuflen
)
5355 strcat (ufn
, "../");
5359 if (strlen (ufn
) + (q
- p
) + 1 >= ufnbuflen
)
5361 strncat (ufn
, p
, q
- p
);
5368 if (strlen (ufn
) + (pe
- p
) >= ufnbuflen
)
5370 strncat (ufn
, p
, pe
- p
); /* no separator for last one */
5378 extern char *GetTempDirName ();
5380 /* Convert a Unix pathname to Mac form. Approximately reverse of the
5381 above in algorithm. */
5383 Unix2MacPathname (const char *ufn
, char *mfn
, int mfnbuflen
)
5385 const char *p
, *q
, *pe
;
5386 char expandedPathname
[MAXPATHLEN
+1];
5395 /* Check for and handle volume names. Last comparison: strangely
5396 somewhere `/.emacs' is passed. A temporary fix for now. */
5397 if (*p
== '/' && strchr (p
+1, '/') == NULL
&& strcmp (p
, "/.emacs") != 0)
5399 if (strlen (p
) + 1 > mfnbuflen
)
5406 if (strncmp (p
, "~emacs/", 7) == 0)
5407 { /* expand to emacs dir found by InitEmacsPasswdDir */
5408 struct passwd
*pw
= getpwnam ("emacs");
5410 if (strlen (pw
->pw_dir
) + strlen (p
) > MAXPATHLEN
)
5412 strcpy (expandedPathname
, pw
->pw_dir
);
5413 strcat (expandedPathname
, p
);
5414 p
= expandedPathname
;
5415 /* Now p points to the pathname with emacs dir prefix. */
5417 else if (strncmp (p
, "/tmp/", 5) == 0)
5419 char *t
= GetTempDirName ();
5421 if (strlen (t
) + strlen (p
) > MAXPATHLEN
)
5423 strcpy (expandedPathname
, t
);
5424 strcat (expandedPathname
, p
);
5425 p
= expandedPathname
;
5426 /* Now p points to the pathname with emacs dir prefix. */
5428 else if (*p
!= '/') /* relative pathname */
5434 pe
= p
+ strlen (p
);
5437 q
= strchr (p
, '/');
5440 if (q
- p
== 2 && *p
== '.' && *(p
+1) == '.')
5442 if (strlen (mfn
) + 1 >= mfnbuflen
)
5448 if (strlen (mfn
) + (q
- p
) + 1 >= mfnbuflen
)
5450 strncat (mfn
, p
, q
- p
);
5457 if (strlen (mfn
) + (pe
- p
) >= mfnbuflen
)
5459 strncat (mfn
, p
, pe
- p
);
5467 /* The following functions with "sys_" prefix are stubs to Unix
5468 functions that have already been implemented by CW or MPW. The
5469 calls to them in Emacs source course are #define'd to call the sys_
5470 versions by the header files s-mac.h. In these stubs pathnames are
5471 converted between their Unix and Mac forms. */
5472 /* Unix Epoch is Jan 1, 1970 while Mac Epoch is Jan 1, 1904: 66 years
5474 #define MAC_UNIX_EPOCH_DIFF ((365L * 66 + 17) * 24 * 60 * 60)
5476 /* CW Epoch is Jan 1, 1900 (aaarghhhhh!); remember, 1900 is not a leap
5478 #define CW_UNIX_EPOCH_DIFF ((365L * 70 + 17) * 24 * 60 * 60)
5480 /* Define our own stat function for both MrC and CW. The reason for
5481 doing this: "stat" is both the name of a struct and function name:
5482 we can't #define stat to something else to
5483 redirect Emacs's calls to our own version that converts Unix style
5484 filenames to Mac style filename because all sorts of compilation
5485 errors will be generated if stat is #define'd to be something else. */
5488 stat (const char *path
, struct stat
*buf
)
5490 char MacPathname
[MAXPATHLEN
+1];
5493 if (Unix2MacPathname (path
, MacPathname
, MAXPATHLEN
+1) == 0)
5496 c2pstr (MacPathname
);
5497 cipb
.hFileInfo
.ioNamePtr
= MacPathname
;
5498 cipb
.hFileInfo
.ioVRefNum
= 0;
5499 cipb
.hFileInfo
.ioDirID
= 0;
5500 cipb
.hFileInfo
.ioFDirIndex
= 0; /* set to 0 to get information about specific dir or file */
5502 errno
= PBGetCatInfo (&cipb
, false);
5503 if (errno
== -43) /* -43: fnfErr defined in Errors.h */
5508 if (cipb
.hFileInfo
.ioFlAttrib
& 0x10)
5509 { /* bit 4 = 1 for directories */
5510 buf
->st_mode
= S_IFDIR
| S_IREAD
| S_IEXEC
;
5511 if (!(cipb
.hFileInfo
.ioFlAttrib
& 0x1)) /* bit 1 = 1 for locked files/directories */
5512 buf
->st_mode
|= S_IWRITE
;
5513 buf
->st_ino
= cipb
.dirInfo
.ioDrDirID
;
5514 buf
->st_dev
= cipb
.dirInfo
.ioVRefNum
;
5515 buf
->st_size
= cipb
.dirInfo
.ioDrNmFls
; /* size of dir = number of files and dirs */
5516 buf
->st_atime
= buf
->st_mtime
= cipb
.dirInfo
.ioDrMdDat
- MAC_UNIX_EPOCH_DIFF
;
5517 buf
->st_ctime
= cipb
.dirInfo
.ioDrCrDat
- MAC_UNIX_EPOCH_DIFF
;
5521 buf
->st_mode
= S_IFREG
| S_IREAD
;
5522 if (!(cipb
.hFileInfo
.ioFlAttrib
& 0x1)) /* bit 1 = 1 for locked files/directories */
5523 buf
->st_mode
|= S_IWRITE
;
5524 if (cipb
.hFileInfo
.ioFlFndrInfo
.fdType
== 'APPL')
5525 buf
->st_mode
|= S_IEXEC
;
5526 buf
->st_ino
= cipb
.hFileInfo
.ioDirID
;
5527 buf
->st_dev
= cipb
.hFileInfo
.ioVRefNum
;
5528 buf
->st_size
= cipb
.hFileInfo
.ioFlLgLen
;
5529 buf
->st_atime
= buf
->st_mtime
= cipb
.hFileInfo
.ioFlMdDat
- MAC_UNIX_EPOCH_DIFF
;
5530 buf
->st_ctime
= cipb
.hFileInfo
.ioFlCrDat
- MAC_UNIX_EPOCH_DIFF
;
5533 buf
->st_uid
= getuid ();
5534 buf
->st_gid
= getgid ();
5542 /* CW defines fstat in stat.mac.c while MPW does not provide this
5543 function. Without the information of how to get from a file
5544 descriptor in MPW StdCLib to a Mac OS file spec, it should be hard
5545 to implement this function. Fortunately, there is only one place
5546 where this function is called in our configuration: in fileio.c,
5547 where only the st_dev and st_ino fields are used to determine
5548 whether two fildes point to different i-nodes to prevent copying
5549 a file onto itself equal. What we have here probably needs
5552 fstat (int fildes
, struct stat
*buf
)
5555 buf
->st_ino
= fildes
;
5556 return 0; /* success */
5559 #endif /* __MRC__ */
5561 /* From Think Reference code example */
5563 mkdir (const char *dirname
, int mode
)
5565 #pragma unused (mode)
5568 char MacPathname
[MAXPATHLEN
+1];
5570 if (Unix2MacPathname (dirname
, MacPathname
, MAXPATHLEN
+1) == 0)
5573 c2pstr (MacPathname
);
5574 hfpb
.ioNamePtr
= MacPathname
;
5575 hfpb
.ioVRefNum
= 0; /*ignored unless name is invalid */
5576 hfpb
.ioDirID
= 0; /*parent is the root */
5578 /* Just return the Mac OSErr code for now. */
5579 errno
= PBDirCreate ((HParmBlkPtr
) &hfpb
, false);
5580 return errno
== noErr
? 0 : -1;
5584 rmdir (const char *dirname
)
5587 char MacPathname
[MAXPATHLEN
+1];
5589 if (Unix2MacPathname (dirname
, MacPathname
, MAXPATHLEN
+1) == 0)
5592 c2pstr (MacPathname
);
5593 hfpb
.ioNamePtr
= MacPathname
;
5594 hfpb
.ioVRefNum
= 0; /*ignored unless name is invalid */
5595 hfpb
.ioDirID
= 0; /*parent is the root */
5597 errno
= PBHDelete ((HParmBlkPtr
) &hfpb
, false);
5598 return errno
== noErr
? 0 : -1;
5603 /* No implementation yet. */
5605 execvp (const char *path
, ...)
5610 #endif /* __MRC__ */
5613 utime (const char *path
, const struct utimbuf
*times
)
5615 char MacPathname
[MAXPATHLEN
+1];
5618 if (Unix2MacPathname (path
, MacPathname
, MAXPATHLEN
+1) == 0)
5621 c2pstr (MacPathname
);
5622 cipb
.hFileInfo
.ioNamePtr
= MacPathname
;
5623 cipb
.hFileInfo
.ioVRefNum
= 0;
5624 cipb
.hFileInfo
.ioDirID
= 0;
5625 /* Set to 0 to get information about specific dir or file. */
5626 cipb
.hFileInfo
.ioFDirIndex
= 0;
5628 errno
= PBGetCatInfo (&cipb
, false);
5632 if (cipb
.hFileInfo
.ioFlAttrib
& 0x10)
5633 { /* bit 4 = 1 for directories */
5635 cipb
.dirInfo
.ioDrMdDat
= times
->modtime
+ MAC_UNIX_EPOCH_DIFF
;
5637 GetDateTime (&cipb
.dirInfo
.ioDrMdDat
);
5642 cipb
.hFileInfo
.ioFlMdDat
= times
->modtime
+ MAC_UNIX_EPOCH_DIFF
;
5644 GetDateTime (&cipb
.hFileInfo
.ioFlMdDat
);
5647 errno
= PBSetCatInfo (&cipb
, false);
5648 return errno
== noErr
? 0 : -1;
5655 /* Like stat, but test for access mode in hfpb.ioFlAttrib. */
5657 access (const char *path
, int mode
)
5659 char MacPathname
[MAXPATHLEN
+1];
5662 if (Unix2MacPathname (path
, MacPathname
, MAXPATHLEN
+1) == 0)
5665 c2pstr (MacPathname
);
5666 cipb
.hFileInfo
.ioNamePtr
= MacPathname
;
5667 cipb
.hFileInfo
.ioVRefNum
= 0;
5668 cipb
.hFileInfo
.ioDirID
= 0;
5669 cipb
.hFileInfo
.ioFDirIndex
= 0; /* set to 0 to get information about specific dir or file */
5671 errno
= PBGetCatInfo (&cipb
, false);
5675 if (mode
== F_OK
) /* got this far, file exists */
5679 if (cipb
.hFileInfo
.ioFlAttrib
& 0x10) /* path refers to a directory */
5683 if (cipb
.hFileInfo
.ioFlFndrInfo
.fdType
== 'APPL')
5690 return (cipb
.hFileInfo
.ioFlAttrib
& 0x1) ? -1 : 0; /* don't allow if lock bit on */
5695 #define DEV_NULL_FD 0x10000
5699 sys_open (const char *path
, int oflag
)
5701 char MacPathname
[MAXPATHLEN
+1];
5703 if (strcmp (path
, "/dev/null") == 0)
5704 return DEV_NULL_FD
; /* some bogus fd to be ignored in write */
5706 if (Unix2MacPathname (path
, MacPathname
, MAXPATHLEN
+1) == 0)
5709 return open (MacPathname
, oflag
);
5714 sys_creat (const char *path
, mode_t mode
)
5716 char MacPathname
[MAXPATHLEN
+1];
5718 if (Unix2MacPathname (path
, MacPathname
, MAXPATHLEN
+1) == 0)
5721 return creat (MacPathname
, mode
);
5726 sys_unlink (const char *path
)
5728 char MacPathname
[MAXPATHLEN
+1];
5730 if (Unix2MacPathname (path
, MacPathname
, MAXPATHLEN
+1) == 0)
5733 return unlink (MacPathname
);
5738 sys_read (int fildes
, char *buf
, int count
)
5741 { /* if stdin, call (non-echoing) "getch" in console.h */
5742 if (MacKeyPending ())
5743 { /* don't wait for a key if none has been pressed */
5744 *buf
= MacGetChar ();
5751 return read (fildes
, buf
, count
);
5756 sys_write (int fildes
, char *buf
, int count
)
5758 if (fildes
== DEV_NULL_FD
)
5761 return write (fildes
, buf
, count
);
5766 sys_rename (const char * old_name
, const char * new_name
)
5768 char MacOldName
[MAXPATHLEN
+1], MacNewName
[MAXPATHLEN
+1];
5770 if (strcmp (old_name
, new_name
) == 0)
5773 if (Unix2MacPathname (old_name
, MacOldName
, MAXPATHLEN
+1) == 0)
5776 if (Unix2MacPathname (new_name
, MacNewName
, MAXPATHLEN
+1) == 0)
5779 return rename (MacOldName
, MacNewName
);
5783 extern FILE *fopen (const char *name
, const char *mode
);
5785 sys_fopen (const char *name
, const char *mode
)
5787 char MacPathname
[MAXPATHLEN
+1];
5789 if (Unix2MacPathname (name
, MacPathname
, MAXPATHLEN
+1) == 0)
5792 return fopen (MacPathname
, mode
);
5797 long targetTicks
= 0;
5800 __sigfun alarm_signal_func
= (__sigfun
) 0;
5802 __signal_func_ptr alarm_signal_func
= (__signal_func_ptr
) 0;
5807 /* These functions simulate SIG_ALRM. The stub for function signal
5808 stores the signal handler function in alarm_signal_func if a
5809 SIG_ALRM is encountered. CheckAlarm is called in mac_read_socket,
5810 which emacs calls periodically. A pending alarm is represented by
5811 a non-zero targetTicks value. CheckAlarm calls the handler
5812 function pointed to by alarm_signal_func if one has been set up and
5813 an alarm is pending. */
5817 if (targetTicks
&& TickCount () > targetTicks
)
5820 if (alarm_signal_func
)
5821 (*alarm_signal_func
)(SIGALRM
);
5825 /* Called in sys_select to wait for an alarm signal to arrive. */
5829 unsigned long finalTick
;
5831 if (!targetTicks
) /* no alarm pending */
5834 while (TickCount () <= targetTicks
)
5835 Delay (1UL, &finalTick
); /* wait for 1/60 second before trying again */
5838 if (alarm_signal_func
)
5839 (*alarm_signal_func
)(SIGALRM
);
5847 long remaining
= targetTicks
? (TickCount () - targetTicks
) / 60 : 0;
5849 targetTicks
= seconds
? TickCount () + 60 * seconds
: 0;
5851 return (remaining
< 0) ? 0 : (unsigned int) remaining
;
5856 extern __sigfun
signal (int signal
, __sigfun signal_func
);
5858 sys_signal (int signal_num
, __sigfun signal_func
)
5860 extern __signal_func_ptr
signal (int signal
, __signal_func_ptr signal_func
);
5862 sys_signal (int signal_num
, __signal_func_ptr signal_func
)
5867 if (signal_num
!= SIGALRM
)
5868 return signal (signal_num
, signal_func
);
5872 __sigfun old_signal_func
;
5874 __signal_func_ptr old_signal_func
;
5878 old_signal_func
= alarm_signal_func
;
5879 alarm_signal_func
= signal_func
;
5880 return old_signal_func
;
5884 /* The time functions adjust time values according to the difference
5885 between the Unix and CW epoches. */
5888 extern struct tm
*gmtime (const time_t *);
5890 sys_gmtime (const time_t *timer
)
5892 time_t unixTime
= *timer
+ CW_UNIX_EPOCH_DIFF
;
5894 return gmtime (&unixTime
);
5898 extern struct tm
*localtime (const time_t *);
5900 sys_localtime (const time_t *timer
)
5902 time_t unixTime
= *timer
+ CW_UNIX_EPOCH_DIFF
;
5904 return localtime (&unixTime
);
5908 extern char *ctime (const time_t *);
5910 sys_ctime (const time_t *timer
)
5912 time_t unixTime
= *timer
+ CW_UNIX_EPOCH_DIFF
;
5914 return ctime (&unixTime
);
5918 extern time_t time (time_t *);
5920 sys_time (time_t *timer
)
5922 time_t macTime
= time (NULL
) - CW_UNIX_EPOCH_DIFF
;
5930 /* no subprocesses, empty wait */
5938 croak (char *badfunc
)
5940 printf ("%s not yet implemented\r\n", badfunc
);
5945 index (const char * str
, int chr
)
5947 return strchr (str
, chr
);
5951 char **environ
= &e
[0];
5954 mktemp (char *template)
5959 len
= strlen (template);
5961 while (k
>= 0 && template[k
] == 'X')
5964 k
++; /* make k index of first 'X' */
5968 /* Zero filled, number of digits equal to the number of X's. */
5969 sprintf (&template[k
], "%0*d", len
-k
, seqnum
++);
5977 /* Emulate getpwuid, getpwnam and others. */
5979 #define PASSWD_FIELD_SIZE 256
5981 static char myPasswdName
[PASSWD_FIELD_SIZE
];
5982 static char myPasswdDir
[MAXPATHLEN
+1];
5984 static struct passwd myPasswd
=
5990 /* Initialized by main () in macterm.c to pathname of emacs directory. */
5991 char emacsPasswdDir
[MAXPATHLEN
+1];
5994 InitEmacsPasswdDir ()
5998 if (getwd (emacsPasswdDir
) && getwd (myPasswdDir
))
6000 /* Need pathname of first ancestor that begins with `emacs' since
6001 Mac emacs application is somewhere in the emacs-20.3 tree. */
6002 int len
= strlen (emacsPasswdDir
);
6003 /* J points to the "/" following the directory name being compared. */
6006 while (i
>= 0 && !found
)
6008 while (i
>= 0 && emacsPasswdDir
[i
] != '/')
6010 if (emacsPasswdDir
[i
] == '/' && i
+5 < len
)
6011 found
= (strncmp (&(emacsPasswdDir
[i
+1]), "emacs", 5) == 0);
6013 emacsPasswdDir
[j
+1] = '\0';
6023 { /* setting to "/" probably won't work,
6024 but set it to something anyway. */
6025 strcpy (emacsPasswdDir
, "/");
6026 strcpy (myPasswdDir
, "/");
6030 static struct passwd emacsPasswd
=
6036 static int myPasswdInited
= 0;
6043 /* Note: myPasswdDir initialized in InitEmacsPasswdDir to directory
6044 where Emacs was started. */
6046 ownerName
= (char **) GetResource ('STR ',-16096);
6050 BlockMove ((unsigned char *) *ownerName
,
6051 (unsigned char *) myPasswdName
, *ownerName
[0] + 1);
6052 HUnlock (ownerName
);
6053 p2cstr ((unsigned char *) myPasswdName
);
6056 myPasswdName
[0] = 0;
6060 getpwuid (uid_t uid
)
6062 if (!myPasswdInited
)
6072 getpwnam (const char *name
)
6074 if (strcmp (name
, "emacs") == 0)
6075 return &emacsPasswd
;
6077 if (!myPasswdInited
)
6086 /* The functions fork, kill, sigsetmask, sigblock, request_sigio,
6087 setpgrp, setpriority, and unrequest_sigio are defined to be empty
6115 request_sigio (void)
6126 unrequest_sigio (void)
6130 /* djgpp does not implement pipe either. */
6132 pipe (int _fildes
[2])
6138 /* Hard and symbolic links. */
6140 symlink (const char *name1
, const char *name2
)
6147 link (const char *name1
, const char *name2
)
6154 lstat (const char *path
, struct stat
*sb
)
6156 return stat (path
, sb
);
6160 readlink (const char *path
, char *buf
, int bufsiz
)
6167 umask (mode_t numask
)
6169 static mode_t mask
= 022;
6170 mode_t oldmask
= mask
;
6176 chmod (const char *path
, mode_t mode
)
6178 /* say it always succeed for now */
6186 return fcntl (oldd
, F_DUPFD
, 0);
6188 /* current implementation of fcntl in fcntl.mac.c simply returns old
6190 return fcntl (oldd
, F_DUPFD
);
6196 /* This is from the original sysdep.c. Emulate BSD dup2. First close
6197 newd if it already exists. Then, attempt to dup oldd. If not
6198 successful, call dup2 recursively until we are, then close the
6199 unsuccessful ones. */
6201 dup2 (int oldd
, int newd
)
6212 ret
= dup2 (oldd
, newd
);
6217 /* let it fail for now */
6231 ioctl (int d
, int request
, void *argp
)
6240 if (fildes
>=0 && fildes
<= 2)
6271 sleep (unsigned int seconds
)
6273 unsigned long finalTick
;
6275 Delay (seconds
* 60UL, &finalTick
);
6278 #endif /* __MRC__ */
6287 #endif /* __MWERKS__ */
6289 /* Return the path to the directory in which Emacs can create
6290 temporary files. The MacOS "temporary items" directory cannot be
6291 used because it removes the file written by a process when it
6292 exits. In that sense it's more like "/dev/null" than "/tmp" (but
6293 again not exactly). And of course Emacs needs to read back the
6294 files written by its subprocesses. So here we write the files to a
6295 directory "Emacs" in the Preferences Folder. This directory is
6296 created if it does not exist. */
6300 static char *TempDirName
= NULL
;
6304 Str255 dirName
, fullPath
;
6306 char unixDirName
[MAXPATHLEN
+1];
6309 /* Cache directory name with pointer TempDirName.
6310 Look for it only the first time. */
6313 err
= FindFolder (kOnSystemDisk
, kPreferencesFolderType
,
6314 kCreateFolder
, &vRefNum
, &dirID
);
6319 cpb
.dirInfo
.ioNamePtr
= dirName
;
6320 cpb
.dirInfo
.ioDrParID
= dirID
;
6322 /* Standard ref num to full path name loop */
6324 cpb
.dirInfo
.ioVRefNum
= vRefNum
;
6325 cpb
.dirInfo
.ioFDirIndex
= -1;
6326 cpb
.dirInfo
.ioDrDirID
= cpb
.dirInfo
.ioDrParID
;
6328 err
= PBGetCatInfo (&cpb
, false);
6331 strcat (dirName
, ":");
6332 if (strlen (fullPath
) + strlen (dirName
) <= MAXPATHLEN
)
6334 strcat (dirName
, fullPath
);
6335 strcpy (fullPath
, dirName
);
6340 while (cpb
.dirInfo
.ioDrDirID
!= fsRtDirID
&& err
== noErr
);
6342 if (strlen (fullPath
) + 6 <= MAXPATHLEN
)
6343 strcat (fullPath
, "Emacs:");
6347 if (Mac2UnixPathname (fullPath
, unixDirName
, MAXPATHLEN
+1) == 0)
6350 dir
= opendir (unixDirName
); /* check whether temp directory exists */
6353 else if (mkdir (unixDirName
, 0700) != 0) /* create it if not */
6356 TempDirName
= (char *) malloc (strlen (unixDirName
) + 1);
6357 strcpy (TempDirName
, unixDirName
);
6364 getenv (const char * name
)
6366 if (strcmp (name
, "TERM") == 0)
6368 else if (strcmp (name
, "TERMCAP") == 0)
6369 /* for debugging purpose when code was still outputting to dumb terminal */
6370 return "d0|vt100|vt100-am|vt100am|dec vt100:do=[do]:co#100:li#32:cl=[cl]:sf=[sf]:km:\
6371 :le=[le]:bs:am:cm=[cm-%d,%d]:nd=[nd]:up=[up]:ce=[ce]:cd=[cd]:so=[so]:se=[se]:\
6372 :us=[us]:ue=[ue]:md=[md]:mr=[mr]:mb=[mb]:me=[me]:is=[is]:\
6373 :rf=/usr/share/lib/tabset/vt100:rs=[rs]:ks=[ks]:ke=[ke]:\
6374 :ku=\\036:kd=\\037:kr=\\035:kl=\\034:kb=[kb]:ho=[ho]:k1=[k1]:k2=[k2]:k3=[k3]:k4=[k4]:\
6375 :pt:sr=[sr]:vt#3:xn:sc=[sc]:rc=[rc]:cs=[cs-%d,%d]";
6376 else if (strcmp (name
, "TMPDIR") == 0)
6377 return GetTempDirName ();
6383 #include <utsname.h>
6386 uname (struct utsname
*name
)
6389 systemName
= GetString (-16413); /* IM - Resource Manager Reference */
6392 BlockMove (*systemName
, name
->nodename
, (*systemName
)[0]+1);
6393 p2cstr (name
->nodename
);
6400 #include <Processes.h>
6403 /* Event class of HLE sent to subprocess. */
6404 const OSType kEmacsSubprocessSend
= 'ESND';
6405 /* Event class of HLE sent back from subprocess. */
6406 const OSType kEmacsSubprocessReply
= 'ERPY';
6409 mystrchr (char *s
, char c
)
6411 while (*s
&& *s
!= c
)
6437 mystrcpy (char *to
, char *from
)
6448 /* Start a Mac subprocess. Arguments for it is passed in argv (null
6449 terminated). The process should run with the default directory
6450 "workdir", read input from "infn", and write output and error to
6451 "outfn" and "errfn", resp. The Process Manager call
6452 LaunchApplication is used to start the subprocess. We use high
6453 level events as the mechanism to pass arguments to the subprocess
6454 and to make Emacs wait for the subprocess to terminate and pass
6455 back a result code. The bulk of the code here packs the arguments
6456 into one message to be passed together with the high level event.
6457 Emacs also sometimes starts a subprocess using a shell to perform
6458 wildcard filename expansion. Since we don't really have a shell on
6459 the Mac, this case is detected and the starting of the shell is
6460 by-passed. We really need to add code here to do filename
6461 expansion to support such functionality. */
6463 run_mac_command (argv
, workdir
, infn
, outfn
, errfn
)
6464 unsigned char **argv
;
6465 const char *workdir
;
6466 const char *infn
, *outfn
, errfn
;
6468 char macappname
[MAXPATHLEN
+1], macworkdir
[MAXPATHLEN
+1];
6469 char macinfn
[MAXPATHLEN
+1], macoutfn
[MAXPATHLEN
+1], macerrfn
[MAXPATHLEN
+1];
6470 int paramlen
, argc
, newargc
, j
, retries
;
6471 char **newargv
, *param
, *p
;
6474 LaunchParamBlockRec lpbr
;
6475 EventRecord sendEvent
, replyEvent
;
6476 RgnHandle cursorRegionHdl
;
6478 unsigned long refCon
, len
;
6480 if (Unix2MacPathname (workdir
, macworkdir
, MAXPATHLEN
+1) == 0)
6482 if (Unix2MacPathname (infn
, macinfn
, MAXPATHLEN
+1) == 0)
6484 if (Unix2MacPathname (outfn
, macoutfn
, MAXPATHLEN
+1) == 0)
6486 if (Unix2MacPathname (errfn
, macerrfn
, MAXPATHLEN
+1) == 0)
6489 paramlen
= strlen (macworkdir
) + strlen (macinfn
) + strlen (macoutfn
) + strlen (macerrfn
) + 4;
6490 /* count nulls at end of strings */
6499 /* If a subprocess is invoked with a shell, we receive 3 arguments of the form:
6500 "<path to emacs bins>/sh" "-c" "<path to emacs bins>/<command> <command args>" */
6501 j
= strlen (argv
[0]);
6502 if (j
>= 3 && strcmp (argv
[0]+j
-3, "/sh") == 0 && argc
== 3 && strcmp (argv
[1], "-c") == 0)
6504 char *command
, *t
, tempmacpathname
[MAXPATHLEN
+1];
6506 /* The arguments for the command in argv[2] are separated by spaces. Count them and put
6507 the count in newargc. */
6508 command
= (char *) alloca (strlen (argv
[2])+2);
6509 strcpy (command
, argv
[2]);
6510 if (command
[strlen (command
) - 1] != ' ')
6511 strcat (command
, " ");
6515 t
= mystrchr (t
, ' ');
6519 t
= mystrchr (t
+1, ' ');
6522 newargv
= (char **) alloca (sizeof (char *) * newargc
);
6525 for (j
= 0; j
< newargc
; j
++)
6527 newargv
[j
] = (char *) alloca (strlen (t
) + 1);
6528 mystrcpy (newargv
[j
], t
);
6531 paramlen
+= strlen (newargv
[j
]) + 1;
6534 if (strncmp (newargv
[0], "~emacs/", 7) == 0)
6536 if (Unix2MacPathname (newargv
[0], tempmacpathname
, MAXPATHLEN
+1) == 0)
6540 { /* sometimes Emacs call "sh" without a path for the command */
6542 char *t
= (char *) alloca (strlen (newargv
[0]) + 7 + 1);
6543 strcpy (t
, "~emacs/");
6544 strcat (t
, newargv
[0]);
6547 openp (Vexec_path
, build_string (newargv
[0]), EXEC_SUFFIXES
, &path
, 1);
6551 if (Unix2MacPathname (XSTRING (path
)->data
, tempmacpathname
, MAXPATHLEN
+1) == 0)
6554 strcpy (macappname
, tempmacpathname
);
6558 if (Unix2MacPathname (argv
[0], macappname
, MAXPATHLEN
+1) == 0)
6561 newargv
= (char **) alloca (sizeof (char *) * argc
);
6563 for (j
= 1; j
< argc
; j
++)
6565 if (strncmp (argv
[j
], "~emacs/", 7) == 0)
6567 char *t
= strchr (argv
[j
], ' ');
6570 char tempcmdname
[MAXPATHLEN
+1], tempmaccmdname
[MAXPATHLEN
+1];
6571 strncpy (tempcmdname
, argv
[j
], t
-argv
[j
]);
6572 tempcmdname
[t
-argv
[j
]] = '\0';
6573 if (Unix2MacPathname (tempcmdname
, tempmaccmdname
, MAXPATHLEN
+1) == 0)
6575 newargv
[j
] = (char *) alloca (strlen (tempmaccmdname
) + strlen (t
) + 1);
6576 strcpy (newargv
[j
], tempmaccmdname
);
6577 strcat (newargv
[j
], t
);
6581 char tempmaccmdname
[MAXPATHLEN
+1];
6582 if (Unix2MacPathname (argv
[j
], tempmaccmdname
, MAXPATHLEN
+1) == 0)
6584 newargv
[j
] = (char *) alloca (strlen (tempmaccmdname
)+1);
6585 strcpy (newargv
[j
], tempmaccmdname
);
6589 newargv
[j
] = argv
[j
];
6590 paramlen
+= strlen (newargv
[j
]) + 1;
6594 /* After expanding all the arguments, we now know the length of the parameter block to be
6595 sent to the subprocess as a message attached to the HLE. */
6596 param
= (char *) malloc (paramlen
+ 1);
6601 *p
++ = newargc
; /* first byte of message contains number of arguments for command */
6602 strcpy (p
, macworkdir
);
6603 p
+= strlen (macworkdir
);
6604 *p
++ = '\0'; /* null terminate strings sent so it's possible to use strcpy over there */
6605 strcpy (p
, macinfn
);
6606 p
+= strlen (macinfn
);
6608 strcpy (p
, macoutfn
);
6609 p
+= strlen (macoutfn
);
6611 strcpy (p
, macerrfn
);
6612 p
+= strlen (macerrfn
);
6614 for (j
= 1; j
< newargc
; j
++) {
6615 strcpy (p
, newargv
[j
]);
6616 p
+= strlen (newargv
[j
]);
6620 c2pstr (macappname
);
6622 iErr
= FSMakeFSSpec (0, 0, macappname
, &spec
);
6624 if (iErr
!= noErr
) {
6629 lpbr
.launchBlockID
= extendedBlock
;
6630 lpbr
.launchEPBLength
= extendedBlockLen
;
6631 lpbr
.launchControlFlags
= launchContinue
+ launchNoFileFlags
;
6632 lpbr
.launchAppSpec
= &spec
;
6633 lpbr
.launchAppParameters
= NULL
;
6635 iErr
= LaunchApplication (&lpbr
); /* call the subprocess */
6636 if (iErr
!= noErr
) {
6641 sendEvent
.what
= kHighLevelEvent
;
6642 sendEvent
.message
= kEmacsSubprocessSend
; /* Event ID stored in "where" unused */
6645 do { /* OS may think current subprocess has terminated if previous one terminated recently */
6646 iErr
= PostHighLevelEvent (&sendEvent
, &lpbr
.launchProcessSN
, 0, param
, paramlen
+ 1, receiverIDisPSN
);
6648 while (iErr
== sessClosedErr
&& retries
-- > 0);
6650 if (iErr
!= noErr
) {
6655 cursorRegionHdl
= NewRgn ();
6657 /* Wait for the subprocess to finish, when it will send us a ERPY high level event */
6659 if (WaitNextEvent (highLevelEventMask
, &replyEvent
, 180, cursorRegionHdl
) && replyEvent
.message
== kEmacsSubprocessReply
)
6662 /* The return code is sent through the refCon */
6663 iErr
= AcceptHighLevelEvent (&targ
, &refCon
, NULL
, &len
);
6664 if (iErr
!= noErr
) {
6665 DisposeHandle ((Handle
) cursorRegionHdl
);
6670 DisposeHandle ((Handle
) cursorRegionHdl
);
6677 opendir (const char *dirname
)
6679 char MacPathname
[MAXPATHLEN
+1];
6684 dirp
= (DIR *) malloc (sizeof (DIR));
6688 /* Handle special case when dirname is "/": sets up for readir to
6689 get all mount volumes. */
6690 if (strcmp (dirname
, "/") == 0) {
6691 dirp
->getting_volumes
= 1; /* special all mounted volumes DIR struct */
6692 dirp
->current_index
= 1; /* index for first volume */
6696 /* Handle typical cases: not accessing all mounted volumes. */
6697 if (Unix2MacPathname (dirname
, MacPathname
, MAXPATHLEN
+1) == 0)
6700 /* Emacs calls opendir without the trailing '/', Mac needs trailing ':' */
6701 len
= strlen (MacPathname
);
6702 if (MacPathname
[len
- 1] != ':' && len
< MAXPATHLEN
)
6703 strcat (MacPathname
, ":");
6705 c2pstr (MacPathname
);
6706 cipb
.hFileInfo
.ioNamePtr
= MacPathname
; /* using full pathname so vRefNum and dirID ignored */
6707 cipb
.hFileInfo
.ioVRefNum
= 0;
6708 cipb
.hFileInfo
.ioDirID
= 0;
6709 cipb
.hFileInfo
.ioFDirIndex
= 0; /* set to 0 to get information about specific dir or file */
6711 errno
= PBGetCatInfo (&cipb
, false);
6712 if (errno
!= noErr
) {
6717 if (!(cipb
.hFileInfo
.ioFlAttrib
& 0x10)) /* bit 4 = 1 for directories */
6718 return 0; /* not a directory */
6720 dirp
->dir_id
= cipb
.dirInfo
.ioDrDirID
; /* used later in readdir */
6721 dirp
->getting_volumes
= 0;
6722 dirp
->current_index
= 1; /* index for first file/directory */
6738 HParamBlockRec HPBlock
;
6740 static struct dirent s_dirent
;
6741 static Str255 s_name
;
6744 /* Handle the root directory containing the mounted volumes. Call
6745 PBHGetVInfo specifying an index to obtain the info for a volume.
6746 PBHGetVInfo returns an error when it receives an index beyond the
6747 last volume, at which time we should return a nil dirent struct
6749 if (dp
->getting_volumes
) {
6750 HPBlock
.volumeParam
.ioNamePtr
= s_name
;
6751 HPBlock
.volumeParam
.ioVRefNum
= 0;
6752 HPBlock
.volumeParam
.ioVolIndex
= dp
->current_index
;
6754 errno
= PBHGetVInfo (&HPBlock
, false);
6755 if (errno
!= noErr
) {
6761 strcat (s_name
, "/"); /* need "/" for stat to work correctly */
6763 dp
->current_index
++;
6765 s_dirent
.d_ino
= cipb
.dirInfo
.ioDrDirID
;
6766 s_dirent
.d_name
= s_name
;
6771 cipb
.hFileInfo
.ioVRefNum
= 0;
6772 cipb
.hFileInfo
.ioNamePtr
= s_name
; /* location to receive filename returned */
6774 /* return only visible files */
6777 cipb
.hFileInfo
.ioDirID
= dp
->dir_id
; /* directory ID found by opendir */
6778 cipb
.hFileInfo
.ioFDirIndex
= dp
->current_index
;
6780 errno
= PBGetCatInfo (&cipb
, false);
6781 if (errno
!= noErr
) {
6786 /* insist on an visibile entry */
6787 if (cipb
.hFileInfo
.ioFlAttrib
& 0x10) /* directory? */
6788 done
= !(cipb
.dirInfo
.ioDrUsrWds
.frFlags
& fInvisible
);
6790 done
= !(cipb
.hFileInfo
.ioFlFndrInfo
.fdFlags
& fInvisible
);
6792 dp
->current_index
++;
6797 s_dirent
.d_ino
= cipb
.dirInfo
.ioDrDirID
; /* value unimportant: non-zero for valid file */
6798 s_dirent
.d_name
= s_name
;
6807 char MacPathname
[MAXPATHLEN
+1];
6808 Str255 directoryName
;
6812 MacPathname
[0] = '\0';
6813 directoryName
[0] = '\0';
6814 cipb
.dirInfo
.ioDrParID
= 0;
6815 cipb
.dirInfo
.ioNamePtr
= directoryName
; /* empty string = default directory */
6818 cipb
.dirInfo
.ioVRefNum
= 0;
6819 cipb
.dirInfo
.ioFDirIndex
= -1;
6820 cipb
.dirInfo
.ioDrDirID
= cipb
.dirInfo
.ioDrParID
; /* go up to parent each time */
6822 errno
= PBGetCatInfo (&cipb
, false);
6823 if (errno
!= noErr
) {
6828 p2cstr (directoryName
);
6829 strcat (directoryName
, ":");
6830 strcat (directoryName
, MacPathname
); /* attach to front since going up directory tree */
6831 strcpy (MacPathname
, directoryName
);
6832 } while (cipb
.dirInfo
.ioDrDirID
!= fsRtDirID
); /* until volume's root directory */
6834 if (Mac2UnixPathname (MacPathname
, path
, MAXPATHLEN
+1) == 0)
6840 #endif /* macintosh */