Add 2011 to FSF/AIST copyright years.
[emacs.git] / src / dosfns.c
blob4de9ecf0dc4980cb635a84fa5437cf586e387cb5
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, 1998, 2001, 2002, 2003, 2004,
4 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
6 This file is part of GNU Emacs.
8 GNU Emacs is free software: you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation, either version 3 of the License, or
11 (at your option) any later version.
13 GNU Emacs is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
21 #include <config.h>
23 #ifdef MSDOS
24 /* The entire file is within this conditional */
26 #include <stdio.h>
27 #include <string.h>
28 #include <dos.h>
29 #include <setjmp.h>
30 #include "lisp.h"
31 #include "buffer.h"
32 #include "termchar.h"
33 #include "frame.h"
34 #include "termhooks.h"
35 #include "blockinput.h"
36 #include "window.h"
37 #include "dosfns.h"
38 #include "msdos.h"
39 #include "dispextern.h"
40 #include "character.h"
41 #include "coding.h"
42 #include "process.h"
43 #include <dpmi.h>
44 #include <go32.h>
45 #include <dirent.h>
46 #include <sys/vfs.h>
47 #include <unistd.h>
48 #include <grp.h>
49 #include <crt0.h>
51 #ifndef __DJGPP_MINOR__
52 # define __tb _go32_info_block.linear_address_of_transfer_buffer;
53 #endif
55 DEFUN ("int86", Fint86, Sint86, 2, 2, 0,
56 doc: /* Call specific MS-DOS interrupt number INTERRUPT with REGISTERS.
57 Return the updated REGISTER vector.
59 INTERRUPT should be an integer in the range 0 to 255.
60 REGISTERS should be a vector produced by `make-register' and
61 `set-register-value'. */)
62 (interrupt, registers)
63 Lisp_Object interrupt, registers;
65 register int i;
66 int no;
67 union REGS inregs, outregs;
68 Lisp_Object val;
70 CHECK_NUMBER (interrupt);
71 no = (unsigned long) XINT (interrupt);
72 CHECK_VECTOR (registers);
73 if (no < 0 || no > 0xff || XVECTOR (registers)-> size != 8)
74 return Qnil;
75 for (i = 0; i < 8; i++)
76 CHECK_NUMBER (XVECTOR (registers)->contents[i]);
78 inregs.x.ax = (unsigned long) XFASTINT (XVECTOR (registers)->contents[0]);
79 inregs.x.bx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[1]);
80 inregs.x.cx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[2]);
81 inregs.x.dx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[3]);
82 inregs.x.si = (unsigned long) XFASTINT (XVECTOR (registers)->contents[4]);
83 inregs.x.di = (unsigned long) XFASTINT (XVECTOR (registers)->contents[5]);
84 inregs.x.cflag = (unsigned long) XFASTINT (XVECTOR (registers)->contents[6]);
85 inregs.x.flags = (unsigned long) XFASTINT (XVECTOR (registers)->contents[7]);
87 int86 (no, &inregs, &outregs);
89 XVECTOR (registers)->contents[0] = make_number (outregs.x.ax);
90 XVECTOR (registers)->contents[1] = make_number (outregs.x.bx);
91 XVECTOR (registers)->contents[2] = make_number (outregs.x.cx);
92 XVECTOR (registers)->contents[3] = make_number (outregs.x.dx);
93 XVECTOR (registers)->contents[4] = make_number (outregs.x.si);
94 XVECTOR (registers)->contents[5] = make_number (outregs.x.di);
95 XVECTOR (registers)->contents[6] = make_number (outregs.x.cflag);
96 XVECTOR (registers)->contents[7] = make_number (outregs.x.flags);
98 return registers;
101 DEFUN ("msdos-memget", Fdos_memget, Sdos_memget, 2, 2, 0,
102 doc: /* Read DOS memory at offset ADDRESS into VECTOR.
103 Return the updated VECTOR. */)
104 (address, vector)
105 Lisp_Object address, vector;
107 register int i;
108 int offs, len;
109 char *buf;
110 Lisp_Object val;
112 CHECK_NUMBER (address);
113 offs = (unsigned long) XINT (address);
114 CHECK_VECTOR (vector);
115 len = XVECTOR (vector)-> size;
116 if (len < 1 || len > 2048 || offs < 0 || offs > 0xfffff - len)
117 return Qnil;
118 buf = alloca (len);
119 dosmemget (offs, len, buf);
121 for (i = 0; i < len; i++)
122 XVECTOR (vector)->contents[i] = make_number (buf[i]);
124 return vector;
127 DEFUN ("msdos-memput", Fdos_memput, Sdos_memput, 2, 2, 0,
128 doc: /* Write DOS memory at offset ADDRESS from VECTOR. */)
129 (address, vector)
130 Lisp_Object address, vector;
132 register int i;
133 int offs, len;
134 char *buf;
135 Lisp_Object val;
137 CHECK_NUMBER (address);
138 offs = (unsigned long) XINT (address);
139 CHECK_VECTOR (vector);
140 len = XVECTOR (vector)-> size;
141 if (len < 1 || len > 2048 || offs < 0 || offs > 0xfffff - len)
142 return Qnil;
143 buf = alloca (len);
145 for (i = 0; i < len; i++)
147 CHECK_NUMBER (XVECTOR (vector)->contents[i]);
148 buf[i] = (unsigned char) XFASTINT (XVECTOR (vector)->contents[i]) & 0xFF;
151 dosmemput (buf, len, offs);
152 return Qt;
155 DEFUN ("msdos-set-keyboard", Fmsdos_set_keyboard, Smsdos_set_keyboard, 1, 2, 0,
156 doc: /* Set keyboard layout according to COUNTRY-CODE.
157 If the optional argument ALLKEYS is non-nil, the keyboard is mapped for
158 all keys; otherwise it is only used when the ALT key is pressed.
159 The current keyboard layout is available in dos-keyboard-code. */)
160 (country_code, allkeys)
161 Lisp_Object country_code, allkeys;
163 CHECK_NUMBER (country_code);
164 if (!dos_set_keyboard (XINT (country_code), !NILP (allkeys)))
165 return Qnil;
166 return Qt;
169 #ifndef HAVE_X_WINDOWS
170 /* Later we might want to control the mouse interface with this function,
171 e.g., with respect to non-80 column screen modes. */
173 DEFUN ("msdos-mouse-p", Fmsdos_mouse_p, Smsdos_mouse_p, 0, 0, 0,
174 doc: /* Report whether a mouse is present. */)
177 if (have_mouse)
178 return Qt;
179 else
180 return Qnil;
182 #endif
184 DEFUN ("msdos-mouse-init", Fmsdos_mouse_init, Smsdos_mouse_init, 0, 0, "",
185 doc: /* Initialize and enable mouse if available. */)
188 if (have_mouse)
190 have_mouse = 1;
191 mouse_init ();
192 return Qt;
194 return Qnil;
197 DEFUN ("msdos-mouse-enable", Fmsdos_mouse_enable, Smsdos_mouse_enable, 0, 0, "",
198 doc: /* Enable mouse if available. */)
201 if (have_mouse)
203 have_mouse = 1;
204 mouse_on ();
206 return have_mouse ? Qt : Qnil;
209 DEFUN ("msdos-mouse-disable", Fmsdos_mouse_disable, Smsdos_mouse_disable, 0, 0, "",
210 doc: /* Disable mouse if available. */)
213 mouse_off ();
214 if (have_mouse) have_mouse = -1;
215 return Qnil;
218 DEFUN ("insert-startup-screen", Finsert_startup_screen, Sinsert_startup_screen, 0, 0, "",
219 doc: /* Insert copy of screen contents prior to starting Emacs.
220 Return nil if startup screen is not available. */)
223 char *s;
224 int rows, cols, i, j;
226 if (!dos_get_saved_screen (&s, &rows, &cols))
227 return Qnil;
229 for (i = 0; i < rows; i++)
231 for (j = 0; j < cols; j++)
233 insert_char (*s);
234 s += 2;
236 insert_char ('\n');
239 return Qt;
242 /* country info */
243 EMACS_INT dos_country_code;
244 EMACS_INT dos_codepage;
245 EMACS_INT dos_timezone_offset;
246 EMACS_INT dos_decimal_point;
247 EMACS_INT dos_keyboard_layout;
248 unsigned char dos_country_info[DOS_COUNTRY_INFO];
249 static unsigned char usa_country_info[DOS_COUNTRY_INFO] = {
250 0, 0, /* date format */
251 '$', 0, 0, 0, 0, /* currency string */
252 ',', 0, /* thousands separator */
253 '.', 0, /* decimal separator */
254 '/', 0, /* date separator */
255 ':', 0, /* time separator */
256 0, /* currency format */
257 2, /* digits after decimal in currency */
258 0, /* time format */
259 0, 0, 0, 0, /* address of case map routine, GPF if used */
260 ' ', 0, /* data-list separator (?) */
261 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /* reserved */
264 EMACS_INT dos_hyper_key;
265 EMACS_INT dos_super_key;
266 EMACS_INT dos_keypad_mode;
268 Lisp_Object Vdos_version;
269 Lisp_Object Vdos_display_scancodes;
271 #ifndef HAVE_X_WINDOWS
272 static unsigned dos_windows_version;
273 Lisp_Object Vdos_windows_version;
275 char parent_vm_title[50]; /* Ralf Brown says 30 is enough */
276 int w95_set_virtual_machine_title (const char *);
278 void
279 restore_parent_vm_title (void)
281 if (NILP (Vdos_windows_version))
282 return;
283 if ((dos_windows_version & 0xff) >= 4 && parent_vm_title[0])
284 w95_set_virtual_machine_title (parent_vm_title);
285 delay (50);
287 #endif /* !HAVE_X_WINDOWS */
289 void
290 init_dosfns ()
292 union REGS regs;
293 _go32_dpmi_registers dpmiregs;
294 unsigned long xbuf = _go32_info_block.linear_address_of_transfer_buffer;
296 #ifndef SYSTEM_MALLOC
297 get_lim_data (); /* why the hell isn't this called elsewhere? */
298 #endif
300 regs.x.ax = 0x3000;
301 intdos (&regs, &regs);
302 Vdos_version = Fcons (make_number (regs.h.al), make_number (regs.h.ah));
304 /* Obtain the country code via DPMI, use DJGPP transfer buffer. */
305 dpmiregs.x.ax = 0x3800;
306 dpmiregs.x.ds = xbuf >> 4;
307 dpmiregs.x.dx = 0;
308 dpmiregs.x.ss = dpmiregs.x.sp = dpmiregs.x.flags = 0;
309 _go32_dpmi_simulate_int (0x21, &dpmiregs);
310 if (dpmiregs.x.flags & 1)
312 dos_country_code = 1; /* assume USA if 213800 failed */
313 memcpy (dos_country_info, usa_country_info, DOS_COUNTRY_INFO);
315 else
317 dos_country_code = dpmiregs.x.bx;
318 dosmemget (xbuf, DOS_COUNTRY_INFO, dos_country_info);
321 dos_set_keyboard (dos_country_code, 0);
323 regs.x.ax = 0x6601;
324 intdos (&regs, &regs);
325 if (regs.x.cflag)
326 /* Estimate code page from country code */
327 switch (dos_country_code)
329 case 45: /* Denmark */
330 case 47: /* Norway */
331 dos_codepage = 865;
332 break;
333 default:
334 /* US */
335 dos_codepage = 437;
337 else
338 dos_codepage = regs.x.bx & 0xffff;
340 #ifndef HAVE_X_WINDOWS
341 parent_vm_title[0] = '\0';
343 /* If we are running from DOS box on MS-Windows, get Windows version. */
344 dpmiregs.x.ax = 0x1600; /* enhanced mode installation check */
345 dpmiregs.x.ss = dpmiregs.x.sp = dpmiregs.x.flags = 0;
346 _go32_dpmi_simulate_int (0x2f, &dpmiregs);
347 /* We only support Windows-specific features when we run on Windows 9X
348 or on Windows 3.X/enhanced mode.
350 Int 2Fh/AX=1600h returns:
352 AL = 00: no Windows at all;
353 AL = 01: Windows/386 2.x;
354 AL = 80h: Windows 3.x in mode other than enhanced;
355 AL = FFh: Windows/386 2.x
357 We also check AH > 0 (Windows 3.1 or later), in case AL tricks us. */
358 if (dpmiregs.h.al > 2 && dpmiregs.h.al != 0x80 && dpmiregs.h.al != 0xff
359 && (dpmiregs.h.al > 3 || dpmiregs.h.ah > 0))
361 dos_windows_version = dpmiregs.x.ax;
362 Vdos_windows_version =
363 Fcons (make_number (dpmiregs.h.al), make_number (dpmiregs.h.ah));
365 /* Save the current title of this virtual machine, so we can restore
366 it before exiting. Otherwise, Windows 95 will continue to use
367 the title we set even after we are history, stupido... */
368 if (dpmiregs.h.al >= 4)
370 dpmiregs.x.ax = 0x168e;
371 dpmiregs.x.dx = 3; /* get VM title */
372 dpmiregs.x.cx = sizeof(parent_vm_title) - 1;
373 dpmiregs.x.es = __tb >> 4;
374 dpmiregs.x.di = __tb & 15;
375 dpmiregs.x.sp = dpmiregs.x.ss = dpmiregs.x.flags = 0;
376 _go32_dpmi_simulate_int (0x2f, &dpmiregs);
377 if (dpmiregs.x.ax == 1)
378 dosmemget (__tb, sizeof(parent_vm_title), parent_vm_title);
381 else
383 dos_windows_version = 0;
384 Vdos_windows_version = Qnil;
386 #endif /* !HAVE_X_WINDOWS */
388 #if __DJGPP__ >= 2
390 /* Without this, we never see hidden files.
391 Don't OR it with the previous value, so the value recorded at dump
392 time, possibly with `preserve-case' flags set, won't get through. */
393 __opendir_flags = __OPENDIR_FIND_HIDDEN;
395 #if __DJGPP_MINOR__ == 0
396 /* Under LFN, preserve the case of files as recorded in the directory
397 (in DJGPP 2.01 and later this is automagically done by the library). */
398 if (!NILP (Fmsdos_long_file_names ()))
399 __opendir_flags |= __OPENDIR_PRESERVE_CASE;
400 #endif /* __DJGPP_MINOR__ == 0 */
401 #endif /* __DJGPP__ >= 2 */
404 #ifndef HAVE_X_WINDOWS
406 /* Emulation of some X window features from xfns.c and xfaces.c. */
408 /* Standard VGA colors, in the order of their standard numbering
409 in the default VGA palette. */
410 static char *vga_colors[16] = {
411 "black", "blue", "green", "cyan", "red", "magenta", "brown",
412 "lightgray", "darkgray", "lightblue", "lightgreen", "lightcyan",
413 "lightred", "lightmagenta", "yellow", "white"
416 /* Given a color name, return its index, or -1 if not found. Note
417 that this only performs case-insensitive comparison against the
418 standard names. For anything more sophisticated, like matching
419 "gray" with "grey" or translating X color names into their MSDOS
420 equivalents, call the Lisp function Qtty_color_desc (defined
421 on lisp/term/tty-colors.el). */
423 msdos_stdcolor_idx (const char *name)
425 int i;
427 for (i = 0; i < sizeof (vga_colors) / sizeof (vga_colors[0]); i++)
428 if (xstrcasecmp (name, vga_colors[i]) == 0)
429 return i;
431 return
432 strcmp (name, unspecified_fg) == 0 ? FACE_TTY_DEFAULT_FG_COLOR
433 : strcmp (name, unspecified_bg) == 0 ? FACE_TTY_DEFAULT_BG_COLOR
434 : FACE_TTY_DEFAULT_COLOR;
437 /* Given a color index, return its standard name. */
438 Lisp_Object
439 msdos_stdcolor_name (int idx)
441 extern Lisp_Object Qunspecified;
443 if (idx == FACE_TTY_DEFAULT_FG_COLOR)
444 return build_string (unspecified_fg);
445 else if (idx == FACE_TTY_DEFAULT_BG_COLOR)
446 return build_string (unspecified_bg);
447 else if (idx >= 0 && idx < sizeof (vga_colors) / sizeof (vga_colors[0]))
448 return build_string (vga_colors[idx]);
449 else
450 return Qunspecified; /* meaning the default */
453 /* Support for features that are available when we run in a DOS box
454 on MS-Windows. */
456 ms_windows_version (void)
458 return dos_windows_version;
461 /* Set the title of the current virtual machine, to appear on
462 the caption bar of that machine's window. */
465 w95_set_virtual_machine_title (const char *title_string)
467 /* Only Windows 9X (version 4 and higher) support this function. */
468 if (!NILP (Vdos_windows_version)
469 && (dos_windows_version & 0xff) >= 4)
471 _go32_dpmi_registers regs;
472 dosmemput (title_string, strlen (title_string) + 1, __tb);
473 regs.x.ax = 0x168e;
474 regs.x.dx = 1;
475 regs.x.es = __tb >> 4;
476 regs.x.di = __tb & 15;
477 regs.x.sp = regs.x.ss = regs.x.flags = 0;
478 _go32_dpmi_simulate_int (0x2f, &regs);
479 return regs.x.ax == 1;
481 return 0;
484 /* Change the title of frame F to NAME.
485 If NAME is nil, use the frame name as the title.
487 If Emacs is not run from a DOS box on Windows 9X, this only
488 sets the name in the frame struct, but has no other effects. */
490 void
491 x_set_title (f, name)
492 struct frame *f;
493 Lisp_Object name;
495 /* Don't change the title if it's already NAME. */
496 if (EQ (name, f->title))
497 return;
499 update_mode_lines = 1;
501 f->title = name;
503 if (NILP (name))
504 name = f->name;
506 if (FRAME_MSDOS_P (f))
508 BLOCK_INPUT;
509 w95_set_virtual_machine_title (SDATA (name));
510 UNBLOCK_INPUT;
513 #endif /* !HAVE_X_WINDOWS */
515 DEFUN ("file-system-info", Ffile_system_info, Sfile_system_info, 1, 1, 0,
516 doc: /* Return storage information about the file system FILENAME is on.
517 Value is a list of floats (TOTAL FREE AVAIL), where TOTAL is the total
518 storage of the file system, FREE is the free storage, and AVAIL is the
519 storage available to a non-superuser. All 3 numbers are in bytes.
520 If the underlying system call fails, value is nil. */)
521 (filename)
522 Lisp_Object filename;
524 struct statfs stfs;
525 Lisp_Object encoded, value;
527 CHECK_STRING (filename);
528 filename = Fexpand_file_name (filename, Qnil);
529 encoded = ENCODE_FILE (filename);
531 if (statfs (SDATA (encoded), &stfs))
532 value = Qnil;
533 else
534 value = list3 (make_float ((double) stfs.f_bsize * stfs.f_blocks),
535 make_float ((double) stfs.f_bsize * stfs.f_bfree),
536 make_float ((double) stfs.f_bsize * stfs.f_bavail));
538 return value;
541 /* System depended enumeration of and access to system processes a-la
542 ps(1). Here, we only return info about the running Emacs process.
543 (There are no other processes on DOS, right?) */
545 Lisp_Object
546 list_system_processes ()
548 Lisp_Object proclist = Qnil;
550 proclist = Fcons (make_fixnum_or_float (getpid ()), proclist);
552 return proclist;
555 Lisp_Object
556 system_process_attributes (Lisp_Object pid)
558 int proc_id;
559 Lisp_Object attrs = Qnil;
561 CHECK_NUMBER_OR_FLOAT (pid);
562 proc_id = FLOATP (pid) ? XFLOAT_DATA (pid) : XINT (pid);
564 if (proc_id == getpid ())
566 EMACS_INT uid, gid;
567 char *usr;
568 struct group *gr;
569 char cmd[FILENAME_MAX];
570 char *cmdline = NULL, *p, *q;
571 size_t cmdline_size = 0;
572 int i;
573 Lisp_Object cmd_str, decoded_cmd, tem;
574 double pmem;
575 #ifndef SYSTEM_MALLOC
576 extern unsigned long ret_lim_data ();
577 #endif
579 uid = getuid ();
580 attrs = Fcons (Fcons (Qeuid, make_fixnum_or_float (uid)), attrs);
581 usr = getlogin ();
582 if (usr)
583 attrs = Fcons (Fcons (Quser, build_string (usr)), attrs);
584 gid = getgid ();
585 attrs = Fcons (Fcons (Qegid, make_fixnum_or_float (gid)), attrs);
586 gr = getgrgid (gid);
587 if (gr)
588 attrs = Fcons (Fcons (Qgroup, build_string (gr->gr_name)), attrs);
589 strcpy (cmd, basename (__crt0_argv[0]));
590 /* Command name is encoded in locale-coding-system; decode it. */
591 cmd_str = make_unibyte_string (cmd, strlen (cmd));
592 decoded_cmd = code_convert_string_norecord (cmd_str,
593 Vlocale_coding_system, 0);
594 attrs = Fcons (Fcons (Qcomm, decoded_cmd), attrs);
595 /* Pretend we have 0 as PPID. */
596 attrs = Fcons (Fcons (Qppid, make_number (0)), attrs);
597 attrs = Fcons (Fcons (Qpgrp, pid), attrs);
598 attrs = Fcons (Fcons (Qttname, build_string ("/dev/tty")), attrs);
599 /* We are never idle! */
600 tem = Fget_internal_run_time ();
601 attrs = Fcons (Fcons (Qtime, tem), attrs);
602 attrs = Fcons (Fcons (Qthcount, make_number (1)), attrs);
603 attrs = Fcons (Fcons (Qstart,
604 Fsymbol_value (intern ("before-init-time"))),
605 attrs);
606 attrs = Fcons (Fcons (Qvsize,
607 make_fixnum_or_float ((unsigned long)sbrk(0)/1024)),
608 attrs);
609 attrs = Fcons (Fcons (Qetime, tem), attrs);
610 #ifndef SYSTEM_MALLOC
611 /* ret_lim_data is on vm-limit.c, which is not compiled in under
612 SYSTEM_MALLOC. */
613 pmem = (double)((unsigned long) sbrk (0)) / ret_lim_data () * 100.0;
614 if (pmem > 100)
615 #endif
616 pmem = 100;
617 attrs = Fcons (Fcons (Qpmem, make_float (pmem)), attrs);
618 /* Pass 1: Count how much storage we need. */
619 for (i = 0; i < __crt0_argc; i++)
621 cmdline_size += strlen (__crt0_argv[i]) + 1; /* +1 for blank delim */
622 if (strpbrk (__crt0_argv[i], " \t\n\r\v\f"))
624 cmdline_size += 2;
625 for (p = __crt0_argv[i]; *p; p++)
627 if (*p == '"')
628 cmdline_size++;
632 /* Pass 2: Allocate storage and concatenate argv[]. */
633 cmdline = xmalloc (cmdline_size + 1);
634 for (i = 0, q = cmdline; i < __crt0_argc; i++)
636 if (strpbrk (__crt0_argv[i], " \t\n\r\v\f"))
638 *q++ = '"';
639 for (p = __crt0_argv[i]; *p; p++)
641 if (*p == '\"')
642 *q++ = '\\';
643 *q++ = *p;
645 *q++ = '"';
647 else
649 strcpy (q, __crt0_argv[i]);
650 q += strlen (__crt0_argv[i]);
652 *q++ = ' ';
654 /* Remove the trailing blank. */
655 if (q > cmdline)
656 q[-1] = '\0';
658 /* Command line is encoded in locale-coding-system; decode it. */
659 cmd_str = make_unibyte_string (cmdline, strlen (cmdline));
660 decoded_cmd = code_convert_string_norecord (cmd_str,
661 Vlocale_coding_system, 0);
662 xfree (cmdline);
663 attrs = Fcons (Fcons (Qargs, decoded_cmd), attrs);
666 return attrs;
669 void
670 dos_cleanup (void)
672 struct tty_display_info *tty;
674 #ifndef HAVE_X_WINDOWS
675 restore_parent_vm_title ();
676 #endif
677 /* Make sure the termscript file is committed, in case we are
678 crashing and some vital info was written there. */
679 if (FRAMEP (selected_frame))
681 struct frame *sf = XFRAME (selected_frame);
683 if (FRAME_LIVE_P (sf)
684 && (FRAME_MSDOS_P (sf) || FRAME_TERMCAP_P (sf)))
686 tty = CURTTY ();
687 if (tty->termscript)
689 fflush (tty->termscript);
690 fsync (fileno (tty->termscript));
697 * Define everything
699 syms_of_dosfns ()
701 defsubr (&Sint86);
702 defsubr (&Sdos_memget);
703 defsubr (&Sdos_memput);
704 defsubr (&Smsdos_mouse_init);
705 defsubr (&Smsdos_mouse_enable);
706 defsubr (&Smsdos_set_keyboard);
707 defsubr (&Sinsert_startup_screen);
708 defsubr (&Smsdos_mouse_disable);
709 defsubr (&Sfile_system_info);
710 #ifndef HAVE_X_WINDOWS
711 defsubr (&Smsdos_mouse_p);
712 #endif
714 DEFVAR_INT ("dos-country-code", &dos_country_code,
715 doc: /* The country code returned by Dos when Emacs was started.
716 Usually this is the international telephone prefix. */);
718 DEFVAR_INT ("dos-codepage", &dos_codepage,
719 doc: /* The codepage active when Emacs was started.
720 The following are known:
721 437 United States
722 850 Multilingual (Latin I)
723 852 Slavic (Latin II)
724 857 Turkish
725 860 Portugal
726 861 Iceland
727 863 Canada (French)
728 865 Norway/Denmark */);
730 DEFVAR_INT ("dos-timezone-offset", &dos_timezone_offset,
731 doc: /* The current timezone offset to UTC in minutes.
732 Implicitly modified when the TZ variable is changed. */);
734 DEFVAR_LISP ("dos-version", &Vdos_version,
735 doc: /* The (MAJOR . MINOR) Dos version (subject to modification with setver). */);
737 #ifndef HAVE_X_WINDOWS
738 DEFVAR_LISP ("dos-windows-version", &Vdos_windows_version,
739 doc: /* The (MAJOR . MINOR) Windows version for DOS session on MS-Windows. */);
740 #endif
742 DEFVAR_LISP ("dos-display-scancodes", &Vdos_display_scancodes,
743 doc: /* *Controls whether DOS raw keyboard events are displayed as you type.
744 When non-nil, the keyboard scan-codes are displayed at the bottom right
745 corner of the display (typically at the end of the mode line).
746 The output format is: scan code:char code*modifiers. */);
748 Vdos_display_scancodes = Qnil;
750 DEFVAR_INT ("dos-hyper-key", &dos_hyper_key,
751 doc: /* *If set to 1, use right ALT key as hyper key.
752 If set to 2, use right CTRL key as hyper key. */);
753 dos_hyper_key = 0;
755 DEFVAR_INT ("dos-super-key", &dos_super_key,
756 doc: /* *If set to 1, use right ALT key as super key.
757 If set to 2, use right CTRL key as super key. */);
758 dos_super_key = 0;
760 DEFVAR_INT ("dos-keypad-mode", &dos_keypad_mode,
761 doc: /* *Controls what key code is returned by a key in the numeric keypad.
762 The `numlock ON' action is only taken if no modifier keys are pressed.
763 The value is an integer constructed by adding the following bits together:
765 0x00 Digit key returns digit (if numlock ON)
766 0x01 Digit key returns kp-digit (if numlock ON)
767 0x02 Digit key returns M-digit (if numlock ON)
768 0x03 Digit key returns edit key (if numlock ON)
770 0x00 Grey key returns char (if numlock ON)
771 0x04 Grey key returns kp-key (if numlock ON)
773 0x00 Digit key returns digit (if numlock OFF)
774 0x10 Digit key returns kp-digit (if numlock OFF)
775 0x20 Digit key returns M-digit (if numlock OFF)
776 0x30 Digit key returns edit key (if numlock OFF)
778 0x00 Grey key returns char (if numlock OFF)
779 0x40 Grey key returns kp-key (if numlock OFF)
781 0x200 ALT-0..ALT-9 in top-row produces shifted codes. */);
782 dos_keypad_mode = 0x75;
784 DEFVAR_INT ("dos-keyboard-layout", &dos_keyboard_layout,
785 doc: /* Contains the country code for the current keyboard layout.
786 Use msdos-set-keyboard to select another keyboard layout. */);
787 dos_keyboard_layout = 1; /* US */
789 DEFVAR_INT ("dos-decimal-point", &dos_decimal_point,
790 doc: /* The character to produce when kp-decimal key is pressed.
791 If non-zero, this variable contains the character to be returned when the
792 decimal point key in the numeric keypad is pressed when Num Lock is on.
793 If zero, the decimal point key returns the country code specific value. */);
794 dos_decimal_point = 0;
796 #endif /* MSDOS */
798 /* arch-tag: f5ea8847-a014-42c9-83f5-7738ad640b17
799 (do not change this comment) */