Return to s-vms.h CVS log

Up to [Apple XNU] / GNUtools / emacs / src

Annotation of GNUtools/emacs/src/s-vms.h, revision 1.1

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.