|
0
|
1 /* Synched up with: FSF 19.31. */
|
|
|
2
|
|
|
3 #include "usg5-4.h"
|
|
|
4
|
|
|
5 #define IRIX5
|
|
|
6
|
|
|
7 #ifdef LIBS_SYSTEM
|
|
|
8 #undef LIBS_SYSTEM
|
|
|
9 #endif
|
|
|
10
|
|
|
11 #ifdef LIB_STANDARD
|
|
|
12 #undef LIB_STANDARD
|
|
|
13 #endif
|
|
|
14
|
|
|
15 #ifdef SYSTEM_TYPE
|
|
|
16 #undef SYSTEM_TYPE
|
|
|
17 #endif
|
|
|
18 #define SYSTEM_TYPE "irix"
|
|
|
19
|
|
|
20 #ifdef SETUP_SLAVE_PTY
|
|
|
21 #undef SETUP_SLAVE_PTY
|
|
|
22 #endif
|
|
|
23
|
|
|
24 /* thomas@mathematik.uni-bremen.de says this is needed. */
|
|
|
25 /* Make process_send_signal work by "typing" a signal character on the pty. */
|
|
175
|
26 /* #define SIGNALS_VIA_CHARACTERS */ /* mrb */
|
|
0
|
27
|
|
|
28 /* SGI has all the fancy wait stuff, but we can't include sys/wait.h
|
|
|
29 because it defines BIG_ENDIAN and LITTLE_ENDIAN (ugh!.) Instead
|
|
|
30 we'll just define WNOHANG right here.
|
|
|
31 (An implicit decl is good enough for wait3.) */
|
|
|
32 /* [XEmacs: Now that we don't use BIG_ENDIAN/LITTLE_ENDIAN, it's safe
|
|
|
33 to include wait.h. Should something change here?] */
|
|
|
34
|
|
|
35 /* #define WNOHANG 0x1 */
|
|
|
36
|
|
|
37 /* No need to use sprintf to get the tty name--we get that from _getpty. */
|
|
|
38 #ifdef PTY_TTY_NAME_SPRINTF
|
|
|
39 #undef PTY_TTY_NAME_SPRINTF
|
|
|
40 #endif
|
|
|
41 #define PTY_TTY_NAME_SPRINTF
|
|
|
42 /* No need to get the pty name at all. */
|
|
|
43 #ifdef PTY_NAME_SPRINTF
|
|
|
44 #undef PTY_NAME_SPRINTF
|
|
|
45 #endif
|
|
|
46 #define PTY_NAME_SPRINTF
|
|
|
47 #ifdef emacs
|
|
|
48 char *_getpty ();
|
|
|
49 #endif
|
|
|
50 /* We need only try once to open a pty. */
|
|
|
51 #define PTY_ITERATION
|
|
|
52 /* Here is how to do it. */
|
|
|
53 /* It is necessary to prevent SIGCHLD signals within _getpty.
|
|
|
54 So we block them. */
|
|
|
55 #define PTY_OPEN \
|
|
|
56 { \
|
|
|
57 char *name; \
|
|
|
58 EMACS_BLOCK_SIGCHLD; \
|
|
|
59 name = _getpty (&fd, O_RDWR | O_NDELAY, 0600, 0); \
|
|
|
60 EMACS_UNBLOCK_SIGCHLD; \
|
|
|
61 if (name == 0) \
|
|
|
62 return -1; \
|
|
|
63 if (fd < 0) \
|
|
|
64 return -1; \
|
|
|
65 if (fstat (fd, &stb) < 0) \
|
|
|
66 return -1; \
|
|
|
67 strcpy (pty_name, name); \
|
|
|
68 }
|
|
|
69
|
|
|
70 /* jpff@maths.bath.ac.uk reports `struct exception' is not defined
|
|
|
71 on this system, so inhibit use of matherr. */
|
|
|
72 #define NO_MATHERR
|
|
|
73
|
|
|
74 /* Ulimit(UL_GMEMLIM) is busted... */
|
|
|
75 #define ULIMIT_BREAK_VALUE 0x14000000
|
|
|
76
|
|
|
77 /* Tell process_send_signal to use VSUSP instead of VSWTCH. */
|
|
|
78 #define PREFER_VSUSP
|
|
|
79
|
|
|
80 /* define MAIL_USE_FLOCK if the mailer uses flock
|
|
|
81 to interlock access to /usr/spool/mail/$USER.
|
|
|
82 The alternative is that a lock file named
|
|
|
83 /usr/spool/mail/$USER.lock. */
|
|
|
84
|
|
|
85 #define MAIL_USE_FLOCK
|
|
|
86
|
|
|
87 /* use K&R C */
|
|
|
88 /* XEmacs change -- use ANSI, not K&R */
|
|
|
89 #ifndef __GNUC__
|
|
163
|
90 #define C_SWITCH_SYSTEM "-xansi"
|
|
0
|
91 #endif
|
|
|
92
|
|
|
93 /* jackr@engr.sgi.com says that you can't mix different kinds of
|
|
|
94 signal-handling functions under IRIX 5.3. I'm going to assume
|
|
|
95 that that was the reason this got broken. Now that the
|
|
|
96 signal routines are fixed up, maybe this will work. --ben */
|
|
|
97 /* Nope, it doesn't. I've tried lots of things; it must be
|
|
|
98 genuinely broken. */
|
|
|
99 /* XEmacs addition: People on IRIX 5.2 and IRIX 5.3 systems have
|
|
|
100 reported that they can't break out of (while t) using C-g or C-G.
|
|
|
101 This does not occur on other systems, so let's assume that SIGIO
|
|
|
102 is broken on these systems. */
|
|
|
103 #define BROKEN_SIGIO
|
