457
|
1 /* system description header for VMS
|
|
2 Copyright (C) 1986 Free Software Foundation, Inc.
|
|
3
|
|
4 This file is part of GNU Emacs.
|
|
5
|
|
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 1, or (at your option)
|
|
9 any later version.
|
|
10
|
|
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.
|
|
15
|
|
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, 675 Mass Ave, Cambridge, MA 02139, USA. */
|
|
19
|
|
20 /*
|
|
21 * Define symbols to identify the version of Unix this is.
|
|
22 * Define all the symbols that apply correctly.
|
|
23 */
|
|
24
|
|
25 #ifndef VMS /* Decus cpp doesn't define this but VAX C does */
|
|
26 #define VMS
|
|
27 #endif /* VMS */
|
|
28 /* Note that this file is used indirectly via vms4-0.h, or some other
|
|
29 such file. These other files define a symbol VMS4_0, VMS4_2, etc. */
|
|
30
|
|
31 /* SYSTEM_TYPE should indicate the kind of system you are using.
|
|
32 It sets the Lisp variable system-type. */
|
|
33
|
|
34 #define SYSTEM_TYPE "vax-vms"
|
|
35
|
|
36 /* NOMULTIPLEJOBS should be defined if your system's shell
|
|
37 does not have "job control" (the ability to stop a program,
|
|
38 run some other program, then continue the first one). */
|
|
39
|
|
40 /* #define NOMULTIPLEJOBS */
|
|
41
|
|
42 /* INTERRUPT_INPUT controls a default for Unix systems.
|
|
43 VMS uses a separate mechanism. */
|
|
44
|
|
45 /* #define INTERRUPT_INPUT */
|
|
46
|
|
47 /* Letter to use in finding device name of first pty,
|
|
48 if system supports pty's. 'a' means it is /dev/ptya0 */
|
|
49
|
|
50 #define FIRST_PTY_LETTER 'a'
|
|
51
|
|
52 /*
|
|
53 * Define HAVE_TIMEVAL if the system supports the BSD style clock values.
|
|
54 * Look in <sys/time.h> for a timeval structure.
|
|
55 */
|
|
56
|
|
57 /* #define HAVE_TIMEVAL */
|
|
58
|
|
59 /*
|
|
60 * Define HAVE_SELECT if the system supports the `select' system call.
|
|
61 */
|
|
62
|
|
63 /* #define HAVE_SELECT */
|
|
64
|
|
65 /*
|
|
66 * Define HAVE_PTYS if the system supports pty devices.
|
|
67 */
|
|
68
|
|
69 /* #define HAVE_PTYS */
|
|
70
|
|
71 /* Define HAVE_SOCKETS if system supports 4.2-compatible sockets. */
|
|
72
|
|
73 /* #define HAVE_SOCKETS */
|
|
74
|
|
75 /*
|
|
76 * Define NONSYSTEM_DIR_LIBRARY to make Emacs emulate
|
|
77 * The 4.2 opendir, etc., library functions.
|
|
78 */
|
|
79
|
|
80 #define NONSYSTEM_DIR_LIBRARY
|
|
81
|
|
82 /* Define this symbol if your system has the functions bcopy, etc. */
|
|
83
|
|
84 /* #define BSTRING */
|
|
85
|
|
86 /* subprocesses should be defined if you want to
|
|
87 have code for asynchronous subprocesses
|
|
88 (as used in M-x compile and M-x shell).
|
|
89 This is generally OS dependent, and not supported
|
|
90 under most USG systems. */
|
|
91
|
|
92 #define subprocesses
|
|
93
|
|
94 /* If your system uses COFF (Common Object File Format) then define the
|
|
95 preprocessor symbol "COFF". */
|
|
96
|
|
97 /* #define COFF */
|
|
98
|
|
99 /* define MAIL_USE_FLOCK if the mailer uses flock
|
|
100 to interlock access to /usr/spool/mail/$USER.
|
|
101 The alternative is that a lock file named
|
|
102 /usr/spool/mail/$USER.lock. */
|
|
103
|
|
104 /* #define MAIL_USE_FLOCK */
|
|
105
|
|
106 /* Define CLASH_DETECTION if you want lock files to be written
|
|
107 so that Emacs can tell instantly when you try to modify
|
|
108 a file that someone else has modified in his Emacs. */
|
|
109
|
|
110 /* #define CLASH_DETECTION */
|
|
111
|
|
112 /* Define the maximum record length for print strings, if needed. */
|
|
113
|
|
114 #define MAX_PRINT_CHARS 300
|
|
115
|
|
116
|
|
117 /* Here, on a separate page, add any special hacks needed
|
|
118 to make Emacs work on this system. For example,
|
|
119 you might define certain system call names that don't
|
|
120 exist on your system, or that do different things on
|
|
121 your system and must be used only through an encapsulation
|
|
122 (Which you should place, by convention, in sysdep.c). */
|
|
123
|
|
124 /* Do you have the shareable library bug? If you link with a shareable
|
|
125 library that contains psects with the NOSHR attribute and also refer to
|
|
126 those psects in your program, the linker give you a private version of
|
|
127 the psect which is not related to the version used by the shareable
|
|
128 library. The end result is that your references to variables in that
|
|
129 psect have absolutely nothing to do with library references to what is
|
|
130 supposed to be the same variable. If you intend to link with the standard
|
|
131 C library (NOT the shareable one) you don't need to define this. (This
|
|
132 is NOT fixed in V4.4...) */
|
|
133
|
|
134 #define SHAREABLE_LIB_BUG
|
|
135
|
|
136 /* Partially due to the above mentioned bug and also so that we don't need
|
|
137 to require that people have a shareable C library, the default for Emacs
|
|
138 is to link with the non-shared library. If you want to link with the
|
|
139 shared library, define this and remake xmakefile and fileio.c. This allows
|
|
140 us to ship a guaranteed executable image. */
|
|
141
|
|
142 #define LINK_CRTL_SHARE
|
|
143
|
|
144 /* Define this if you want to read the file SYS$SYSTEM:SYSUAF.DAT for user
|
|
145 information. If you do use this, you must either make SYSUAF.DAT world
|
|
146 readable or install Emacs with SYSPRV. */
|
|
147
|
|
148 /* #define READ_SYSUAF */
|
|
149
|
|
150 /* On VMS these have a different name */
|
|
151
|
|
152 #define index strchr
|
|
153 #define rindex strrchr
|
|
154 #define unlink delete
|
|
155
|
|
156 /* On later versions of VMS these exist in the C run time library, but
|
|
157 we are using our own implementations. Hide their names to avoid
|
|
158 linker errors */
|
|
159 #define rename sys_rename
|
|
160 #define execvp sys_execvp
|
|
161 #define system sys_system
|
|
162
|
|
163 /* Hide these names so that we don't get linker errors */
|
|
164 #define malloc sys_malloc
|
|
165 #define free sys_free
|
|
166 #define realloc sys_realloc
|
|
167 #define calloc sys_calloc
|
|
168
|
|
169 /* Don't use the standard brk and sbrk */
|
|
170 #define sbrk sys_sbrk
|
|
171 #define brk sys_brk
|
|
172
|
|
173 /* On VMS we want to avoid reading and writing very large amounts of
|
|
174 data at once, so we redefine read and write here. */
|
|
175
|
|
176 #define read sys_read
|
|
177 #define write sys_write
|
|
178
|
|
179 /* sys_creat just calls the real creat with additional args of
|
|
180 "rfm=var", "rat=cr" to get "normal" VMS files... */
|
|
181 #define creat sys_creat
|
|
182
|
|
183 /* fwrite forces an RMS PUT on every call. This is abysmally slow, so
|
|
184 we emulate fwrite with fputc, which forces buffering and is much
|
|
185 faster! */
|
|
186 #define fwrite sys_fwrite
|
|
187
|
|
188 /* getuid only returns the member number, which is not unique on most VMS
|
|
189 systems. We emulate it with (getgid()<<16 | getuid()). */
|
|
190 #define getuid sys_getuid
|
|
191
|
|
192 /* If user asks for TERM, check first for EMACS_TERM. */
|
|
193 #define getenv sys_getenv
|
|
194
|
|
195 /* Standard C abort is less useful than it should be. */
|
|
196 #define abort sys_abort
|
|
197
|
|
198 /* Case conflicts with C library fread. */
|
|
199 #define Fread F_read
|
|
200
|
|
201 /* Case conflicts with C library srandom. */
|
|
202 #define Srandom S_random
|
|
203
|
|
204 /* Cause initialization of vmsfns.c to be run. */
|
|
205 #define SYMS_SYSTEM syms_of_vmsfns ()
|
|
206
|
|
207 /* VAXCRTL access doesn't deal with SYSPRV very well (among other oddites...)
|
|
208 Here, we use $CHKPRO to really determine access. */
|
|
209 #define access sys_access
|
|
210
|
|
211 #define PAGESIZE 512
|
|
212
|
|
213 #define _longjmp longjmp
|
|
214 #define _setjmp setjmp
|
|
215
|
|
216 globalref char sdata[];
|
|
217 #define DATA_START (((int) sdata + 511) & ~511)
|
|
218 #define TEXT_START 512
|
|
219
|
|
220 /* Baud-rate values from tty status are not standard. */
|
|
221
|
|
222 #define BAUD_CONVERT \
|
|
223 { 0, 50, 75, 110, 134, 150, 300, 600, 1200, 1800, \
|
|
224 2000, 2400, 3600, 4800, 7200, 9600, 19200 }
|
|
225
|
|
226 #define PURESIZE 132000
|
|
227
|
|
228 /* Stdio FILE type has extra indirect on VMS, so must alter this macro. */
|
|
229
|
|
230 #define PENDING_OUTPUT_COUNT(FILE) ((*(FILE))->_ptr - (*(FILE))->_base)
|