[bpt/emacs.git] / src / dosfns.c

/* 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"

DEFUN ("mode25", Fmode25, Smode25, 0, 0, "", "\
Changes the number of rows to 25.")
  ()
{
  union REGS regs;

#ifdef HAVE_X_WINDOWS
  if (!inhibit_window_system)
    return Qnil;
#endif
  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);
  Fset_frame_size (Fselected_frame (), ScreenCols (), ScreenRows ());
  Frecenter (Qnil);
  Fredraw_display ();
  if (have_mouse) mouse_init ();
  return Qnil;
}

DEFUN ("mode4350", Fmode4350, Smode4350, 0, 0, "", "\
Changes the number of rows to 43 (EGA) or 50 (VGA).")
  ()
{
  union REGS regs;

#ifdef HAVE_X_WINDOWS
  if (!inhibit_window_system)
    return Qnil;
#endif
  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);
  Fset_frame_size (Fselected_frame (), ScreenCols (), ScreenRows ());
  Frecenter (Qnil);
  Fredraw_display ();
  if (have_mouse) mouse_init ();
  return Qnil;
}

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;
}
\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:\n\
	437	United States\n\
	850	Multilingual (Latin I)\n\
	852	Slavic (Latin II)\n\
	857	Turkish\n\
	860	Portugal\n\
	861	Iceland\n\
	863	Canada (French)\n\
	865	Norway/Denmark");

  DEFVAR_LISP ("dos-version", &Vdos_version,
    "The (MAJOR . MINOR) Dos version (subject to modification with setver).");
}
#endif /* MSDOS */
Commit	Line	Data
1b94449f RS	1	/* MS-DOS specific Lisp utilities. Coded by Manabu Higashida, 1991.
	2	Major changes May-July 1993 Morten Welinder (only 10% original code left)
	3	Copyright (C) 1991, 1993 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
48984716	22	#include <config.h>
1b94449f RS	23
	24	#ifdef MSDOS
	25	/* The entire file is within this conditional */
	26
	27	#include <stdio.h>
	28	#include <dos.h>
	29	#include "lisp.h"
	30	#include "buffer.h"
	31	#include "termchar.h"
	32	#include "termhooks.h"
	33	#include "frame.h"
	34	#include "dosfns.h"
	35	#include "msdos.h"
	36
