annotate src/s/vms.h @ 46205:6676ac71682b

Update mouse button info. Don't give the names of Emacs commands that the characters run. Clarify what SPC and DEL do. Clarify the description of the minibuffer. Wording change for completion. Explain Mouse-2 better.
author Richard M. Stallman <rms@gnu.org>
date Sun, 07 Jul 2002 11:31:31 +0000
parents ee40177f6c68
children 23a1cea22d13
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
457
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1 /* system description header for VMS
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2 Copyright (C) 1986 Free Software Foundation, Inc.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4 This file is part of GNU Emacs.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6 GNU Emacs is free software; you can redistribute it and/or modify
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7 it under the terms of the GNU General Public License as published by
3699
7be0f0a02725 Updated GPL version to 2.
Jim Blandy <jimb@redhat.com>
parents: 2644
diff changeset
8 the Free Software Foundation; either version 2, or (at your option)
457
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9 any later version.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 GNU General Public License for more details.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 along with GNU Emacs; see the file COPYING. If not, write to
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13940
diff changeset
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13940
diff changeset
19 Boston, MA 02111-1307, USA. */
457
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21 /*
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22 * Define symbols to identify the version of Unix this is.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23 * Define all the symbols that apply correctly.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24 */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
26 #ifndef VMS /* Decus cpp doesn't define this but VAX C does */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
27 #define VMS
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
28 #endif /* VMS */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
29 /* Note that this file is used indirectly via vms4-0.h, or some other
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
30 such file. These other files define a symbol VMS4_0, VMS4_2, etc. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
31
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
32 /* SYSTEM_TYPE should indicate the kind of system you are using.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
33 It sets the Lisp variable system-type. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
34
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35 #define SYSTEM_TYPE "vax-vms"
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
36
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
37 /* NOMULTIPLEJOBS should be defined if your system's shell
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
38 does not have "job control" (the ability to stop a program,
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39 run some other program, then continue the first one). */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
40
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41 /* #define NOMULTIPLEJOBS */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43 /* INTERRUPT_INPUT controls a default for Unix systems.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
44 VMS uses a separate mechanism. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
45
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46 /* #define INTERRUPT_INPUT */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48 /* Letter to use in finding device name of first pty,
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49 if system supports pty's. 'a' means it is /dev/ptya0 */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
51 #define FIRST_PTY_LETTER 'a'
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
52
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53 /*
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
54 * Define HAVE_PTYS if the system supports pty devices.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
55 */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
56
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
57 /* #define HAVE_PTYS */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
59 /* Define HAVE_SOCKETS if system supports 4.2-compatible sockets. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
60
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
61 /* #define HAVE_SOCKETS */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
62
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
63 /*
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
64 * Define NONSYSTEM_DIR_LIBRARY to make Emacs emulate
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
65 * The 4.2 opendir, etc., library functions.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
66 */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
67
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
68 #define NONSYSTEM_DIR_LIBRARY
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
69
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
70 /* Define this symbol if your system has the functions bcopy, etc. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
71
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
72 /* #define BSTRING */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
73
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
74 /* subprocesses should be defined if you want to
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
75 have code for asynchronous subprocesses
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
76 (as used in M-x compile and M-x shell).
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
77 This is generally OS dependent, and not supported
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
78 under most USG systems. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
79
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
80 #define subprocesses
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
81
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
82 /* If your system uses COFF (Common Object File Format) then define the
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
83 preprocessor symbol "COFF". */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
84
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
85 /* #define COFF */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
86
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
87 /* define MAIL_USE_FLOCK if the mailer uses flock
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
88 to interlock access to /usr/spool/mail/$USER.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
89 The alternative is that a lock file named
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
90 /usr/spool/mail/$USER.lock. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
91
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
92 /* #define MAIL_USE_FLOCK */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
93
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
94 /* Define CLASH_DETECTION if you want lock files to be written
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
95 so that Emacs can tell instantly when you try to modify
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
96 a file that someone else has modified in his Emacs. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
97
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
98 /* #define CLASH_DETECTION */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
99
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
100 /* Define the maximum record length for print strings, if needed. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
101
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
102 #define MAX_PRINT_CHARS 300
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
103
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
104
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
105 /* Here, on a separate page, add any special hacks needed
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
106 to make Emacs work on this system. For example,
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
107 you might define certain system call names that don't
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
108 exist on your system, or that do different things on
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
109 your system and must be used only through an encapsulation
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
110 (Which you should place, by convention, in sysdep.c). */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
111
13940
1b0e886a4476 (SHARABLE_LIB_BUG): Renamed from SHAREABLE_LIB_BUG.
Karl Heuer <kwzh@gnu.org>
parents: 8892
diff changeset
112 /* Do you have the sharable library bug? If you link with a sharable
457
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
113 library that contains psects with the NOSHR attribute and also refer to
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
114 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
115 the psect which is not related to the version used by the sharable
457
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
116 library. The end result is that your references to variables in that
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
117 psect have absolutely nothing to do with library references to what is
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
118 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
119 C library (NOT the sharable one) you don't need to define this. (This
457
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
120 is NOT fixed in V4.4...) */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
121
13940
1b0e886a4476 (SHARABLE_LIB_BUG): Renamed from SHAREABLE_LIB_BUG.
Karl Heuer <kwzh@gnu.org>
parents: 8892
diff changeset
122 #define SHARABLE_LIB_BUG
457
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
123
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
124 /* 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
125 to require that people have a sharable C library, the default for Emacs
457
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
126 is to link with the non-shared library. If you want to link with the
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
127 shared library, define this and remake xmakefile and fileio.c. This allows
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
128 us to ship a guaranteed executable image. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
129
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
130 #define LINK_CRTL_SHARE
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
131
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
132 /* Define this if you want to read the file SYS$SYSTEM:SYSUAF.DAT for user
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
133 information. If you do use this, you must either make SYSUAF.DAT world
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
134 readable or install Emacs with SYSPRV. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
135
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
136 /* #define READ_SYSUAF */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
137
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
138 /* On VMS these have a different name */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
139
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
140 #define index strchr
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
141 #define rindex strrchr
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
142 #define unlink delete
2245
b31d55638c0c Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents: 457
diff changeset
143
b31d55638c0c Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents: 457
diff changeset
144 #ifndef _GNUC_
b31d55638c0c Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents: 457
diff changeset
145 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
146 #define drem mth$dmod
b31d55638c0c Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents: 457
diff changeset
147 #endif
b31d55638c0c Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents: 457
diff changeset
148
13940
1b0e886a4476 (SHARABLE_LIB_BUG): Renamed from SHAREABLE_LIB_BUG.
Karl Heuer <kwzh@gnu.org>
parents: 8892
diff changeset
149 /* 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
150 extra bit of code */
b31d55638c0c Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents: 457
diff changeset
151 #define tzset sys_tzset
b31d55638c0c Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents: 457
diff changeset
152 #define localtime sys_localtime
b31d55638c0c Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents: 457
diff changeset
153 #define gmtime sys_gmtime
b31d55638c0c Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents: 457
diff changeset
154
457
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
155 /* On later versions of VMS these exist in the C run time library, but
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
156 we are using our own implementations. Hide their names to avoid
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
157 linker errors */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
158 #define rename sys_rename
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
159 #define execvp sys_execvp
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
160 #define system sys_system
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
161
2245
b31d55638c0c Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents: 457
diff changeset
162 #ifndef GNU_MALLOC
457
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
163 /* Hide these names so that we don't get linker errors */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
164 #define malloc sys_malloc
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
165 #define free sys_free
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
166 #define realloc sys_realloc
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
167 #define calloc sys_calloc
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
168
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
169 /* Don't use the standard brk and sbrk */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
170 #define sbrk sys_sbrk
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
171 #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
172 #endif
457
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
173
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
174 /* On VMS we want to avoid reading and writing very large amounts of
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
175 data at once, so we redefine read and write here. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
176
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
177 #define read sys_read
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
178 #define write sys_write
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
179
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
180 /* sys_creat just calls the real creat with additional args of
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
181 "rfm=var", "rat=cr" to get "normal" VMS files... */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
182 #define creat sys_creat
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
183
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
184 /* fwrite forces an RMS PUT on every call. This is abysmally slow, so
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
185 we emulate fwrite with fputc, which forces buffering and is much
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
186 faster! */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
187 #define fwrite sys_fwrite
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
188
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
189 /* getuid only returns the member number, which is not unique on most VMS
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
190 systems. We emulate it with (getgid()<<16 | getuid()). */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
191 #define getuid sys_getuid
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
192
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
193 /* If user asks for TERM, check first for EMACS_TERM. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
194 #define getenv sys_getenv
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
195
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
196 /* Standard C abort is less useful than it should be. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
197 #define abort sys_abort
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
198
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
199 /* Case conflicts with C library fread. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
200 #define Fread F_read
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
201
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
202 /* Case conflicts with C library srandom. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
203 #define Srandom S_random
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
204
2245
b31d55638c0c Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents: 457
diff changeset
205 /* 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
206 #if 0
b31d55638c0c Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents: 457
diff changeset
207 #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
208 #endif
b31d55638c0c Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents: 457
diff changeset
209
457
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
210 /* Cause initialization of vmsfns.c to be run. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
211 #define SYMS_SYSTEM syms_of_vmsfns ()
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
212
13940
1b0e886a4476 (SHARABLE_LIB_BUG): Renamed from SHAREABLE_LIB_BUG.
Karl Heuer <kwzh@gnu.org>
parents: 8892
diff changeset
213 /* VAXCRTL access doesn't deal with SYSPRV very well (among other oddities...)
457
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
214 Here, we use $CHKPRO to really determine access. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
215 #define access sys_access
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
216
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
217 #define PAGESIZE 512
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
218
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
219 #define _longjmp longjmp
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
220 #define _setjmp setjmp
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
221
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
222 globalref char sdata[];
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
223 #define DATA_START (((int) sdata + 511) & ~511)
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
224 #define TEXT_START 512
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
225
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
226 /* Baud-rate values from tty status are not standard. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
227
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
228 #define BAUD_CONVERT \
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
229 { 0, 50, 75, 110, 134, 150, 300, 600, 1200, 1800, \
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
230 2000, 2400, 3600, 4800, 7200, 9600, 19200 }
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
231
2245
b31d55638c0c Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents: 457
diff changeset
232 #define PURESIZE 330000
457
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
233
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
234 /* Stdio FILE type has extra indirect on VMS, so must alter this macro. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
235
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
236 #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
237
06fcbff9d381 New macros NULL_DEVICE and EXEC_SUFFIXES, to give the name of the
Jim Blandy <jimb@redhat.com>
parents: 2245
diff changeset
238 #define NULL_DEVICE "NLA0:"
2459
fd35248ff0d1 * s/vms.h (EXEC_SUFFIXES): Add definition for this.
Jim Blandy <jimb@redhat.com>
parents: 2433
diff changeset
239
5334
37ea8707b175 (TERMCAP_NAME): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 3699
diff changeset
240 #define TERMCAP_NAME "emacs_library:[etc]termcap.dat"
37ea8707b175 (TERMCAP_NAME): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 3699
diff changeset
241
2459
fd35248ff0d1 * s/vms.h (EXEC_SUFFIXES): Add definition for this.
Jim Blandy <jimb@redhat.com>
parents: 2433
diff changeset
242 #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
243
6d563cf5a260 * emacs.c (SEPCHAR): Instead of defining this to be ',' on VMS and
Jim Blandy <jimb@redhat.com>
parents: 2459
diff changeset
244 /* 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
245 #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
246
6d563cf5a260 * emacs.c (SEPCHAR): Instead of defining this to be ',' on VMS and
Jim Blandy <jimb@redhat.com>
parents: 2459
diff changeset
247 /* 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
248 #define SEPCHAR ','