223 lines
6.5 KiB
C
223 lines
6.5 KiB
C
/* System description file for MS-DOS
|
||
|
||
Copyright (C) 1993, 1996, 1997, 2001, 2002, 2003, 2004, 2005, 2006,
|
||
2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
||
|
||
This file is part of GNU Emacs.
|
||
|
||
GNU Emacs is free software: you can redistribute it and/or modify
|
||
it under the terms of the GNU General Public License as published by
|
||
the Free Software Foundation, either version 3 of the License, or
|
||
(at your option) any later version.
|
||
|
||
GNU Emacs is distributed in the hope that it will be useful,
|
||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
GNU General Public License for more details.
|
||
|
||
You should have received a copy of the GNU General Public License
|
||
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
|
||
|
||
/* Note: lots of stuff here was taken from s-msdos.h in demacs. */
|
||
|
||
|
||
/*
|
||
* Define symbols to identify the version of Unix this is.
|
||
* Define all the symbols that apply correctly.
|
||
*/
|
||
|
||
#ifndef MSDOS
|
||
#define MSDOS
|
||
#endif
|
||
|
||
#ifdef __GO32__
|
||
#ifndef __DJGPP__
|
||
#define __DJGPP__ 1 /* V2 defines __DJGPP__ == 2 */
|
||
#endif
|
||
#else
|
||
You lose; /* Emacs for DOS must be compiled with DJGPP */
|
||
#endif
|
||
|
||
#define DOS_NT /* MSDOS or WINDOWSNT */
|
||
#undef BSD_SYSTEM
|
||
|
||
/* SYSTEM_TYPE should indicate the kind of system you are using.
|
||
It sets the Lisp variable system-type. */
|
||
|
||
#define SYSTEM_TYPE "ms-dos"
|
||
|
||
#define SYMS_SYSTEM syms_of_dosfns();syms_of_msdos();syms_of_win16select()
|
||
|
||
/* NOMULTIPLEJOBS should be defined if your system's shell
|
||
does not have "job control" (the ability to stop a program,
|
||
run some other program, then continue the first one). */
|
||
|
||
#define NOMULTIPLEJOBS
|
||
|
||
#define SYSV_SYSTEM_DIR
|
||
|
||
/* Define this symbol if your system has the functions bcopy, etc. */
|
||
|
||
#define BSTRING
|
||
|
||
/* Define this is the compiler understands `volatile'. */
|
||
#define HAVE_VOLATILE
|
||
|
||
|
||
/* subprocesses should be defined if you want to
|
||
have code for asynchronous subprocesses
|
||
(as used in M-x compile and M-x shell).
|
||
This is the only system that needs this. */
|
||
|
||
#undef subprocesses
|
||
|
||
/* If your system uses COFF (Common Object File Format) then define the
|
||
preprocessor symbol "COFF". */
|
||
|
||
#define COFF
|
||
|
||
/* Here, on a separate page, add any special hacks needed
|
||
to make Emacs work on this system. For example,
|
||
you might define certain system call names that don't
|
||
exist on your system, or that do different things on
|
||
your system and must be used only through an encapsulation
|
||
(Which you should place, by convention, in sysdep.c). */
|
||
|
||
/* Avoid incompatibilities between gmalloc.c and system header files
|
||
in how to declare valloc. */
|
||
#define GMALLOC_INHIBIT_VALLOC
|
||
|
||
/* This overrides the default value on editfns.c, since DJGPP
|
||
does not have pw->pw_gecos. */
|
||
#define USER_FULL_NAME (getenv ("NAME"))
|
||
|
||
/* setjmp and longjmp can safely replace _setjmp and _longjmp,
|
||
but they will run slower. */
|
||
|
||
#define _setjmp setjmp
|
||
#define _longjmp longjmp
|
||
|
||
#if __DJGPP__ < 2
|
||
|
||
/* New chdir () routine.
|
||
DJGPP v2.0 and later doesn't need it because its chdir() does
|
||
set the drive itself. */
|
||
#ifdef chdir
|
||
#undef chdir
|
||
#endif
|
||
#define chdir sys_chdir
|
||
|
||
#define LIBS_SYSTEM -lpc /* isn't required in DJGPP v2.0, either */
|
||
|
||
#endif /* __DJGPP__ < 2 */
|
||
|
||
#if __DJGPP__ > 1
|
||
|
||
#define DATA_START (&etext + 1)
|
||
#define TEXT_START &start
|
||
|
||
#define _NAIVE_DOS_REGS
|
||
|
||
#else /* not __DJGPP__ > 1 */
|
||
|
||
/* This somehow needs to be defined even though we use COFF. */
|
||
#define TEXT_START -1
|
||
|
||
#endif /* not __DJGPP__ > 1 */
|
||
|
||
#define ORDINARY_LINK
|
||
|
||
/* command.com does not understand `...` so we define this. */
|
||
#define LIB_GCC -Lgcc
|
||
#define SEPCHAR ';'
|
||
|
||
#define NULL_DEVICE "nul"
|
||
|
||
#if __DJGPP__ < 2
|
||
#define O_RDONLY 0x0001
|
||
#define O_WRONLY 0x0002
|
||
#define O_RDWR 0x0004
|
||
#define O_CREAT 0x0100
|
||
#define O_TRUNC 0x0200
|
||
#define O_EXCL 0x0400
|
||
#define O_APPEND 0x0800
|
||
#define O_TEXT 0x4000
|
||
#define O_BINARY 0x8000
|
||
#define NO_MATHERR
|
||
#endif
|
||
|
||
#define HAVE_INVERSE_HYPERBOLIC
|
||
#define FLOAT_CHECK_DOMAIN
|
||
|
||
/* When $TERM is "internal" then this is substituted: */
|
||
#define INTERNAL_TERMINAL "pc|bios|IBM PC with color display:\
|
||
:co#80:li#25:Co#16:pa#256:km:ms:cm=<CM>:cl=<CL>:ce=<CE>:\
|
||
:se=</SO>:so=<SO>:us=<UL>:ue=</UL>:md=<BD>:mh=<DIM>:mb=<BL>:mr=<RV>:me=<NV>:\
|
||
:AB=<BG %d>:AF=<FG %d>:op=<DefC>:"
|
||
|
||
/* Define this to a function (Fdowncase, Fupcase) if your file system
|
||
likes that */
|
||
#define FILE_SYSTEM_CASE Fmsdos_downcase_filename
|
||
|
||
/* Define this to be the separator between devices and paths */
|
||
#define DEVICE_SEP ':'
|
||
|
||
/* We'll support either convention on MSDOG. */
|
||
#define IS_DIRECTORY_SEP(_c_) ((_c_) == '/' || (_c_) == '\\')
|
||
#define IS_ANY_SEP(_c_) (IS_DIRECTORY_SEP (_c_) || IS_DEVICE_SEP (_c_))
|
||
|
||
/* Call init_gettimeofday when TZ changes. */
|
||
#if __DJGPP__ < 2
|
||
#define LOCALTIME_CACHE
|
||
#define tzset init_gettimeofday
|
||
#endif
|
||
|
||
/* bcopy under djgpp is quite safe */
|
||
#define GAP_USE_BCOPY
|
||
#define BCOPY_UPWARD_SAFE 1
|
||
#define BCOPY_DOWNWARD_SAFE 1
|
||
|
||
/* Mode line description of a buffer's type. */
|
||
#define MODE_LINE_BINARY_TEXT(buf) (NILP(buf->buffer_file_type) ? "T" : "B")
|
||
|
||
/* Do we have POSIX signals? */
|
||
#if __DJGPP__ > 1
|
||
#define POSIX_SIGNALS
|
||
#endif
|
||
|
||
/* We have (the code to control) a mouse. */
|
||
#define HAVE_MOUSE
|
||
|
||
/* We canuse mouse menus. */
|
||
#define HAVE_MENUS
|
||
|
||
/* Define one of these for easier conditionals. */
|
||
#ifdef HAVE_X_WINDOWS
|
||
/* We need a little extra space, see ../../lisp/loadup.el and the
|
||
commentary below, in the non-X branch. The 140KB number was
|
||
measured on GNU/Linux and on MS-WIndows. */
|
||
#define SYSTEM_PURESIZE_EXTRA (-170000+140000)
|
||
#define LIBX11_SYSTEM -lxext -lsys
|
||
#else
|
||
/* We need a little extra space, see ../../lisp/loadup.el.
|
||
As of 20091024, DOS-specific files use up 62KB of pure space. But
|
||
overall, we end up wasting 130KB of pure space, because
|
||
BASE_PURESIZE starts at 1.47MB, while we need only 1.3MB (including
|
||
non-DOS specific files and load history; the latter is about 55K,
|
||
but depends on the depth of the top-level Emacs directory in the
|
||
directory tree). Given the unknown policy of different DPMI
|
||
hosts regarding loading of untouched pages, I'm not going to risk
|
||
enlarging Emacs footprint by another 100+ KBytes. */
|
||
#define SYSTEM_PURESIZE_EXTRA (-170000+65000)
|
||
#endif
|
||
|
||
/* Tell the garbage collector that setjmp is known to save all
|
||
registers relevant for conservative garbage collection in the
|
||
jmp_buf. */
|
||
|
||
#define GC_SETJMP_WORKS 1
|
||
#define GC_MARK_STACK GC_MAKE_GCPROS_NOOPS
|
||
|
||
/* arch-tag: d184f860-815d-4ff4-8187-d05c0f3c37d0
|
||
(do not change this comment) */
|