-/* MS-DOS specific Lisp utilities. Coded by Manabu Higashida, 1991.
- Major changes May-July 1993 Morten Welinder (only 10% original code left)
- Copyright (C) 1991, 1993 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 1, 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; see the file COPYING. If not, write to
-the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
-
-
-#include "config.h"
-
-#ifdef MSDOS
-/* The entire file is within this conditional */
-
-#include <stdio.h>
-#include <dos.h>
-#include "lisp.h"
-#include "buffer.h"
-#include "termchar.h"
-#include "termhooks.h"
-#include "frame.h"
-#include "dosfns.h"
-#include "msdos.h"
-
-static void
-mode_resetsize ()
-{
- Fset_screen_width (ScreenCols (), Qnil);
- Fset_screen_height (ScreenRows (), Qnil);
-}
-
-DEFUN ("mode25", Fmode25, Smode25, 0, 0, "",
- "Set the number of rows to 25.")
- ()
-{
- union REGS regs;
-
- if (have_mouse) Mouse_off ();
- regs.x.ax = 3;
- int86 (0x10, ®s, ®s);
- regs.x.ax = 0x1101;
- regs.h.bl = 0;
- int86 (0x10, ®s, ®s);
- regs.x.ax = 0x1200;
- regs.h.bl = 32;
- int86 (0x10, ®s, ®s);
- regs.x.ax = 3;
- int86 (0x10, ®s, ®s);
- mode_resetsize ();
- Frecenter (Qnil);
- Fredraw_display ();
- if (have_mouse) Mouse_init ();
-}
-
-DEFUN ("mode4350", Fmode4350, Smode4350, 0, 0, "",
- "Set the number of rows to 43 (EGA) or 50 (VGA).")
- ()
-{
- union REGS regs;
-
- if (have_mouse) Mouse_off ();
- regs.x.ax = 3;
- int86 (0x10, ®s, ®s);
- regs.x.ax = 0x1112;
- regs.h.bl = 0;
- int86 (0x10, ®s, ®s);
- regs.x.ax = 0x1200;
- regs.h.bl = 32;
- int86 (0x10, ®s, ®s);
- regs.x.ax = 0x0100;
- regs.x.cx = 7;
- int86 (0x10, ®s, ®s);
- mode_resetsize ();
- Frecenter (Qnil);
- Fredraw_display ();
- if (have_mouse) Mouse_init ();
-}
-
-DEFUN ("int86", Fint86, Sint86, 2, 2, 0,
- "Call specific MSDOS interrupt number INTERRUPT with REGISTERS.\n\
-Return the updated REGISTER vector.\n\
-\n\
-INTERRUPT should be an integer in the range 0 to 255.\n\
-REGISTERS should be a vector produced by `make-register' and\n\
-`set-register-value'.")
- (intno, regs)
- Lisp_Object intno, regs;
-{
- register int i;
- int no;
- union REGS inregs, outregs;
- Lisp_Object val;
-
- CHECK_NUMBER (intno, 0);
- no = (unsigned long) XINT (intno);
- CHECK_VECTOR (regs, 1);
- if (no < 0 || no > 0xff || XVECTOR (regs)-> size != 8)
- return Qnil;
- for (i = 0; i < 8; i++)
- CHECK_NUMBER (XVECTOR (regs)->contents[i], 1);
-
- inregs.x.ax = (unsigned long) XFASTINT (XVECTOR (regs)->contents[0]);
- inregs.x.bx = (unsigned long) XFASTINT (XVECTOR (regs)->contents[1]);
- inregs.x.cx = (unsigned long) XFASTINT (XVECTOR (regs)->contents[2]);
- inregs.x.dx = (unsigned long) XFASTINT (XVECTOR (regs)->contents[3]);
- inregs.x.si = (unsigned long) XFASTINT (XVECTOR (regs)->contents[4]);
- inregs.x.di = (unsigned long) XFASTINT (XVECTOR (regs)->contents[5]);
- inregs.x.cflag = (unsigned long) XFASTINT (XVECTOR (regs)->contents[6]);
- inregs.x.flags = (unsigned long) XFASTINT (XVECTOR (regs)->contents[7]);
-
- int86 (no, &inregs, &outregs);
-
- XVECTOR (regs)->contents[0] = make_number (outregs.x.ax);
- XVECTOR (regs)->contents[1] = make_number (outregs.x.bx);
- XVECTOR (regs)->contents[2] = make_number (outregs.x.cx);
- XVECTOR (regs)->contents[3] = make_number (outregs.x.dx);
- XVECTOR (regs)->contents[4] = make_number (outregs.x.si);
- XVECTOR (regs)->contents[5] = make_number (outregs.x.di);
- XVECTOR (regs)->contents[6] = make_number (outregs.x.cflag);
- XVECTOR (regs)->contents[7] = make_number (outregs.x.flags);
-
- return regs;
-}
-
-int dos_country_code;
-int dos_codepage;
-Lisp_Object Vdos_version;
-
-void
-init_dosfns ()
-{
- union REGS regs;
- _go32_dpmi_seginfo info;
- _go32_dpmi_registers dpmiregs;
-
- get_lim_data (); /* why the hell isn't this called elsewhere? */
-
- regs.x.ax = 0x3000;
- intdos (®s, ®s);
- Vdos_version = Fcons (make_number (regs.h.al), make_number (regs.h.ah));
-
- /* Obtain the country code by calling Dos via Dpmi. Don't rely on GO32. */
- info.size = (34 + 15) / 16;
- if (_go32_dpmi_allocate_dos_memory (&info))
- dos_country_code = 1;
- else
- {
- dpmiregs.x.ax = 0x3800;
- dpmiregs.x.ds = info.rm_segment;
- dpmiregs.x.dx = 0;
- dpmiregs.x.ss = dpmiregs.x.sp = 0;
- _go32_dpmi_simulate_int (0x21, &dpmiregs);
- dos_country_code = dpmiregs.x.bx;
- _go32_dpmi_free_dos_memory (&info);
- }
-
- regs.x.ax = 0x6601;
- intdos (®s, ®s);
- if (regs.x.cflag)
- /* Estimate code page from country code */
- switch (dos_country_code)
- {
- case 45: /* Denmark */
- case 47: /* Norway */
- dos_codepage = 865;
- break;
- default:
- /* US */
- dos_codepage = 437;
- }
- else
- dos_codepage = regs.x.bx & 0xffff;
-}
-\f
-/*
- * Define everything
- */
-syms_of_dosfns ()
-{
- defsubr (&Smode25);
- defsubr (&Smode4350);
- defsubr (&Sint86);
-
- DEFVAR_INT ("dos-country-code", &dos_country_code,
- "The country code returned by Dos when Emacs was started.\n\
-Usually this is the international telephone prefix.");
-
- DEFVAR_INT ("dos-codepage", &dos_codepage,
- "The codepage active when Emacs was started.\n\
-The following are known:
- 437 US
- 850 Multilingual
- 852 Slavic/Latin II
- 857 Turkish
- 860 Portugal
- 861 Iceland
- 863 Canada (French)
- 865 Norway/Denmark");
-
- DEFVAR_LISP ("dos-version", &Vdos_version,
- "The (MAJOR . MINOR) Dos version (subject to modification with setver).");
-}
-#endif /* MSDOS */
+/* MS-DOS specific Lisp utilities. Coded by Manabu Higashida, 1991.
+ Major changes May-July 1993 Morten Welinder (only 10% original code left)
+ Copyright (C) 1991, 1993, 1996, 1997, 1998, 2001
+ 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 2, 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; see the file COPYING. If not, write to
+the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA. */
+
+
+#include <config.h>
+
+#ifdef MSDOS
+/* The entire file is within this conditional */
+
+#include <stdio.h>
+#include <string.h>
+#include <dos.h>
+#include "lisp.h"
+#include "buffer.h"
+#include "termchar.h"
+#include "termhooks.h"
+#include "frame.h"
+#include "blockinput.h"
+#include "window.h"
+#include "dosfns.h"
+#include "msdos.h"
+#include "dispextern.h"
+#include "character.h"
+#include "coding.h"
+#include <dpmi.h>
+#include <go32.h>
+#include <dirent.h>
+#include <sys/vfs.h>
+
+#ifndef __DJGPP_MINOR__
+# define __tb _go32_info_block.linear_address_of_transfer_buffer;
+#endif
+
+DEFUN ("int86", Fint86, Sint86, 2, 2, 0,
+ doc: /* Call specific MSDOS interrupt number INTERRUPT with REGISTERS.
+Return the updated REGISTER vector.
+
+INTERRUPT should be an integer in the range 0 to 255.
+REGISTERS should be a vector produced by `make-register' and
+`set-register-value'. */)
+ (interrupt, registers)
+ Lisp_Object interrupt, registers;
+{
+ register int i;
+ int no;
+ union REGS inregs, outregs;
+ Lisp_Object val;
+
+ CHECK_NUMBER (interrupt);
+ no = (unsigned long) XINT (interrupt);
+ CHECK_VECTOR (registers);
+ if (no < 0 || no > 0xff || XVECTOR (registers)-> size != 8)
+ return Qnil;
+ for (i = 0; i < 8; i++)
+ CHECK_NUMBER (XVECTOR (registers)->contents[i]);
+
+ inregs.x.ax = (unsigned long) XFASTINT (XVECTOR (registers)->contents[0]);
+ inregs.x.bx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[1]);
+ inregs.x.cx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[2]);
+ inregs.x.dx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[3]);
+ inregs.x.si = (unsigned long) XFASTINT (XVECTOR (registers)->contents[4]);
+ inregs.x.di = (unsigned long) XFASTINT (XVECTOR (registers)->contents[5]);
+ inregs.x.cflag = (unsigned long) XFASTINT (XVECTOR (registers)->contents[6]);
+ inregs.x.flags = (unsigned long) XFASTINT (XVECTOR (registers)->contents[7]);
+
+ int86 (no, &inregs, &outregs);
+
+ XVECTOR (registers)->contents[0] = make_number (outregs.x.ax);
+ XVECTOR (registers)->contents[1] = make_number (outregs.x.bx);
+ XVECTOR (registers)->contents[2] = make_number (outregs.x.cx);
+ XVECTOR (registers)->contents[3] = make_number (outregs.x.dx);
+ XVECTOR (registers)->contents[4] = make_number (outregs.x.si);
+ XVECTOR (registers)->contents[5] = make_number (outregs.x.di);
+ XVECTOR (registers)->contents[6] = make_number (outregs.x.cflag);
+ XVECTOR (registers)->contents[7] = make_number (outregs.x.flags);
+
+ return registers;
+}
+
+DEFUN ("msdos-memget", Fdos_memget, Sdos_memget, 2, 2, 0,
+ doc: /* Read DOS memory at offset ADDRESS into VECTOR.
+Return the updated VECTOR. */)
+ (address, vector)
+ Lisp_Object address, vector;
+{
+ register int i;
+ int offs, len;
+ char *buf;
+ Lisp_Object val;
+
+ CHECK_NUMBER (address);
+ offs = (unsigned long) XINT (address);
+ CHECK_VECTOR (vector);
+ len = XVECTOR (vector)-> size;
+ if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len)
+ return Qnil;
+ buf = alloca (len);
+ dosmemget (offs, len, buf);
+
+ for (i = 0; i < len; i++)
+ XVECTOR (vector)->contents[i] = make_number (buf[i]);
+
+ return vector;
+}
+
+DEFUN ("msdos-memput", Fdos_memput, Sdos_memput, 2, 2, 0,
+ doc: /* Write DOS memory at offset ADDRESS from VECTOR. */)
+ (address, vector)
+ Lisp_Object address, vector;
+{
+ register int i;
+ int offs, len;
+ char *buf;
+ Lisp_Object val;
+
+ CHECK_NUMBER (address);
+ offs = (unsigned long) XINT (address);
+ CHECK_VECTOR (vector);
+ len = XVECTOR (vector)-> size;
+ if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len)
+ return Qnil;
+ buf = alloca (len);
+
+ for (i = 0; i < len; i++)
+ {
+ CHECK_NUMBER (XVECTOR (vector)->contents[i]);
+ buf[i] = (unsigned char) XFASTINT (XVECTOR (vector)->contents[i]) & 0xFF;
+ }
+
+ dosmemput (buf, len, offs);
+ return Qt;
+}
+
+DEFUN ("msdos-set-keyboard", Fmsdos_set_keyboard, Smsdos_set_keyboard, 1, 2, 0,
+ doc: /* Set keyboard layout according to COUNTRY-CODE.
+If the optional argument ALLKEYS is non-nil, the keyboard is mapped for
+all keys; otherwise it is only used when the ALT key is pressed.
+The current keyboard layout is available in dos-keyboard-code. */)
+ (country_code, allkeys)
+ Lisp_Object country_code;
+{
+ CHECK_NUMBER (country_code);
+ if (!dos_set_keyboard (XINT (country_code), !NILP (allkeys)))
+ return Qnil;
+ return Qt;
+}
+
+#ifndef HAVE_X_WINDOWS
+/* Later we might want to control the mouse interface with this function,
+ e.g., with respect to non-80 column screen modes. */
+
+DEFUN ("msdos-mouse-p", Fmsdos_mouse_p, Smsdos_mouse_p, 0, 0, 0,
+ doc: /* Report whether a mouse is present. */)
+ ()
+{
+ if (have_mouse)
+ return Qt;
+ else
+ return Qnil;
+}
+#endif
+
+
+DEFUN ("msdos-mouse-init", Fmsdos_mouse_init, Smsdos_mouse_init, 0, 0, "",
+ doc: /* Initialize and enable mouse if available. */)
+ ()
+{
+ if (have_mouse)
+ {
+ have_mouse = 1;
+ mouse_init ();
+ return Qt;
+ }
+ return Qnil;
+}
+
+DEFUN ("msdos-mouse-enable", Fmsdos_mouse_enable, Smsdos_mouse_enable, 0, 0, "",
+ doc: /* Enable mouse if available. */)
+ ()
+{
+ if (have_mouse)
+ {
+ have_mouse = 1;
+ mouse_on ();
+ }
+ return have_mouse ? Qt : Qnil;
+}
+
+DEFUN ("msdos-mouse-disable", Fmsdos_mouse_disable, Smsdos_mouse_disable, 0, 0, "",
+ doc: /* Disable mouse if available. */)
+ ()
+{
+ mouse_off ();
+ if (have_mouse) have_mouse = -1;
+ return Qnil;
+}
+
+DEFUN ("insert-startup-screen", Finsert_startup_screen, Sinsert_startup_screen, 0, 0, "",
+ doc: /* Insert copy of screen contents prior to starting emacs.
+Return nil if startup screen is not available. */)
+ ()
+{
+ char *s;
+ int rows, cols;
+ int i, j;
+
+ if (!dos_get_saved_screen (&s, &rows, &cols))
+ return Qnil;
+
+ for (i = 0; i < rows; i++)
+ {
+ for (j = 0; j < cols; j++)
+ {
+ insert_char (*s);
+ s += 2;
+ }
+ insert_char ('\n');
+ }
+
+ return Qt;
+}
+\f
+/* country info */
+int dos_country_code;
+int dos_codepage;
+int dos_timezone_offset;
+int dos_decimal_point;
+int dos_keyboard_layout;
+unsigned char dos_country_info[DOS_COUNTRY_INFO];
+static unsigned char usa_country_info[DOS_COUNTRY_INFO] = {
+ 0, 0, /* date format */
+ '$', 0, 0, 0, 0, /* currency string */
+ ',', 0, /* thousands separator */
+ '.', 0, /* decimal separator */
+ '/', 0, /* date separator */
+ ':', 0, /* time separator */
+ 0, /* currency format */
+ 2, /* digits after decimal in currency */
+ 0, /* time format */
+ 0, 0, 0, 0, /* address of case map routine, GPF if used */
+ ' ', 0, /* data-list separator (?) */
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /* reserved */
+};
+
+int dos_hyper_key;
+int dos_super_key;
+int dos_keypad_mode;
+
+Lisp_Object Vdos_version;
+Lisp_Object Vdos_display_scancodes;
+
+#ifndef HAVE_X_WINDOWS
+static unsigned dos_windows_version;
+Lisp_Object Vdos_windows_version;
+
+char parent_vm_title[50]; /* Ralf Brown says 30 is enough */
+int w95_set_virtual_machine_title (const char *);
+
+void
+restore_parent_vm_title (void)
+{
+ if (NILP (Vdos_windows_version))
+ return;
+ if ((dos_windows_version & 0xff) >= 4 && parent_vm_title[0])
+ w95_set_virtual_machine_title (parent_vm_title);
+ delay (50);
+}
+#endif /* !HAVE_X_WINDOWS */
+
+void
+init_dosfns ()
+{
+ union REGS regs;
+ _go32_dpmi_registers dpmiregs;
+ unsigned long xbuf = _go32_info_block.linear_address_of_transfer_buffer;
+
+#ifndef SYSTEM_MALLOC
+ get_lim_data (); /* why the hell isn't this called elsewhere? */
+#endif
+
+ regs.x.ax = 0x3000;
+ intdos (®s, ®s);
+ Vdos_version = Fcons (make_number (regs.h.al), make_number (regs.h.ah));
+
+ /* Obtain the country code via DPMI, use DJGPP transfer buffer. */
+ dpmiregs.x.ax = 0x3800;
+ dpmiregs.x.ds = xbuf >> 4;
+ dpmiregs.x.dx = 0;
+ dpmiregs.x.ss = dpmiregs.x.sp = dpmiregs.x.flags = 0;
+ _go32_dpmi_simulate_int (0x21, &dpmiregs);
+ if (dpmiregs.x.flags & 1)
+ {
+ dos_country_code = 1; /* assume USA if 213800 failed */
+ memcpy (dos_country_info, usa_country_info, DOS_COUNTRY_INFO);
+ }
+ else
+ {
+ dos_country_code = dpmiregs.x.bx;
+ dosmemget (xbuf, DOS_COUNTRY_INFO, dos_country_info);
+ }
+
+ dos_set_keyboard (dos_country_code, 0);
+
+ regs.x.ax = 0x6601;
+ intdos (®s, ®s);
+ if (regs.x.cflag)
+ /* Estimate code page from country code */
+ switch (dos_country_code)
+ {
+ case 45: /* Denmark */
+ case 47: /* Norway */
+ dos_codepage = 865;
+ break;
+ default:
+ /* US */
+ dos_codepage = 437;
+ }
+ else
+ dos_codepage = regs.x.bx & 0xffff;
+
+#ifndef HAVE_X_WINDOWS
+ parent_vm_title[0] = '\0';
+
+ /* If we are running from DOS box on MS-Windows, get Windows version. */
+ dpmiregs.x.ax = 0x1600; /* enhanced mode installation check */
+ dpmiregs.x.ss = dpmiregs.x.sp = dpmiregs.x.flags = 0;
+ _go32_dpmi_simulate_int (0x2f, &dpmiregs);
+ /* We only support Windows-specific features when we run on Windows 9X
+ or on Windows 3.X/enhanced mode.
+
+ Int 2Fh/AX=1600h returns:
+
+ AL = 00: no Windows at all;
+ AL = 01: Windows/386 2.x;
+ AL = 80h: Windows 3.x in mode other than enhanced;
+ AL = FFh: Windows/386 2.x
+
+ We also check AH > 0 (Windows 3.1 or later), in case AL tricks us. */
+ if (dpmiregs.h.al > 2 && dpmiregs.h.al != 0x80 && dpmiregs.h.al != 0xff
+ && (dpmiregs.h.al > 3 || dpmiregs.h.ah > 0))
+ {
+ dos_windows_version = dpmiregs.x.ax;
+ Vdos_windows_version =
+ Fcons (make_number (dpmiregs.h.al), make_number (dpmiregs.h.ah));
+
+ /* Save the current title of this virtual machine, so we can restore
+ it before exiting. Otherwise, Windows 95 will continue to use
+ the title we set even after we are history, stupido... */
+ if (dpmiregs.h.al >= 4)
+ {
+ dpmiregs.x.ax = 0x168e;
+ dpmiregs.x.dx = 3; /* get VM title */
+ dpmiregs.x.cx = sizeof(parent_vm_title) - 1;
+ dpmiregs.x.es = __tb >> 4;
+ dpmiregs.x.di = __tb & 15;
+ dpmiregs.x.sp = dpmiregs.x.ss = dpmiregs.x.flags = 0;
+ _go32_dpmi_simulate_int (0x2f, &dpmiregs);
+ if (dpmiregs.x.ax == 1)
+ dosmemget (__tb, sizeof(parent_vm_title), parent_vm_title);
+ }
+ }
+ else
+ {
+ dos_windows_version = 0;
+ Vdos_windows_version = Qnil;
+ }
+#endif /* !HAVE_X_WINDOWS */
+
+#if __DJGPP__ >= 2
+
+ /* Without this, we never see hidden files.
+ Don't OR it with the previous value, so the value recorded at dump
+ time, possibly with `preserve-case' flags set, won't get through. */
+ __opendir_flags = __OPENDIR_FIND_HIDDEN;
+
+#if __DJGPP_MINOR__ == 0
+ /* Under LFN, preserve the case of files as recorded in the directory
+ (in DJGPP 2.01 and later this is automagically done by the library). */
+ if (!NILP (Fmsdos_long_file_names ()))
+ __opendir_flags |= __OPENDIR_PRESERVE_CASE;
+#endif /* __DJGPP_MINOR__ == 0 */
+#endif /* __DJGPP__ >= 2 */
+}
+\f
+#ifndef HAVE_X_WINDOWS
+
+/* Emulation of some X window features from xfns.c and xfaces.c. */
+
+/* Standard VGA colors, in the order of their standard numbering
+ in the default VGA palette. */
+static char *vga_colors[16] = {
+ "black", "blue", "green", "cyan", "red", "magenta", "brown",
+ "lightgray", "darkgray", "lightblue", "lightgreen", "lightcyan",
+ "lightred", "lightmagenta", "yellow", "white"
+};
+
+/* Given a color name, return its index, or -1 if not found. Note
+ that this only performs case-insensitive comparison against the
+ standard names. For anything more sophisticated, like matching
+ "gray" with "grey" or translating X color names into their MSDOS
+ equivalents, call the Lisp function Qtty_color_desc (defined
+ on lisp/term/tty-colors.el). */
+int
+msdos_stdcolor_idx (const char *name)
+{
+ int i;
+
+ for (i = 0; i < sizeof (vga_colors) / sizeof (vga_colors[0]); i++)
+ if (strcasecmp (name, vga_colors[i]) == 0)
+ return i;
+
+ return
+ strcmp (name, unspecified_fg) == 0 ? FACE_TTY_DEFAULT_FG_COLOR
+ : strcmp (name, unspecified_bg) == 0 ? FACE_TTY_DEFAULT_BG_COLOR
+ : FACE_TTY_DEFAULT_COLOR;
+}
+
+/* Given a color index, return its standard name. */
+Lisp_Object
+msdos_stdcolor_name (int idx)
+{
+ extern Lisp_Object Qunspecified;
+
+ if (idx == FACE_TTY_DEFAULT_FG_COLOR)
+ return build_string (unspecified_fg);
+ else if (idx == FACE_TTY_DEFAULT_BG_COLOR)
+ return build_string (unspecified_bg);
+ else if (idx >= 0 && idx < sizeof (vga_colors) / sizeof (vga_colors[0]))
+ return build_string (vga_colors[idx]);
+ else
+ return Qunspecified; /* meaning the default */
+}
+
+/* Support for features that are available when we run in a DOS box
+ on MS-Windows. */
+int
+ms_windows_version (void)
+{
+ return dos_windows_version;
+}
+
+/* Set the title of the current virtual machine, to appear on
+ the caption bar of that machine's window. */
+
+int
+w95_set_virtual_machine_title (const char *title_string)
+{
+ /* Only Windows 9X (version 4 and higher) support this function. */
+ if (!NILP (Vdos_windows_version)
+ && (dos_windows_version & 0xff) >= 4)
+ {
+ _go32_dpmi_registers regs;
+ dosmemput (title_string, strlen (title_string) + 1, __tb);
+ regs.x.ax = 0x168e;
+ regs.x.dx = 1;
+ regs.x.es = __tb >> 4;
+ regs.x.di = __tb & 15;
+ regs.x.sp = regs.x.ss = regs.x.flags = 0;
+ _go32_dpmi_simulate_int (0x2f, ®s);
+ return regs.x.ax == 1;
+ }
+ return 0;
+}
+
+/* Change the title of frame F to NAME.
+ If NAME is nil, use the frame name as the title.
+
+ If Emacs is not run from a DOS box on Windows 9X, this only
+ sets the name in the frame struct, but has no other effects. */
+
+void
+x_set_title (f, name)
+ struct frame *f;
+ Lisp_Object name;
+{
+ /* Don't change the title if it's already NAME. */
+ if (EQ (name, f->title))
+ return;
+
+ update_mode_lines = 1;
+
+ f->title = name;
+
+ if (NILP (name))
+ name = f->name;
+
+ if (FRAME_MSDOS_P (f))
+ {
+ BLOCK_INPUT;
+ w95_set_virtual_machine_title (XSTRING (name)->data);
+ UNBLOCK_INPUT;
+ }
+}
+#endif /* !HAVE_X_WINDOWS */
+\f
+DEFUN ("file-system-info", Ffile_system_info, Sfile_system_info, 1, 1, 0,
+ doc: /* Return storage information about the file system FILENAME is on.
+Value is a list of floats (TOTAL FREE AVAIL), where TOTAL is the total
+storage of the file system, FREE is the free storage, and AVAIL is the
+storage available to a non-superuser. All 3 numbers are in bytes.
+If the underlying system call fails, value is nil. */)
+ (filename)
+ Lisp_Object filename;
+{
+ struct statfs stfs;
+ Lisp_Object encoded, value;
+
+ CHECK_STRING (filename);
+ filename = Fexpand_file_name (filename, Qnil);
+ encoded = ENCODE_FILE (filename);
+
+ if (statfs (XSTRING (encoded)->data, &stfs))
+ value = Qnil;
+ else
+ value = list3 (make_float ((double) stfs.f_bsize * stfs.f_blocks),
+ make_float ((double) stfs.f_bsize * stfs.f_bfree),
+ make_float ((double) stfs.f_bsize * stfs.f_bavail));
+
+ return value;
+}
+\f
+void
+dos_cleanup (void)
+{
+#ifndef HAVE_X_WINDOWS
+ restore_parent_vm_title ();
+#endif
+ /* Make sure the termscript file is committed, in case we are
+ crashing and some vital info was written there. */
+ if (termscript)
+ {
+ fflush (termscript);
+ fsync (fileno (termscript));
+ }
+}
+
+/*
+ * Define everything
+ */
+syms_of_dosfns ()
+{
+ defsubr (&Sint86);
+ defsubr (&Sdos_memget);
+ defsubr (&Sdos_memput);
+ defsubr (&Smsdos_mouse_init);
+ defsubr (&Smsdos_mouse_enable);
+ defsubr (&Smsdos_set_keyboard);
+ defsubr (&Sinsert_startup_screen);
+ defsubr (&Smsdos_mouse_disable);
+ defsubr (&Sfile_system_info);
+#ifndef HAVE_X_WINDOWS
+ defsubr (&Smsdos_mouse_p);
+#endif
+
+ DEFVAR_INT ("dos-country-code", &dos_country_code,
+ doc: /* The country code returned by Dos when Emacs was started.
+Usually this is the international telephone prefix. */);
+
+ DEFVAR_INT ("dos-codepage", &dos_codepage,
+ doc: /* The codepage active when Emacs was started.
+The following are known:
+ 437 United States
+ 850 Multilingual (Latin I)
+ 852 Slavic (Latin II)
+ 857 Turkish
+ 860 Portugal
+ 861 Iceland
+ 863 Canada (French)
+ 865 Norway/Denmark */);
+
+ DEFVAR_INT ("dos-timezone-offset", &dos_timezone_offset,
+ doc: /* The current timezone offset to UTC in minutes.
+Implicitly modified when the TZ variable is changed. */);
+
+ DEFVAR_LISP ("dos-version", &Vdos_version,
+ doc: /* The (MAJOR . MINOR) Dos version (subject to modification with setver). */);
+
+#ifndef HAVE_X_WINDOWS
+ DEFVAR_LISP ("dos-windows-version", &Vdos_windows_version,
+ doc: /* The (MAJOR . MINOR) Windows version for DOS session on MS-Windows. */);
+#endif
+
+ DEFVAR_LISP ("dos-display-scancodes", &Vdos_display_scancodes,
+ doc: /* *Controls whether DOS raw keyboard events are displayed as you type.
+When non-nil, the keyboard scan-codes are displayed at the bottom right
+corner of the display (typically at the end of the mode line).
+The output format is: scan code:char code*modifiers. */);
+
+ Vdos_display_scancodes = Qnil;
+
+ DEFVAR_INT ("dos-hyper-key", &dos_hyper_key,
+ doc: /* *If set to 1, use right ALT key as hyper key.
+If set to 2, use right CTRL key as hyper key. */);
+ dos_hyper_key = 0;
+
+ DEFVAR_INT ("dos-super-key", &dos_super_key,
+ doc: /* *If set to 1, use right ALT key as super key.
+If set to 2, use right CTRL key as super key. */);
+ dos_super_key = 0;
+
+ DEFVAR_INT ("dos-keypad-mode", &dos_keypad_mode,
+ doc: /* *Controls what key code is returned by a key in the numeric keypad.
+The `numlock ON' action is only taken if no modifier keys are pressed.
+The value is an integer constructed by adding the following bits together:
+
+ 0x00 Digit key returns digit (if numlock ON)
+ 0x01 Digit key returns kp-digit (if numlock ON)
+ 0x02 Digit key returns M-digit (if numlock ON)
+ 0x03 Digit key returns edit key (if numlock ON)
+
+ 0x00 Grey key returns char (if numlock ON)
+ 0x04 Grey key returns kp-key (if numlock ON)
+
+ 0x00 Digit key returns digit (if numlock OFF)
+ 0x10 Digit key returns kp-digit (if numlock OFF)
+ 0x20 Digit key returns M-digit (if numlock OFF)
+ 0x30 Digit key returns edit key (if numlock OFF)
+
+ 0x00 Grey key returns char (if numlock OFF)
+ 0x40 Grey key returns kp-key (if numlock OFF)
+
+ 0x200 ALT-0..ALT-9 in top-row produces shifted codes. */);
+ dos_keypad_mode = 0x75;
+
+ DEFVAR_INT ("dos-keyboard-layout", &dos_keyboard_layout,
+ doc: /* Contains the country code for the current keyboard layout.
+Use msdos-set-keyboard to select another keyboard layout. */);
+ dos_keyboard_layout = 1; /* US */
+
+ DEFVAR_INT ("dos-decimal-point", &dos_decimal_point,
+ doc: /* The character to produce when kp-decimal key is pressed.
+If non-zero, this variable contains the character to be returned when the
+decimal point key in the numeric keypad is pressed when Num Lock is on.
+If zero, the decimal point key returns the country code specific value. */);
+ dos_decimal_point = 0;
+}
+#endif /* MSDOS */
HCoop / bpt / emacs.git / blobdiff