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 #include <go32.h>
  37
  38 DEFUN ("mode25", Fmode25, Smode25, 0, 0, "", "\
  39 Changes the number of rows to 25.")
  40   ()
  41 {
  42   union REGS regs;
  43
  44 #ifdef HAVE_X_WINDOWS
  45   if (!inhibit_window_system)
  46     return Qnil;
  47 #endif
  48   mouse_off ();
  49   regs.x.ax = 3;
  50   int86 (0x10, &regs, &regs);
  51   regs.x.ax = 0x1101;
  52   regs.h.bl = 0;
  53   int86 (0x10, &regs, &regs);
  54   regs.x.ax = 0x1200;
  55   regs.h.bl = 32;
  56   int86 (0x10, &regs, &regs);
  57   regs.x.ax = 3;
  58   int86 (0x10, &regs, &regs);
  59   Fset_frame_size (Fselected_frame (), ScreenCols (), ScreenRows ());
  60   Frecenter (Qnil);
  61   Fredraw_display ();
  62   if (have_mouse) mouse_init ();
  63   return Qnil;
  64 }
  65
  66 DEFUN ("mode4350", Fmode4350, Smode4350, 0, 0, "", "\
  67 Changes the number of rows to 43 (EGA) or 50 (VGA).")
  68   ()
  69 {
  70   union REGS regs;
  71
  72 #ifdef HAVE_X_WINDOWS
  73   if (!inhibit_window_system)
  74     return Qnil;
  75 #endif
  76   mouse_off ();
  77   regs.x.ax = 3;
  78   int86 (0x10, &regs, &regs);
  79   regs.x.ax = 0x1112;
  80   regs.h.bl = 0;
  81   int86 (0x10, &regs, &regs);
  82   regs.x.ax = 0x1200;
  83   regs.h.bl = 32;
  84   int86 (0x10, &regs, &regs);
  85   regs.x.ax = 0x0100;
  86   regs.x.cx = 7;
  87   int86 (0x10, &regs, &regs);
  88   Fset_frame_size (Fselected_frame (), ScreenCols (), ScreenRows ());
  89   Frecenter (Qnil);
  90   Fredraw_display ();
  91   if (have_mouse) mouse_init ();
  92   return Qnil;
  93 }
  94
  95 DEFUN ("int86", Fint86, Sint86, 2, 2, 0,
  96   "Call specific MSDOS interrupt number INTERRUPT with REGISTERS.\n\
  97 Return the updated REGISTER vector.\n\
  98 \n\
  99 INTERRUPT should be an integer in the range 0 to 255.\n\
 100 REGISTERS should be a vector produced by `make-register' and\n\
 101 `set-register-value'.")
 102   (interrupt, registers)
 103   Lisp_Object interrupt, registers;
 104 {
 105   register int i;
 106   int no;
 107   union REGS inregs, outregs;
 108   Lisp_Object val;
 109
 110   CHECK_NUMBER (interrupt, 0);
 111   no = (unsigned long) XINT (interrupt);
 112   CHECK_VECTOR (registers, 1);
 113   if (no < 0 || no > 0xff || XVECTOR (registers)-> size != 8)
 114     return Qnil;
 115   for (i = 0; i < 8; i++)
 116     CHECK_NUMBER (XVECTOR (registers)->contents[i], 1);
 117
 118   inregs.x.ax    = (unsigned long) XFASTINT (XVECTOR (registers)->contents[0]);
 119   inregs.x.bx    = (unsigned long) XFASTINT (XVECTOR (registers)->contents[1]);
 120   inregs.x.cx    = (unsigned long) XFASTINT (XVECTOR (registers)->contents[2]);
 121   inregs.x.dx    = (unsigned long) XFASTINT (XVECTOR (registers)->contents[3]);
 122   inregs.x.si    = (unsigned long) XFASTINT (XVECTOR (registers)->contents[4]);
 123   inregs.x.di    = (unsigned long) XFASTINT (XVECTOR (registers)->contents[5]);
 124   inregs.x.cflag = (unsigned long) XFASTINT (XVECTOR (registers)->contents[6]);
 125   inregs.x.flags = (unsigned long) XFASTINT (XVECTOR (registers)->contents[7]);
 126
 127   int86 (no, &inregs, &outregs);
 128
 129   XVECTOR (registers)->contents[0] = make_number (outregs.x.ax);
 130   XVECTOR (registers)->contents[1] = make_number (outregs.x.bx);
 131   XVECTOR (registers)->contents[2] = make_number (outregs.x.cx);
 132   XVECTOR (registers)->contents[3] = make_number (outregs.x.dx);
 133   XVECTOR (registers)->contents[4] = make_number (outregs.x.si);
 134   XVECTOR (registers)->contents[5] = make_number (outregs.x.di);
 135   XVECTOR (registers)->contents[6] = make_number (outregs.x.cflag);
 136   XVECTOR (registers)->contents[7] = make_number (outregs.x.flags);
 137
 138   return registers;
 139 }
 140
 141 DEFUN ("msdos-memget", Fdos_memget, Sdos_memget, 2, 2, 0,
 142   "Read DOS memory at offset ADDRESS into VECTOR.\n\
 143 Return the updated VECTOR.")
 144   (address, vector)
 145   Lisp_Object address, vector;
 146 {
 147   register int i;
 148   int offs, len;
 149   char *buf;
 150   Lisp_Object val;
 151
 152   CHECK_NUMBER (address, 0);
 153   offs = (unsigned long) XINT (address);
 154   CHECK_VECTOR (vector, 1);
 155   len = XVECTOR (vector)-> size;
 156   if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len)
 157     return Qnil;
 158   buf = alloca (len);
 159   dosmemget (offs, len, buf);
 160
 161   for (i = 0; i < len; i++)
 162     XVECTOR (vector)->contents[i] = make_number (buf[i]);
 163
 164   return vector;
 165 }
 166
 167 DEFUN ("msdos-memput", Fdos_memput, Sdos_memput, 2, 2, 0,
 168   "Write DOS memory at offset ADDRESS from VECTOR.")
 169   (address, vector)
 170   Lisp_Object address, vector;
 171 {
 172   register int i;
 173   int offs, len;
 174   char *buf;
 175   Lisp_Object val;
 176
 177   CHECK_NUMBER (address, 0);
 178   offs = (unsigned long) XINT (address);
 179   CHECK_VECTOR (vector, 1);
 180   len = XVECTOR (vector)-> size;
 181   if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len)
 182     return Qnil;
 183   buf = alloca (len);
 184
 185   for (i = 0; i < len; i++)
 186     {
 187       CHECK_NUMBER (XVECTOR (vector)->contents[i], 1);
 188       buf[i] = (unsigned char) XFASTINT (XVECTOR (vector)->contents[i]) & 0xFF;
 189     }
 190
 191   dosmemput (buf, len, offs);
 192   return Qt;
 193 }
 194
 195 DEFUN ("msdos-set-keyboard", Fmsdos_set_keyboard, Smsdos_set_keyboard, 1, 2, 0,
 196   "Set keyboard layout according to COUNTRY-CODE.\n\
 197 If the optional argument ALLKEYS is non-nil, the keyboard is mapped for\n\
 198 all keys; otherwise it is only used when the ALT key is pressed.\n\
 199 The current keyboard layout is available in dos-keyboard-code.")
 200   (country_code, allkeys)
 201   Lisp_Object country_code;
 202 {
 203   CHECK_NUMBER (country_code, 0);
 204   if (!dos_set_keyboard (XINT (country_code), !NILP (allkeys)))
 205     return Qnil;
 206   return Qt;
 207 }
 208
 209 #ifndef HAVE_X_WINDOWS
 210 /* Later we might want to control the mouse interface with this function,
 211    e.g., with respect to non-80 column screen modes.  */
 212
 213 DEFUN ("msdos-mouse-p", Fmsdos_mouse_p, Smsdos_mouse_p, 0, 0, 0, "\
 214 Report whether a mouse is present.")
 215      ()
 216 {
 217   if (have_mouse)
 218     return Qt;
 219   else
 220     return Qnil;
 221 }
 222
 223 DEFUN ("set-mouse-position", Fset_mouse_position, Sset_mouse_position, 3, 3, 0,
 224   "Move the mouse pointer to the center of character cell (X,Y) in FRAME.\n\
 225 WARNING:  If you use this under X windows,\n\
 226 you should call `unfocus-frame' afterwards.")
 227   (frame, x, y)
 228      Lisp_Object frame, x, y;
 229 {
 230   mouse_moveto (XINT (x), XINT (y));
 231   return Qnil;
 232 }
 233
 234 /* Function to translate colour names to integers.  See lisp/term/pc-win.el
 235    for its definition.  */
 236
 237 Lisp_Object Qmsdos_color_translate;
 238 #endif
 239
 240
 241 DEFUN ("msdos-mouse-init", Fmsdos_mouse_init, Smsdos_mouse_init, 0, 0, "",
 242   "Initialize and enable mouse if available.")
 243   ()
 244 {
 245   if (have_mouse)
 246     {
 247       have_mouse = 1;
 248       mouse_init ();
 249       return Qt;
 250     }
 251   return Qnil;
 252 }
 253
 254 DEFUN ("msdos-mouse-enable", Fmsdos_mouse_enable, Smsdos_mouse_enable, 0, 0, "",
 255   "Enable mouse if available.")
 256   ()
 257 {
 258   if (have_mouse)
 259     {
 260       have_mouse = 1;
 261       mouse_on ();
 262     }
 263   return have_mouse ? Qt : Qnil;
 264 }
 265
 266 DEFUN ("msdos-mouse-disable", Fmsdos_mouse_disable, Smsdos_mouse_disable, 0, 0, "",
 267   "Disable mouse if available.")
 268   ()
 269 {
 270   mouse_off ();
 271   if (have_mouse) have_mouse = -1;
 272   return Qnil;
 273 }
 274
 275 DEFUN ("insert-startup-screen", Finsert_startup_screen, Sinsert_startup_screen, 0, 0, "", "\
 276 Insert copy of screen contents prior to starting emacs.\n\
 277 Return nil if startup screen is not available.")
 278   ()
 279 {
 280   char *s;
 281   int rows, cols;
 282   int i, j;
 283
 284   if (!dos_get_saved_screen (&s, &rows, &cols))
 285     return Qnil;
 286
 287   for (i = 0; i < rows; i++)
 288     {
 289       for (j = 0; j < cols; j++)
 290         {
 291           insert_char (*s, 1);
 292           s += 2;
 293         }
 294       insert_char ('\n', 1);
 295     }
 296
 297   return Qt;
 298 }
 299
 300 \f
 301 /* country info */
 302 int dos_country_code;
 303 int dos_codepage;
 304 int dos_timezone_offset;
 305 int dos_decimal_point;
 306 int dos_keyboard_layout;
 307 unsigned char dos_country_info[DOS_COUNTRY_INFO];
 308
 309 int dos_hyper_key;
 310 int dos_super_key;
 311 int dos_keypad_mode;
 312
 313 Lisp_Object Vdos_version;
 314 Lisp_Object Vdos_display_scancodes;
 315
 316 void
 317 init_dosfns ()
 318 {
 319   union REGS regs;
 320   _go32_dpmi_seginfo info;
 321   _go32_dpmi_registers dpmiregs;
 322
 323 #ifndef SYSTEM_MALLOC
 324   get_lim_data (); /* why the hell isn't this called elsewhere? */
 325 #endif
 326
 327   regs.x.ax = 0x3000;
 328   intdos (&regs, &regs);
 329   Vdos_version = Fcons (make_number (regs.h.al), make_number (regs.h.ah));
 330
 331   /* Obtain the country code by calling Dos via Dpmi.  Don't rely on GO32.  */
 332   info.size = (sizeof(dos_country_info) + 15) / 16;
 333   if (_go32_dpmi_allocate_dos_memory (&info))
 334     dos_country_code = 1;
 335   else
 336     {
 337       dpmiregs.x.ax = 0x3800;
 338       dpmiregs.x.ds = info.rm_segment;
 339       dpmiregs.x.dx = 0;
 340       dpmiregs.x.ss = dpmiregs.x.sp = 0;
 341       _go32_dpmi_simulate_int (0x21, &dpmiregs);
 342       dos_country_code = dpmiregs.x.bx;
 343       dosmemget (info.rm_segment * 16, DOS_COUNTRY_INFO, dos_country_info);
 344       _go32_dpmi_free_dos_memory (&info);
 345     }
 346   dos_set_keyboard (dos_country_code, 0);
 347
 348   regs.x.ax = 0x6601;
 349   intdos (&regs, &regs);
 350   if (regs.x.cflag)
 351     /* Estimate code page from country code */
 352     switch (dos_country_code)
 353       {
 354       case 45: /* Denmark */
 355       case 47: /* Norway */
 356         dos_codepage = 865;
 357         break;
 358       default:
 359         /* US */
 360         dos_codepage = 437;
 361       }
 362   else
 363     dos_codepage = regs.x.bx & 0xffff;
 364 }
 365 \f
 366 /*
 367  *      Define everything
 368  */
 369 syms_of_dosfns ()
 370 {
 371   defsubr (&Smode25);
 372   defsubr (&Smode4350);
 373   defsubr (&Sint86);
 374   defsubr (&Sdos_memget);
 375   defsubr (&Sdos_memput);
 376   defsubr (&Smsdos_mouse_init);
 377   defsubr (&Smsdos_mouse_enable);
 378   defsubr (&Smsdos_set_keyboard);
 379   defsubr (&Sinsert_startup_screen);
 380   defsubr (&Smsdos_mouse_disable);
 381 #ifndef HAVE_X_WINDOWS
 382   defsubr (&Smsdos_mouse_p);
 383   defsubr (&Sset_mouse_position);
 384
 385   Qmsdos_color_translate = intern ("msdos-color-translate");
 386   staticpro (&Qmsdos_color_translate);
 387 #endif
 388
 389   DEFVAR_INT ("dos-country-code", &dos_country_code,
 390     "The country code returned by Dos when Emacs was started.\n\
 391 Usually this is the international telephone prefix.");
 392
 393   DEFVAR_INT ("dos-codepage", &dos_codepage,
 394     "The codepage active when Emacs was started.\n\
 395 The following are known:\n\
 396         437     United States\n\
 397         850     Multilingual (Latin I)\n\
 398         852     Slavic (Latin II)\n\
 399         857     Turkish\n\
 400         860     Portugal\n\
 401         861     Iceland\n\
 402         863     Canada (French)\n\
 403         865     Norway/Denmark");
 404
 405   DEFVAR_INT ("dos-timezone-offset", &dos_timezone_offset,
 406     "The current timezone offset to UTC in minutes.
 407 Implicitly modified when the TZ variable is changed.");
 408
 409   DEFVAR_LISP ("dos-version", &Vdos_version,
 410     "The (MAJOR . MINOR) Dos version (subject to modification with setver).");
 411
 412   DEFVAR_LISP ("dos-display-scancodes", &Vdos_display_scancodes,
 413     "*When non-nil, the keyboard scan-codes are displayed at the bottom right\n\
 414 corner of the display (typically at the end of the mode line).\n\
 415 The output format is: scan code:char code*modifiers.");
 416   Vdos_display_scancodes = Qnil;
 417
 418   DEFVAR_INT ("dos-hyper-key", &dos_hyper_key,
 419     "*If set to 1, use right ALT key as hyper key.\n\
 420 If set to 2, use right CTRL key as hyper key.");
 421   dos_hyper_key = 0;
 422
 423   DEFVAR_INT ("dos-super-key", &dos_super_key,
 424     "*If set to 1, use right ALT key as super key.\n\
 425 If set to 2, use right CTRL key as super key.");
 426   dos_super_key = 0;
 427
 428   DEFVAR_INT ("dos-keypad-mode", &dos_keypad_mode,
 429     "*Controls what key code is returned by a key in the numeric keypad.\n\
 430 The `numlock ON' action is only taken if no modifier keys are pressed.\n\
 431 The value is an integer constructed by adding the following bits together:\n\
 432  \n\
 433   0x00  Digit key returns digit    (if numlock ON)\n\
 434   0x01  Digit key returns kp-digit (if numlock ON)\n\
 435   0x02  Digit key returns M-digit  (if numlock ON)\n\
 436   0x03  Digit key returns edit key (if numlock ON)\n\
 437  \n\
 438   0x00  Grey key returns char      (if numlock ON)\n\
 439   0x04  Grey key returns kp-key    (if numlock ON)\n\
 440  \n\
 441   0x00  Digit key returns digit    (if numlock OFF)\n\
 442   0x10  Digit key returns kp-digit (if numlock OFF)\n\
 443   0x20  Digit key returns M-digit  (if numlock OFF)\n\
 444   0x30  Digit key returns edit key (if numlock OFF)\n\
 445  \n\
 446   0x00  Grey key returns char      (if numlock OFF)\n\
 447   0x40  Grey key returns kp-key    (if numlock OFF)\n\
 448  \n\
 449   0x200 ALT-0..ALT-9 in top-row produces shifted codes.");
 450   dos_keypad_mode = 0x75;
 451
 452   DEFVAR_INT ("dos-keyboard-layout", &dos_keyboard_layout,
 453     "Contains the country code for the current keyboard layout.\n\
 454 Use msdos-set-keyboard to select another keyboard layout.");
 455   dos_keyboard_layout = 1;      /* US */
 456
 457   DEFVAR_INT ("dos-decimal-point", &dos_decimal_point,
 458     "If non-zero, it contains the character to be returned when the\n\
 459 decimal point key in the numeric keypad is pressed when Num Lock is on.\n\
 460 If zero, the decimal point key returns the country code specific value.");
 461   dos_decimal_point = 0;
 462 }
 463 #endif /* MSDOS */