code.delx.au - gnu-emacs/blob - 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 <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);
 226           s += 2;
 227         }
 228       insert_char ('\n');
 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 static unsigned char usa_country_info[DOS_COUNTRY_INFO] = {
 242   0, 0,                         /* date format */
 243   '$', 0, 0, 0, 0,              /* currency string */
 244   ',', 0,                       /* thousands separator */
 245   '.', 0,                       /* decimal separator */
 246   '/', 0,                       /* date separator */
 247   ':', 0,                       /* time separator */
 248   0,                            /* currency format */
 249   2,                            /* digits after decimal in currency */
 250   0,                            /* time format */
 251   0, 0, 0, 0,                   /* address of case map routine, GPF if used */
 252   ' ', 0,                       /* data-list separator (?) */
 253   0, 0, 0, 0, 0, 0, 0, 0, 0, 0  /* reserved */
 254 };
 255
 256 int dos_hyper_key;
 257 int dos_super_key;
 258 int dos_keypad_mode;
 259
 260 Lisp_Object Vdos_version;
 261 Lisp_Object Vdos_display_scancodes;
 262
 263 void
 264 init_dosfns ()
 265 {
 266   union REGS regs;
 267   _go32_dpmi_registers dpmiregs;
 268   unsigned long xbuf = _go32_info_block.linear_address_of_transfer_buffer;
 269
 270 #ifndef SYSTEM_MALLOC
 271   get_lim_data (); /* why the hell isn't this called elsewhere? */
 272 #endif
 273
 274   regs.x.ax = 0x3000;
 275   intdos (&regs, &regs);
 276   Vdos_version = Fcons (make_number (regs.h.al), make_number (regs.h.ah));
 277
 278   /* Obtain the country code via DPMI, use DJGPP transfer buffer.  */
 279   dpmiregs.x.ax = 0x3800;
 280   dpmiregs.x.ds = xbuf;
 281   dpmiregs.x.dx = 0;
 282   dpmiregs.x.ss = dpmiregs.x.sp = dpmiregs.x.flags = 0;
 283   _go32_dpmi_simulate_int (0x21, &dpmiregs);
 284   if (dpmiregs.x.flags & 1)
 285     {
 286       dos_country_code = 1;     /* assume USA if 213800 failed */
 287       memcpy (dos_country_info, usa_country_info, DOS_COUNTRY_INFO);
 288     }
 289   else
 290     {
 291       dos_country_code = dpmiregs.x.bx;
 292       dosmemget (xbuf, DOS_COUNTRY_INFO, dos_country_info);
 293     }
 294
 295   dos_set_keyboard (dos_country_code, 0);
 296
 297   regs.x.ax = 0x6601;
 298   intdos (&regs, &regs);
 299   if (regs.x.cflag)
 300     /* Estimate code page from country code */
 301     switch (dos_country_code)
 302       {
 303       case 45: /* Denmark */
 304       case 47: /* Norway */
 305         dos_codepage = 865;
 306         break;
 307       default:
 308         /* US */
 309         dos_codepage = 437;
 310       }
 311   else
 312     dos_codepage = regs.x.bx & 0xffff;
 313
 314 #if __DJGPP__ >= 2
 315
 316   /* Without this, we never see hidden files.
 317      Don't OR it with the previous value, so the value recorded at dump
 318      time, possibly with `preserve-case' flags set, won't get through.  */
 319   __opendir_flags = __OPENDIR_FIND_HIDDEN;
 320
 321 #if __DJGPP_MINOR__ == 0
 322   /* Under LFN, preserve the case of files as recorded in the directory
 323      (in DJGPP 2.01 and later this is automagically done by the library).  */
 324   if (!NILP (Fmsdos_long_file_names ()))
 325     __opendir_flags |= __OPENDIR_PRESERVE_CASE;
 326 #endif /* __DJGPP_MINOR__ == 0 */
 327 #endif /* __DJGPP__ >= 2 */
 328 }
 329 \f
 330 /*
 331  *      Define everything
 332  */
 333 syms_of_dosfns ()
 334 {
 335   defsubr (&Sint86);
 336   defsubr (&Sdos_memget);
 337   defsubr (&Sdos_memput);
 338   defsubr (&Smsdos_mouse_init);
 339   defsubr (&Smsdos_mouse_enable);
 340   defsubr (&Smsdos_set_keyboard);
 341   defsubr (&Sinsert_startup_screen);
 342   defsubr (&Smsdos_mouse_disable);
 343 #ifndef HAVE_X_WINDOWS
 344   defsubr (&Smsdos_mouse_p);
 345   Qmsdos_color_translate = intern ("msdos-color-translate");
 346   staticpro (&Qmsdos_color_translate);
 347 #endif
 348
 349   DEFVAR_INT ("dos-country-code", &dos_country_code,
 350     "The country code returned by Dos when Emacs was started.\n\
 351 Usually this is the international telephone prefix.");
 352
 353   DEFVAR_INT ("dos-codepage", &dos_codepage,
 354     "The codepage active when Emacs was started.\n\
 355 The following are known:\n\
 356         437     United States\n\
 357         850     Multilingual (Latin I)\n\
 358         852     Slavic (Latin II)\n\
 359         857     Turkish\n\
 360         860     Portugal\n\
 361         861     Iceland\n\
 362         863     Canada (French)\n\
 363         865     Norway/Denmark");
 364
 365   DEFVAR_INT ("dos-timezone-offset", &dos_timezone_offset,
 366     "The current timezone offset to UTC in minutes.
 367 Implicitly modified when the TZ variable is changed.");
 368
 369   DEFVAR_LISP ("dos-version", &Vdos_version,
 370     "The (MAJOR . MINOR) Dos version (subject to modification with setver).");
 371
 372   DEFVAR_LISP ("dos-display-scancodes", &Vdos_display_scancodes,
 373     "*When non-nil, the keyboard scan-codes are displayed at the bottom right\n\
 374 corner of the display (typically at the end of the mode line).\n\
 375 The output format is: scan code:char code*modifiers.");
 376   Vdos_display_scancodes = Qnil;
 377
 378   DEFVAR_INT ("dos-hyper-key", &dos_hyper_key,
 379     "*If set to 1, use right ALT key as hyper key.\n\
 380 If set to 2, use right CTRL key as hyper key.");
 381   dos_hyper_key = 0;
 382
 383   DEFVAR_INT ("dos-super-key", &dos_super_key,
 384     "*If set to 1, use right ALT key as super key.\n\
 385 If set to 2, use right CTRL key as super key.");
 386   dos_super_key = 0;
 387
 388   DEFVAR_INT ("dos-keypad-mode", &dos_keypad_mode,
 389     "*Controls what key code is returned by a key in the numeric keypad.\n\
 390 The `numlock ON' action is only taken if no modifier keys are pressed.\n\
 391 The value is an integer constructed by adding the following bits together:\n\
 392  \n\
 393   0x00  Digit key returns digit    (if numlock ON)\n\
 394   0x01  Digit key returns kp-digit (if numlock ON)\n\
 395   0x02  Digit key returns M-digit  (if numlock ON)\n\
 396   0x03  Digit key returns edit key (if numlock ON)\n\
 397  \n\
 398   0x00  Grey key returns char      (if numlock ON)\n\
 399   0x04  Grey key returns kp-key    (if numlock ON)\n\
 400  \n\
 401   0x00  Digit key returns digit    (if numlock OFF)\n\
 402   0x10  Digit key returns kp-digit (if numlock OFF)\n\
 403   0x20  Digit key returns M-digit  (if numlock OFF)\n\
 404   0x30  Digit key returns edit key (if numlock OFF)\n\
 405  \n\
 406   0x00  Grey key returns char      (if numlock OFF)\n\
 407   0x40  Grey key returns kp-key    (if numlock OFF)\n\
 408  \n\
 409   0x200 ALT-0..ALT-9 in top-row produces shifted codes.");
 410   dos_keypad_mode = 0x75;
 411
 412   DEFVAR_INT ("dos-keyboard-layout", &dos_keyboard_layout,
 413     "Contains the country code for the current keyboard layout.\n\
 414 Use msdos-set-keyboard to select another keyboard layout.");
 415   dos_keyboard_layout = 1;      /* US */
 416
 417   DEFVAR_INT ("dos-decimal-point", &dos_decimal_point,
 418     "If non-zero, it contains the character to be returned when the\n\
 419 decimal point key in the numeric keypad is pressed when Num Lock is on.\n\
 420 If zero, the decimal point key returns the country code specific value.");
 421   dos_decimal_point = 0;
 422 }
 423 #endif /* MSDOS */