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