src/dosfns.c

   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 2, 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
  22 #include <config.h>
  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
  37 DEFUN ("mode25", Fmode25, Smode25, 0, 0, "", "\
  38 Changes the number of rows to 25.")
  39   ()
  40 {
  41   union REGS regs;
  42
  43 #ifdef HAVE_X_WINDOWS
  44   if (!inhibit_window_system)
  45     return Qnil;
  46 #endif
  47   if (have_mouse) mouse_off ();
  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);
  58   Fset_frame_size (Fselected_frame (), ScreenCols (), ScreenRows ());
  59   Frecenter (Qnil);
  60   Fredraw_display ();
  61   if (have_mouse) mouse_init ();
  62   return Qnil;
  63 }
  64
  65 DEFUN ("mode4350", Fmode4350, Smode4350, 0, 0, "", "\
  66 Changes the number of rows to 43 (EGA) or 50 (VGA).")
  67   ()
  68 {
  69   union REGS regs;
  70
  71 #ifdef HAVE_X_WINDOWS
  72   if (!inhibit_window_system)
  73     return Qnil;
  74 #endif
  75   if (have_mouse) mouse_off ();
  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);
  87   Fset_frame_size (Fselected_frame (), ScreenCols (), ScreenRows ());
  88   Frecenter (Qnil);
  89   Fredraw_display ();
  90   if (have_mouse) mouse_init ();
  91   return Qnil;
  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 #ifndef HAVE_X_WINDOWS
 141 /* Later we might want to control the mouse interface with this function,
 142    e.g., with respect to non-80 column screen modes.  */
 143
 144 DEFUN ("msdos-mouse-p", Fmsdos_mouse_p, Smsdos_mouse_p, 0, 0, 0, "\
 145 Report whether a mouse is present.")
 146      ()
 147 {
 148   if (have_mouse)
 149     return Qt;
 150   else
 151     return Qnil;
 152 }
 153
 154 DEFUN ("set-mouse-position", Fset_mouse_position, Sset_mouse_position, 3, 3, 0,
 155   "Move the mouse pointer to the center of character cell (X,Y) in FRAME.\n\
 156 WARNING:  If you use this under X windows,\n\
 157 you should call `unfocus-frame' afterwards.")
 158   (frame, x, y)
 159      Lisp_Object frame, x, y;
 160 {
 161   mouse_moveto (XINT (x), XINT (y));
 162 }
 163
 164 /* Function to translate colour names to integers.  See lisp/term/pc-win.el
 165    for its definition.  */
 166
 167 Lisp_Object Qmsdos_color_translate;
 168 #endif
 169
 170 \f
 171 int dos_country_code;
 172 int dos_codepage;
 173 Lisp_Object Vdos_version;
 174
 175 void
 176 init_dosfns ()
 177 {
 178   union REGS regs;
 179   _go32_dpmi_seginfo info;
 180   _go32_dpmi_registers dpmiregs;
 181
 182 #ifndef SYSTEM_MALLOC
 183   get_lim_data (); /* why the hell isn't this called elsewhere? */
 184 #endif
 185
 186   regs.x.ax = 0x3000;
 187   intdos (&regs, &regs);
 188   Vdos_version = Fcons (make_number (regs.h.al), make_number (regs.h.ah));
 189
 190   /* Obtain the country code by calling Dos via Dpmi.  Don't rely on GO32.  */
 191   info.size = (34 + 15) / 16;
 192   if (_go32_dpmi_allocate_dos_memory (&info))
 193     dos_country_code = 1;
 194   else
 195     {
 196       dpmiregs.x.ax = 0x3800;
 197       dpmiregs.x.ds = info.rm_segment;
 198       dpmiregs.x.dx = 0;
 199       dpmiregs.x.ss = dpmiregs.x.sp = 0;
 200       _go32_dpmi_simulate_int (0x21, &dpmiregs);
 201       dos_country_code = dpmiregs.x.bx;
 202       _go32_dpmi_free_dos_memory (&info);
 203     }
 204
 205   regs.x.ax = 0x6601;
 206   intdos (&regs, &regs);
 207   if (regs.x.cflag)
 208     /* Estimate code page from country code */
 209     switch (dos_country_code)
 210       {
 211       case 45: /* Denmark */
 212       case 47: /* Norway */
 213         dos_codepage = 865;
 214         break;
 215       default:
 216         /* US */
 217         dos_codepage = 437;
 218       }
 219   else
 220     dos_codepage = regs.x.bx & 0xffff;
 221 }
 222 \f
 223 /*
 224  *      Define everything
 225  */
 226 syms_of_dosfns ()
 227 {
 228   defsubr (&Smode25);
 229   defsubr (&Smode4350);
 230   defsubr (&Sint86);
 231 #ifndef HAVE_X_WINDOWS
 232   defsubr (&Smsdos_mouse_p);
 233   defsubr (&Sset_mouse_position);
 234
 235   Qmsdos_color_translate = intern ("msdos-color-translate");
 236   staticpro (&Qmsdos_color_translate);
 237 #endif
 238
 239   DEFVAR_INT ("dos-country-code", &dos_country_code,
 240     "The country code returned by Dos when Emacs was started.\n\
 241 Usually this is the international telephone prefix.");
 242
 243   DEFVAR_INT ("dos-codepage", &dos_codepage,
 244               "The codepage active when Emacs was started.\n\
 245 The following are known:\n\
 246         437     United States\n\
 247         850     Multilingual (Latin I)\n\
 248         852     Slavic (Latin II)\n\
 249         857     Turkish\n\
 250         860     Portugal\n\
 251         861     Iceland\n\
 252         863     Canada (French)\n\
 253         865     Norway/Denmark");
 254
 255   DEFVAR_LISP ("dos-version", &Vdos_version,
 256     "The (MAJOR . MINOR) Dos version (subject to modification with setver).");
 257 }
 258 #endif /* MSDOS */