annotate src/dosfns.c @ 112383:051c56a77c5c

Give kbd-macro-termination-hook a doc. * src/macros.c (syms_of_macros) <kbd-macro-termination-hook>: Give it a doc string. * src/globals.h: Add Vkbd_macro_termination_hook.
author Glenn Morris <rgm@gnu.org>
date Wed, 19 Jan 2011 22:10:05 -0800
parents 42e22c4f06b7
children
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)
64770
a0d1312ede66 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64084
diff changeset
3 Copyright (C) 1991, 1993, 1996, 1997, 1998, 2001, 2002, 2003, 2004,
112218
376148b31b5e Add 2011 to FSF/AIST copyright years.
Glenn Morris <rgm@gnu.org>
parents: 106815
diff changeset
4 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6 This file is part of GNU Emacs.
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91327
diff changeset
8 GNU Emacs is free software: you can redistribute it and/or modify
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9 it under the terms of the GNU General Public License as published by
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91327
diff changeset
10 the Free Software Foundation, either version 3 of the License, or
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91327
diff changeset
11 (at your option) any later version.
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 GNU Emacs is distributed in the hope that it will be useful,
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 GNU General Public License for more details.
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 You should have received a copy of the GNU General Public License
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91327
diff changeset
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20
5980
a203b7c30300 Use <...> for config.h.
Richard M. Stallman <rms@gnu.org>
parents: 5503
diff changeset
21 #include <config.h>
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 #ifdef MSDOS
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 /* The entire file is within this conditional */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 #include <stdio.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 #include <dos.h>
105669
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 102838
diff changeset
28 #include <setjmp.h>
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 #include "lisp.h"
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 #include "buffer.h"
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 #include "termchar.h"
97653
8e2483da8823 Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents: 95209
diff changeset
32 #include "frame.h"
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 #include "termhooks.h"
20034
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
34 #include "blockinput.h"
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
35 #include "window.h"
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 #include "dosfns.h"
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37 #include "msdos.h"
25113
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
38 #include "dispextern.h"
88351
aac41b50c875 Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents: 41914
diff changeset
39 #include "character.h"
34348
5cd770204501 (Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 32544
diff changeset
40 #include "coding.h"
100859
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
41 #include "process.h"
20034
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
42 #include <dpmi.h>
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
43 #include <go32.h>
15226
31a30cc1d61a (init_dosfns) [DJGPP >= 2]: Make `opendir' preserve
Richard M. Stallman <rms@gnu.org>
parents: 15173
diff changeset
44 #include <dirent.h>
34348
5cd770204501 (Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 32544
diff changeset
45 #include <sys/vfs.h>
100859
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
46 #include <unistd.h>
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
47 #include <grp.h>
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
48 #include <crt0.h>
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 DEFUN ("int86", Fint86, Sint86, 2, 2, 0,
99540
c5c8f07bc47c * w32-fns.el (w32-shell-dos-semantics):
Juanma Barranquero <lekktu@gmail.com>
parents: 97653
diff changeset
51 doc: /* Call specific MS-DOS interrupt number INTERRUPT with REGISTERS.
41914
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
52 Return the updated REGISTER vector.
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
53
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
54 INTERRUPT should be an integer in the range 0 to 255.
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
55 REGISTERS should be a vector produced by `make-register' and
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
56 `set-register-value'. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109162
diff changeset
57 (Lisp_Object interrupt, Lisp_Object 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
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 38319
diff changeset
63 CHECK_NUMBER (interrupt);
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
64 no = (unsigned long) XINT (interrupt);
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 38319
diff changeset
65 CHECK_VECTOR (registers);
45331
425d5cebd73c Fix whitespace.
Eli Zaretskii <eliz@gnu.org>
parents: 43713
diff changeset
66 if (no < 0 || no > 0xff || XVECTOR (registers)-> size != 8)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67 return Qnil;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 for (i = 0; i < 8; i++)
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 38319
diff changeset
69 CHECK_NUMBER (XVECTOR (registers)->contents[i]);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
71 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
72 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
73 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
74 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
75 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
76 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
77 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
78 inregs.x.flags = (unsigned long) XFASTINT (XVECTOR (registers)->contents[7]);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
80 int86 (no, &inregs, &outregs);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
82 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
83 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
84 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
85 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
86 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
87 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
88 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
89 XVECTOR (registers)->contents[7] = make_number (outregs.x.flags);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
90
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
91 return registers;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
94 DEFUN ("msdos-memget", Fdos_memget, Sdos_memget, 2, 2, 0,
41914
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
95 doc: /* Read DOS memory at offset ADDRESS into VECTOR.
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
96 Return the updated VECTOR. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109162
diff changeset
97 (Lisp_Object address, Lisp_Object vector)
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
98 {
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
99 register int i;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
100 int offs, len;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
101 char *buf;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
102
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 38319
diff changeset
103 CHECK_NUMBER (address);
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
104 offs = (unsigned long) XINT (address);
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 38319
diff changeset
105 CHECK_VECTOR (vector);
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
106 len = XVECTOR (vector)-> size;
58012
934f6fb6fd8a * dosfns.c (Fdos_memget, Fdos_memput): Use integer variable offs in
Jan Djärv <jan.h.d@swipnet.se>
parents: 52401
diff changeset
107 if (len < 1 || len > 2048 || offs < 0 || offs > 0xfffff - len)
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
108 return Qnil;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
109 buf = alloca (len);
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
110 dosmemget (offs, len, buf);
45331
425d5cebd73c Fix whitespace.
Eli Zaretskii <eliz@gnu.org>
parents: 43713
diff changeset
111
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
112 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
113 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
114
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
115 return vector;
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
116 }
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
117
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
118 DEFUN ("msdos-memput", Fdos_memput, Sdos_memput, 2, 2, 0,
41914
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
119 doc: /* Write DOS memory at offset ADDRESS from VECTOR. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109162
diff changeset
120 (Lisp_Object address, Lisp_Object vector)
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
121 {
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
122 register int i;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
123 int offs, len;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
124 char *buf;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
125
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 38319
diff changeset
126 CHECK_NUMBER (address);
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
127 offs = (unsigned long) XINT (address);
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 38319
diff changeset
128 CHECK_VECTOR (vector);
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
129 len = XVECTOR (vector)-> size;
58012
934f6fb6fd8a * dosfns.c (Fdos_memget, Fdos_memput): Use integer variable offs in
Jan Djärv <jan.h.d@swipnet.se>
parents: 52401
diff changeset
130 if (len < 1 || len > 2048 || offs < 0 || offs > 0xfffff - len)
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
131 return Qnil;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
132 buf = alloca (len);
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
133
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
134 for (i = 0; i < len; i++)
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
135 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 38319
diff changeset
136 CHECK_NUMBER (XVECTOR (vector)->contents[i]);
14070
c74bb6ea72ab (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents: 13745
diff changeset
137 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
138 }
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
139
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
140 dosmemput (buf, len, offs);
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
141 return Qt;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
142 }
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 DEFUN ("msdos-set-keyboard", Fmsdos_set_keyboard, Smsdos_set_keyboard, 1, 2, 0,
41914
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
145 doc: /* Set keyboard layout according to COUNTRY-CODE.
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
146 If the optional argument ALLKEYS is non-nil, the keyboard is mapped for
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
147 all keys; otherwise it is only used when the ALT key is pressed.
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
148 The current keyboard layout is available in dos-keyboard-code. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109162
diff changeset
149 (Lisp_Object country_code, Lisp_Object allkeys)
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
150 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 38319
diff changeset
151 CHECK_NUMBER (country_code);
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
152 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
153 return Qnil;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
154 return Qt;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
155 }
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
156
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
157 #ifndef HAVE_X_WINDOWS
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
158 /* 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
159 e.g., with respect to non-80 column screen modes. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
160
41914
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
161 DEFUN ("msdos-mouse-p", Fmsdos_mouse_p, Smsdos_mouse_p, 0, 0, 0,
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
162 doc: /* Report whether a mouse is present. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109162
diff changeset
163 (void)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
164 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
165 if (have_mouse)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
166 return Qt;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
167 else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
168 return Qnil;
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 #endif
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
171
12990
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
172 DEFUN ("msdos-mouse-init", Fmsdos_mouse_init, Smsdos_mouse_init, 0, 0, "",
41914
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
173 doc: /* Initialize and enable mouse if available. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109162
diff changeset
174 (void)
12990
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
175 {
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
176 if (have_mouse)
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
177 {
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
178 have_mouse = 1;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
179 mouse_init ();
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
180 return Qt;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
181 }
12990
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
182 return Qnil;
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
183 }
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
184
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
185 DEFUN ("msdos-mouse-enable", Fmsdos_mouse_enable, Smsdos_mouse_enable, 0, 0, "",
41914
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
186 doc: /* Enable mouse if available. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109162
diff changeset
187 (void)
12990
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
188 {
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
189 if (have_mouse)
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
190 {
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
191 have_mouse = 1;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
192 mouse_on ();
12990
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
193 }
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
194 return have_mouse ? Qt : Qnil;
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
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
197 DEFUN ("msdos-mouse-disable", Fmsdos_mouse_disable, Smsdos_mouse_disable, 0, 0, "",
41914
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
198 doc: /* Disable mouse if available. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109162
diff changeset
199 (void)
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 mouse_off ();
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
202 if (have_mouse) have_mouse = -1;
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
203 return Qnil;
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
204 }
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
205
41914
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
206 DEFUN ("insert-startup-screen", Finsert_startup_screen, Sinsert_startup_screen, 0, 0, "",
73685
f25200449e7b (Finsert_startup_screen): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68651
diff changeset
207 doc: /* Insert copy of screen contents prior to starting Emacs.
41914
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
208 Return nil if startup screen is not available. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109162
diff changeset
209 (void)
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
210 {
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
211 char *s;
45331
425d5cebd73c Fix whitespace.
Eli Zaretskii <eliz@gnu.org>
parents: 43713
diff changeset
212 int rows, cols, i, j;
425d5cebd73c Fix whitespace.
Eli Zaretskii <eliz@gnu.org>
parents: 43713
diff changeset
213
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
214 if (!dos_get_saved_screen (&s, &rows, &cols))
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
215 return Qnil;
45331
425d5cebd73c Fix whitespace.
Eli Zaretskii <eliz@gnu.org>
parents: 43713
diff changeset
216
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
217 for (i = 0; i < rows; i++)
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
218 {
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
219 for (j = 0; j < cols; j++)
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
220 {
19288
bdc4b7818976 (Finsert_startup_screen): Call `insert_char' with a single argument.
Richard M. Stallman <rms@gnu.org>
parents: 16335
diff changeset
221 insert_char (*s);
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
222 s += 2;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
223 }
19288
bdc4b7818976 (Finsert_startup_screen): Call `insert_char' with a single argument.
Richard M. Stallman <rms@gnu.org>
parents: 16335
diff changeset
224 insert_char ('\n');
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
225 }
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 return Qt;
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
228 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
229
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
230 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
231 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
232 0, 0, /* date format */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
233 '$', 0, 0, 0, 0, /* currency string */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
234 ',', 0, /* thousands separator */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
235 '.', 0, /* decimal separator */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
236 '/', 0, /* date separator */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
237 ':', 0, /* time separator */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
238 0, /* currency format */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
239 2, /* digits after decimal in currency */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
240 0, /* time format */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
241 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
242 ' ', 0, /* data-list separator (?) */
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
243 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
244 };
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
245
20034
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
246 #ifndef HAVE_X_WINDOWS
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
247 static unsigned dos_windows_version;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
248 char parent_vm_title[50]; /* Ralf Brown says 30 is enough */
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
249 int w95_set_virtual_machine_title (const char *);
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
250
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
251 void
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
252 restore_parent_vm_title (void)
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
253 {
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
254 if (NILP (Vdos_windows_version))
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
255 return;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
256 if ((dos_windows_version & 0xff) >= 4 && parent_vm_title[0])
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
257 w95_set_virtual_machine_title (parent_vm_title);
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
258 delay (50);
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
259 }
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
260 #endif /* !HAVE_X_WINDOWS */
45331
425d5cebd73c Fix whitespace.
Eli Zaretskii <eliz@gnu.org>
parents: 43713
diff changeset
261
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
262 void
109162
8efd6d04c47a Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents: 107733
diff changeset
263 init_dosfns (void)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
264 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
265 union REGS regs;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
266 _go32_dpmi_registers dpmiregs;
19294
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
267 unsigned long xbuf = _go32_info_block.linear_address_of_transfer_buffer;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
268
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
269 #ifndef SYSTEM_MALLOC
109761
31def5db596a Fix -Wall compiler warnings in MSDOS sources.
Eli Zaretskii <eliz@gnu.org>
parents: 109179
diff changeset
270 extern void get_lim_data (void);
31def5db596a Fix -Wall compiler warnings in MSDOS sources.
Eli Zaretskii <eliz@gnu.org>
parents: 109179
diff changeset
271
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
272 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
273 #endif
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
274
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
275 regs.x.ax = 0x3000;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
276 intdos (&regs, &regs);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
277 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
278
19294
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
279 /* 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
280 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
281 dpmiregs.x.ds = xbuf >> 4;
19294
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
282 dpmiregs.x.dx = 0;
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
283 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
284 _go32_dpmi_simulate_int (0x21, &dpmiregs);
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
285 if (dpmiregs.x.flags & 1)
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
286 {
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
287 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
288 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
289 }
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
290 else
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
291 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
292 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
293 dosmemget (xbuf, DOS_COUNTRY_INFO, dos_country_info);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
294 }
19294
1f8ca0c4836f (init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents: 19288
diff changeset
295
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
296 dos_set_keyboard (dos_country_code, 0);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
297
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
298 regs.x.ax = 0x6601;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
299 intdos (&regs, &regs);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
300 if (regs.x.cflag)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
301 /* Estimate code page from country code */
45331
425d5cebd73c Fix whitespace.
Eli Zaretskii <eliz@gnu.org>
parents: 43713
diff changeset
302 switch (dos_country_code)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
303 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
304 case 45: /* Denmark */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
305 case 47: /* Norway */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
306 dos_codepage = 865;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
307 break;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
308 default:
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
309 /* US */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
310 dos_codepage = 437;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
311 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
312 else
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
313 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
314
20034
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
315 #ifndef HAVE_X_WINDOWS
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
316 parent_vm_title[0] = '\0';
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
317
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
318 /* 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
319 dpmiregs.x.ax = 0x1600; /* enhanced mode installation check */
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
320 dpmiregs.x.ss = dpmiregs.x.sp = dpmiregs.x.flags = 0;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
321 _go32_dpmi_simulate_int (0x2f, &dpmiregs);
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
322 /* We only support Windows-specific features when we run on Windows 9X
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
323 or on Windows 3.X/enhanced mode.
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
324
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
325 Int 2Fh/AX=1600h returns:
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
326
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
327 AL = 00: no Windows at all;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
328 AL = 01: Windows/386 2.x;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
329 AL = 80h: Windows 3.x in mode other than enhanced;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
330 AL = FFh: Windows/386 2.x
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
331
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
332 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
333 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
334 && (dpmiregs.h.al > 3 || dpmiregs.h.ah > 0))
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
335 {
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
336 dos_windows_version = dpmiregs.x.ax;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
337 Vdos_windows_version =
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
338 Fcons (make_number (dpmiregs.h.al), make_number (dpmiregs.h.ah));
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
339
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
340 /* Save the current title of this virtual machine, so we can restore
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
341 it before exiting. Otherwise, Windows 95 will continue to use
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
342 the title we set even after we are history, stupido... */
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
343 if (dpmiregs.h.al >= 4)
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
344 {
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
345 dpmiregs.x.ax = 0x168e;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
346 dpmiregs.x.dx = 3; /* get VM title */
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
347 dpmiregs.x.cx = sizeof(parent_vm_title) - 1;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
348 dpmiregs.x.es = __tb >> 4;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
349 dpmiregs.x.di = __tb & 15;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
350 dpmiregs.x.sp = dpmiregs.x.ss = dpmiregs.x.flags = 0;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
351 _go32_dpmi_simulate_int (0x2f, &dpmiregs);
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
352 if (dpmiregs.x.ax == 1)
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
353 dosmemget (__tb, sizeof(parent_vm_title), parent_vm_title);
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
354 }
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
355 }
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
356 else
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
357 {
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
358 dos_windows_version = 0;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
359 Vdos_windows_version = Qnil;
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 #endif /* !HAVE_X_WINDOWS */
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
362
16335
6cf0a8b5c895 (init_dosfns): When setting `__opendir_flags' value,
Richard M. Stallman <rms@gnu.org>
parents: 15393
diff changeset
363 /* 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
364 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
365 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
366 __opendir_flags = __OPENDIR_FIND_HIDDEN;
15226
31a30cc1d61a (init_dosfns) [DJGPP >= 2]: Make `opendir' preserve
Richard M. Stallman <rms@gnu.org>
parents: 15173
diff changeset
367
16335
6cf0a8b5c895 (init_dosfns): When setting `__opendir_flags' value,
Richard M. Stallman <rms@gnu.org>
parents: 15393
diff changeset
368 #if __DJGPP_MINOR__ == 0
6cf0a8b5c895 (init_dosfns): When setting `__opendir_flags' value,
Richard M. Stallman <rms@gnu.org>
parents: 15393
diff changeset
369 /* 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
370 (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
371 if (!NILP (Fmsdos_long_file_names ()))
31a30cc1d61a (init_dosfns) [DJGPP >= 2]: Make `opendir' preserve
Richard M. Stallman <rms@gnu.org>
parents: 15173
diff changeset
372 __opendir_flags |= __OPENDIR_PRESERVE_CASE;
16335
6cf0a8b5c895 (init_dosfns): When setting `__opendir_flags' value,
Richard M. Stallman <rms@gnu.org>
parents: 15393
diff changeset
373 #endif /* __DJGPP_MINOR__ == 0 */
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
374 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
375
20034
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
376 #ifndef HAVE_X_WINDOWS
25113
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
377
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
378 /* 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
379
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
380 /* 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
381 in the default VGA palette. */
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
382 static char *vga_colors[16] = {
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
383 "black", "blue", "green", "cyan", "red", "magenta", "brown",
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
384 "lightgray", "darkgray", "lightblue", "lightgreen", "lightcyan",
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
385 "lightred", "lightmagenta", "yellow", "white"
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
386 };
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
387
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
388 /* 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
389 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
390 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
391 "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
392 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
393 on lisp/term/tty-colors.el). */
25113
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
394 int
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
395 msdos_stdcolor_idx (const char *name)
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
396 {
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
397 int i;
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
398
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
399 for (i = 0; i < sizeof (vga_colors) / sizeof (vga_colors[0]); i++)
95209
6758d4235380 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 95205
diff changeset
400 if (xstrcasecmp (name, vga_colors[i]) == 0)
25113
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
401 return i;
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
402
26902
264b83a3a688 Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents: 26729
diff changeset
403 return
27115
13a2c64e6ade (unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
404 strcmp (name, unspecified_fg) == 0 ? FACE_TTY_DEFAULT_FG_COLOR
13a2c64e6ade (unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
405 : 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
406 : FACE_TTY_DEFAULT_COLOR;
25113
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
407 }
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
408
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
409 /* 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
410 Lisp_Object
25113
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
411 msdos_stdcolor_name (int idx)
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
412 {
27115
13a2c64e6ade (unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
413 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
414
27115
13a2c64e6ade (unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
415 if (idx == FACE_TTY_DEFAULT_FG_COLOR)
13a2c64e6ade (unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
416 return build_string (unspecified_fg);
13a2c64e6ade (unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
417 else if (idx == FACE_TTY_DEFAULT_BG_COLOR)
13a2c64e6ade (unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
418 return build_string (unspecified_bg);
13a2c64e6ade (unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
419 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
420 return build_string (vga_colors[idx]);
13a2c64e6ade (unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
421 else
13a2c64e6ade (unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
422 return Qunspecified; /* meaning the default */
25113
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
423 }
73c54061f4bb (msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents: 23814
diff changeset
424
20034
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
425 /* 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
426 on MS-Windows. */
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
427 int
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
428 ms_windows_version (void)
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
429 {
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
430 return dos_windows_version;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
431 }
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
432
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
433 /* Set the title of the current virtual machine, to appear on
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
434 the caption bar of that machine's window. */
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
435
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
436 int
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
437 w95_set_virtual_machine_title (const char *title_string)
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
438 {
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
439 /* Only Windows 9X (version 4 and higher) support this function. */
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
440 if (!NILP (Vdos_windows_version)
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
441 && (dos_windows_version & 0xff) >= 4)
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
442 {
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
443 _go32_dpmi_registers regs;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
444 dosmemput (title_string, strlen (title_string) + 1, __tb);
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
445 regs.x.ax = 0x168e;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
446 regs.x.dx = 1;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
447 regs.x.es = __tb >> 4;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
448 regs.x.di = __tb & 15;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
449 regs.x.sp = regs.x.ss = regs.x.flags = 0;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
450 _go32_dpmi_simulate_int (0x2f, &regs);
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
451 return regs.x.ax == 1;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
452 }
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
453 return 0;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
454 }
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 /* Change the title of frame F to NAME.
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
457 If NAME is nil, use the frame name as the title.
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 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
460 sets the name in the frame struct, but has no other effects. */
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 void
109162
8efd6d04c47a Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents: 107733
diff changeset
463 x_set_title (struct frame *f, Lisp_Object name)
20034
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 /* Don't change the title if it's already NAME. */
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
466 if (EQ (name, f->title))
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
467 return;
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 update_mode_lines = 1;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
470
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
471 f->title = name;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
472
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
473 if (NILP (name))
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
474 name = f->name;
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
475
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
476 if (FRAME_MSDOS_P (f))
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
477 {
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
478 BLOCK_INPUT;
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 45331
diff changeset
479 w95_set_virtual_machine_title (SDATA (name));
20034
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
480 UNBLOCK_INPUT;
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 }
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
483 #endif /* !HAVE_X_WINDOWS */
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
484
34348
5cd770204501 (Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 32544
diff changeset
485 DEFUN ("file-system-info", Ffile_system_info, Sfile_system_info, 1, 1, 0,
41914
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
486 doc: /* Return storage information about the file system FILENAME is on.
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
487 Value is a list of floats (TOTAL FREE AVAIL), where TOTAL is the total
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
488 storage of the file system, FREE is the free storage, and AVAIL is the
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
489 storage available to a non-superuser. All 3 numbers are in bytes.
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
490 If the underlying system call fails, value is nil. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109162
diff changeset
491 (Lisp_Object filename)
34348
5cd770204501 (Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 32544
diff changeset
492 {
5cd770204501 (Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 32544
diff changeset
493 struct statfs stfs;
5cd770204501 (Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 32544
diff changeset
494 Lisp_Object encoded, value;
5cd770204501 (Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 32544
diff changeset
495
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 38319
diff changeset
496 CHECK_STRING (filename);
34348
5cd770204501 (Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 32544
diff changeset
497 filename = Fexpand_file_name (filename, Qnil);
5cd770204501 (Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 32544
diff changeset
498 encoded = ENCODE_FILE (filename);
5cd770204501 (Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 32544
diff changeset
499
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 45331
diff changeset
500 if (statfs (SDATA (encoded), &stfs))
34348
5cd770204501 (Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 32544
diff changeset
501 value = Qnil;
5cd770204501 (Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 32544
diff changeset
502 else
5cd770204501 (Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 32544
diff changeset
503 value = list3 (make_float ((double) stfs.f_bsize * stfs.f_blocks),
5cd770204501 (Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 32544
diff changeset
504 make_float ((double) stfs.f_bsize * stfs.f_bfree),
5cd770204501 (Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 32544
diff changeset
505 make_float ((double) stfs.f_bsize * stfs.f_bavail));
5cd770204501 (Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 32544
diff changeset
506
5cd770204501 (Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 32544
diff changeset
507 return value;
5cd770204501 (Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 32544
diff changeset
508 }
5cd770204501 (Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 32544
diff changeset
509
100859
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
510 /* System depended enumeration of and access to system processes a-la
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
511 ps(1). Here, we only return info about the running Emacs process.
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
512 (There are no other processes on DOS, right?) */
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
513
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
514 Lisp_Object
109162
8efd6d04c47a Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents: 107733
diff changeset
515 list_system_processes (void)
100859
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
516 {
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
517 Lisp_Object proclist = Qnil;
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
518
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
519 proclist = Fcons (make_fixnum_or_float (getpid ()), proclist);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
520
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
521 return proclist;
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
522 }
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
523
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
524 Lisp_Object
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
525 system_process_attributes (Lisp_Object pid)
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
526 {
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
527 int proc_id;
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
528 Lisp_Object attrs = Qnil;
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
529
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
530 CHECK_NUMBER_OR_FLOAT (pid);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
531 proc_id = FLOATP (pid) ? XFLOAT_DATA (pid) : XINT (pid);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
532
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
533 if (proc_id == getpid ())
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
534 {
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
535 EMACS_INT uid, gid;
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
536 char *usr;
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
537 struct group *gr;
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
538 char cmd[FILENAME_MAX];
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
539 char *cmdline = NULL, *p, *q;
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
540 size_t cmdline_size = 0;
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
541 int i;
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
542 Lisp_Object cmd_str, decoded_cmd, tem;
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
543 double pmem;
109761
31def5db596a Fix -Wall compiler warnings in MSDOS sources.
Eli Zaretskii <eliz@gnu.org>
parents: 109179
diff changeset
544 EXFUN (Fget_internal_run_time, 0);
102838
a722c792ebd7 (system_process_attributes) [SYSTEM_MALLOC]: Don't call ret_lim_data.
Eli Zaretskii <eliz@gnu.org>
parents: 100859
diff changeset
545 #ifndef SYSTEM_MALLOC
100859
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
546 extern unsigned long ret_lim_data ();
102838
a722c792ebd7 (system_process_attributes) [SYSTEM_MALLOC]: Don't call ret_lim_data.
Eli Zaretskii <eliz@gnu.org>
parents: 100859
diff changeset
547 #endif
100859
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
548
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
549 uid = getuid ();
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
550 attrs = Fcons (Fcons (Qeuid, make_fixnum_or_float (uid)), attrs);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
551 usr = getlogin ();
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
552 if (usr)
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
553 attrs = Fcons (Fcons (Quser, build_string (usr)), attrs);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
554 gid = getgid ();
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
555 attrs = Fcons (Fcons (Qegid, make_fixnum_or_float (gid)), attrs);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
556 gr = getgrgid (gid);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
557 if (gr)
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
558 attrs = Fcons (Fcons (Qgroup, build_string (gr->gr_name)), attrs);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
559 strcpy (cmd, basename (__crt0_argv[0]));
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
560 /* Command name is encoded in locale-coding-system; decode it. */
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
561 cmd_str = make_unibyte_string (cmd, strlen (cmd));
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
562 decoded_cmd = code_convert_string_norecord (cmd_str,
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
563 Vlocale_coding_system, 0);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
564 attrs = Fcons (Fcons (Qcomm, decoded_cmd), attrs);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
565 /* Pretend we have 0 as PPID. */
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
566 attrs = Fcons (Fcons (Qppid, make_number (0)), attrs);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
567 attrs = Fcons (Fcons (Qpgrp, pid), attrs);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
568 attrs = Fcons (Fcons (Qttname, build_string ("/dev/tty")), attrs);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
569 /* We are never idle! */
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
570 tem = Fget_internal_run_time ();
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
571 attrs = Fcons (Fcons (Qtime, tem), attrs);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
572 attrs = Fcons (Fcons (Qthcount, make_number (1)), attrs);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
573 attrs = Fcons (Fcons (Qstart,
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
574 Fsymbol_value (intern ("before-init-time"))),
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
575 attrs);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
576 attrs = Fcons (Fcons (Qvsize,
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
577 make_fixnum_or_float ((unsigned long)sbrk(0)/1024)),
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
578 attrs);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
579 attrs = Fcons (Fcons (Qetime, tem), attrs);
102838
a722c792ebd7 (system_process_attributes) [SYSTEM_MALLOC]: Don't call ret_lim_data.
Eli Zaretskii <eliz@gnu.org>
parents: 100859
diff changeset
580 #ifndef SYSTEM_MALLOC
a722c792ebd7 (system_process_attributes) [SYSTEM_MALLOC]: Don't call ret_lim_data.
Eli Zaretskii <eliz@gnu.org>
parents: 100859
diff changeset
581 /* ret_lim_data is on vm-limit.c, which is not compiled in under
a722c792ebd7 (system_process_attributes) [SYSTEM_MALLOC]: Don't call ret_lim_data.
Eli Zaretskii <eliz@gnu.org>
parents: 100859
diff changeset
582 SYSTEM_MALLOC. */
100859
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
583 pmem = (double)((unsigned long) sbrk (0)) / ret_lim_data () * 100.0;
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
584 if (pmem > 100)
102838
a722c792ebd7 (system_process_attributes) [SYSTEM_MALLOC]: Don't call ret_lim_data.
Eli Zaretskii <eliz@gnu.org>
parents: 100859
diff changeset
585 #endif
100859
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
586 pmem = 100;
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
587 attrs = Fcons (Fcons (Qpmem, make_float (pmem)), attrs);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
588 /* Pass 1: Count how much storage we need. */
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
589 for (i = 0; i < __crt0_argc; i++)
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
590 {
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
591 cmdline_size += strlen (__crt0_argv[i]) + 1; /* +1 for blank delim */
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
592 if (strpbrk (__crt0_argv[i], " \t\n\r\v\f"))
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
593 {
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
594 cmdline_size += 2;
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
595 for (p = __crt0_argv[i]; *p; p++)
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
596 {
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
597 if (*p == '"')
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
598 cmdline_size++;
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
599 }
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
600 }
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
601 }
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
602 /* Pass 2: Allocate storage and concatenate argv[]. */
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
603 cmdline = xmalloc (cmdline_size + 1);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
604 for (i = 0, q = cmdline; i < __crt0_argc; i++)
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
605 {
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
606 if (strpbrk (__crt0_argv[i], " \t\n\r\v\f"))
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
607 {
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
608 *q++ = '"';
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
609 for (p = __crt0_argv[i]; *p; p++)
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
610 {
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
611 if (*p == '\"')
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
612 *q++ = '\\';
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
613 *q++ = *p;
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
614 }
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
615 *q++ = '"';
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
616 }
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
617 else
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
618 {
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
619 strcpy (q, __crt0_argv[i]);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
620 q += strlen (__crt0_argv[i]);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
621 }
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
622 *q++ = ' ';
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
623 }
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
624 /* Remove the trailing blank. */
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
625 if (q > cmdline)
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
626 q[-1] = '\0';
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
627
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
628 /* Command line is encoded in locale-coding-system; decode it. */
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
629 cmd_str = make_unibyte_string (cmdline, strlen (cmdline));
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
630 decoded_cmd = code_convert_string_norecord (cmd_str,
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
631 Vlocale_coding_system, 0);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
632 xfree (cmdline);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
633 attrs = Fcons (Fcons (Qargs, decoded_cmd), attrs);
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
634 }
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
635
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
636 return attrs;
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
637 }
bb7058ae1991 (system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 99540
diff changeset
638
20034
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
639 void
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
640 dos_cleanup (void)
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
641 {
97653
8e2483da8823 Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents: 95209
diff changeset
642 struct tty_display_info *tty;
8e2483da8823 Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents: 95209
diff changeset
643
20034
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
644 #ifndef HAVE_X_WINDOWS
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
645 restore_parent_vm_title ();
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
646 #endif
23814
3229c65a13c5 (dos_cleanup): Flush and fsync the termscript stream.
Eli Zaretskii <eliz@gnu.org>
parents: 21430
diff changeset
647 /* 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
648 crashing and some vital info was written there. */
97653
8e2483da8823 Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents: 95209
diff changeset
649 if (FRAMEP (selected_frame))
23814
3229c65a13c5 (dos_cleanup): Flush and fsync the termscript stream.
Eli Zaretskii <eliz@gnu.org>
parents: 21430
diff changeset
650 {
97653
8e2483da8823 Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents: 95209
diff changeset
651 struct frame *sf = XFRAME (selected_frame);
8e2483da8823 Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents: 95209
diff changeset
652
8e2483da8823 Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents: 95209
diff changeset
653 if (FRAME_LIVE_P (sf)
8e2483da8823 Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents: 95209
diff changeset
654 && (FRAME_MSDOS_P (sf) || FRAME_TERMCAP_P (sf)))
8e2483da8823 Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents: 95209
diff changeset
655 {
8e2483da8823 Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents: 95209
diff changeset
656 tty = CURTTY ();
8e2483da8823 Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents: 95209
diff changeset
657 if (tty->termscript)
8e2483da8823 Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents: 95209
diff changeset
658 {
8e2483da8823 Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents: 95209
diff changeset
659 fflush (tty->termscript);
8e2483da8823 Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents: 95209
diff changeset
660 fsync (fileno (tty->termscript));
8e2483da8823 Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents: 95209
diff changeset
661 }
8e2483da8823 Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents: 95209
diff changeset
662 }
23814
3229c65a13c5 (dos_cleanup): Flush and fsync the termscript stream.
Eli Zaretskii <eliz@gnu.org>
parents: 21430
diff changeset
663 }
20034
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
664 }
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
665
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
666 /*
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
667 * Define everything
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
668 */
109162
8efd6d04c47a Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents: 107733
diff changeset
669 void
8efd6d04c47a Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents: 107733
diff changeset
670 syms_of_dosfns (void)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
671 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
672 defsubr (&Sint86);
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
673 defsubr (&Sdos_memget);
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
674 defsubr (&Sdos_memput);
12990
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
675 defsubr (&Smsdos_mouse_init);
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
676 defsubr (&Smsdos_mouse_enable);
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
677 defsubr (&Smsdos_set_keyboard);
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
678 defsubr (&Sinsert_startup_screen);
12990
93cc41315528 (Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents: 10504
diff changeset
679 defsubr (&Smsdos_mouse_disable);
34348
5cd770204501 (Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 32544
diff changeset
680 defsubr (&Sfile_system_info);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
681 #ifndef HAVE_X_WINDOWS
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
682 defsubr (&Smsdos_mouse_p);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 7272
diff changeset
683 #endif
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
684
112364
42e22c4f06b7 Move all DEFVAR'd globals into a structure -- threading infrastructure
Tom Tromey <tromey@redhat.com>
parents: 112278
diff changeset
685 DEFVAR_INT ("dos-country-code", dos_country_code,
41914
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
686 doc: /* The country code returned by Dos when Emacs was started.
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
687 Usually this is the international telephone prefix. */);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
688
112364
42e22c4f06b7 Move all DEFVAR'd globals into a structure -- threading infrastructure
Tom Tromey <tromey@redhat.com>
parents: 112278
diff changeset
689 DEFVAR_INT ("dos-codepage", dos_codepage,
41914
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
690 doc: /* The codepage active when Emacs was started.
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
691 The following are known:
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
692 437 United States
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
693 850 Multilingual (Latin I)
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
694 852 Slavic (Latin II)
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
695 857 Turkish
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
696 860 Portugal
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
697 861 Iceland
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
698 863 Canada (French)
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
699 865 Norway/Denmark */);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
700
112364
42e22c4f06b7 Move all DEFVAR'd globals into a structure -- threading infrastructure
Tom Tromey <tromey@redhat.com>
parents: 112278
diff changeset
701 DEFVAR_INT ("dos-timezone-offset", dos_timezone_offset,
41914
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
702 doc: /* The current timezone offset to UTC in minutes.
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
703 Implicitly modified when the TZ variable is changed. */);
45331
425d5cebd73c Fix whitespace.
Eli Zaretskii <eliz@gnu.org>
parents: 43713
diff changeset
704
112364
42e22c4f06b7 Move all DEFVAR'd globals into a structure -- threading infrastructure
Tom Tromey <tromey@redhat.com>
parents: 112278
diff changeset
705 DEFVAR_LISP ("dos-version", Vdos_version,
41914
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
706 doc: /* 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
707
20034
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
708 #ifndef HAVE_X_WINDOWS
112364
42e22c4f06b7 Move all DEFVAR'd globals into a structure -- threading infrastructure
Tom Tromey <tromey@redhat.com>
parents: 112278
diff changeset
709 DEFVAR_LISP ("dos-windows-version", Vdos_windows_version,
41914
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
710 doc: /* The (MAJOR . MINOR) Windows version for DOS session on MS-Windows. */);
20034
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
711 #endif
674d7beabce0 (__tb): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 19294
diff changeset
712
112364
42e22c4f06b7 Move all DEFVAR'd globals into a structure -- threading infrastructure
Tom Tromey <tromey@redhat.com>
parents: 112278
diff changeset
713 DEFVAR_LISP ("dos-display-scancodes", Vdos_display_scancodes,
41914
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
714 doc: /* *Controls whether DOS raw keyboard events are displayed as you type.
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
715 When non-nil, the keyboard scan-codes are displayed at the bottom right
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
716 corner of the display (typically at the end of the mode line).
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
717 The output format is: scan code:char code*modifiers. */);
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
718
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
719 Vdos_display_scancodes = Qnil;
45331
425d5cebd73c Fix whitespace.
Eli Zaretskii <eliz@gnu.org>
parents: 43713
diff changeset
720
112364
42e22c4f06b7 Move all DEFVAR'd globals into a structure -- threading infrastructure
Tom Tromey <tromey@redhat.com>
parents: 112278
diff changeset
721 DEFVAR_INT ("dos-hyper-key", dos_hyper_key,
41914
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
722 doc: /* *If set to 1, use right ALT key as hyper key.
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
723 If set to 2, use right CTRL key as hyper key. */);
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
724 dos_hyper_key = 0;
45331
425d5cebd73c Fix whitespace.
Eli Zaretskii <eliz@gnu.org>
parents: 43713
diff changeset
725
112364
42e22c4f06b7 Move all DEFVAR'd globals into a structure -- threading infrastructure
Tom Tromey <tromey@redhat.com>
parents: 112278
diff changeset
726 DEFVAR_INT ("dos-super-key", dos_super_key,
41914
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
727 doc: /* *If set to 1, use right ALT key as super key.
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
728 If set to 2, use right CTRL key as super key. */);
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
729 dos_super_key = 0;
45331
425d5cebd73c Fix whitespace.
Eli Zaretskii <eliz@gnu.org>
parents: 43713
diff changeset
730
112364
42e22c4f06b7 Move all DEFVAR'd globals into a structure -- threading infrastructure
Tom Tromey <tromey@redhat.com>
parents: 112278
diff changeset
731 DEFVAR_INT ("dos-keypad-mode", dos_keypad_mode,
41914
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
732 doc: /* *Controls what key code is returned by a key in the numeric keypad.
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
733 The `numlock ON' action is only taken if no modifier keys are pressed.
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
734 The value is an integer constructed by adding the following bits together:
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
735
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
736 0x00 Digit key returns digit (if numlock ON)
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
737 0x01 Digit key returns kp-digit (if numlock ON)
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
738 0x02 Digit key returns M-digit (if numlock ON)
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
739 0x03 Digit key returns edit key (if numlock ON)
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
740
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
741 0x00 Grey key returns char (if numlock ON)
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
742 0x04 Grey key returns kp-key (if numlock ON)
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
743
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
744 0x00 Digit key returns digit (if numlock OFF)
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
745 0x10 Digit key returns kp-digit (if numlock OFF)
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
746 0x20 Digit key returns M-digit (if numlock OFF)
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
747 0x30 Digit key returns edit key (if numlock OFF)
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
748
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
749 0x00 Grey key returns char (if numlock OFF)
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
750 0x40 Grey key returns kp-key (if numlock OFF)
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
751
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
752 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
753 dos_keypad_mode = 0x75;
45331
425d5cebd73c Fix whitespace.
Eli Zaretskii <eliz@gnu.org>
parents: 43713
diff changeset
754
112364
42e22c4f06b7 Move all DEFVAR'd globals into a structure -- threading infrastructure
Tom Tromey <tromey@redhat.com>
parents: 112278
diff changeset
755 DEFVAR_INT ("dos-keyboard-layout", dos_keyboard_layout,
41914
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
756 doc: /* Contains the country code for the current keyboard layout.
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
757 Use msdos-set-keyboard to select another keyboard layout. */);
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
758 dos_keyboard_layout = 1; /* US */
45331
425d5cebd73c Fix whitespace.
Eli Zaretskii <eliz@gnu.org>
parents: 43713
diff changeset
759
112364
42e22c4f06b7 Move all DEFVAR'd globals into a structure -- threading infrastructure
Tom Tromey <tromey@redhat.com>
parents: 112278
diff changeset
760 DEFVAR_INT ("dos-decimal-point", dos_decimal_point,
41914
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
761 doc: /* The character to produce when kp-decimal key is pressed.
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
762 If non-zero, this variable contains the character to be returned when the
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
763 decimal point key in the numeric keypad is pressed when Num Lock is on.
ee8ae85f22ae Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41912
diff changeset
764 If zero, the decimal point key returns the country code specific value. */);
13180
59663cba4b02 (insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents: 12990
diff changeset
765 dos_decimal_point = 0;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
766 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
767 #endif /* MSDOS */
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 46370
diff changeset
768