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   (intno, regs)
 103   Lisp_Object intno, regs;
 104 {
 105   register int i;
 106   int no;
 107   union REGS inregs, outregs;
 108   Lisp_Object val;
 109
 110   CHECK_NUMBER (intno, 0);
 111   no = (unsigned long) XINT (intno);
 112   CHECK_VECTOR (regs, 1);
 113   if (no < 0 || no > 0xff || XVECTOR (regs)-> size != 8)
 114     return Qnil;
 115   for (i = 0; i < 8; i++)
 116     CHECK_NUMBER (XVECTOR (regs)->contents[i], 1);
 117
 118   inregs.x.ax    = (unsigned long) XFASTINT (XVECTOR (regs)->contents[0]);
 119   inregs.x.bx    = (unsigned long) XFASTINT (XVECTOR (regs)->contents[1]);
 120   inregs.x.cx    = (unsigned long) XFASTINT (XVECTOR (regs)->contents[2]);
 121   inregs.x.dx    = (unsigned long) XFASTINT (XVECTOR (regs)->contents[3]);
 122   inregs.x.si    = (unsigned long) XFASTINT (XVECTOR (regs)->contents[4]);
 123   inregs.x.di    = (unsigned long) XFASTINT (XVECTOR (regs)->contents[5]);
 124   inregs.x.cflag = (unsigned long) XFASTINT (XVECTOR (regs)->contents[6]);
 125   inregs.x.flags = (unsigned long) XFASTINT (XVECTOR (regs)->contents[7]);
 126
 127   int86 (no, &inregs, &outregs);
 128
 129   XVECTOR (regs)->contents[0] = make_number (outregs.x.ax);
 130   XVECTOR (regs)->contents[1] = make_number (outregs.x.bx);
 131   XVECTOR (regs)->contents[2] = make_number (outregs.x.cx);
 132   XVECTOR (regs)->contents[3] = make_number (outregs.x.dx);
 133   XVECTOR (regs)->contents[4] = make_number (outregs.x.si);
 134   XVECTOR (regs)->contents[5] = make_number (outregs.x.di);
 135   XVECTOR (regs)->contents[6] = make_number (outregs.x.cflag);
 136   XVECTOR (regs)->contents[7] = make_number (outregs.x.flags);
 137
 138   return regs;
 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   (addr, v)
 145   Lisp_Object addr, v;
 146 {
 147   register int i;
 148   int offs, len;
 149   char *buf;
 150   Lisp_Object val;
 151
 152   CHECK_NUMBER (addr, 0);
 153   offs = (unsigned long) XINT (addr);
 154   CHECK_VECTOR (v, 1);
 155   len = XVECTOR (v)-> size;
 156   if (len < 1 || len > 2048 || addr < 0 || addr > 0xfffff - len)
 157     return Qnil;
 158   buf = alloca (len);
 159   dosmemget (offs, len, buf);
 160
 161   for (i = 0; i < len; i++)
 162     XVECTOR (v)->contents[i] = make_number (buf[i]);
 163
 164   return v;
 165 }
 166
 167 DEFUN ("msdos-memput", Fdos_memput, Sdos_memput, 2, 2, 0,
 168   "Write DOS memory at offset ADDRESS from VECTOR.")
 169   (addr, v)
 170   Lisp_Object addr, v;
 171 {
 172   register int i;
 173   int offs, len;
 174   char *buf;
 175   Lisp_Object val;
 176
 177   CHECK_NUMBER (addr, 0);
 178   offs = (unsigned long) XINT (addr);
 179   CHECK_VECTOR (v, 1);
 180   len = XVECTOR (v)-> size;
 181   if (len < 1 || len > 2048 || addr < 0 || addr > 0xfffff - len)
 182     return Qnil;
 183   buf = alloca (len);
 184
 185   for (i = 0; i < len; i++)
 186     {
 187       CHECK_NUMBER (XVECTOR (v)->contents[i], 1);
 188       buf[i] = (unsigned char) XFASTINT (XVECTOR (v)->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.\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 Lisp_Object Vdos_menubar_clock;
 316 Lisp_Object Vdos_timer_hooks;
 317
 318 void
 319 init_dosfns ()
 320 {
 321   union REGS regs;
 322   _go32_dpmi_seginfo info;
 323   _go32_dpmi_registers dpmiregs;
 324
 325 #ifndef SYSTEM_MALLOC
 326   get_lim_data (); /* why the hell isn't this called elsewhere? */
 327 #endif
 328
 329   regs.x.ax = 0x3000;
 330   intdos (&regs, &regs);
 331   Vdos_version = Fcons (make_number (regs.h.al), make_number (regs.h.ah));
 332
 333   /* Obtain the country code by calling Dos via Dpmi.  Don't rely on GO32.  */
 334   info.size = (sizeof(dos_country_info) + 15) / 16;
 335   if (_go32_dpmi_allocate_dos_memory (&info))
 336     dos_country_code = 1;
 337   else
 338     {
 339       dpmiregs.x.ax = 0x3800;
 340       dpmiregs.x.ds = info.rm_segment;
 341       dpmiregs.x.dx = 0;
 342       dpmiregs.x.ss = dpmiregs.x.sp = 0;
 343       _go32_dpmi_simulate_int (0x21, &dpmiregs);
 344       dos_country_code = dpmiregs.x.bx;
 345       dosmemget (info.rm_segment * 16, DOS_COUNTRY_INFO, dos_country_info);
 346       _go32_dpmi_free_dos_memory (&info);
 347     }
 348   dos_set_keyboard (dos_country_code, 0);
 349
 350   regs.x.ax = 0x6601;
 351   intdos (&regs, &regs);
 352   if (regs.x.cflag)
 353     /* Estimate code page from country code */
 354     switch (dos_country_code)
 355       {
 356       case 45: /* Denmark */
 357       case 47: /* Norway */
 358         dos_codepage = 865;
 359         break;
 360       default:
 361         /* US */
 362         dos_codepage = 437;
 363       }
 364   else
 365     dos_codepage = regs.x.bx & 0xffff;
 366 }
 367 \f
 368 /*
 369  *      Define everything
 370  */
 371 syms_of_dosfns ()
 372 {
 373   defsubr (&Smode25);
 374   defsubr (&Smode4350);
 375   defsubr (&Sint86);
 376   defsubr (&Sdos_memget);
 377   defsubr (&Sdos_memput);
 378   defsubr (&Smsdos_mouse_init);
 379   defsubr (&Smsdos_mouse_enable);
 380   defsubr (&Smsdos_set_keyboard);
 381   defsubr (&Sinsert_startup_screen);
 382   defsubr (&Smsdos_mouse_disable);
 383 #ifndef HAVE_X_WINDOWS
 384   defsubr (&Smsdos_mouse_p);
 385   defsubr (&Sset_mouse_position);
 386
 387   Qmsdos_color_translate = intern ("msdos-color-translate");
 388   staticpro (&Qmsdos_color_translate);
 389 #endif
 390
 391   DEFVAR_INT ("dos-country-code", &dos_country_code,
 392     "The country code returned by Dos when Emacs was started.\n\
 393 Usually this is the international telephone prefix.");
 394
 395   DEFVAR_INT ("dos-codepage", &dos_codepage,
 396     "The codepage active when Emacs was started.\n\
 397 The following are known:\n\
 398         437     United States\n\
 399         850     Multilingual (Latin I)\n\
 400         852     Slavic (Latin II)\n\
 401         857     Turkish\n\
 402         860     Portugal\n\
 403         861     Iceland\n\
 404         863     Canada (French)\n\
 405         865     Norway/Denmark");
 406
 407   DEFVAR_INT ("dos-timezone-offset", &dos_timezone_offset,
 408     "The current timezone offset to UTC in minutes.
 409 Implicitly modified when the TZ variable is changed.");
 410
 411   DEFVAR_LISP ("dos-version", &Vdos_version,
 412     "The (MAJOR . MINOR) Dos version (subject to modification with setver).");
 413
 414   DEFVAR_LISP ("dos-display-scancodes", &Vdos_display_scancodes,
 415     "*When non-nil, the keyboard scan-codes are displayed at the bottom right\n\
 416 corner of the display (typically at the end of the mode line).\n\
 417 The output format is: scan code:char code*modifiers.");
 418   Vdos_display_scancodes = Qnil;
 419
 420   DEFVAR_LISP ("dos-menubar-clock", &Vdos_menubar_clock,
 421     "*When non-nil, the current time is displayed in the upper right\n\
 422 corner of the screen (typically at the end of the menu bar).");
 423   Vdos_menubar_clock = Qt;
 424
 425   DEFVAR_LISP ("dos-timer-hooks", &Vdos_timer_hooks,
 426     "List of hooks which are run every second.");
 427   Vdos_timer_hooks = Qnil;
 428
 429   DEFVAR_INT ("dos-hyper-key", &dos_hyper_key,
 430     "*If set to 1, use right ALT key as hyper key.\n\
 431 If set to 2, use right CTRL key as hyper key.");
 432   dos_hyper_key = 0;
 433
 434   DEFVAR_INT ("dos-super-key", &dos_super_key,
 435     "*If set to 1, use right ALT key as super key.\n\
 436 If set to 2, use right CTRL key as super key.");
 437   dos_super_key = 0;
 438
 439   DEFVAR_INT ("dos-keypad-mode", &dos_keypad_mode,
 440     "*Controls what key code is returned by a key in the numeric keypad.\n\
 441 The `numlock ON' action is only taken if no modifier keys are pressed.\n\
 442 The value is an integer constructed by adding the following bits together:\n\
 443  \n\
 444   0x00  Digit key returns digit    (if numlock ON)\n\
 445   0x01  Digit key returns kp-digit (if numlock ON)\n\
 446   0x02  Digit key returns M-digit  (if numlock ON)\n\
 447   0x03  Digit key returns edit key (if numlock ON)\n\
 448  \n\
 449   0x00  Grey key returns char      (if numlock ON)\n\
 450   0x04  Grey key returns kp-key    (if numlock ON)\n\
 451  \n\
 452   0x00  Digit key returns digit    (if numlock OFF)\n\
 453   0x10  Digit key returns kp-digit (if numlock OFF)\n\
 454   0x20  Digit key returns M-digit  (if numlock OFF)\n\
 455   0x30  Digit key returns edit key (if numlock OFF)\n\
 456  \n\
 457   0x00  Grey key returns char      (if numlock OFF)\n\
 458   0x40  Grey key returns kp-key    (if numlock OFF)\n\
 459  \n\
 460   0x200 ALT-0..ALT-9 in top-row produces shifted codes.");
 461   dos_keypad_mode = 0x70;
 462
 463   DEFVAR_INT ("dos-keyboard-layout", &dos_keyboard_layout,
 464     "Contains the country code for the current keyboard layout.\n\
 465 Use msdos-set-keyboard to select another keyboard layout.");
 466   dos_keyboard_layout = 1;      /* US */
 467
 468   DEFVAR_INT ("dos-decimal-point", &dos_decimal_point,
 469     "If non-zero, it contains the character to be returned when the\n\
 470 decimal point key in the numeric keypad is pressed when Num Lock is on.\n\
 471 If zero, the decimal point key returns the country code specific value.");
 472   dos_decimal_point = 0;
 473 }
 474 #endif /* MSDOS */