![[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 [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / src|
Return to s-vms.h CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / src |
1.1 root 1: /* s-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 distributed in the hope that it will be useful,
7: but WITHOUT ANY WARRANTY. No author or distributor
8: accepts responsibility to anyone for the consequences of using it
9: or for whether it serves any particular purpose or works at all,
10: unless he says so in writing. Refer to the GNU Emacs General Public
11: License for full details.
12:
13: Everyone is granted permission to copy, modify and redistribute
14: GNU Emacs, but only under the conditions described in the
15: GNU Emacs General Public License. A copy of this license is
16: supposed to have been given to you along with GNU Emacs so you
17: can know your rights and responsibilities. It should be in a
18: file named COPYING. Among other things, the copyright notice
19: and this notice must be preserved on all copies. */
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 realloc sys_realloc
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 + 512 + 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)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.