Commit 1b94449f authored by Richard M. Stallman's avatar Richard M. Stallman

Initial revision

parent 54ad07d3
/* 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, &regs, &regs);
regs.x.ax = 0x1101;
regs.h.bl = 0;
int86 (0x10, &regs, &regs);
regs.x.ax = 0x1200;
regs.h.bl = 32;
int86 (0x10, &regs, &regs);
regs.x.ax = 3;
int86 (0x10, &regs, &regs);
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, &regs, &regs);
regs.x.ax = 0x1112;
regs.h.bl = 0;
int86 (0x10, &regs, &regs);
regs.x.ax = 0x1200;
regs.h.bl = 32;
int86 (0x10, &regs, &regs);
regs.x.ax = 0x0100;
regs.x.cx = 7;
int86 (0x10, &regs, &regs);
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 (&regs, &regs);
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 (&regs, &regs);
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;
}
/*
* 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 interface.
Coded by Manabu Higashida, 1991.
Copyright (C) 1991 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. */
extern int dos_country_code;
extern int dos_codepage;
extern Lisp_Object Vdos_version;
/* Machine description file for MS-DOS
Copyright (C) 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 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, 675 Mass Ave, Cambridge, MA 02139, USA. */
/* Note: lots of stuff here was taken from m-dos386.h in demacs. */
/* The following three symbols give information on
the size of various data types. */
#define SHORTBITS 16 /* Number of bits in a short */
#define INTBITS 32 /* Number of bits in an int */
#define LONGBITS 32 /* Number of bits in a long */
/* Define BIG_ENDIAN iff lowest-numbered byte in a word
is the most significant byte. */
/* #define BIG_ENDIAN */
/* Define NO_ARG_ARRAY if you cannot take the address of the first of a
* group of arguments and treat it as an array of the arguments. */
/* #define NO_ARG_ARRAY */
/* Define WORD_MACHINE if addresses and such have
* to be corrected before they can be used as byte counts. */
/* #define WORD_MACHINE */
/* Define how to take a char and sign-extend into an int.
On machines where char is signed, this is a no-op. */
#define SIGN_EXTEND_CHAR(c) (c)
/* Now define a symbol for the cpu type, if your compiler
does not define it automatically:
Ones defined so far include vax, m68000, ns16000, pyramid,
orion, tahoe, APOLLO and many others */
#define INTEL386
/* Use type int rather than a union, to represent Lisp_Object */
/* This is desirable for most machines. */
#define NO_UNION_TYPE
/* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend
the 24-bit bit field into an int. In other words, if bit fields
are always unsigned.
If you use NO_UNION_TYPE, this flag does not matter. */
#define EXPLICIT_SIGN_EXTEND
/* Data type of load average, as read out of kmem. */
/* #define LOAD_AVE_TYPE long */
/* Convert that into an integer that is 100 for a load average of 1.0 */
/* #define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / FSCALE) */
/* Define CANNOT_DUMP on machines where unexec does not work.
Then the function dump-emacs will not be defined
and temacs will do (load "loadup") automatically unless told otherwise. */
/* #define CANNOT_DUMP */
/* Define VIRT_ADDR_VARIES if the virtual addresses of
pure and impure space as loaded can vary, and even their
relative order cannot be relied on.
Otherwise Emacs assumes that text space precedes data space,
numerically. */
/* #define VIRT_ADDR_VARIES */
/* Define C_ALLOCA if this machine does not support a true alloca
and the one written in C should be used instead.
Define HAVE_ALLOCA to say that the system provides a properly
working alloca function and it should be used.
Define neither one if an assembler-language alloca
in the file alloca.s should be used. */
#define HAVE_ALLOCA
#define alloca(x) __builtin_alloca(x)
/* Define NO_REMAP if memory segmentation makes it not work well
to change the boundary between the text section and data section
when Emacs is dumped. If you define this, the preloaded Lisp
code will not be sharable; but that's better than failing completely. */
#define NO_REMAP
/* We need a little extra space, see ../../lisp/loadup.el */
#define PURESIZE 210000
/* MS-DOS specific C utilities. Coded by Morten Welinder 1993
Copyright (C) 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. */
/* Note: some of the stuff here was taken from end of sysdep.c in demacs. */
#include "config.h"
#ifdef MSDOS
#include "lisp.h"
#include <stdio.h>
#include <stdlib.h>
#include <sys/param.h>
#include <sys/time.h>
#include <dos.h>
#include "dosfns.h"
#include "msdos.h"
#include "systime.h"
#include "termhooks.h"
#include "frame.h"
#include <go32.h>
#include <pc.h>
#include <ctype.h>
/* #include <process.h> */
/* Damn that local process.h! Instead we can define P_WAIT ourselves. */
#define P_WAIT 1
static int break_stat; /* BREAK check mode status. */
static int stdin_stat; /* stdin IOCTL status. */
static int extended_kbd; /* 101 (102) keyboard present. */
int have_mouse; /* Mouse present? */
static int mouse_last_x;
static int mouse_last_y;
/* Turn off Dos' Ctrl-C checking and inhibit interpretation of control chars
by Dos. Determine the keyboard type. */
int
dos_ttraw ()
{
union REGS inregs, outregs;
inregs.h.ah = 0xc0;
int86 (0x15, &inregs, &outregs);
extended_kbd = (!outregs.x.cflag) && (outregs.h.ah == 0);
break_stat = getcbrk ();
setcbrk (0);
install_ctrl_break_check ();
have_mouse = Mouse_init1 ();
inregs.x.ax = 0x4400; /* Get IOCTL status. */
inregs.x.bx = 0x00; /* 0 = stdin. */
intdos (&inregs, &outregs);
stdin_stat = outregs.h.dl;
inregs.x.dx = (outregs.x.dx | 0x0020) & 0x0027; /* raw mode */
inregs.h.al = 0x01;
intdos (&inregs, &outregs);
return !outregs.x.cflag;
}
/* Restore status of standard input and Ctrl-C checking. */
int
dos_ttcooked ()
{
union REGS inregs, outregs;
setcbrk (break_stat);
if (have_mouse) Mouse_off ();
inregs.x.ax = 0x4401; /* Set IOCTL status. */
inregs.x.bx = 0x00; /* 0 = stdin. */
inregs.x.dx = stdin_stat;
intdos (&inregs, &outregs);
return !outregs.x.cflag;
}
static unsigned short
ibmpc_translate_map[] =
{
/* --------------- 00 to 0f --------------- */
0, /* Ctrl Break */
0xff1b, /* Escape */
0xffb1, /* Keypad 1 */
0xffb2, /* Keypad 2 */
0xffb3, /* Keypad 3 */
0xffb4, /* Keypad 4 */
0xffb5, /* Keypad 5 */
0xffb6, /* Keypad 6 */
0xffb7, /* Keypad 7 */
0xffb8, /* Keypad 8 */
0xffb9, /* Keypad 9 */
0xffb0, /* Keypad 0 */
'-', '=',
0xff08, /* Backspace */
0xff74, /* (Shift) Tab [Tab doesn't use this table] */
/* --------------- 10 to 1f --------------- */
'q', 'w', 'e', 'r', 't', 'y', 'u', 'i', 'o', 'p', '[', ']',
0xff8d, /* Keypad Enter */
0, /* Ctrl */
'a', 's',
/* --------------- 20 to 2f --------------- */
'd', 'f', 'g', 'h', 'j', 'k', 'l', ';', '\'', '`',
0, /* Left shift */
'\\', 'z', 'x', 'c', 'v',
/* --------------- 30 to 3f --------------- */
'b', 'n', 'm', ',', '.',
0xffaf, /* Grey / */
0, /* Right shift */
0xffaa, /* Grey * */
0, /* Alt */
' ',
0, /* Caps Lock */
0xffbe, /* F1 */
0xffbf, /* F2 */
0xffc0, /* F3 */
0xffc1, /* F4 */
0xffc2, /* F5 */
/* --------------- 40 to 4f --------------- */
0xffc3, /* F6 */
0xffc4, /* F7 */
0xffc5, /* F8 */
0xffc6, /* F9 */
0xffc7, /* F10 */
0, /* Num Lock */
0, /* Scroll Lock */
0xff50, /* Home */
0xff52, /* Up */
0xff55, /* Page Up */
0xffad, /* Grey - */
0xff51, /* Left */
0xffb5, /* Keypad 5 */
0xff53, /* Right */
0xffab, /* Grey + */
0xff57, /* End */
/* --------------- 50 to 5f --------------- */
0xff54, /* Down */
0xff56, /* Page Down */
0xff63, /* Insert */
0xffff, /* Delete */
0xffbe, /* (Shift) F1 */
0xffbf, /* (Shift) F2 */
0xffc0, /* (Shift) F3 */
0xffc1, /* (Shift) F4 */
0xffc2, /* (Shift) F5 */
0xffc3, /* (Shift) F6 */
0xffc4, /* (Shift) F7 */
0xffc5, /* (Shift) F8 */
0xffc6, /* (Shift) F9 */
0xffc7, /* (Shift) F10 */
0xffbe, /* (Ctrl) F1 */
0xffbf, /* (Ctrl) F2 */
/* --------------- 60 to 6f --------------- */
0xffc0, /* (Ctrl) F3 */
0xffc1, /* (Ctrl) F4 */
0xffc2, /* (Ctrl) F5 */
0xffc3, /* (Ctrl) F6 */
0xffc4, /* (Ctrl) F7 */
0xffc5, /* (Ctrl) F8 */
0xffc6, /* (Ctrl) F9 */
0xffc7, /* (Ctrl) F10 */
0xffbe, /* (Alt) F1 */
0xffbf, /* (Alt) F2 */
0xffc0, /* (Alt) F3 */
0xffc1, /* (Alt) F4 */
0xffc2, /* (Alt) F5 */
0xffc3, /* (Alt) F6 */
0xffc4, /* (Alt) F7 */
0xffc5, /* (Alt) F8 */
/* --------------- 70 to 7f --------------- */
0xffc6, /* (Alt) F9 */
0xffc7, /* (Alt) F10 */
0xff6d, /* (Ctrl) Sys Rq */
0xff51, /* (Ctrl) Left */
0xff53, /* (Ctrl) Right */
0xff57, /* (Ctrl) End */
0xff56, /* (Ctrl) Page Down */
0xff50, /* (Ctrl) Home */
'1', '2', '3', '4', '5', '6', '7', '8', /* (Alt) */
/* --------------- 80 to 8f --------------- */
'9', '0', '-', '=', /* (Alt) */
0xff55, /* (Ctrl) Page Up */
0xffc8, /* F11 */
0xffc9, /* F12 */
0xffc8, /* (Shift) F11 */
0xffc9, /* (Shift) F12 */
0xffc8, /* (Ctrl) F11 */
0xffc9, /* (Ctrl) F12 */
0xffc8, /* (Alt) F11 */
0xffc9, /* (Alt) F12 */
0xff52, /* (Ctrl) Up */
0xffae, /* (Ctrl) Grey - */
0xffb5, /* (Ctrl) Keypad 5 */
/* --------------- 90 to 9f --------------- */
0xffab, /* (Ctrl) Grey + */
0xff54, /* (Ctrl) Down */
0xff63, /* (Ctrl) Insert */
0xffff, /* (Ctrl) Delete */
0xff09, /* (Ctrl) Tab */
0xffaf, /* (Ctrl) Grey / */
0xffaa, /* (Ctrl) Grey * */
0xff50, /* (Alt) Home */
0xff52, /* (Alt) Up */
0xff55, /* (Alt) Page Up */
0, /* NO KEY */
0xff51, /* (Alt) Left */
0, /* NO KEY */
0xff53, /* (Alt) Right */
0, /* NO KEY */
0xff57, /* (Alt) End */
/* --------------- a0 to af --------------- */
0xff54, /* (Alt) Down */
0xff56, /* (Alt) Page Down */
0xff63, /* (Alt) Insert */
0xffff, /* (Alt) Delete */
0xffaf, /* (Alt) Grey / */
0xff09, /* (Alt) Tab */
0xff0d /* (Alt) Enter */
};
/* Get a char from keyboard. Function keys are put into the event queue. */
static int
dos_rawgetc ()
{
struct input_event event;
struct timeval tv;
union REGS regs;
int ctrl_p, alt_p, shift_p;
/* Calculate modifier bits */
regs.h.ah = extended_kbd ? 0x12 : 0x02;
int86 (0x16, &regs, &regs);
ctrl_p = ((regs.h.al & 4) != 0);
shift_p = ((regs.h.al & 3) != 0);
alt_p = ((extended_kbd ? (regs.h.ah & 2) : (regs.h.al & 8)) != 0);
while (kbhit ())
{
union REGS regs;
register unsigned char c;
int sc, code;
regs.h.ah = extended_kbd ? 0x10 : 0x00;
int86 (0x16, &regs, &regs);
c = regs.h.al;
sc = regs.h.ah;
/* Determine from the scan code if a keypad key was pressed. */
if (c >= '0' && c <= '9' && sc > 0xb)
sc = (c == '0') ? 0xb : (c - '0' + 1), c = 0;
else if (sc == 0xe0)
{
switch (c)
{
case 10: /* Ctrl Enter */
case 13:
sc = 0x1c;
break;
case '.': /* Decimal point or decimal comma */
case ',':
sc = 0x53;
break;
case '/':
sc = 0x35;
break;
default:
sc = 0;
};
c = 0;
}
if (c == 0
|| c == ' '
|| alt_p
|| (ctrl_p && shift_p)
|| (c == 0xe0 && sc != 0) /* Pseudo-key */
|| sc == 0x37 /* Grey * */
|| sc == 0x4a /* Grey - */
|| sc == 0x4e /* Grey + */
|| sc == 0x0e) /* Back space *key*, not Ctrl-h */
{
if (sc >= (sizeof (ibmpc_translate_map) / sizeof (short)))
code = 0;
else
code = ibmpc_translate_map[sc];