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.
5 This file is part of GNU Emacs.
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)
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.
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. */
26 /* The entire file is within this conditional */
33 #include "termhooks.h"
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\
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
;
52 union REGS inregs
, outregs
;
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)
60 for (i
= 0; i
< 8; i
++)
61 CHECK_NUMBER (XVECTOR (registers
)->contents
[i
], 1);
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]);
72 int86 (no
, &inregs
, &outregs
);
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
);
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.")
90 Lisp_Object address
, vector
;
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
)
104 dosmemget (offs
, len
, buf
);
106 for (i
= 0; i
< len
; i
++)
107 XVECTOR (vector
)->contents
[i
] = make_number (buf
[i
]);
112 DEFUN ("msdos-memput", Fdos_memput
, Sdos_memput
, 2, 2, 0,
113 "Write DOS memory at offset ADDRESS from VECTOR.")
115 Lisp_Object address
, vector
;
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
)
130 for (i
= 0; i
< len
; i
++)
132 CHECK_NUMBER (XVECTOR (vector
)->contents
[i
], 1);
133 buf
[i
] = (unsigned char) XFASTINT (XVECTOR (vector
)->contents
[i
]) & 0xFF;
136 dosmemput (buf
, len
, offs
);
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
;
148 CHECK_NUMBER (country_code
, 0);
149 if (!dos_set_keyboard (XINT (country_code
), !NILP (allkeys
)))
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. */
158 DEFUN ("msdos-mouse-p", Fmsdos_mouse_p
, Smsdos_mouse_p
, 0, 0, 0, "\
159 Report whether a mouse is present.")
168 DEFUN ("set-mouse-position", Fset_mouse_position
, Sset_mouse_position
, 3, 3, 0,
169 "Move the mouse pointer to the center of character cell (X,Y) in FRAME.\n\
170 WARNING: If you use this under X windows,\n\
171 you should call `unfocus-frame' afterwards.")
173 Lisp_Object frame
, x
, y
;
175 mouse_moveto (XINT (x
), XINT (y
));
179 /* Function to translate colour names to integers. See lisp/term/pc-win.el
180 for its definition. */
182 Lisp_Object Qmsdos_color_translate
;
186 DEFUN ("msdos-mouse-init", Fmsdos_mouse_init
, Smsdos_mouse_init
, 0, 0, "",
187 "Initialize and enable mouse if available.")
199 DEFUN ("msdos-mouse-enable", Fmsdos_mouse_enable
, Smsdos_mouse_enable
, 0, 0, "",
200 "Enable mouse if available.")
208 return have_mouse
? Qt
: Qnil
;
211 DEFUN ("msdos-mouse-disable", Fmsdos_mouse_disable
, Smsdos_mouse_disable
, 0, 0, "",
212 "Disable mouse if available.")
216 if (have_mouse
) have_mouse
= -1;
220 DEFUN ("insert-startup-screen", Finsert_startup_screen
, Sinsert_startup_screen
, 0, 0, "", "\
221 Insert copy of screen contents prior to starting emacs.\n\
222 Return nil if startup screen is not available.")
229 if (!dos_get_saved_screen (&s
, &rows
, &cols
))
232 for (i
= 0; i
< rows
; i
++)
234 for (j
= 0; j
< cols
; j
++)
239 insert_char ('\n', 1);
246 int dos_country_code
;
248 int dos_timezone_offset
;
249 int dos_decimal_point
;
250 int dos_keyboard_layout
;
251 unsigned char dos_country_info
[DOS_COUNTRY_INFO
];
257 Lisp_Object Vdos_version
;
258 Lisp_Object Vdos_display_scancodes
;
264 _go32_dpmi_seginfo info
;
265 _go32_dpmi_registers dpmiregs
;
267 #ifndef SYSTEM_MALLOC
268 get_lim_data (); /* why the hell isn't this called elsewhere? */
272 intdos (®s
, ®s
);
273 Vdos_version
= Fcons (make_number (regs
.h
.al
), make_number (regs
.h
.ah
));
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;
281 dpmiregs
.x
.ax
= 0x3800;
282 dpmiregs
.x
.ds
= info
.rm_segment
;
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
);
290 dos_set_keyboard (dos_country_code
, 0);
293 intdos (®s
, ®s
);
295 /* Estimate code page from country code */
296 switch (dos_country_code
)
298 case 45: /* Denmark */
299 case 47: /* Norway */
307 dos_codepage
= regs
.x
.bx
& 0xffff;
311 /* Without this, we never see hidden files. */
312 __opendir_flags
|= __OPENDIR_FIND_HIDDEN
;
314 /* Under LFN, preserve the case of files as recorded in the directory. */
315 if (!NILP (Fmsdos_long_file_names ()))
316 __opendir_flags
|= __OPENDIR_PRESERVE_CASE
;
327 defsubr (&Sdos_memget
);
328 defsubr (&Sdos_memput
);
329 defsubr (&Smsdos_mouse_init
);
330 defsubr (&Smsdos_mouse_enable
);
331 defsubr (&Smsdos_set_keyboard
);
332 defsubr (&Sinsert_startup_screen
);
333 defsubr (&Smsdos_mouse_disable
);
334 #ifndef HAVE_X_WINDOWS
335 defsubr (&Smsdos_mouse_p
);
336 defsubr (&Sset_mouse_position
);
338 Qmsdos_color_translate
= intern ("msdos-color-translate");
339 staticpro (&Qmsdos_color_translate
);
342 DEFVAR_INT ("dos-country-code", &dos_country_code
,
343 "The country code returned by Dos when Emacs was started.\n\
344 Usually this is the international telephone prefix.");
346 DEFVAR_INT ("dos-codepage", &dos_codepage
,
347 "The codepage active when Emacs was started.\n\
348 The following are known:\n\
350 850 Multilingual (Latin I)\n\
351 852 Slavic (Latin II)\n\
355 863 Canada (French)\n\
356 865 Norway/Denmark");
358 DEFVAR_INT ("dos-timezone-offset", &dos_timezone_offset
,
359 "The current timezone offset to UTC in minutes.
360 Implicitly modified when the TZ variable is changed.");
362 DEFVAR_LISP ("dos-version", &Vdos_version
,
363 "The (MAJOR . MINOR) Dos version (subject to modification with setver).");
365 DEFVAR_LISP ("dos-display-scancodes", &Vdos_display_scancodes
,
366 "*When non-nil, the keyboard scan-codes are displayed at the bottom right\n\
367 corner of the display (typically at the end of the mode line).\n\
368 The output format is: scan code:char code*modifiers.");
369 Vdos_display_scancodes
= Qnil
;
371 DEFVAR_INT ("dos-hyper-key", &dos_hyper_key
,
372 "*If set to 1, use right ALT key as hyper key.\n\
373 If set to 2, use right CTRL key as hyper key.");
376 DEFVAR_INT ("dos-super-key", &dos_super_key
,
377 "*If set to 1, use right ALT key as super key.\n\
378 If set to 2, use right CTRL key as super key.");
381 DEFVAR_INT ("dos-keypad-mode", &dos_keypad_mode
,
382 "*Controls what key code is returned by a key in the numeric keypad.\n\
383 The `numlock ON' action is only taken if no modifier keys are pressed.\n\
384 The value is an integer constructed by adding the following bits together:\n\
386 0x00 Digit key returns digit (if numlock ON)\n\
387 0x01 Digit key returns kp-digit (if numlock ON)\n\
388 0x02 Digit key returns M-digit (if numlock ON)\n\
389 0x03 Digit key returns edit key (if numlock ON)\n\
391 0x00 Grey key returns char (if numlock ON)\n\
392 0x04 Grey key returns kp-key (if numlock ON)\n\
394 0x00 Digit key returns digit (if numlock OFF)\n\
395 0x10 Digit key returns kp-digit (if numlock OFF)\n\
396 0x20 Digit key returns M-digit (if numlock OFF)\n\
397 0x30 Digit key returns edit key (if numlock OFF)\n\
399 0x00 Grey key returns char (if numlock OFF)\n\
400 0x40 Grey key returns kp-key (if numlock OFF)\n\
402 0x200 ALT-0..ALT-9 in top-row produces shifted codes.");
403 dos_keypad_mode
= 0x75;
405 DEFVAR_INT ("dos-keyboard-layout", &dos_keyboard_layout
,
406 "Contains the country code for the current keyboard layout.\n\
407 Use msdos-set-keyboard to select another keyboard layout.");
408 dos_keyboard_layout
= 1; /* US */
410 DEFVAR_INT ("dos-decimal-point", &dos_decimal_point
,
411 "If non-zero, it contains the character to be returned when the\n\
412 decimal point key in the numeric keypad is pressed when Num Lock is on.\n\
413 If zero, the decimal point key returns the country code specific value.");
414 dos_decimal_point
= 0;