Mercurial > emacs
annotate src/s/vms.h @ 94715:1f134b61867c
Switch to recommended form of GPLv3 permissions notice.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Wed, 07 May 2008 07:18:17 +0000 |
parents | 68df465b9550 |
children | 82045a035109 |
rev | line source |
---|---|
457 | 1 /* system description header for VMS |
94715
1f134b61867c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79756
diff
changeset
|
2 Copyright (C) 1986, 2001, 2002, 2003, 2004, 2005, 2006, 2007, |
1f134b61867c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79756
diff
changeset
|
3 2008 Free Software Foundation, Inc. |
457 | 4 |
5 This file is part of GNU Emacs. | |
6 | |
94715
1f134b61867c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79756
diff
changeset
|
7 GNU Emacs is free software: you can redistribute it and/or modify |
457 | 8 it under the terms of the GNU General Public License as published by |
94715
1f134b61867c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79756
diff
changeset
|
9 the Free Software Foundation, either version 3 of the License, or |
1f134b61867c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79756
diff
changeset
|
10 (at your option) any later version. |
457 | 11 |
12 GNU Emacs is distributed in the hope that it will be useful, | |
13 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 GNU General Public License for more details. | |
16 | |
17 You should have received a copy of the GNU General Public License | |
94715
1f134b61867c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79756
diff
changeset
|
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ |
457 | 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_PTYS if the system supports pty devices. | |
54 */ | |
55 | |
56 /* #define HAVE_PTYS */ | |
57 | |
58 /* Define HAVE_SOCKETS if system supports 4.2-compatible sockets. */ | |
59 | |
60 /* #define HAVE_SOCKETS */ | |
61 | |
62 /* | |
63 * Define NONSYSTEM_DIR_LIBRARY to make Emacs emulate | |
64 * The 4.2 opendir, etc., library functions. | |
65 */ | |
66 | |
67 #define NONSYSTEM_DIR_LIBRARY | |
68 | |
69 /* Define this symbol if your system has the functions bcopy, etc. */ | |
70 | |
71 /* #define BSTRING */ | |
72 | |
73 /* subprocesses should be defined if you want to | |
74 have code for asynchronous subprocesses | |
75 (as used in M-x compile and M-x shell). | |
76 This is generally OS dependent, and not supported | |
77 under most USG systems. */ | |
78 | |
79 #define subprocesses | |
80 | |
81 /* If your system uses COFF (Common Object File Format) then define the | |
82 preprocessor symbol "COFF". */ | |
83 | |
84 /* #define COFF */ | |
85 | |
86 /* define MAIL_USE_FLOCK if the mailer uses flock | |
87 to interlock access to /usr/spool/mail/$USER. | |
88 The alternative is that a lock file named | |
89 /usr/spool/mail/$USER.lock. */ | |
90 | |
91 /* #define MAIL_USE_FLOCK */ | |
92 | |
93 /* Define CLASH_DETECTION if you want lock files to be written | |
94 so that Emacs can tell instantly when you try to modify | |
95 a file that someone else has modified in his Emacs. */ | |
96 | |
97 /* #define CLASH_DETECTION */ | |
98 | |
99 /* Define the maximum record length for print strings, if needed. */ | |
100 | |
101 #define MAX_PRINT_CHARS 300 | |
102 | |
103 | |
104 /* Here, on a separate page, add any special hacks needed | |
105 to make Emacs work on this system. For example, | |
106 you might define certain system call names that don't | |
107 exist on your system, or that do different things on | |
108 your system and must be used only through an encapsulation | |
109 (Which you should place, by convention, in sysdep.c). */ | |
110 | |
60385
17d5c7245a46
Define NO_HYPHENS_IN_FILENAMES.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
60379
diff
changeset
|
111 /* In olden days, VMS filenames did not support hyphen (i.e., the "-" |
17d5c7245a46
Define NO_HYPHENS_IN_FILENAMES.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
60379
diff
changeset
|
112 character). You can #undef this in vmsX-Y.h for newer versions. */ |
17d5c7245a46
Define NO_HYPHENS_IN_FILENAMES.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
60379
diff
changeset
|
113 |
17d5c7245a46
Define NO_HYPHENS_IN_FILENAMES.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
60379
diff
changeset
|
114 #define NO_HYPHENS_IN_FILENAMES |
17d5c7245a46
Define NO_HYPHENS_IN_FILENAMES.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
60379
diff
changeset
|
115 |
13940
1b0e886a4476
(SHARABLE_LIB_BUG): Renamed from SHAREABLE_LIB_BUG.
Karl Heuer <kwzh@gnu.org>
parents:
8892
diff
changeset
|
116 /* Do you have the sharable library bug? If you link with a sharable |
457 | 117 library that contains psects with the NOSHR attribute and also refer to |
118 those psects in your program, the linker give you a private version of | |
13940
1b0e886a4476
(SHARABLE_LIB_BUG): Renamed from SHAREABLE_LIB_BUG.
Karl Heuer <kwzh@gnu.org>
parents:
8892
diff
changeset
|
119 the psect which is not related to the version used by the sharable |
457 | 120 library. The end result is that your references to variables in that |
121 psect have absolutely nothing to do with library references to what is | |
122 supposed to be the same variable. If you intend to link with the standard | |
13940
1b0e886a4476
(SHARABLE_LIB_BUG): Renamed from SHAREABLE_LIB_BUG.
Karl Heuer <kwzh@gnu.org>
parents:
8892
diff
changeset
|
123 C library (NOT the sharable one) you don't need to define this. (This |
457 | 124 is NOT fixed in V4.4...) */ |
125 | |
13940
1b0e886a4476
(SHARABLE_LIB_BUG): Renamed from SHAREABLE_LIB_BUG.
Karl Heuer <kwzh@gnu.org>
parents:
8892
diff
changeset
|
126 #define SHARABLE_LIB_BUG |
457 | 127 |
128 /* Partially due to the above mentioned bug and also so that we don't need | |
13940
1b0e886a4476
(SHARABLE_LIB_BUG): Renamed from SHAREABLE_LIB_BUG.
Karl Heuer <kwzh@gnu.org>
parents:
8892
diff
changeset
|
129 to require that people have a sharable C library, the default for Emacs |
457 | 130 is to link with the non-shared library. If you want to link with the |
131 shared library, define this and remake xmakefile and fileio.c. This allows | |
132 us to ship a guaranteed executable image. */ | |
133 | |
134 #define LINK_CRTL_SHARE | |
135 | |
136 /* Define this if you want to read the file SYS$SYSTEM:SYSUAF.DAT for user | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
14186
diff
changeset
|
137 information. If you do use this, you must either make SYSUAF.DAT world |
457 | 138 readable or install Emacs with SYSPRV. */ |
139 | |
140 /* #define READ_SYSUAF */ | |
141 | |
60379
8bb5ca4faf36
(FILE_SYSTEM_CASE): New macro.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52401
diff
changeset
|
142 /* Traditionally, filenames on VMS are always upper case. */ |
8bb5ca4faf36
(FILE_SYSTEM_CASE): New macro.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52401
diff
changeset
|
143 |
8bb5ca4faf36
(FILE_SYSTEM_CASE): New macro.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52401
diff
changeset
|
144 #define FILE_SYSTEM_CASE Fupcase |
8bb5ca4faf36
(FILE_SYSTEM_CASE): New macro.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52401
diff
changeset
|
145 |
457 | 146 /* On VMS these have a different name */ |
147 | |
148 #define index strchr | |
149 #define rindex strrchr | |
150 #define unlink delete | |
2245
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
151 |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
152 #ifndef _GNUC_ |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
153 extern double mth$dmod(double, double); |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
154 #define drem mth$dmod |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
155 #endif |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
156 |
13940
1b0e886a4476
(SHARABLE_LIB_BUG): Renamed from SHAREABLE_LIB_BUG.
Karl Heuer <kwzh@gnu.org>
parents:
8892
diff
changeset
|
157 /* Some time routines are missing in the VAX C RTL, or needs some |
2245
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
158 extra bit of code */ |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
159 #define tzset sys_tzset |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
160 #define localtime sys_localtime |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
161 #define gmtime sys_gmtime |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
162 |
457 | 163 /* On later versions of VMS these exist in the C run time library, but |
164 we are using our own implementations. Hide their names to avoid | |
165 linker errors */ | |
166 #define rename sys_rename | |
167 #define execvp sys_execvp | |
168 #define system sys_system | |
169 | |
2245
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
170 #ifndef GNU_MALLOC |
457 | 171 /* Hide these names so that we don't get linker errors */ |
172 #define malloc sys_malloc | |
173 #define free sys_free | |
174 #define realloc sys_realloc | |
175 #define calloc sys_calloc | |
176 | |
177 /* Don't use the standard brk and sbrk */ | |
178 #define sbrk sys_sbrk | |
179 #define brk sys_brk | |
2245
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
180 #endif |
457 | 181 |
182 /* On VMS we want to avoid reading and writing very large amounts of | |
183 data at once, so we redefine read and write here. */ | |
184 | |
185 #define read sys_read | |
186 #define write sys_write | |
187 | |
188 /* sys_creat just calls the real creat with additional args of | |
189 "rfm=var", "rat=cr" to get "normal" VMS files... */ | |
190 #define creat sys_creat | |
191 | |
192 /* fwrite forces an RMS PUT on every call. This is abysmally slow, so | |
193 we emulate fwrite with fputc, which forces buffering and is much | |
194 faster! */ | |
195 #define fwrite sys_fwrite | |
196 | |
197 /* getuid only returns the member number, which is not unique on most VMS | |
198 systems. We emulate it with (getgid()<<16 | getuid()). */ | |
199 #define getuid sys_getuid | |
200 | |
201 /* If user asks for TERM, check first for EMACS_TERM. */ | |
202 #define getenv sys_getenv | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
14186
diff
changeset
|
203 |
457 | 204 /* Standard C abort is less useful than it should be. */ |
205 #define abort sys_abort | |
206 | |
207 /* Case conflicts with C library fread. */ | |
208 #define Fread F_read | |
209 | |
210 /* Case conflicts with C library srandom. */ | |
211 #define Srandom S_random | |
212 | |
2245
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
213 /* variable length too long... maybe */ |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
214 #if 0 |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
215 #define do_line_insertion_deletion_costs do_line_insertion_deletion_cost |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
216 #endif |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
217 |
457 | 218 /* Cause initialization of vmsfns.c to be run. */ |
219 #define SYMS_SYSTEM syms_of_vmsfns () | |
220 | |
13940
1b0e886a4476
(SHARABLE_LIB_BUG): Renamed from SHAREABLE_LIB_BUG.
Karl Heuer <kwzh@gnu.org>
parents:
8892
diff
changeset
|
221 /* VAXCRTL access doesn't deal with SYSPRV very well (among other oddities...) |
457 | 222 Here, we use $CHKPRO to really determine access. */ |
223 #define access sys_access | |
224 | |
225 #define PAGESIZE 512 | |
226 | |
227 #define _longjmp longjmp | |
228 #define _setjmp setjmp | |
229 | |
230 globalref char sdata[]; | |
231 #define DATA_START (((int) sdata + 511) & ~511) | |
232 #define TEXT_START 512 | |
233 | |
234 /* Baud-rate values from tty status are not standard. */ | |
235 | |
236 #define BAUD_CONVERT \ | |
237 { 0, 50, 75, 110, 134, 150, 300, 600, 1200, 1800, \ | |
238 2000, 2400, 3600, 4800, 7200, 9600, 19200 } | |
239 | |
2245
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
240 #define PURESIZE 330000 |
457 | 241 |
242 /* Stdio FILE type has extra indirect on VMS, so must alter this macro. */ | |
243 | |
244 #define PENDING_OUTPUT_COUNT(FILE) ((*(FILE))->_ptr - (*(FILE))->_base) | |
2433
06fcbff9d381
New macros NULL_DEVICE and EXEC_SUFFIXES, to give the name of the
Jim Blandy <jimb@redhat.com>
parents:
2245
diff
changeset
|
245 |
06fcbff9d381
New macros NULL_DEVICE and EXEC_SUFFIXES, to give the name of the
Jim Blandy <jimb@redhat.com>
parents:
2245
diff
changeset
|
246 #define NULL_DEVICE "NLA0:" |
2459
fd35248ff0d1
* s/vms.h (EXEC_SUFFIXES): Add definition for this.
Jim Blandy <jimb@redhat.com>
parents:
2433
diff
changeset
|
247 |
5334
37ea8707b175
(TERMCAP_NAME): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
3699
diff
changeset
|
248 #define TERMCAP_NAME "emacs_library:[etc]termcap.dat" |
37ea8707b175
(TERMCAP_NAME): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
3699
diff
changeset
|
249 |
2459
fd35248ff0d1
* s/vms.h (EXEC_SUFFIXES): Add definition for this.
Jim Blandy <jimb@redhat.com>
parents:
2433
diff
changeset
|
250 #define EXEC_SUFFIXES ".exe:.com" |
2644
6d563cf5a260
* emacs.c (SEPCHAR): Instead of defining this to be ',' on VMS and
Jim Blandy <jimb@redhat.com>
parents:
2459
diff
changeset
|
251 |
6d563cf5a260
* emacs.c (SEPCHAR): Instead of defining this to be ',' on VMS and
Jim Blandy <jimb@redhat.com>
parents:
2459
diff
changeset
|
252 /* Case conflict with Xlib XFree () */ |
6d563cf5a260
* emacs.c (SEPCHAR): Instead of defining this to be ',' on VMS and
Jim Blandy <jimb@redhat.com>
parents:
2459
diff
changeset
|
253 #define xfree emacs_xfree |
6d563cf5a260
* emacs.c (SEPCHAR): Instead of defining this to be ',' on VMS and
Jim Blandy <jimb@redhat.com>
parents:
2459
diff
changeset
|
254 |
6d563cf5a260
* emacs.c (SEPCHAR): Instead of defining this to be ',' on VMS and
Jim Blandy <jimb@redhat.com>
parents:
2459
diff
changeset
|
255 /* What separator do we use in paths? */ |
6d563cf5a260
* emacs.c (SEPCHAR): Instead of defining this to be ',' on VMS and
Jim Blandy <jimb@redhat.com>
parents:
2459
diff
changeset
|
256 #define SEPCHAR ',' |
52401 | 257 |
258 /* arch-tag: 76bc2b70-46d1-4334-8f12-955c0d0ca6d4 | |
259 (do not change this comment) */ |