annotate src/s/vms.h @ 30588:bfbe4e93bdcf

*** empty log message ***
author Andreas Schwab <schwab@suse.de>
date Fri, 04 Aug 2000 08:48:52 +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 ','