annotate src/dosfns.c @ 29305:9f58922ddbcc

(perl-indent-line): When looking for a label, ensure that the first colon isn't followed by another.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 30 May 2000 20:40:09 +0000
parents 13a2c64e6ade
children 244478dd087e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1 /* MS-DOS specific Lisp utilities. Coded by Manabu Higashida, 1991.
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2 Major changes May-July 1993 Morten Welinder (only 10% original code left)
19294
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
3 Copyright (C) 1991, 1993, 1996, 1997 Free Software Foundation, Inc.
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5 This file is part of GNU Emacs.
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7 GNU Emacs is free software; you can redistribute it and/or modify
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8 it under the terms of the GNU General Public License as published by
10504
8a1bd0598b49 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
9 the Free Software Foundation; either version 2, or (at your option)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10 any later version.
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 GNU General Public License for more details.
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 along with GNU Emacs; see the file COPYING. If not, write to
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14070
diff changeset
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14070
diff changeset
20 Boston, MA 02111-1307, USA. */
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22
5980
a203b7c30300 Use <...> for config.h.
Richard M. Stallman <rms@gnu.org>
parents: 5503
diff changeset
23 #include <config.h>
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25 #ifdef MSDOS
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 /* The entire file is within this conditional */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 #include <stdio.h>
25113
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
29 #include <string.h>
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 #include <dos.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 #include "lisp.h"
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32 #include "buffer.h"
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 #include "termchar.h"
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 #include "termhooks.h"
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 #include "frame.h"
20034
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
36 #include "blockinput.h"
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
37 #include "window.h"
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 #include "dosfns.h"
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 #include "msdos.h"
25113
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
40 #include "dispextern.h"
20034
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
41 #include <dpmi.h>
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
42 #include <go32.h>
15226
31a30cc1d61a (init_dosfns) [DJGPP >= 2]: Make `opendir' preserve
Richard M. Stallman <rms@gnu.org>
parents: 15173
diff changeset
43 #include <dirent.h>
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44
20034
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
45 #ifndef __DJGPP_MINOR__
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
46 # define __tb _go32_info_block.linear_address_of_transfer_buffer;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
47 #endif
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
48
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 DEFUN ("int86", Fint86, Sint86, 2, 2, 0,
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 "Call specific MSDOS interrupt number INTERRUPT with REGISTERS.\n\
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51 Return the updated REGISTER vector.\n\
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52 \n\
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53 INTERRUPT should be an integer in the range 0 to 255.\n\
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54 REGISTERS should be a vector produced by `make-register' and\n\
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55 `set-register-value'.")
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
56 (interrupt, registers)
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
57 Lisp_Object interrupt, registers;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
59 register int i;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 int no;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 union REGS inregs, outregs;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62 Lisp_Object val;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
64 CHECK_NUMBER (interrupt, 0);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
65 no = (unsigned long) XINT (interrupt);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
66 CHECK_VECTOR (registers, 1);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
67 if (no < 0 || no > 0xff || XVECTOR (registers)-> size != 8)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 return Qnil;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69 for (i = 0; i < 8; i++)
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
70 CHECK_NUMBER (XVECTOR (registers)->contents[i], 1);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
72 inregs.x.ax = (unsigned long) XFASTINT (XVECTOR (registers)->contents[0]);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
73 inregs.x.bx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[1]);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
74 inregs.x.cx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[2]);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
75 inregs.x.dx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[3]);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
76 inregs.x.si = (unsigned long) XFASTINT (XVECTOR (registers)->contents[4]);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
77 inregs.x.di = (unsigned long) XFASTINT (XVECTOR (registers)->contents[5]);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
78 inregs.x.cflag = (unsigned long) XFASTINT (XVECTOR (registers)->contents[6]);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
79 inregs.x.flags = (unsigned long) XFASTINT (XVECTOR (registers)->contents[7]);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
80
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81 int86 (no, &inregs, &outregs);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
82
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
83 XVECTOR (registers)->contents[0] = make_number (outregs.x.ax);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
84 XVECTOR (registers)->contents[1] = make_number (outregs.x.bx);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
85 XVECTOR (registers)->contents[2] = make_number (outregs.x.cx);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
86 XVECTOR (registers)->contents[3] = make_number (outregs.x.dx);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
87 XVECTOR (registers)->contents[4] = make_number (outregs.x.si);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
88 XVECTOR (registers)->contents[5] = make_number (outregs.x.di);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
89 XVECTOR (registers)->contents[6] = make_number (outregs.x.cflag);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
90 XVECTOR (registers)->contents[7] = make_number (outregs.x.flags);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
91
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
92 return registers;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
95 DEFUN ("msdos-memget", Fdos_memget, Sdos_memget, 2, 2, 0,
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
96 "Read DOS memory at offset ADDRESS into VECTOR.\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
97 Return the updated VECTOR.")
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
98 (address, vector)
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
99 Lisp_Object address, vector;
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
100 {
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
101 register int i;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
102 int offs, len;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
103 char *buf;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
104 Lisp_Object val;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
105
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
106 CHECK_NUMBER (address, 0);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
107 offs = (unsigned long) XINT (address);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
108 CHECK_VECTOR (vector, 1);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
109 len = XVECTOR (vector)-> size;
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
110 if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len)
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
111 return Qnil;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
112 buf = alloca (len);
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
113 dosmemget (offs, len, buf);
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
114
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
115 for (i = 0; i < len; i++)
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
116 XVECTOR (vector)->contents[i] = make_number (buf[i]);
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
117
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
118 return vector;
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
119 }
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
120
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
121 DEFUN ("msdos-memput", Fdos_memput, Sdos_memput, 2, 2, 0,
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
122 "Write DOS memory at offset ADDRESS from VECTOR.")
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
123 (address, vector)
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
124 Lisp_Object address, vector;
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
125 {
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
126 register int i;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
127 int offs, len;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
128 char *buf;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
129 Lisp_Object val;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
130
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
131 CHECK_NUMBER (address, 0);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
132 offs = (unsigned long) XINT (address);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
133 CHECK_VECTOR (vector, 1);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
134 len = XVECTOR (vector)-> size;
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
135 if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len)
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
136 return Qnil;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
137 buf = alloca (len);
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
138
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
139 for (i = 0; i < len; i++)
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
140 {
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
141 CHECK_NUMBER (XVECTOR (vector)->contents[i], 1);
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
142 buf[i] = (unsigned char) XFASTINT (XVECTOR (vector)->contents[i]) & 0xFF;
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
143 }
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
144
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
145 dosmemput (buf, len, offs);
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
146 return Qt;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
147 }
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
148
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
149 DEFUN ("msdos-set-keyboard", Fmsdos_set_keyboard, Smsdos_set_keyboard, 1, 2, 0,
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
150 "Set keyboard layout according to COUNTRY-CODE.\n\
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
151 If the optional argument ALLKEYS is non-nil, the keyboard is mapped for\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
152 all keys; otherwise it is only used when the ALT key is pressed.\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
153 The current keyboard layout is available in dos-keyboard-code.")
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
154 (country_code, allkeys)
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
155 Lisp_Object country_code;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
156 {
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
157 CHECK_NUMBER (country_code, 0);
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
158 if (!dos_set_keyboard (XINT (country_code), !NILP (allkeys)))
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
159 return Qnil;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
160 return Qt;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
161 }
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
162
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
163 #ifndef HAVE_X_WINDOWS
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
164 /* Later we might want to control the mouse interface with this function,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
165 e.g., with respect to non-80 column screen modes. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
166
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
167 DEFUN ("msdos-mouse-p", Fmsdos_mouse_p, Smsdos_mouse_p, 0, 0, 0, "\
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
168 Report whether a mouse is present.")
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
169 ()
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
170 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
171 if (have_mouse)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
172 return Qt;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
173 else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
174 return Qnil;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
175 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
176 #endif
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
177
12990
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
178
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
179 DEFUN ("msdos-mouse-init", Fmsdos_mouse_init, Smsdos_mouse_init, 0, 0, "",
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
180 "Initialize and enable mouse if available.")
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
181 ()
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
182 {
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
183 if (have_mouse)
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
184 {
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
185 have_mouse = 1;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
186 mouse_init ();
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
187 return Qt;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
188 }
12990
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
189 return Qnil;
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
190 }
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
191
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
192 DEFUN ("msdos-mouse-enable", Fmsdos_mouse_enable, Smsdos_mouse_enable, 0, 0, "",
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
193 "Enable mouse if available.")
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
194 ()
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
195 {
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
196 if (have_mouse)
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
197 {
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
198 have_mouse = 1;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
199 mouse_on ();
12990
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
200 }
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
201 return have_mouse ? Qt : Qnil;
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
202 }
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
203
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
204 DEFUN ("msdos-mouse-disable", Fmsdos_mouse_disable, Smsdos_mouse_disable, 0, 0, "",
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
205 "Disable mouse if available.")
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
206 ()
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
207 {
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
208 mouse_off ();
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
209 if (have_mouse) have_mouse = -1;
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
210 return Qnil;
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
211 }
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
212
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
213 DEFUN ("insert-startup-screen", Finsert_startup_screen, Sinsert_startup_screen, 0, 0, "", "\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
214 Insert copy of screen contents prior to starting emacs.\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
215 Return nil if startup screen is not available.")
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
216 ()
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
217 {
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
218 char *s;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
219 int rows, cols;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
220 int i, j;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
221
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
222 if (!dos_get_saved_screen (&s, &rows, &cols))
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
223 return Qnil;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
224
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
225 for (i = 0; i < rows; i++)
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
226 {
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
227 for (j = 0; j < cols; j++)
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
228 {
19288
bdc4b7818976 (Finsert_startup_screen): Call `insert_char' with a single argument.
Richard M. Stallman <rms@gnu.org>
parents: 16335
diff changeset
229 insert_char (*s);
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
230 s += 2;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
231 }
19288
bdc4b7818976 (Finsert_startup_screen): Call `insert_char' with a single argument.
Richard M. Stallman <rms@gnu.org>
parents: 16335
diff changeset
232 insert_char ('\n');
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
233 }
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
234
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
235 return Qt;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
236 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
237
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
238 /* country info */
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
239 int dos_country_code;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
240 int dos_codepage;
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
241 int dos_timezone_offset;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
242 int dos_decimal_point;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
243 int dos_keyboard_layout;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
244 unsigned char dos_country_info[DOS_COUNTRY_INFO];
19294
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
245 static unsigned char usa_country_info[DOS_COUNTRY_INFO] = {
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
246 0, 0, /* date format */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
247 '$', 0, 0, 0, 0, /* currency string */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
248 ',', 0, /* thousands separator */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
249 '.', 0, /* decimal separator */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
250 '/', 0, /* date separator */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
251 ':', 0, /* time separator */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
252 0, /* currency format */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
253 2, /* digits after decimal in currency */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
254 0, /* time format */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
255 0, 0, 0, 0, /* address of case map routine, GPF if used */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
256 ' ', 0, /* data-list separator (?) */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
257 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /* reserved */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
258 };
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
259
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
260 int dos_hyper_key;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
261 int dos_super_key;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
262 int dos_keypad_mode;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
263
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
264 Lisp_Object Vdos_version;
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
265 Lisp_Object Vdos_display_scancodes;
20034
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
266
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
267 #ifndef HAVE_X_WINDOWS
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
268 static unsigned dos_windows_version;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
269 Lisp_Object Vdos_windows_version;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
270
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
271 char parent_vm_title[50]; /* Ralf Brown says 30 is enough */
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
272 int w95_set_virtual_machine_title (const char *);
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
273
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
274 void
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
275 restore_parent_vm_title (void)
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
276 {
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
277 if (NILP (Vdos_windows_version))
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
278 return;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
279 if ((dos_windows_version & 0xff) >= 4 && parent_vm_title[0])
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
280 w95_set_virtual_machine_title (parent_vm_title);
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
281 delay (50);
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
282 }
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
283 #endif /* !HAVE_X_WINDOWS */
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
284
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
285 void
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
286 init_dosfns ()
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
287 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
288 union REGS regs;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
289 _go32_dpmi_registers dpmiregs;
19294
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
290 unsigned long xbuf = _go32_info_block.linear_address_of_transfer_buffer;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
291
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
292 #ifndef SYSTEM_MALLOC
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
293 get_lim_data (); /* why the hell isn't this called elsewhere? */
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
294 #endif
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
295
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
296 regs.x.ax = 0x3000;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
297 intdos (&regs, &regs);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
298 Vdos_version = Fcons (make_number (regs.h.al), make_number (regs.h.ah));
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
299
19294
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
300 /* Obtain the country code via DPMI, use DJGPP transfer buffer. */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
301 dpmiregs.x.ax = 0x3800;
21430
b6b154ad6e22 (init_dosfns): Fix bug in passing segment address of the transfer buffer.
Eli Zaretskii <eliz@gnu.org>
parents: 20034
diff changeset
302 dpmiregs.x.ds = xbuf >> 4;
19294
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
303 dpmiregs.x.dx = 0;
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
304 dpmiregs.x.ss = dpmiregs.x.sp = dpmiregs.x.flags = 0;
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
305 _go32_dpmi_simulate_int (0x21, &dpmiregs);
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
306 if (dpmiregs.x.flags & 1)
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
307 {
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
308 dos_country_code = 1; /* assume USA if 213800 failed */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
309 memcpy (dos_country_info, usa_country_info, DOS_COUNTRY_INFO);
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
310 }
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
311 else
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
312 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
313 dos_country_code = dpmiregs.x.bx;
19294
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
314 dosmemget (xbuf, DOS_COUNTRY_INFO, dos_country_info);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
315 }
19294
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
316
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
317 dos_set_keyboard (dos_country_code, 0);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
318
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
319 regs.x.ax = 0x6601;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
320 intdos (&regs, &regs);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
321 if (regs.x.cflag)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
322 /* Estimate code page from country code */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
323 switch (dos_country_code)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
324 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
325 case 45: /* Denmark */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
326 case 47: /* Norway */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
327 dos_codepage = 865;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
328 break;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
329 default:
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
330 /* US */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
331 dos_codepage = 437;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
332 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
333 else
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
334 dos_codepage = regs.x.bx & 0xffff;
15226
31a30cc1d61a (init_dosfns) [DJGPP >= 2]: Make `opendir' preserve
Richard M. Stallman <rms@gnu.org>
parents: 15173
diff changeset
335
20034
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
336 #ifndef HAVE_X_WINDOWS
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
337 parent_vm_title[0] = '\0';
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
338
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
339 /* If we are running from DOS box on MS-Windows, get Windows version. */
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
340 dpmiregs.x.ax = 0x1600; /* enhanced mode installation check */
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
341 dpmiregs.x.ss = dpmiregs.x.sp = dpmiregs.x.flags = 0;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
342 _go32_dpmi_simulate_int (0x2f, &dpmiregs);
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
343 /* We only support Windows-specific features when we run on Windows 9X
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
344 or on Windows 3.X/enhanced mode.
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
345
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
346 Int 2Fh/AX=1600h returns:
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
347
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
348 AL = 00: no Windows at all;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
349 AL = 01: Windows/386 2.x;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
350 AL = 80h: Windows 3.x in mode other than enhanced;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
351 AL = FFh: Windows/386 2.x
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
352
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
353 We also check AH > 0 (Windows 3.1 or later), in case AL tricks us. */
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
354 if (dpmiregs.h.al > 2 && dpmiregs.h.al != 0x80 && dpmiregs.h.al != 0xff
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
355 && (dpmiregs.h.al > 3 || dpmiregs.h.ah > 0))
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
356 {
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
357 dos_windows_version = dpmiregs.x.ax;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
358 Vdos_windows_version =
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
359 Fcons (make_number (dpmiregs.h.al), make_number (dpmiregs.h.ah));
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
360
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
361 /* Save the current title of this virtual machine, so we can restore
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
362 it before exiting. Otherwise, Windows 95 will continue to use
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
363 the title we set even after we are history, stupido... */
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
364 if (dpmiregs.h.al >= 4)
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
365 {
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
366 dpmiregs.x.ax = 0x168e;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
367 dpmiregs.x.dx = 3; /* get VM title */
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
368 dpmiregs.x.cx = sizeof(parent_vm_title) - 1;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
369 dpmiregs.x.es = __tb >> 4;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
370 dpmiregs.x.di = __tb & 15;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
371 dpmiregs.x.sp = dpmiregs.x.ss = dpmiregs.x.flags = 0;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
372 _go32_dpmi_simulate_int (0x2f, &dpmiregs);
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
373 if (dpmiregs.x.ax == 1)
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
374 dosmemget (__tb, sizeof(parent_vm_title), parent_vm_title);
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
375 }
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
376 }
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
377 else
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
378 {
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
379 dos_windows_version = 0;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
380 Vdos_windows_version = Qnil;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
381 }
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
382 #endif /* !HAVE_X_WINDOWS */
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
383
15226
31a30cc1d61a (init_dosfns) [DJGPP >= 2]: Make `opendir' preserve
Richard M. Stallman <rms@gnu.org>
parents: 15173
diff changeset
384 #if __DJGPP__ >= 2
31a30cc1d61a (init_dosfns) [DJGPP >= 2]: Make `opendir' preserve
Richard M. Stallman <rms@gnu.org>
parents: 15173
diff changeset
385
16335
6cf0a8b5c895 (init_dosfns): When setting `__opendir_flags' value,
Richard M. Stallman <rms@gnu.org>
parents: 15393
diff changeset
386 /* Without this, we never see hidden files.
6cf0a8b5c895 (init_dosfns): When setting `__opendir_flags' value,
Richard M. Stallman <rms@gnu.org>
parents: 15393
diff changeset
387 Don't OR it with the previous value, so the value recorded at dump
6cf0a8b5c895 (init_dosfns): When setting `__opendir_flags' value,
Richard M. Stallman <rms@gnu.org>
parents: 15393
diff changeset
388 time, possibly with `preserve-case' flags set, won't get through. */
6cf0a8b5c895 (init_dosfns): When setting `__opendir_flags' value,
Richard M. Stallman <rms@gnu.org>
parents: 15393
diff changeset
389 __opendir_flags = __OPENDIR_FIND_HIDDEN;
15226
31a30cc1d61a (init_dosfns) [DJGPP >= 2]: Make `opendir' preserve
Richard M. Stallman <rms@gnu.org>
parents: 15173
diff changeset
390
16335
6cf0a8b5c895 (init_dosfns): When setting `__opendir_flags' value,
Richard M. Stallman <rms@gnu.org>
parents: 15393
diff changeset
391 #if __DJGPP_MINOR__ == 0
6cf0a8b5c895 (init_dosfns): When setting `__opendir_flags' value,
Richard M. Stallman <rms@gnu.org>
parents: 15393
diff changeset
392 /* Under LFN, preserve the case of files as recorded in the directory
6cf0a8b5c895 (init_dosfns): When setting `__opendir_flags' value,
Richard M. Stallman <rms@gnu.org>
parents: 15393
diff changeset
393 (in DJGPP 2.01 and later this is automagically done by the library). */
15226
31a30cc1d61a (init_dosfns) [DJGPP >= 2]: Make `opendir' preserve
Richard M. Stallman <rms@gnu.org>
parents: 15173
diff changeset
394 if (!NILP (Fmsdos_long_file_names ()))
31a30cc1d61a (init_dosfns) [DJGPP >= 2]: Make `opendir' preserve
Richard M. Stallman <rms@gnu.org>
parents: 15173
diff changeset
395 __opendir_flags |= __OPENDIR_PRESERVE_CASE;
16335
6cf0a8b5c895 (init_dosfns): When setting `__opendir_flags' value,
Richard M. Stallman <rms@gnu.org>
parents: 15393
diff changeset
396 #endif /* __DJGPP_MINOR__ == 0 */
6cf0a8b5c895 (init_dosfns): When setting `__opendir_flags' value,
Richard M. Stallman <rms@gnu.org>
parents: 15393
diff changeset
397 #endif /* __DJGPP__ >= 2 */
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
398 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
399
20034
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
400 #ifndef HAVE_X_WINDOWS
25113
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
401
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
402 /* Emulation of some X window features from xfns.c and xfaces.c. */
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
403
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
404 /* Standard VGA colors, in the order of their standard numbering
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
405 in the default VGA palette. */
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
406 static char *vga_colors[16] = {
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
407 "black", "blue", "green", "cyan", "red", "magenta", "brown",
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
408 "lightgray", "darkgray", "lightblue", "lightgreen", "lightcyan",
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
409 "lightred", "lightmagenta", "yellow", "white"
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
410 };
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
411
27115
13a2c64e6ade (unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
412 extern char unspecified_fg[], unspecified_bg[];
26902
264b83a3a688 Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents: 26729
diff changeset
413
25113
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
414 /* Given a color name, return its index, or -1 if not found. Note
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
415 that this only performs case-insensitive comparison against the
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
416 standard names. For anything more sophisticated, like matching
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
417 "gray" with "grey" or translating X color names into their MSDOS
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 25212
diff changeset
418 equivalents, call the Lisp function Qtty_color_desc (defined
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 25212
diff changeset
419 on lisp/term/tty-colors.el). */
25113
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
420 int
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
421 msdos_stdcolor_idx (const char *name)
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
422 {
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
423 int i;
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
424
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
425 for (i = 0; i < sizeof (vga_colors) / sizeof (vga_colors[0]); i++)
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
426 if (strcasecmp (name, vga_colors[i]) == 0)
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
427 return i;
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
428
26902
264b83a3a688 Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents: 26729
diff changeset
429 return
27115
13a2c64e6ade (unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
430 strcmp (name, unspecified_fg) == 0 ? FACE_TTY_DEFAULT_FG_COLOR
13a2c64e6ade (unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
431 : strcmp (name, unspecified_bg) == 0 ? FACE_TTY_DEFAULT_BG_COLOR
26902
264b83a3a688 Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents: 26729
diff changeset
432 : FACE_TTY_DEFAULT_COLOR;
25113
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
433 }
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
434
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
435 /* Given a color index, return its standard name. */
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 25212
diff changeset
436 Lisp_Object
25113
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
437 msdos_stdcolor_name (int idx)
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
438 {
27115
13a2c64e6ade (unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
439 extern Lisp_Object Qunspecified;
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 25212
diff changeset
440
27115
13a2c64e6ade (unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
441 if (idx == FACE_TTY_DEFAULT_FG_COLOR)
13a2c64e6ade (unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
442 return build_string (unspecified_fg);
13a2c64e6ade (unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
443 else if (idx == FACE_TTY_DEFAULT_BG_COLOR)
13a2c64e6ade (unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
444 return build_string (unspecified_bg);
13a2c64e6ade (unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
445 else if (idx >= 0 && idx < sizeof (vga_colors) / sizeof (vga_colors[0]))
13a2c64e6ade (unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
446 return build_string (vga_colors[idx]);
13a2c64e6ade (unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
447 else
13a2c64e6ade (unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
448 return Qunspecified; /* meaning the default */
25113
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
449 }
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
450
20034
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
451 /* Support for features that are available when we run in a DOS box
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
452 on MS-Windows. */
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
453 int
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
454 ms_windows_version (void)
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
455 {
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
456 return dos_windows_version;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
457 }
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
458
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
459 /* Set the title of the current virtual machine, to appear on
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
460 the caption bar of that machine's window. */
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
461
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
462 int
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
463 w95_set_virtual_machine_title (const char *title_string)
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
464 {
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
465 /* Only Windows 9X (version 4 and higher) support this function. */
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
466 if (!NILP (Vdos_windows_version)
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
467 && (dos_windows_version & 0xff) >= 4)
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
468 {
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
469 _go32_dpmi_registers regs;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
470 dosmemput (title_string, strlen (title_string) + 1, __tb);
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
471 regs.x.ax = 0x168e;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
472 regs.x.dx = 1;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
473 regs.x.es = __tb >> 4;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
474 regs.x.di = __tb & 15;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
475 regs.x.sp = regs.x.ss = regs.x.flags = 0;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
476 _go32_dpmi_simulate_int (0x2f, &regs);
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
477 return regs.x.ax == 1;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
478 }
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
479 return 0;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
480 }
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
481
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
482 /* Change the title of frame F to NAME.
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
483 If NAME is nil, use the frame name as the title.
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
484
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
485 If Emacs is not run from a DOS box on Windows 9X, this only
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
486 sets the name in the frame struct, but has no other effects. */
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
487
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
488 void
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
489 x_set_title (f, name)
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
490 struct frame *f;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
491 Lisp_Object name;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
492 {
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
493 /* Don't change the title if it's already NAME. */
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
494 if (EQ (name, f->title))
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
495 return;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
496
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
497 update_mode_lines = 1;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
498
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
499 f->title = name;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
500
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
501 if (NILP (name))
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
502 name = f->name;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
503
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
504 if (FRAME_MSDOS_P (f))
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
505 {
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
506 BLOCK_INPUT;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
507 w95_set_virtual_machine_title (XSTRING (name)->data);
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
508 UNBLOCK_INPUT;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
509 }
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
510 }
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
511 #endif /* !HAVE_X_WINDOWS */
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
512
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
513 void
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
514 dos_cleanup (void)
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
515 {
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
516 #ifndef HAVE_X_WINDOWS
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
517 restore_parent_vm_title ();
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
518 #endif
23814
3229c65a13c5 (dos_cleanup): Flush and fsync the termscript stream.
Eli Zaretskii <eliz@gnu.org>
parents: 21430
diff changeset
519 /* Make sure the termscript file is committed, in case we are
3229c65a13c5 (dos_cleanup): Flush and fsync the termscript stream.
Eli Zaretskii <eliz@gnu.org>
parents: 21430
diff changeset
520 crashing and some vital info was written there. */
3229c65a13c5 (dos_cleanup): Flush and fsync the termscript stream.
Eli Zaretskii <eliz@gnu.org>
parents: 21430
diff changeset
521 if (termscript)
3229c65a13c5 (dos_cleanup): Flush and fsync the termscript stream.
Eli Zaretskii <eliz@gnu.org>
parents: 21430
diff changeset
522 {
3229c65a13c5 (dos_cleanup): Flush and fsync the termscript stream.
Eli Zaretskii <eliz@gnu.org>
parents: 21430
diff changeset
523 fflush (termscript);
3229c65a13c5 (dos_cleanup): Flush and fsync the termscript stream.
Eli Zaretskii <eliz@gnu.org>
parents: 21430
diff changeset
524 fsync (fileno (termscript));
3229c65a13c5 (dos_cleanup): Flush and fsync the termscript stream.
Eli Zaretskii <eliz@gnu.org>
parents: 21430
diff changeset
525 }
20034
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
526 }
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
527
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
528 /*
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
529 * Define everything
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
530 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
531 syms_of_dosfns ()
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
532 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
533 defsubr (&Sint86);
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
534 defsubr (&Sdos_memget);
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
535 defsubr (&Sdos_memput);
12990
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
536 defsubr (&Smsdos_mouse_init);
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
537 defsubr (&Smsdos_mouse_enable);
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
538 defsubr (&Smsdos_set_keyboard);
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
539 defsubr (&Sinsert_startup_screen);
12990
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
540 defsubr (&Smsdos_mouse_disable);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
541 #ifndef HAVE_X_WINDOWS
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
542 defsubr (&Smsdos_mouse_p);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
543 #endif
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
544
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
545 DEFVAR_INT ("dos-country-code", &dos_country_code,
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
546 "The country code returned by Dos when Emacs was started.\n\
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
547 Usually this is the international telephone prefix.");
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
548
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
549 DEFVAR_INT ("dos-codepage", &dos_codepage,
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
550 "The codepage active when Emacs was started.\n\
7272
b5f74966c9da Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 5980
diff changeset
551 The following are known:\n\
b5f74966c9da Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 5980
diff changeset
552 437 United States\n\
b5f74966c9da Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 5980
diff changeset
553 850 Multilingual (Latin I)\n\
b5f74966c9da Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 5980
diff changeset
554 852 Slavic (Latin II)\n\
b5f74966c9da Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 5980
diff changeset
555 857 Turkish\n\
b5f74966c9da Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 5980
diff changeset
556 860 Portugal\n\
b5f74966c9da Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 5980
diff changeset
557 861 Iceland\n\
b5f74966c9da Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 5980
diff changeset
558 863 Canada (French)\n\
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
559 865 Norway/Denmark");
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
560
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
561 DEFVAR_INT ("dos-timezone-offset", &dos_timezone_offset,
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
562 "The current timezone offset to UTC in minutes.
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
563 Implicitly modified when the TZ variable is changed.");
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
564
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
565 DEFVAR_LISP ("dos-version", &Vdos_version,
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
566 "The (MAJOR . MINOR) Dos version (subject to modification with setver).");
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
567
20034
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
568 #ifndef HAVE_X_WINDOWS
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
569 DEFVAR_LISP ("dos-windows-version", &Vdos_windows_version,
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
570 "The (MAJOR . MINOR) Windows version for DOS session on MS-Windows.");
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
571 #endif
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
572
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
573 DEFVAR_LISP ("dos-display-scancodes", &Vdos_display_scancodes,
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
574 "*When non-nil, the keyboard scan-codes are displayed at the bottom right\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
575 corner of the display (typically at the end of the mode line).\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
576 The output format is: scan code:char code*modifiers.");
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
577 Vdos_display_scancodes = Qnil;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
578
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
579 DEFVAR_INT ("dos-hyper-key", &dos_hyper_key,
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
580 "*If set to 1, use right ALT key as hyper key.\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
581 If set to 2, use right CTRL key as hyper key.");
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
582 dos_hyper_key = 0;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
583
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
584 DEFVAR_INT ("dos-super-key", &dos_super_key,
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
585 "*If set to 1, use right ALT key as super key.\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
586 If set to 2, use right CTRL key as super key.");
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
587 dos_super_key = 0;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
588
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
589 DEFVAR_INT ("dos-keypad-mode", &dos_keypad_mode,
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
590 "*Controls what key code is returned by a key in the numeric keypad.\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
591 The `numlock ON' action is only taken if no modifier keys are pressed.\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
592 The value is an integer constructed by adding the following bits together:\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
593 \n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
594 0x00 Digit key returns digit (if numlock ON)\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
595 0x01 Digit key returns kp-digit (if numlock ON)\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
596 0x02 Digit key returns M-digit (if numlock ON)\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
597 0x03 Digit key returns edit key (if numlock ON)\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
598 \n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
599 0x00 Grey key returns char (if numlock ON)\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
600 0x04 Grey key returns kp-key (if numlock ON)\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
601 \n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
602 0x00 Digit key returns digit (if numlock OFF)\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
603 0x10 Digit key returns kp-digit (if numlock OFF)\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
604 0x20 Digit key returns M-digit (if numlock OFF)\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
605 0x30 Digit key returns edit key (if numlock OFF)\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
606 \n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
607 0x00 Grey key returns char (if numlock OFF)\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
608 0x40 Grey key returns kp-key (if numlock OFF)\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
609 \n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
610 0x200 ALT-0..ALT-9 in top-row produces shifted codes.");
13612
342d919f52b2 (syms_of_dosfns): Use 0x75 for dos_keypad_mode.
Richard M. Stallman <rms@gnu.org>
parents: 13180
diff changeset
611 dos_keypad_mode = 0x75;
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
612
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
613 DEFVAR_INT ("dos-keyboard-layout", &dos_keyboard_layout,
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
614 "Contains the country code for the current keyboard layout.\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
615 Use msdos-set-keyboard to select another keyboard layout.");
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
616 dos_keyboard_layout = 1; /* US */
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
617
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
618 DEFVAR_INT ("dos-decimal-point", &dos_decimal_point,
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
619 "If non-zero, it contains the character to be returned when the\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
620 decimal point key in the numeric keypad is pressed when Num Lock is on.\n\
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
621 If zero, the decimal point key returns the country code specific value.");
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
622 dos_decimal_point = 0;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
623 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
624 #endif /* MSDOS */