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