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"
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\
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
;
51 union REGS inregs
, outregs
;
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)
59 for (i
= 0; i
< 8; i
++)
60 CHECK_NUMBER (XVECTOR (registers
)->contents
[i
], 1);
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]);
71 int86 (no
, &inregs
, &outregs
);
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
);
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.")
89 Lisp_Object address
, vector
;
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
)
103 dosmemget (offs
, len
, buf
);
105 for (i
= 0; i
< len
; i
++)
106 XVECTOR (vector
)->contents
[i
] = make_number (buf
[i
]);
111 DEFUN ("msdos-memput", Fdos_memput
, Sdos_memput
, 2, 2, 0,
112 "Write DOS memory at offset ADDRESS from VECTOR.")
114 Lisp_Object address
, vector
;
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
)
129 for (i
= 0; i
< len
; i
++)
131 CHECK_NUMBER (XVECTOR (vector
)->contents
[i
], 1);
132 buf
[i
] = (unsigned char) XFASTINT (XVECTOR (vector
)->contents
[i
]) & 0xFF;
135 dosmemput (buf
, len
, offs
);
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
;
147 CHECK_NUMBER (country_code
, 0);
148 if (!dos_set_keyboard (XINT (country_code
), !NILP (allkeys
)))
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. */
157 DEFUN ("msdos-mouse-p", Fmsdos_mouse_p
, Smsdos_mouse_p
, 0, 0, 0, "\
158 Report whether a mouse is present.")
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.")
172 Lisp_Object frame
, x
, y
;
174 mouse_moveto (XINT (x
), XINT (y
));
178 /* Function to translate colour names to integers. See lisp/term/pc-win.el
179 for its definition. */
181 Lisp_Object Qmsdos_color_translate
;
185 DEFUN ("msdos-mouse-init", Fmsdos_mouse_init
, Smsdos_mouse_init
, 0, 0, "",
186 "Initialize and enable mouse if available.")
198 DEFUN ("msdos-mouse-enable", Fmsdos_mouse_enable
, Smsdos_mouse_enable
, 0, 0, "",
199 "Enable mouse if available.")
207 return have_mouse
? Qt
: Qnil
;
210 DEFUN ("msdos-mouse-disable", Fmsdos_mouse_disable
, Smsdos_mouse_disable
, 0, 0, "",
211 "Disable mouse if available.")
215 if (have_mouse
) have_mouse
= -1;
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.")
228 if (!dos_get_saved_screen (&s
, &rows
, &cols
))
231 for (i
= 0; i
< rows
; i
++)
233 for (j
= 0; j
< cols
; j
++)
238 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;
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
);
327 Qmsdos_color_translate
= intern ("msdos-color-translate");
328 staticpro (&Qmsdos_color_translate
);
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.");
335 DEFVAR_INT ("dos-codepage", &dos_codepage
,
336 "The codepage active when Emacs was started.\n\
337 The following are known:\n\
339 850 Multilingual (Latin I)\n\
340 852 Slavic (Latin II)\n\
344 863 Canada (French)\n\
345 865 Norway/Denmark");
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.");
351 DEFVAR_LISP ("dos-version", &Vdos_version
,
352 "The (MAJOR . MINOR) Dos version (subject to modification with setver).");
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
;
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.");
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.");
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\
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\
380 0x00 Grey key returns char (if numlock ON)\n\
381 0x04 Grey key returns kp-key (if numlock ON)\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\
388 0x00 Grey key returns char (if numlock OFF)\n\
389 0x40 Grey key returns kp-key (if numlock OFF)\n\
391 0x200 ALT-0..ALT-9 in top-row produces shifted codes.");
392 dos_keypad_mode
= 0x75;
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 */
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;