24ba360b RS	37	DEFUN ("mode25", Fmode25, Smode25, 0, 0, "", "\
24ba360b RS	38	Changes the number of rows to 25.")
1b94449f RS	39	()
	40	{
	41	union REGS regs;
	42
24ba360b RS	43	#ifdef HAVE_X_WINDOWS
	44	if (!inhibit_window_system)
	45	return Qnil;
	46	#endif
	47	if (have_mouse) mouse_off ();
1b94449f RS	48	regs.x.ax = 3;
	49	int86 (0x10, &regs, &regs);
	50	regs.x.ax = 0x1101;
	51	regs.h.bl = 0;
	52	int86 (0x10, &regs, &regs);
	53	regs.x.ax = 0x1200;
	54	regs.h.bl = 32;
	55	int86 (0x10, &regs, &regs);
	56	regs.x.ax = 3;
	57	int86 (0x10, &regs, &regs);
24ba360b	58	Fset_frame_size (Fselected_frame (), ScreenCols (), ScreenRows ());
1b94449f RS	59	Frecenter (Qnil);
1b94449f RS	60	Fredraw_display ();
24ba360b RS	61	if (have_mouse) mouse_init ();
24ba360b RS	62	return Qnil;
1b94449f RS	63	}
1b94449f RS	64
24ba360b RS	65	DEFUN ("mode4350", Fmode4350, Smode4350, 0, 0, "", "\
24ba360b RS	66	Changes the number of rows to 43 (EGA) or 50 (VGA).")
1b94449f RS	67	()
	68	{
	69	union REGS regs;
	70
24ba360b RS	71	#ifdef HAVE_X_WINDOWS
	72	if (!inhibit_window_system)
	73	return Qnil;
	74	#endif
	75	if (have_mouse) mouse_off ();
1b94449f RS	76	regs.x.ax = 3;
	77	int86 (0x10, &regs, &regs);
	78	regs.x.ax = 0x1112;
	79	regs.h.bl = 0;
	80	int86 (0x10, &regs, &regs);
	81	regs.x.ax = 0x1200;
	82	regs.h.bl = 32;
	83	int86 (0x10, &regs, &regs);
	84	regs.x.ax = 0x0100;
	85	regs.x.cx = 7;
	86	int86 (0x10, &regs, &regs);
24ba360b	87	Fset_frame_size (Fselected_frame (), ScreenCols (), ScreenRows ());
1b94449f RS	88	Frecenter (Qnil);
1b94449f RS	89	Fredraw_display ();
24ba360b RS	90	if (have_mouse) mouse_init ();
24ba360b RS	91	return Qnil;
1b94449f RS	92	}
	93
	94	DEFUN ("int86", Fint86, Sint86, 2, 2, 0,
	95	"Call specific MSDOS interrupt number INTERRUPT with REGISTERS.\n\
	96	Return the updated REGISTER vector.\n\
	97	\n\
	98	INTERRUPT should be an integer in the range 0 to 255.\n\
	99	REGISTERS should be a vector produced by `make-register' and\n\
	100	`set-register-value'.")
	101	(intno, regs)
	102	Lisp_Object intno, regs;
	103	{
	104	register int i;
	105	int no;
	106	union REGS inregs, outregs;
	107	Lisp_Object val;
	108
	109	CHECK_NUMBER (intno, 0);
	110	no = (unsigned long) XINT (intno);
	111	CHECK_VECTOR (regs, 1);
	112	if (no < 0 \|\| no > 0xff \|\| XVECTOR (regs)-> size != 8)
	113	return Qnil;
	114	for (i = 0; i < 8; i++)
	115	CHECK_NUMBER (XVECTOR (regs)->contents[i], 1);
	116
	117	inregs.x.ax = (unsigned long) XFASTINT (XVECTOR (regs)->contents[0]);
	118	inregs.x.bx = (unsigned long) XFASTINT (XVECTOR (regs)->contents[1]);
	119	inregs.x.cx = (unsigned long) XFASTINT (XVECTOR (regs)->contents[2]);
	120	inregs.x.dx = (unsigned long) XFASTINT (XVECTOR (regs)->contents[3]);
	121	inregs.x.si = (unsigned long) XFASTINT (XVECTOR (regs)->contents[4]);
	122	inregs.x.di = (unsigned long) XFASTINT (XVECTOR (regs)->contents[5]);
	123	inregs.x.cflag = (unsigned long) XFASTINT (XVECTOR (regs)->contents[6]);
	124	inregs.x.flags = (unsigned long) XFASTINT (XVECTOR (regs)->contents[7]);
	125
	126	int86 (no, &inregs, &outregs);
	127
	128	XVECTOR (regs)->contents[0] = make_number (outregs.x.ax);
	129	XVECTOR (regs)->contents[1] = make_number (outregs.x.bx);
	130	XVECTOR (regs)->contents[2] = make_number (outregs.x.cx);
	131	XVECTOR (regs)->contents[3] = make_number (outregs.x.dx);
	132	XVECTOR (regs)->contents[4] = make_number (outregs.x.si);
	133	XVECTOR (regs)->contents[5] = make_number (outregs.x.di);
	134	XVECTOR (regs)->contents[6] = make_number (outregs.x.cflag);
	135	XVECTOR (regs)->contents[7] = make_number (outregs.x.flags);
	136
	137	return regs;
	138	}
	139
	140	int dos_country_code;
	141	int dos_codepage;
	142	Lisp_Object Vdos_version;
	143
	144	void
	145	init_dosfns ()
	146	{
	147	union REGS regs;
	148	_go32_dpmi_seginfo info;
	149	_go32_dpmi_registers dpmiregs;
	150
	151	get_lim_data (); /* why the hell isn't this called elsewhere? */
	152
	153	regs.x.ax = 0x3000;
	154	intdos (&regs, &regs);
	155	Vdos_version = Fcons (make_number (regs.h.al), make_number (regs.h.ah));
156
157	/* Obtain the country code by calling Dos via Dpmi. Don't rely on GO32. */
158	info.size = (34 + 15) / 16;
159	if (_go32_dpmi_allocate_dos_memory (&info))
160	dos_country_code = 1;
161	else
162	{
163	dpmiregs.x.ax = 0x3800;
164	dpmiregs.x.ds = info.rm_segment;
165	dpmiregs.x.dx = 0;
166	dpmiregs.x.ss = dpmiregs.x.sp = 0;
167	_go32_dpmi_simulate_int (0x21, &dpmiregs);
168	dos_country_code = dpmiregs.x.bx;
169	_go32_dpmi_free_dos_memory (&info);
170	}
171
172	regs.x.ax = 0x6601;
173	intdos (&regs, &regs);
174	if (regs.x.cflag)
175	/* Estimate code page from country code */
176	switch (dos_country_code)
177	{
178	case 45: /* Denmark */
179	case 47: /* Norway */
180	dos_codepage = 865;
181	break;
182	default:
183	/* US */
184	dos_codepage = 437;
185	}
186	else
187	dos_codepage = regs.x.bx & 0xffff;
188	}
189	\f
190	/*
191	* Define everything
192	*/
193	syms_of_dosfns ()
194	{
195	defsubr (&Smode25);
196	defsubr (&Smode4350);
197	defsubr (&Sint86);
198
199	DEFVAR_INT ("dos-country-code", &dos_country_code,
200	"The country code returned by Dos when Emacs was started.\n\
201	Usually this is the international telephone prefix.");
202
203	DEFVAR_INT ("dos-codepage", &dos_codepage,
204	"The codepage active when Emacs was started.\n\
24ba360b RS	205	The following are known:\n\
	206	437 United States\n\
	207	850 Multilingual (Latin I)\n\
	208	852 Slavic (Latin II)\n\
	209	857 Turkish\n\
	210	860 Portugal\n\
	211	861 Iceland\n\
	212	863 Canada (French)\n\
1b94449f RS	213	865 Norway/Denmark");
	214
	215	DEFVAR_LISP ("dos-version", &Vdos_version,
	216	"The (MAJOR . MINOR) Dos version (subject to modification with setver).");
	217	}
	218	#endif /* MSDOS */