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