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, 675 Mass Ave, Cambridge, MA 02139, USA. */
25 /* The entire file is within this conditional */
32 #include "termhooks.h"
38 DEFUN ("mode25", Fmode25
, Smode25
, 0, 0, "", "\
39 Changes the number of rows to 25.")
45 if (!inhibit_window_system
)
50 int86 (0x10, ®s
, ®s
);
53 int86 (0x10, ®s
, ®s
);
56 int86 (0x10, ®s
, ®s
);
58 int86 (0x10, ®s
, ®s
);
59 Fset_frame_size (Fselected_frame (), ScreenCols (), ScreenRows ());
62 if (have_mouse
) mouse_init ();
66 DEFUN ("mode4350", Fmode4350
, Smode4350
, 0, 0, "", "\
67 Changes the number of rows to 43 (EGA) or 50 (VGA).")
73 if (!inhibit_window_system
)
78 int86 (0x10, ®s
, ®s
);
81 int86 (0x10, ®s
, ®s
);
84 int86 (0x10, ®s
, ®s
);
87 int86 (0x10, ®s
, ®s
);
88 Fset_frame_size (Fselected_frame (), ScreenCols (), ScreenRows ());
91 if (have_mouse
) mouse_init ();
95 DEFUN ("int86", Fint86
, Sint86
, 2, 2, 0,
96 "Call specific MSDOS interrupt number INTERRUPT with REGISTERS.\n\
97 Return the updated REGISTER vector.\n\
99 INTERRUPT should be an integer in the range 0 to 255.\n\
100 REGISTERS should be a vector produced by `make-register' and\n\
101 `set-register-value'.")
103 Lisp_Object intno
, regs
;
107 union REGS inregs
, outregs
;
110 CHECK_NUMBER (intno
, 0);
111 no
= (unsigned long) XINT (intno
);
112 CHECK_VECTOR (regs
, 1);
113 if (no
< 0 || no
> 0xff || XVECTOR (regs
)-> size
!= 8)
115 for (i
= 0; i
< 8; i
++)
116 CHECK_NUMBER (XVECTOR (regs
)->contents
[i
], 1);
118 inregs
.x
.ax
= (unsigned long) XFASTINT (XVECTOR (regs
)->contents
[0]);
119 inregs
.x
.bx
= (unsigned long) XFASTINT (XVECTOR (regs
)->contents
[1]);
120 inregs
.x
.cx
= (unsigned long) XFASTINT (XVECTOR (regs
)->contents
[2]);
121 inregs
.x
.dx
= (unsigned long) XFASTINT (XVECTOR (regs
)->contents
[3]);
122 inregs
.x
.si
= (unsigned long) XFASTINT (XVECTOR (regs
)->contents
[4]);
123 inregs
.x
.di
= (unsigned long) XFASTINT (XVECTOR (regs
)->contents
[5]);
124 inregs
.x
.cflag
= (unsigned long) XFASTINT (XVECTOR (regs
)->contents
[6]);
125 inregs
.x
.flags
= (unsigned long) XFASTINT (XVECTOR (regs
)->contents
[7]);
127 int86 (no
, &inregs
, &outregs
);
129 XVECTOR (regs
)->contents
[0] = make_number (outregs
.x
.ax
);
130 XVECTOR (regs
)->contents
[1] = make_number (outregs
.x
.bx
);
131 XVECTOR (regs
)->contents
[2] = make_number (outregs
.x
.cx
);
132 XVECTOR (regs
)->contents
[3] = make_number (outregs
.x
.dx
);
133 XVECTOR (regs
)->contents
[4] = make_number (outregs
.x
.si
);
134 XVECTOR (regs
)->contents
[5] = make_number (outregs
.x
.di
);
135 XVECTOR (regs
)->contents
[6] = make_number (outregs
.x
.cflag
);
136 XVECTOR (regs
)->contents
[7] = make_number (outregs
.x
.flags
);
141 DEFUN ("msdos-memget", Fdos_memget
, Sdos_memget
, 2, 2, 0,
142 "Read DOS memory at offset ADDRESS into VECTOR.\n\
143 Return the updated VECTOR.")
152 CHECK_NUMBER (addr
, 0);
153 offs
= (unsigned long) XINT (addr
);
155 len
= XVECTOR (v
)-> size
;
156 if (len
< 1 || len
> 2048 || addr
< 0 || addr
> 0xfffff - len
)
159 dosmemget (offs
, len
, buf
);
161 for (i
= 0; i
< len
; i
++)
162 XVECTOR (v
)->contents
[i
] = make_number (buf
[i
]);
167 DEFUN ("msdos-memput", Fdos_memput
, Sdos_memput
, 2, 2, 0,
168 "Write DOS memory at offset ADDRESS from VECTOR.")
177 CHECK_NUMBER (addr
, 0);
178 offs
= (unsigned long) XINT (addr
);
180 len
= XVECTOR (v
)-> size
;
181 if (len
< 1 || len
> 2048 || addr
< 0 || addr
> 0xfffff - len
)
185 for (i
= 0; i
< len
; i
++)
187 CHECK_NUMBER (XVECTOR (v
)->contents
[i
], 1);
188 buf
[i
] = (unsigned char) XFASTINT (XVECTOR (v
)->contents
[i
]) & 0xFF;
191 dosmemput (buf
, len
, offs
);
195 DEFUN ("msdos-set-keyboard", Fmsdos_set_keyboard
, Smsdos_set_keyboard
, 1, 2, 0,
196 "Set keyboard layout according to COUNTRY.\n\
197 If the optional argument ALLKEYS is non-nil, the keyboard is mapped for\n\
198 all keys; otherwise it is only used when the ALT key is pressed.\n\
199 The current keyboard layout is available in dos-keyboard-code.")
200 (country_code
, allkeys
)
201 Lisp_Object country_code
;
203 CHECK_NUMBER (country_code
, 0);
204 if (!dos_set_keyboard (XINT (country_code
), !NILP (allkeys
)))
209 #ifndef HAVE_X_WINDOWS
210 /* Later we might want to control the mouse interface with this function,
211 e.g., with respect to non-80 column screen modes. */
213 DEFUN ("msdos-mouse-p", Fmsdos_mouse_p
, Smsdos_mouse_p
, 0, 0, 0, "\
214 Report whether a mouse is present.")
223 DEFUN ("set-mouse-position", Fset_mouse_position
, Sset_mouse_position
, 3, 3, 0,
224 "Move the mouse pointer to the center of character cell (X,Y) in FRAME.\n\
225 WARNING: If you use this under X windows,\n\
226 you should call `unfocus-frame' afterwards.")
228 Lisp_Object frame
, x
, y
;
230 mouse_moveto (XINT (x
), XINT (y
));
234 /* Function to translate colour names to integers. See lisp/term/pc-win.el
235 for its definition. */
237 Lisp_Object Qmsdos_color_translate
;
241 DEFUN ("msdos-mouse-init", Fmsdos_mouse_init
, Smsdos_mouse_init
, 0, 0, "",
242 "Initialize and enable mouse if available.")
254 DEFUN ("msdos-mouse-enable", Fmsdos_mouse_enable
, Smsdos_mouse_enable
, 0, 0, "",
255 "Enable mouse if available.")
263 return have_mouse
? Qt
: Qnil
;
266 DEFUN ("msdos-mouse-disable", Fmsdos_mouse_disable
, Smsdos_mouse_disable
, 0, 0, "",
267 "Disable mouse if available.")
271 if (have_mouse
) have_mouse
= -1;
275 DEFUN ("insert-startup-screen", Finsert_startup_screen
, Sinsert_startup_screen
, 0, 0, "", "\
276 Insert copy of screen contents prior to starting emacs.\n\
277 Return nil if startup screen is not available.")
284 if (!dos_get_saved_screen (&s
, &rows
, &cols
))
287 for (i
= 0; i
< rows
; i
++)
289 for (j
= 0; j
< cols
; j
++)
294 insert_char ('\n', 1);
302 int dos_country_code
;
304 int dos_timezone_offset
;
305 int dos_decimal_point
;
306 int dos_keyboard_layout
;
307 unsigned char dos_country_info
[DOS_COUNTRY_INFO
];
313 Lisp_Object Vdos_version
;
314 Lisp_Object Vdos_display_scancodes
;
315 Lisp_Object Vdos_menubar_clock
;
316 Lisp_Object Vdos_timer_hooks
;
322 _go32_dpmi_seginfo info
;
323 _go32_dpmi_registers dpmiregs
;
325 #ifndef SYSTEM_MALLOC
326 get_lim_data (); /* why the hell isn't this called elsewhere? */
330 intdos (®s
, ®s
);
331 Vdos_version
= Fcons (make_number (regs
.h
.al
), make_number (regs
.h
.ah
));
333 /* Obtain the country code by calling Dos via Dpmi. Don't rely on GO32. */
334 info
.size
= (sizeof(dos_country_info
) + 15) / 16;
335 if (_go32_dpmi_allocate_dos_memory (&info
))
336 dos_country_code
= 1;
339 dpmiregs
.x
.ax
= 0x3800;
340 dpmiregs
.x
.ds
= info
.rm_segment
;
342 dpmiregs
.x
.ss
= dpmiregs
.x
.sp
= 0;
343 _go32_dpmi_simulate_int (0x21, &dpmiregs
);
344 dos_country_code
= dpmiregs
.x
.bx
;
345 dosmemget (info
.rm_segment
* 16, DOS_COUNTRY_INFO
, dos_country_info
);
346 _go32_dpmi_free_dos_memory (&info
);
348 dos_set_keyboard (dos_country_code
, 0);
351 intdos (®s
, ®s
);
353 /* Estimate code page from country code */
354 switch (dos_country_code
)
356 case 45: /* Denmark */
357 case 47: /* Norway */
365 dos_codepage
= regs
.x
.bx
& 0xffff;
374 defsubr (&Smode4350
);
376 defsubr (&Sdos_memget
);
377 defsubr (&Sdos_memput
);
378 defsubr (&Smsdos_mouse_init
);
379 defsubr (&Smsdos_mouse_enable
);
380 defsubr (&Smsdos_set_keyboard
);
381 defsubr (&Sinsert_startup_screen
);
382 defsubr (&Smsdos_mouse_disable
);
383 #ifndef HAVE_X_WINDOWS
384 defsubr (&Smsdos_mouse_p
);
385 defsubr (&Sset_mouse_position
);
387 Qmsdos_color_translate
= intern ("msdos-color-translate");
388 staticpro (&Qmsdos_color_translate
);
391 DEFVAR_INT ("dos-country-code", &dos_country_code
,
392 "The country code returned by Dos when Emacs was started.\n\
393 Usually this is the international telephone prefix.");
395 DEFVAR_INT ("dos-codepage", &dos_codepage
,
396 "The codepage active when Emacs was started.\n\
397 The following are known:\n\
399 850 Multilingual (Latin I)\n\
400 852 Slavic (Latin II)\n\
404 863 Canada (French)\n\
405 865 Norway/Denmark");
407 DEFVAR_INT ("dos-timezone-offset", &dos_timezone_offset
,
408 "The current timezone offset to UTC in minutes.
409 Implicitly modified when the TZ variable is changed.");
411 DEFVAR_LISP ("dos-version", &Vdos_version
,
412 "The (MAJOR . MINOR) Dos version (subject to modification with setver).");
414 DEFVAR_LISP ("dos-display-scancodes", &Vdos_display_scancodes
,
415 "*When non-nil, the keyboard scan-codes are displayed at the bottom right\n\
416 corner of the display (typically at the end of the mode line).\n\
417 The output format is: scan code:char code*modifiers.");
418 Vdos_display_scancodes
= Qnil
;
420 DEFVAR_LISP ("dos-menubar-clock", &Vdos_menubar_clock
,
421 "*When non-nil, the current time is displayed in the upper right\n\
422 corner of the screen (typically at the end of the menu bar).");
423 Vdos_menubar_clock
= Qt
;
425 DEFVAR_LISP ("dos-timer-hooks", &Vdos_timer_hooks
,
426 "List of hooks which are run every second.");
427 Vdos_timer_hooks
= Qnil
;
429 DEFVAR_INT ("dos-hyper-key", &dos_hyper_key
,
430 "*If set to 1, use right ALT key as hyper key.\n\
431 If set to 2, use right CTRL key as hyper key.");
434 DEFVAR_INT ("dos-super-key", &dos_super_key
,
435 "*If set to 1, use right ALT key as super key.\n\
436 If set to 2, use right CTRL key as super key.");
439 DEFVAR_INT ("dos-keypad-mode", &dos_keypad_mode
,
440 "*Controls what key code is returned by a key in the numeric keypad.\n\
441 The `numlock ON' action is only taken if no modifier keys are pressed.\n\
442 The value is an integer constructed by adding the following bits together:\n\
444 0x00 Digit key returns digit (if numlock ON)\n\
445 0x01 Digit key returns kp-digit (if numlock ON)\n\
446 0x02 Digit key returns M-digit (if numlock ON)\n\
447 0x03 Digit key returns edit key (if numlock ON)\n\
449 0x00 Grey key returns char (if numlock ON)\n\
450 0x04 Grey key returns kp-key (if numlock ON)\n\
452 0x00 Digit key returns digit (if numlock OFF)\n\
453 0x10 Digit key returns kp-digit (if numlock OFF)\n\
454 0x20 Digit key returns M-digit (if numlock OFF)\n\
455 0x30 Digit key returns edit key (if numlock OFF)\n\
457 0x00 Grey key returns char (if numlock OFF)\n\
458 0x40 Grey key returns kp-key (if numlock OFF)\n\
460 0x200 ALT-0..ALT-9 in top-row produces shifted codes.");
461 dos_keypad_mode
= 0x70;
463 DEFVAR_INT ("dos-keyboard-layout", &dos_keyboard_layout
,
464 "Contains the country code for the current keyboard layout.\n\
465 Use msdos-set-keyboard to select another keyboard layout.");
466 dos_keyboard_layout
= 1; /* US */
468 DEFVAR_INT ("dos-decimal-point", &dos_decimal_point
,
469 "If non-zero, it contains the character to be returned when the\n\
470 decimal point key in the numeric keypad is pressed when Num Lock is on.\n\
471 If zero, the decimal point key returns the country code specific value.");
472 dos_decimal_point
= 0;