Return to s-vms.h CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / src

Annotation of 43BSDReno/contrib/emacs-18.55/src/s-vms.h, revision 1.1

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.