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, 1996, 1997 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 <string.h>
  30 #include <dos.h>
  31 #include "lisp.h"
  32 #include "buffer.h"
  33 #include "termchar.h"
  34 #include "termhooks.h"
  35 #include "frame.h"
  36 #include "blockinput.h"
  37 #include "window.h"
  38 #include "dosfns.h"
  39 #include "msdos.h"
  40 #include "dispextern.h"
  41 #include <dpmi.h>
  42 #include <go32.h>
  43 #include <dirent.h>
  44
  45 #ifndef __DJGPP_MINOR__
  46 # define __tb _go32_info_block.linear_address_of_transfer_buffer;
  47 #endif
  48
  49 DEFUN ("int86", Fint86, Sint86, 2, 2, 0,
  50   "Call specific MSDOS interrupt number INTERRUPT with REGISTERS.\n\
  51 Return the updated REGISTER vector.\n\
  52 \n\
  53 INTERRUPT should be an integer in the range 0 to 255.\n\
  54 REGISTERS should be a vector produced by `make-register' and\n\
  55 `set-register-value'.")
  56   (interrupt, registers)
  57   Lisp_Object interrupt, registers;
  58 {
  59   register int i;
  60   int no;
  61   union REGS inregs, outregs;
  62   Lisp_Object val;
  63
  64   CHECK_NUMBER (interrupt, 0);
  65   no = (unsigned long) XINT (interrupt);
  66   CHECK_VECTOR (registers, 1);
  67   if (no < 0 || no > 0xff || XVECTOR (registers)-> size != 8)
  68     return Qnil;
  69   for (i = 0; i < 8; i++)
  70     CHECK_NUMBER (XVECTOR (registers)->contents[i], 1);
  71
  72   inregs.x.ax    = (unsigned long) XFASTINT (XVECTOR (registers)->contents[0]);
  73   inregs.x.bx    = (unsigned long) XFASTINT (XVECTOR (registers)->contents[1]);
  74   inregs.x.cx    = (unsigned long) XFASTINT (XVECTOR (registers)->contents[2]);
  75   inregs.x.dx    = (unsigned long) XFASTINT (XVECTOR (registers)->contents[3]);
  76   inregs.x.si    = (unsigned long) XFASTINT (XVECTOR (registers)->contents[4]);
  77   inregs.x.di    = (unsigned long) XFASTINT (XVECTOR (registers)->contents[5]);
  78   inregs.x.cflag = (unsigned long) XFASTINT (XVECTOR (registers)->contents[6]);
  79   inregs.x.flags = (unsigned long) XFASTINT (XVECTOR (registers)->contents[7]);
  80
  81   int86 (no, &inregs, &outregs);
  82
  83   XVECTOR (registers)->contents[0] = make_number (outregs.x.ax);
  84   XVECTOR (registers)->contents[1] = make_number (outregs.x.bx);
  85   XVECTOR (registers)->contents[2] = make_number (outregs.x.cx);
  86   XVECTOR (registers)->contents[3] = make_number (outregs.x.dx);
  87   XVECTOR (registers)->contents[4] = make_number (outregs.x.si);
  88   XVECTOR (registers)->contents[5] = make_number (outregs.x.di);
  89   XVECTOR (registers)->contents[6] = make_number (outregs.x.cflag);
  90   XVECTOR (registers)->contents[7] = make_number (outregs.x.flags);
  91
  92   return registers;
  93 }
  94
  95 DEFUN ("msdos-memget", Fdos_memget, Sdos_memget, 2, 2, 0,
  96   "Read DOS memory at offset ADDRESS into VECTOR.\n\
  97 Return the updated VECTOR.")
  98   (address, vector)
  99   Lisp_Object address, vector;
 100 {
 101   register int i;
 102   int offs, len;
 103   char *buf;
 104   Lisp_Object val;
 105
 106   CHECK_NUMBER (address, 0);
 107   offs = (unsigned long) XINT (address);
 108   CHECK_VECTOR (vector, 1);
 109   len = XVECTOR (vector)-> size;
 110   if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len)
 111     return Qnil;
 112   buf = alloca (len);
 113   dosmemget (offs, len, buf);
 114
 115   for (i = 0; i < len; i++)
 116     XVECTOR (vector)->contents[i] = make_number (buf[i]);
 117
 118   return vector;
 119 }
 120
 121 DEFUN ("msdos-memput", Fdos_memput, Sdos_memput, 2, 2, 0,
 122   "Write DOS memory at offset ADDRESS from VECTOR.")
 123   (address, vector)
 124   Lisp_Object address, vector;
 125 {
 126   register int i;
 127   int offs, len;
 128   char *buf;
 129   Lisp_Object val;
 130
 131   CHECK_NUMBER (address, 0);
 132   offs = (unsigned long) XINT (address);
 133   CHECK_VECTOR (vector, 1);
 134   len = XVECTOR (vector)-> size;
 135   if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len)
 136     return Qnil;
 137   buf = alloca (len);
 138
 139   for (i = 0; i < len; i++)
 140     {
 141       CHECK_NUMBER (XVECTOR (vector)->contents[i], 1);
 142       buf[i] = (unsigned char) XFASTINT (XVECTOR (vector)->contents[i]) & 0xFF;
 143     }
 144
 145   dosmemput (buf, len, offs);
 146   return Qt;
 147 }
 148
 149 DEFUN ("msdos-set-keyboard", Fmsdos_set_keyboard, Smsdos_set_keyboard, 1, 2, 0,
 150   "Set keyboard layout according to COUNTRY-CODE.\n\
 151 If the optional argument ALLKEYS is non-nil, the keyboard is mapped for\n\
 152 all keys; otherwise it is only used when the ALT key is pressed.\n\
 153 The current keyboard layout is available in dos-keyboard-code.")
 154   (country_code, allkeys)
 155   Lisp_Object country_code;
 156 {
 157   CHECK_NUMBER (country_code, 0);
 158   if (!dos_set_keyboard (XINT (country_code), !NILP (allkeys)))
 159     return Qnil;
 160   return Qt;
 161 }
 162
 163 #ifndef HAVE_X_WINDOWS
 164 /* Later we might want to control the mouse interface with this function,
 165    e.g., with respect to non-80 column screen modes.  */
 166
 167 DEFUN ("msdos-mouse-p", Fmsdos_mouse_p, Smsdos_mouse_p, 0, 0, 0, "\
 168 Report whether a mouse is present.")
 169      ()
 170 {
 171   if (have_mouse)
 172     return Qt;
 173   else
 174     return Qnil;
 175 }
 176 #endif
 177
 178
 179 DEFUN ("msdos-mouse-init", Fmsdos_mouse_init, Smsdos_mouse_init, 0, 0, "",
 180   "Initialize and enable mouse if available.")
 181   ()
 182 {
 183   if (have_mouse)
 184     {
 185       have_mouse = 1;
 186       mouse_init ();
 187       return Qt;
 188     }
 189   return Qnil;
 190 }
 191
 192 DEFUN ("msdos-mouse-enable", Fmsdos_mouse_enable, Smsdos_mouse_enable, 0, 0, "",
 193   "Enable mouse if available.")
 194   ()
 195 {
 196   if (have_mouse)
 197     {
 198       have_mouse = 1;
 199       mouse_on ();
 200     }
 201   return have_mouse ? Qt : Qnil;
 202 }
 203
 204 DEFUN ("msdos-mouse-disable", Fmsdos_mouse_disable, Smsdos_mouse_disable, 0, 0, "",
 205   "Disable mouse if available.")
 206   ()
 207 {
 208   mouse_off ();
 209   if (have_mouse) have_mouse = -1;
 210   return Qnil;
 211 }
 212
 213 DEFUN ("insert-startup-screen", Finsert_startup_screen, Sinsert_startup_screen, 0, 0, "", "\
 214 Insert copy of screen contents prior to starting emacs.\n\
 215 Return nil if startup screen is not available.")
 216   ()
 217 {
 218   char *s;
 219   int rows, cols;
 220   int i, j;
 221
 222   if (!dos_get_saved_screen (&s, &rows, &cols))
 223     return Qnil;
 224
 225   for (i = 0; i < rows; i++)
 226     {
 227       for (j = 0; j < cols; j++)
 228         {
 229           insert_char (*s);
 230           s += 2;
 231         }
 232       insert_char ('\n');
 233     }
 234
 235   return Qt;
 236 }
 237 \f
 238 /* country info */
 239 int dos_country_code;
 240 int dos_codepage;
 241 int dos_timezone_offset;
 242 int dos_decimal_point;
 243 int dos_keyboard_layout;
 244 unsigned char dos_country_info[DOS_COUNTRY_INFO];
 245 static unsigned char usa_country_info[DOS_COUNTRY_INFO] = {
 246   0, 0,                         /* date format */
 247   '$', 0, 0, 0, 0,              /* currency string */
 248   ',', 0,                       /* thousands separator */
 249   '.', 0,                       /* decimal separator */
 250   '/', 0,                       /* date separator */
 251   ':', 0,                       /* time separator */
 252   0,                            /* currency format */
 253   2,                            /* digits after decimal in currency */
 254   0,                            /* time format */
 255   0, 0, 0, 0,                   /* address of case map routine, GPF if used */
 256   ' ', 0,                       /* data-list separator (?) */
 257   0, 0, 0, 0, 0, 0, 0, 0, 0, 0  /* reserved */
 258 };
 259
 260 int dos_hyper_key;
 261 int dos_super_key;
 262 int dos_keypad_mode;
 263
 264 Lisp_Object Vdos_version;
 265 Lisp_Object Vdos_display_scancodes;
 266
 267 #ifndef HAVE_X_WINDOWS
 268 static unsigned dos_windows_version;
 269 Lisp_Object Vdos_windows_version;
 270
 271 char parent_vm_title[50];       /* Ralf Brown says 30 is enough */
 272 int w95_set_virtual_machine_title (const char *);
 273
 274 void
 275 restore_parent_vm_title (void)
 276 {
 277   if (NILP (Vdos_windows_version))
 278     return;
 279   if ((dos_windows_version & 0xff) >= 4 && parent_vm_title[0])
 280     w95_set_virtual_machine_title (parent_vm_title);
 281   delay (50);
 282 }
 283 #endif /* !HAVE_X_WINDOWS */
 284
 285 void
 286 init_dosfns ()
 287 {
 288   union REGS regs;
 289   _go32_dpmi_registers dpmiregs;
 290   unsigned long xbuf = _go32_info_block.linear_address_of_transfer_buffer;
 291
 292 #ifndef SYSTEM_MALLOC
 293   get_lim_data (); /* why the hell isn't this called elsewhere? */
 294 #endif
 295
 296   regs.x.ax = 0x3000;
 297   intdos (&regs, &regs);
 298   Vdos_version = Fcons (make_number (regs.h.al), make_number (regs.h.ah));
 299
 300   /* Obtain the country code via DPMI, use DJGPP transfer buffer.  */
 301   dpmiregs.x.ax = 0x3800;
 302   dpmiregs.x.ds = xbuf >> 4;
 303   dpmiregs.x.dx = 0;
 304   dpmiregs.x.ss = dpmiregs.x.sp = dpmiregs.x.flags = 0;
 305   _go32_dpmi_simulate_int (0x21, &dpmiregs);
 306   if (dpmiregs.x.flags & 1)
 307     {
 308       dos_country_code = 1;     /* assume USA if 213800 failed */
 309       memcpy (dos_country_info, usa_country_info, DOS_COUNTRY_INFO);
 310     }
 311   else
 312     {
 313       dos_country_code = dpmiregs.x.bx;
 314       dosmemget (xbuf, DOS_COUNTRY_INFO, dos_country_info);
 315     }
 316
 317   dos_set_keyboard (dos_country_code, 0);
 318
 319   regs.x.ax = 0x6601;
 320   intdos (&regs, &regs);
 321   if (regs.x.cflag)
 322     /* Estimate code page from country code */
 323     switch (dos_country_code)
 324       {
 325       case 45: /* Denmark */
 326       case 47: /* Norway */
 327         dos_codepage = 865;
 328         break;
 329       default:
 330         /* US */
 331         dos_codepage = 437;
 332       }
 333   else
 334     dos_codepage = regs.x.bx & 0xffff;
 335
 336 #ifndef HAVE_X_WINDOWS
 337   parent_vm_title[0] = '\0';
 338
 339   /* If we are running from DOS box on MS-Windows, get Windows version.  */
 340   dpmiregs.x.ax = 0x1600;       /* enhanced mode installation check */
 341   dpmiregs.x.ss = dpmiregs.x.sp = dpmiregs.x.flags = 0;
 342   _go32_dpmi_simulate_int (0x2f, &dpmiregs);
 343   /* We only support Windows-specific features when we run on Windows 9X
 344      or on Windows 3.X/enhanced mode.
 345
 346      Int 2Fh/AX=1600h returns:
 347
 348      AL = 00:  no Windows at all;
 349      AL = 01:  Windows/386 2.x;
 350      AL = 80h: Windows 3.x in mode other than enhanced;
 351      AL = FFh: Windows/386 2.x
 352
 353      We also check AH > 0 (Windows 3.1 or later), in case AL tricks us.  */
 354   if (dpmiregs.h.al > 2 && dpmiregs.h.al != 0x80 && dpmiregs.h.al != 0xff
 355       && (dpmiregs.h.al > 3 || dpmiregs.h.ah > 0))
 356     {
 357       dos_windows_version = dpmiregs.x.ax;
 358       Vdos_windows_version =
 359         Fcons (make_number (dpmiregs.h.al), make_number (dpmiregs.h.ah));
 360
 361       /* Save the current title of this virtual machine, so we can restore
 362          it before exiting.  Otherwise, Windows 95 will continue to use
 363          the title we set even after we are history, stupido...  */
 364       if (dpmiregs.h.al >= 4)
 365         {
 366           dpmiregs.x.ax = 0x168e;
 367           dpmiregs.x.dx = 3;    /* get VM title */
 368           dpmiregs.x.cx = sizeof(parent_vm_title) - 1;
 369           dpmiregs.x.es = __tb >> 4;
 370           dpmiregs.x.di = __tb & 15;
 371           dpmiregs.x.sp = dpmiregs.x.ss = dpmiregs.x.flags = 0;
 372           _go32_dpmi_simulate_int (0x2f, &dpmiregs);
 373           if (dpmiregs.x.ax == 1)
 374             dosmemget (__tb, sizeof(parent_vm_title), parent_vm_title);
 375         }
 376     }
 377   else
 378     {
 379       dos_windows_version = 0;
 380       Vdos_windows_version = Qnil;
 381     }
 382 #endif /* !HAVE_X_WINDOWS */
 383
 384 #if __DJGPP__ >= 2
 385
 386   /* Without this, we never see hidden files.
 387      Don't OR it with the previous value, so the value recorded at dump
 388      time, possibly with `preserve-case' flags set, won't get through.  */
 389   __opendir_flags = __OPENDIR_FIND_HIDDEN;
 390
 391 #if __DJGPP_MINOR__ == 0
 392   /* Under LFN, preserve the case of files as recorded in the directory
 393      (in DJGPP 2.01 and later this is automagically done by the library).  */
 394   if (!NILP (Fmsdos_long_file_names ()))
 395     __opendir_flags |= __OPENDIR_PRESERVE_CASE;
 396 #endif /* __DJGPP_MINOR__ == 0 */
 397 #endif /* __DJGPP__ >= 2 */
 398 }
 399 \f
 400 #ifndef HAVE_X_WINDOWS
 401
 402 /* Emulation of some X window features from xfns.c and xfaces.c.  */
 403
 404 /* Standard VGA colors, in the order of their standard numbering
 405    in the default VGA palette.  */
 406 static char *vga_colors[16] = {
 407   "black", "blue", "green", "cyan", "red", "magenta", "brown",
 408   "lightgray", "darkgray", "lightblue", "lightgreen", "lightcyan",
 409   "lightred", "lightmagenta", "yellow", "white"
 410 };
 411
 412 extern char unspecified_fg[], unspecified_bg[];
 413
 414 /* Given a color name, return its index, or -1 if not found.  Note
 415    that this only performs case-insensitive comparison against the
 416    standard names.  For anything more sophisticated, like matching
 417    "gray" with "grey" or translating X color names into their MSDOS
 418    equivalents, call the Lisp function Qtty_color_desc (defined
 419    on lisp/term/tty-colors.el).  */
 420 int
 421 msdos_stdcolor_idx (const char *name)
 422 {
 423   int i;
 424
 425   for (i = 0; i < sizeof (vga_colors) / sizeof (vga_colors[0]); i++)
 426     if (strcasecmp (name, vga_colors[i]) == 0)
 427       return i;
 428
 429   return
 430     strcmp (name, unspecified_fg) == 0 ? FACE_TTY_DEFAULT_FG_COLOR
 431     : strcmp (name, unspecified_bg) == 0 ? FACE_TTY_DEFAULT_BG_COLOR
 432     : FACE_TTY_DEFAULT_COLOR;
 433 }
 434
 435 /* Given a color index, return its standard name.  */
 436 Lisp_Object
 437 msdos_stdcolor_name (int idx)
 438 {
 439   extern Lisp_Object Qunspecified;
 440
 441   if (idx == FACE_TTY_DEFAULT_FG_COLOR)
 442     return build_string (unspecified_fg);
 443   else if (idx == FACE_TTY_DEFAULT_BG_COLOR)
 444     return build_string (unspecified_bg);
 445   else if (idx >= 0 && idx < sizeof (vga_colors) / sizeof (vga_colors[0]))
 446     return build_string (vga_colors[idx]);
 447   else
 448     return Qunspecified;        /* meaning the default */
 449 }
 450
 451 /* Support for features that are available when we run in a DOS box
 452    on MS-Windows.  */
 453 int
 454 ms_windows_version (void)
 455 {
 456   return dos_windows_version;
 457 }
 458
 459 /* Set the title of the current virtual machine, to appear on
 460    the caption bar of that machine's window.  */
 461
 462 int
 463 w95_set_virtual_machine_title (const char *title_string)
 464 {
 465   /* Only Windows 9X (version 4 and higher) support this function.  */
 466   if (!NILP (Vdos_windows_version)
 467       && (dos_windows_version & 0xff) >= 4)
 468     {
 469       _go32_dpmi_registers regs;
 470       dosmemput (title_string, strlen (title_string) + 1, __tb);
 471       regs.x.ax = 0x168e;
 472       regs.x.dx = 1;
 473       regs.x.es = __tb >> 4;
 474       regs.x.di = __tb & 15;
 475       regs.x.sp = regs.x.ss = regs.x.flags = 0;
 476       _go32_dpmi_simulate_int (0x2f, &regs);
 477       return regs.x.ax == 1;
 478     }
 479   return 0;
 480 }
 481
 482 /* Change the title of frame F to NAME.
 483    If NAME is nil, use the frame name as the title.
 484
 485    If Emacs is not run from a DOS box on Windows 9X, this only
 486    sets the name in the frame struct, but has no other effects.  */
 487
 488 void
 489 x_set_title (f, name)
 490      struct frame *f;
 491      Lisp_Object name;
 492 {
 493   /* Don't change the title if it's already NAME.  */
 494   if (EQ (name, f->title))
 495     return;
 496
 497   update_mode_lines = 1;
 498
 499   f->title = name;
 500
 501   if (NILP (name))
 502     name = f->name;
 503
 504   if (FRAME_MSDOS_P (f))
 505     {
 506       BLOCK_INPUT;
 507       w95_set_virtual_machine_title (XSTRING (name)->data);
 508       UNBLOCK_INPUT;
 509     }
 510 }
 511 #endif /* !HAVE_X_WINDOWS */
 512 \f
 513 void
 514 dos_cleanup (void)
 515 {
 516 #ifndef HAVE_X_WINDOWS
 517   restore_parent_vm_title ();
 518 #endif
 519   /* Make sure the termscript file is committed, in case we are
 520      crashing and some vital info was written there.  */
 521   if (termscript)
 522     {
 523       fflush (termscript);
 524       fsync (fileno (termscript));
 525     }
 526 }
 527
 528 /*
 529  *      Define everything
 530  */
 531 syms_of_dosfns ()
 532 {
 533   defsubr (&Sint86);
 534   defsubr (&Sdos_memget);
 535   defsubr (&Sdos_memput);
 536   defsubr (&Smsdos_mouse_init);
 537   defsubr (&Smsdos_mouse_enable);
 538   defsubr (&Smsdos_set_keyboard);
 539   defsubr (&Sinsert_startup_screen);
 540   defsubr (&Smsdos_mouse_disable);
 541 #ifndef HAVE_X_WINDOWS
 542   defsubr (&Smsdos_mouse_p);
 543 #endif
 544
 545   DEFVAR_INT ("dos-country-code", &dos_country_code,
 546     "The country code returned by Dos when Emacs was started.\n\
 547 Usually this is the international telephone prefix.");
 548
 549   DEFVAR_INT ("dos-codepage", &dos_codepage,
 550     "The codepage active when Emacs was started.\n\
 551 The following are known:\n\
 552         437     United States\n\
 553         850     Multilingual (Latin I)\n\
 554         852     Slavic (Latin II)\n\
 555         857     Turkish\n\
 556         860     Portugal\n\
 557         861     Iceland\n\
 558         863     Canada (French)\n\
 559         865     Norway/Denmark");
 560
 561   DEFVAR_INT ("dos-timezone-offset", &dos_timezone_offset,
 562     "The current timezone offset to UTC in minutes.
 563 Implicitly modified when the TZ variable is changed.");
 564
 565   DEFVAR_LISP ("dos-version", &Vdos_version,
 566     "The (MAJOR . MINOR) Dos version (subject to modification with setver).");
 567
 568 #ifndef HAVE_X_WINDOWS
 569   DEFVAR_LISP ("dos-windows-version", &Vdos_windows_version,
 570     "The (MAJOR . MINOR) Windows version for DOS session on MS-Windows.");
 571 #endif
 572
 573   DEFVAR_LISP ("dos-display-scancodes", &Vdos_display_scancodes,
 574     "*When non-nil, the keyboard scan-codes are displayed at the bottom right\n\
 575 corner of the display (typically at the end of the mode line).\n\
 576 The output format is: scan code:char code*modifiers.");
 577   Vdos_display_scancodes = Qnil;
 578
 579   DEFVAR_INT ("dos-hyper-key", &dos_hyper_key,
 580     "*If set to 1, use right ALT key as hyper key.\n\
 581 If set to 2, use right CTRL key as hyper key.");
 582   dos_hyper_key = 0;
 583
 584   DEFVAR_INT ("dos-super-key", &dos_super_key,
 585     "*If set to 1, use right ALT key as super key.\n\
 586 If set to 2, use right CTRL key as super key.");
 587   dos_super_key = 0;
 588
 589   DEFVAR_INT ("dos-keypad-mode", &dos_keypad_mode,
 590     "*Controls what key code is returned by a key in the numeric keypad.\n\
 591 The `numlock ON' action is only taken if no modifier keys are pressed.\n\
 592 The value is an integer constructed by adding the following bits together:\n\
 593  \n\
 594   0x00  Digit key returns digit    (if numlock ON)\n\
 595   0x01  Digit key returns kp-digit (if numlock ON)\n\
 596   0x02  Digit key returns M-digit  (if numlock ON)\n\
 597   0x03  Digit key returns edit key (if numlock ON)\n\
 598  \n\
 599   0x00  Grey key returns char      (if numlock ON)\n\
 600   0x04  Grey key returns kp-key    (if numlock ON)\n\
 601  \n\
 602   0x00  Digit key returns digit    (if numlock OFF)\n\
 603   0x10  Digit key returns kp-digit (if numlock OFF)\n\
 604   0x20  Digit key returns M-digit  (if numlock OFF)\n\
 605   0x30  Digit key returns edit key (if numlock OFF)\n\
 606  \n\
 607   0x00  Grey key returns char      (if numlock OFF)\n\
 608   0x40  Grey key returns kp-key    (if numlock OFF)\n\
 609  \n\
 610   0x200 ALT-0..ALT-9 in top-row produces shifted codes.");
 611   dos_keypad_mode = 0x75;
 612
 613   DEFVAR_INT ("dos-keyboard-layout", &dos_keyboard_layout,
 614     "Contains the country code for the current keyboard layout.\n\
 615 Use msdos-set-keyboard to select another keyboard layout.");
 616   dos_keyboard_layout = 1;      /* US */
 617
 618   DEFVAR_INT ("dos-decimal-point", &dos_decimal_point,
 619     "If non-zero, it contains the character to be returned when the\n\
 620 decimal point key in the numeric keypad is pressed when Num Lock is on.\n\
 621 If zero, the decimal point key returns the country code specific value.");
 622   dos_decimal_point = 0;
 623 }
 624 #endif /* MSDOS */