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