annotate src/msdos.c @ 13255:9e94f911f00c

(add-log-current-defun): Handle `private', `public' in C++ class definitions.
author Richard M. Stallman <rms@gnu.org>
date Fri, 20 Oct 1995 15:22:56 +0000
parents b0de215331ba
children 712386e1abe0
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
7666
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
1 /* MS-DOS specific C utilities.
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
2 Copyright (C) 1993, 1994 Free Software Foundation, Inc.
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4 This file is part of GNU Emacs.
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 GNU Emacs is free software; you can redistribute it and/or modify
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7 it under the terms of the GNU General Public License as published by
10504
8a1bd0598b49 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 10501
diff changeset
8 the Free Software Foundation; either version 2, or (at your option)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9 any later version.
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 GNU General Public License for more details.
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 along with GNU Emacs; see the file COPYING. If not, write to
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19
7666
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
20 /* Contributed by Morten Welinder */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
21 /* New display, keyboard, and mouse control by Kim F. Storm */
7666
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
22
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 /* Note: some of the stuff here was taken from end of sysdep.c in demacs. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24
5980
a203b7c30300 Use <...> for config.h.
Richard M. Stallman <rms@gnu.org>
parents: 5503
diff changeset
25 #include <config.h>
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 #ifdef MSDOS
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 #include "lisp.h"
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 #include <stdio.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 #include <stdlib.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 #include <sys/param.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32 #include <sys/time.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 #include <dos.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 #include "dosfns.h"
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 #include "msdos.h"
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 #include "systime.h"
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37 #include "termhooks.h"
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
38 #include "dispextern.h"
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
39 #include "termopts.h"
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40 #include "frame.h"
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
41 #include "window.h"
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 #include <go32.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 #include <pc.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44 #include <ctype.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 /* #include <process.h> */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 /* Damn that local process.h! Instead we can define P_WAIT ourselves. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 #define P_WAIT 1
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
49
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
50 static unsigned long
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
51 event_timestamp ()
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
52 {
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
53 struct time t;
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
54 unsigned long s;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
55
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
56 gettime (&t);
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
57 s = t.ti_min;
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
58 s *= 60;
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
59 s += t.ti_sec;
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
60 s *= 1000;
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
61 s += t.ti_hund * 10;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
62
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
63 return s;
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
64 }
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
65
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
66
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
67 /* ------------------------ Mouse control ---------------------------
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
68 *
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
69 * Coordinates are in screen positions and zero based.
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
70 * Mouse buttons are numbered from left to right and also zero based.
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
71 */
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
73 int have_mouse; /* 0: no, 1: enabled, -1: disabled */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
74 static int mouse_visible;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
76 static int mouse_last_x;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
77 static int mouse_last_y;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
79 static int mouse_button_translate[NUM_MOUSE_BUTTONS];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
80 static int mouse_button_count;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
82 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
83 mouse_on ()
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
84 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
85 union REGS regs;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
87 if (have_mouse > 0 && !mouse_visible)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
88 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
89 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
90 fprintf (termscript, "<M_ON>");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
91 regs.x.ax = 0x0001;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
92 int86 (0x33, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
93 mouse_visible = 1;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
96
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
97 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
98 mouse_off ()
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
100 union REGS regs;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
101
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
102 if (have_mouse > 0 && mouse_visible)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
103 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
104 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
105 fprintf (termscript, "<M_OFF>");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
106 regs.x.ax = 0x0002;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
107 int86 (0x33, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
108 mouse_visible = 0;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
111
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
112 void
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
113 mouse_moveto (x, y)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
114 int x, y;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
115 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
116 union REGS regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
117
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
118 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
119 fprintf (termscript, "<M_XY=%dx%d>", x, y);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
120 regs.x.ax = 0x0004;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
121 mouse_last_x = regs.x.cx = x * 8;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
122 mouse_last_y = regs.x.dx = y * 8;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
123 int86 (0x33, &regs, &regs);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
124 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
125
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
126 static int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
127 mouse_pressed (b, xp, yp)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
128 int b, *xp, *yp;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
129 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
130 union REGS regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
131
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
132 if (b >= mouse_button_count)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
133 return 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
134 regs.x.ax = 0x0005;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
135 regs.x.bx = mouse_button_translate[b];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
136 int86 (0x33, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
137 if (regs.x.bx)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
138 *xp = regs.x.cx / 8, *yp = regs.x.dx / 8;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
139 return (regs.x.bx != 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
140 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
141
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
142 static int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
143 mouse_released (b, xp, yp)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
144 int b, *xp, *yp;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
145 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
146 union REGS regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
147
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
148 if (b >= mouse_button_count)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
149 return 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
150 regs.x.ax = 0x0006;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
151 regs.x.bx = mouse_button_translate[b];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
152 int86 (0x33, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
153 if (regs.x.bx)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
154 *xp = regs.x.cx / 8, *yp = regs.x.dx / 8;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
155 return (regs.x.bx != 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
156 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
157
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
158 static void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
159 mouse_get_xy (int *x, int *y)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
160 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
161 union REGS regs;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
162
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
163 regs.x.ax = 0x0003;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
164 int86 (0x33, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
165 *x = regs.x.cx / 8;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
166 *y = regs.x.dx / 8;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
167 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
168
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
169 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
170 mouse_get_pos (f, insist, bar_window, part, x, y, time)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
171 FRAME_PTR *f;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
172 int insist;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
173 Lisp_Object *bar_window, *x, *y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
174 enum scroll_bar_part *part;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
175 unsigned long *time;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
176 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
177 int ix, iy;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
178 union REGS regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
180 regs.x.ax = 0x0003;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
181 int86 (0x33, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
182 *f = selected_frame;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
183 *bar_window = Qnil;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
184 mouse_get_xy (&ix, &iy);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
185 selected_frame->mouse_moved = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
186 *x = make_number (ix);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
187 *y = make_number (iy);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
188 *time = event_timestamp ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
189 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
190
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
191 static void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
192 mouse_check_moved ()
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
193 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
194 int x, y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
195
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
196 mouse_get_xy (&x, &y);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
197 selected_frame->mouse_moved |= (x != mouse_last_x || y != mouse_last_y);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
198 mouse_last_x = x;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
199 mouse_last_y = y;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
200 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
201
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
202 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
203 mouse_init ()
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
204 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
205 union REGS regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
206
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
207 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
208 fprintf (termscript, "<M_INIT>");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
209
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
210 regs.x.ax = 0x0021;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
211 int86 (0x33, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
212
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
213 regs.x.ax = 0x0007;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
214 regs.x.cx = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
215 regs.x.dx = 8 * (ScreenCols () - 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
216 int86 (0x33, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
217
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
218 regs.x.ax = 0x0008;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
219 regs.x.cx = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
220 regs.x.dx = 8 * (ScreenRows () - 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
221 int86 (0x33, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
222
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
223 mouse_moveto (0, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
224 mouse_visible = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
225 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
226
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
227 /* ------------------------- Screen control ----------------------
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
228 *
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
229 */
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
230
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
231 static int internal_terminal = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
232
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
233 #ifndef HAVE_X_WINDOWS
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
234 extern unsigned char ScreenAttrib;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
235 static int screen_face;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
236 static int highlight;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
237
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
238 static int screen_size_X;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
239 static int screen_size_Y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
240 static int screen_size;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
241
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
242 static int current_pos_X;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
243 static int current_pos_Y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
244 static int new_pos_X;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
245 static int new_pos_Y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
246
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
247 static void *startup_screen_buffer;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
248 static int startup_screen_size_X;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
249 static int startup_screen_size_Y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
250 static int startup_pos_X;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
251 static int startup_pos_Y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
252
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
253 static int term_setup_done;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
254
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
255 /* Similar to the_only_frame. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
256 struct x_display the_only_x_display;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
257
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
258 /* This is never dereferenced. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
259 Display *x_current_display;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
260
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
261
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
262 #define SCREEN_SET_CURSOR() \
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
263 if (current_pos_X != new_pos_X || current_pos_Y != new_pos_Y) \
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
264 ScreenSetCursor (current_pos_Y = new_pos_Y, current_pos_X = new_pos_X)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
265
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
266 static
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
267 dos_direct_output (y, x, buf, len)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
268 int y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
269 int x;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
270 char *buf;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
271 int len;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
272 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
273 int t = (int) ScreenPrimary + 2 * (x + y * screen_size_X);
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
274
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
275 while (--len >= 0) {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
276 dosmemput (buf++, 1, t);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
277 t += 2;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
278 }
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
279 }
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
280 #endif
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
281
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
282 /* Flash the screen as a substitute for BEEPs. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
283
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
284 #if (__DJGPP__ < 2)
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
285 static void
7667
bae9c0fa1c2f (do_visible_bell): Renamed from visible_bell to avoid
Richard M. Stallman <rms@gnu.org>
parents: 7666
diff changeset
286 do_visible_bell (xorattr)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
287 unsigned char xorattr;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
288 {
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
289 asm volatile
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
290 (" movb $1,%%dl
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
291 visible_bell_0:
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
292 movl _ScreenPrimary,%%eax
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
293 call dosmemsetup
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
294 movl %%eax,%%ebx
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
295 movl %1,%%ecx
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
296 movb %0,%%al
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
297 incl %%ebx
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
298 visible_bell_1:
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
299 xorb %%al,%%gs:(%%ebx)
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
300 addl $2,%%ebx
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
301 decl %%ecx
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
302 jne visible_bell_1
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
303 decb %%dl
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
304 jne visible_bell_3
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
305 visible_bell_2:
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
306 movzwl %%ax,%%eax
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
307 movzwl %%ax,%%eax
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
308 movzwl %%ax,%%eax
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
309 movzwl %%ax,%%eax
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
310 decw %%cx
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
311 jne visible_bell_2
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
312 jmp visible_bell_0
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
313 visible_bell_3:"
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
314 : /* no output */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
315 : "m" (xorattr), "g" (screen_size)
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
316 : "%eax", "%ebx", /* "%gs",*/ "%ecx", "%edx");
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
317 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
318
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
319 static void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
320 ScreenVisualBell (void)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
321 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
322 /* This creates an xor-mask that will swap the default fore- and
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
323 background colors. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
324 do_visible_bell (((the_only_x_display.foreground_pixel
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
325 ^ the_only_x_display.background_pixel)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
326 * 0x11) & 0x7f);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
327 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
328 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
329
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
330 #ifndef HAVE_X_WINDOWS
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
331
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
332 /*
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
333 * If we write a character in the position where the mouse is,
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
334 * the mouse cursor may need to be refreshed.
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
335 */
7744
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
336
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
337 static void
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
338 mouse_off_maybe ()
7744
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
339 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
340 int x, y;
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
341
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
342 if (!mouse_visible)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
343 return;
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
344
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
345 mouse_get_xy (&x, &y);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
346 if (y != new_pos_Y || x < new_pos_X)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
347 return;
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
348
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
349 mouse_off ();
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
350 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
351
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
352 static
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
353 IT_ring_bell ()
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
354 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
355 if (visible_bell)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
356 {
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
357 mouse_off ();
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
358 ScreenVisualBell ();
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
359 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
360 else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
361 write (1, "\007", 1);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
362 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
363
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
364 static void
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
365 IT_set_face (int face)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
366 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
367 struct face *fp;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
368 extern struct face *intern_face (/* FRAME_PTR, struct face * */);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
369
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
370 if (face == 1 || (face == 0 && highlight))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
371 fp = FRAME_MODE_LINE_FACE (foo);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
372 else if (face <= 0 || face >= FRAME_N_COMPUTED_FACES (foo))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
373 fp = FRAME_DEFAULT_FACE (foo);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
374 else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
375 fp = intern_face (selected_frame, FRAME_COMPUTED_FACES (foo)[face]);
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
376 if (termscript)
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
377 fprintf (termscript, "<FACE:%d:%d>", FACE_FOREGROUND (fp), FACE_BACKGROUND (fp));
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
378 screen_face = face;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
379 ScreenAttrib = (FACE_BACKGROUND (fp) << 4) | FACE_FOREGROUND (fp);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
380 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
381
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
382 static
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
383 IT_write_glyphs (GLYPH *str, int len)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
384 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
385 int newface;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
386 int ch, l = len;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
387 unsigned char *buf, *bp;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
388
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
389 if (len == 0) return;
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
390
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
391 buf = bp = alloca (len * 2);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
392
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
393 while (--l >= 0)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
394 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
395 newface = FAST_GLYPH_FACE (*str);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
396 if (newface != screen_face)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
397 IT_set_face (newface);
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
398 ch = FAST_GLYPH_CHAR (*str);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
399 *bp++ = (unsigned char)ch;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
400 *bp++ = ScreenAttrib;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
401
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
402 if (termscript)
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
403 fputc (ch, termscript);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
404 str++;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
405 }
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
406
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
407 mouse_off_maybe ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
408 dosmemput (buf, 2 * len,
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
409 (int)ScreenPrimary + 2 * (new_pos_X + screen_size_X * new_pos_Y));
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
410 new_pos_X += len;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
411 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
412
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
413 static
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
414 IT_clear_end_of_line (first_unused)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
415 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
416 char *spaces, *sp;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
417 int i, j;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
418
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
419 IT_set_face (0);
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
420 if (termscript)
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
421 fprintf (termscript, "<CLR:EOL>");
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
422 i = (j = screen_size_X - new_pos_X) * 2;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
423 spaces = sp = alloca (i);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
424
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
425 while (--j >= 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
426 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
427 *sp++ = ' ';
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
428 *sp++ = ScreenAttrib;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
429 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
430
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
431 mouse_off_maybe ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
432 dosmemput (spaces, i,
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
433 (int)ScreenPrimary + 2 * (new_pos_X + screen_size_X * new_pos_Y));
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
434 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
435
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
436 static
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
437 IT_clear_screen (void)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
438 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
439 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
440 fprintf (termscript, "<CLR:SCR>");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
441 IT_set_face (0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
442 mouse_off ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
443 ScreenClear ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
444 new_pos_X = new_pos_Y = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
445 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
446
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
447 static
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
448 IT_clear_to_end (void)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
449 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
450 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
451 fprintf (termscript, "<CLR:EOS>");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
452
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
453 while (new_pos_Y < screen_size_Y) {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
454 new_pos_X = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
455 IT_clear_end_of_line (0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
456 new_pos_Y++;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
457 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
458 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
459
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
460 static
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
461 IT_cursor_to (int y, int x)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
462 {
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
463 if (termscript)
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
464 fprintf (termscript, "\n<XY=%dx%d>", x, y);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
465 new_pos_X = x;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
466 new_pos_Y = y;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
467 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
468
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
469 static
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
470 IT_reassert_line_highlight (new, vpos)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
471 int new, vpos;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
472 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
473 highlight = new;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
474 IT_set_face (0); /* To possibly clear the highlighting. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
475 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
476
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
477 static
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
478 IT_change_line_highlight (new_highlight, vpos, first_unused_hpos)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
479 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
480 highlight = new_highlight;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
481 IT_set_face (0); /* To possibly clear the highlighting. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
482 IT_cursor_to (vpos, 0);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
483 IT_clear_end_of_line (first_unused_hpos);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
484 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
485
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
486 static
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
487 IT_update_begin ()
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
488 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
489 highlight = 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
490 IT_set_face (0); /* To possibly clear the highlighting. */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
491 screen_face = -1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
492 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
493
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
494 static
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
495 IT_update_end ()
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
496 {
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
497 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
498
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
499 /* This was more or less copied from xterm.c */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
500 static void
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
501 IT_set_menu_bar_lines (window, n)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
502 Lisp_Object window;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
503 int n;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
504 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
505 struct window *w = XWINDOW (window);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
506
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
507 XSETFASTINT (w->top, XFASTINT (w->top) + n);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
508 XSETFASTINT (w->height, XFASTINT (w->height) - n);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
509
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
510 /* Handle just the top child in a vertical split. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
511 if (!NILP (w->vchild))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
512 IT_set_menu_bar_lines (w->vchild, n);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
513
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
514 /* Adjust all children in a horizontal split. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
515 for (window = w->hchild; !NILP (window); window = w->next)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
516 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
517 w = XWINDOW (window);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
518 IT_set_menu_bar_lines (window, n);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
519 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
520 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
521
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
522 /*
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
523 * IT_set_terminal_modes is called when emacs is started,
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
524 * resumed, and whenever the screen is redrawn!
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
525 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
526
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
527 static
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
528 IT_set_terminal_modes (void)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
529 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
530 char *colors;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
531 FRAME_PTR f;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
532 struct face *fp;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
533
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
534 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
535 fprintf (termscript, "\n<SET_TERM>");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
536 highlight = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
537
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
538 screen_size_X = ScreenCols ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
539 screen_size_Y = ScreenRows ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
540 screen_size = screen_size_X * screen_size_Y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
541
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
542 new_pos_X = new_pos_Y = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
543 current_pos_X = current_pos_Y = -1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
544
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
545 if (term_setup_done)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
546 return;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
547 term_setup_done = 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
548
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
549 startup_screen_size_X = screen_size_X;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
550 startup_screen_size_Y = screen_size_Y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
551
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
552 ScreenGetCursor (&startup_pos_Y, &startup_pos_X);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
553 ScreenRetrieve (startup_screen_buffer = xmalloc (screen_size * 2));
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
554
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
555 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
556 fprintf (termscript, "<SCREEN SAVED>\n");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
557 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
558
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
559 /*
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
560 * IT_reset_terminal_modes is called when emacs is
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
561 * suspended or killed.
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
562 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
563
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
564 static
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
565 IT_reset_terminal_modes (void)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
566 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
567 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
568 fprintf(termscript, "\n<RESET_TERM>");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
569
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
570 highlight = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
571
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
572 if (!term_setup_done)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
573 return;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
574
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
575 ScreenUpdate (startup_screen_buffer);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
576 ScreenSetCursor (startup_pos_Y, startup_pos_X);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
577 xfree (startup_screen_buffer);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
578
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
579 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
580 fprintf (termscript, "<SCREEN RESTORED>\n");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
581
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
582 term_setup_done = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
583 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
584
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
585 static
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
586 IT_set_terminal_window (void)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
587 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
588 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
589
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
590 void
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
591 IT_set_frame_parameters (frame, alist)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
592 FRAME_PTR frame;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
593 Lisp_Object alist;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
594 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
595 Lisp_Object tail;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
596 int redraw;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
597 extern unsigned long load_color ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
598 FRAME_PTR f = (FRAME_PTR) &the_only_frame;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
599
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
600 redraw = 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
601 for (tail = alist; CONSP (tail); tail = Fcdr (tail))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
602 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
603 Lisp_Object elt, prop, val;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
604
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
605 elt = Fcar (tail);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
606 prop = Fcar (elt);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
607 val = Fcdr (elt);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
608 CHECK_SYMBOL (prop, 1);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
609
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
610 if (EQ (prop, intern ("foreground-color")))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
611 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
612 unsigned long new_color = load_color (f, val);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
613 if (new_color != ~0)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
614 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
615 FRAME_FOREGROUND_PIXEL (f) = new_color;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
616 redraw = 1;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
617 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
618 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
619 else if (EQ (prop, intern ("background-color")))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
620 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
621 unsigned long new_color = load_color (f, val);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
622 if (new_color != ~0)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
623 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
624 FRAME_BACKGROUND_PIXEL (f) = new_color & ~8;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
625 redraw = 1;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
626 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
627 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
628 else if (EQ (prop, intern ("menu-bar-lines")))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
629 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
630 int new;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
631 int old = FRAME_MENU_BAR_LINES (the_only_frame);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
632
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
633 if (INTEGERP (val))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
634 new = XINT (val);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
635 else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
636 new = 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
637 FRAME_MENU_BAR_LINES (f) = new;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
638 IT_set_menu_bar_lines (the_only_frame.root_window, new - old);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
639 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
640 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
641
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
642 if (redraw)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
643 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
644 recompute_basic_faces (f);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
645 Fredraw_frame (Fselected_frame ());
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
646 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
647 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
648
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
649 #endif /* !HAVE_X_WINDOWS */
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
650
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
651
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
652 /* Do we need the internal terminal? */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
653 void
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
654 internal_terminal_init ()
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
655 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
656 char *term = getenv ("TERM");
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
657 char *colors;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
658
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
659 #ifdef HAVE_X_WINDOWS
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
660 if (!inhibit_window_system)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
661 return;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
662 #endif
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
663
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
664 internal_terminal
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
665 = (!noninteractive) && term && !strcmp (term, "internal");
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
666
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
667 if (getenv ("EMACSTEST"))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
668 termscript = fopen(getenv ("EMACSTEST"), "wt");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
669
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
670 #ifndef HAVE_X_WINDOWS
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
671 if (!internal_terminal || inhibit_window_system)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
672 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
673 the_only_frame.output_method = output_termcap;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
674 return;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
675 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
676
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
677 Vwindow_system = intern ("pc");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
678 Vwindow_system_version = make_number (1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
679
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
680 bzero (&the_only_x_display, sizeof the_only_x_display);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
681 the_only_x_display.background_pixel = 7; /* White */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
682 the_only_x_display.foreground_pixel = 0; /* Black */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
683 colors = getenv("EMACSCOLORS");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
684 if (colors && strlen (colors) >= 2)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
685 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
686 the_only_x_display.foreground_pixel = colors[0] & 0x07;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
687 the_only_x_display.background_pixel = colors[1] & 0x07;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
688 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
689 the_only_x_display.line_height = 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
690 the_only_frame.display.x = &the_only_x_display;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
691 the_only_frame.output_method = output_msdos_raw;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
692
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
693 init_frame_faces ((FRAME_PTR) &the_only_frame);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
694
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
695 ring_bell_hook = IT_ring_bell;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
696 write_glyphs_hook = IT_write_glyphs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
697 cursor_to_hook = raw_cursor_to_hook = IT_cursor_to;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
698 clear_to_end_hook = IT_clear_to_end;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
699 clear_end_of_line_hook = IT_clear_end_of_line;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
700 clear_frame_hook = IT_clear_screen;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
701 change_line_highlight_hook = IT_change_line_highlight;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
702 update_begin_hook = IT_update_begin;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
703 update_end_hook = IT_update_end;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
704 reassert_line_highlight_hook = IT_reassert_line_highlight;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
705
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
706 /* These hooks are called by term.c without being checked. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
707 set_terminal_modes_hook = IT_set_terminal_modes;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
708 reset_terminal_modes_hook = IT_reset_terminal_modes;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
709 set_terminal_window_hook = IT_set_terminal_window;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
710 #endif
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
711 }
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
712
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
713 dos_get_saved_screen (screen, rows, cols)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
714 char **screen;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
715 int *rows;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
716 int *cols;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
717 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
718 #ifndef HAVE_X_WINDOWS
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
719 *screen = startup_screen_buffer;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
720 *cols = startup_screen_size_X;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
721 *rows = startup_screen_size_Y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
722 return 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
723 #else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
724 return 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
725 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
726 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
727
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
728
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
729 /* ----------------------- Keyboard control ----------------------
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
730 *
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
731 * Keymaps reflect the following keyboard layout:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
732 *
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
733 * 0 1 2 3 4 5 6 7 8 9 10 11 12 BS
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
734 * TAB 15 16 17 18 19 20 21 22 23 24 25 26 (41)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
735 * CLOK 30 31 32 33 34 35 36 37 38 39 40 (41) RET
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
736 * SH () 45 46 47 48 49 50 51 52 53 54 SHIFT
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
737 * SPACE
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
738 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
739
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
740 static int extended_kbd; /* 101 (102) keyboard present. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
741
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
742 struct dos_keyboard_map
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
743 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
744 char *unshifted;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
745 char *shifted;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
746 char *alt_gr;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
747 };
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
748
13040
169d50e2ee4c (gettimeofday, init_gettimeofday, daylight, gmtoffset): Undo previous change.
Paul Eggert <eggert@twinsun.com>
parents: 13020
diff changeset
749
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
750 static struct dos_keyboard_map us_keyboard = {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
751 /* 0 1 2 3 4 5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
752 /* 01234567890123456789012345678901234567890 12345678901234 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
753 "`1234567890-= qwertyuiop[] asdfghjkl;'\\ zxcvbnm,./ ",
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
754 /* 0123456789012345678901234567890123456789 012345678901234 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
755 "~!@#$%^&*()_+ QWERTYUIOP{} ASDFGHJKL:\"| ZXCVBNM<>? ",
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
756 0 /* no Alt-Gr key */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
757 };
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
758
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
759 static struct dos_keyboard_map fr_keyboard = {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
760 /* 0 1 2 3 4 5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
761 /* 012 3456789012345678901234567890123456789012345678901234 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
762 "ý&‚\",(-Š_€…)= azertyuiop^$ qsdfghjklm—* wxcvbnm;:! ",
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
763 /* 0123456789012345678901234567890123456789012345678901234 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
764 " 1234567890ø+ AZERTYUIOPùœ QSDFGHJKLM%æ WXCVBN?./õ ",
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
765 /* 01234567 89012345678901234567890123456789012345678901234 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
766 " ~#{[|`\\^@]} Ï "
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
767 };
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
768
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
769 static struct dos_keyboard_map dk_keyboard = {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
770 /* 0 1 2 3 4 5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
771 /* 0123456789012345678901234567890123456789012345678901234 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
772 "«1234567890+| qwertyuiop†~ asdfghjkl‘›' zxcvbnm,.- ",
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
773 /* 01 23456789012345678901234567890123456789012345678901234 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
774 "õ!\"#$%&/()=?` QWERTYUIOP^ ASDFGHJKL’* ZXCVBNM;:_ ",
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
775 /* 0123456789012345678901234567890123456789012345678901234 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
776 " @œ$ {[]} | "
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
777 };
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
778
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
779 static struct keyboard_layout_list
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
780 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
781 int country_code;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
782 struct dos_keyboard_map *keyboard_map;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
783 } keyboard_layout_list[] = {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
784 1, &us_keyboard,
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
785 33, &fr_keyboard,
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
786 45, &dk_keyboard
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
787 };
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
788
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
789 static struct dos_keyboard_map *keyboard;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
790 static int keyboard_map_all;
7523
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
791
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
792 int
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
793 dos_set_keyboard (code, always)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
794 int code;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
795 int always;
7523
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
796 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
797 int i;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
798 for (i = 0; i < (sizeof (keyboard_layout_list)/sizeof (struct keyboard_layout_list)); i++)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
799 if (code == keyboard_layout_list[i].country_code)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
800 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
801 keyboard = keyboard_layout_list[i].keyboard_map;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
802 keyboard_map_all = always;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
803 dos_keyboard_layout = code;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
804 return 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
805 }
7523
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
806 return 0;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
807 }
13040
169d50e2ee4c (gettimeofday, init_gettimeofday, daylight, gmtoffset): Undo previous change.
Paul Eggert <eggert@twinsun.com>
parents: 13020
diff changeset
808
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
809 #define Ignore 0x0000
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
810 #define Normal 0x0000 /* normal key - alt changes scan-code */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
811 #define FctKey 0x1000 /* func key if c == 0, else c */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
812 #define Special 0x2000 /* func key even if c != 0 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
813 #define ModFct 0x3000 /* special if mod-keys, else 'c' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
814 #define Map 0x4000 /* alt scan-code, map to unshift/shift key */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
815 #define KeyPad 0x5000 /* map to insert/kp-0 depending on c == 0xe0 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
816 #define Grey 0x6000 /* Grey keypad key */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
817
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
818 #define Alt 0x0100 /* alt scan-code */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
819 #define Ctrl 0x0200 /* ctrl scan-code */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
820 #define Shift 0x0400 /* shift scan-code */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
821
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
822 static struct
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
823 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
824 unsigned char char_code; /* normal code */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
825 unsigned char meta_code; /* M- code */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
826 unsigned char keypad_code; /* keypad code */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
827 unsigned char editkey_code; /* edit key */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
828 } keypad_translate_map[] = {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
829 '0', '0', 0xb0, /* kp-0 */ 0x63, /* insert */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
830 '1', '1', 0xb1, /* kp-1 */ 0x57, /* end */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
831 '2', '2', 0xb2, /* kp-2 */ 0x54, /* down */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
832 '3', '3', 0xb3, /* kp-3 */ 0x56, /* next */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
833 '4', '4', 0xb4, /* kp-4 */ 0x51, /* left */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
834 '5', '5', 0xb5, /* kp-5 */ 0xb5, /* kp-5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
835 '6', '6', 0xb6, /* kp-6 */ 0x53, /* right */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
836 '7', '7', 0xb7, /* kp-7 */ 0x50, /* home */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
837 '8', '8', 0xb8, /* kp-8 */ 0x52, /* up */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
838 '9', '9', 0xb9, /* kp-9 */ 0x55, /* prior */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
839 '.', '-', 0xae, /* kp-decimal */ 0xff /* delete */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
840 };
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
841
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
842 static struct
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
843 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
844 unsigned char char_code; /* normal code */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
845 unsigned char keypad_code; /* keypad code */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
846 } grey_key_translate_map[] = {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
847 '/', 0xaf, /* kp-decimal */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
848 '*', 0xaa, /* kp-multiply */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
849 '-', 0xad, /* kp-subtract */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
850 '+', 0xab, /* kp-add */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
851 '\r', 0x8d /* kp-enter */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
852 };
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
853
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
854 static unsigned short
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
855 ibmpc_translate_map[] =
13040
169d50e2ee4c (gettimeofday, init_gettimeofday, daylight, gmtoffset): Undo previous change.
Paul Eggert <eggert@twinsun.com>
parents: 13020
diff changeset
856 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
857 /* --------------- 00 to 0f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
858 Normal | 0xff, /* Ctrl Break + Alt-NNN */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
859 Alt | ModFct | 0x1b, /* Escape */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
860 Normal | 1, /* '1' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
861 Normal | 2, /* '2' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
862 Normal | 3, /* '3' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
863 Normal | 4, /* '4' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
864 Normal | 5, /* '5' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
865 Normal | 6, /* '6' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
866 Normal | 7, /* '7' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
867 Normal | 8, /* '8' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
868 Normal | 9, /* '9' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
869 Normal | 10, /* '0' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
870 Normal | 11, /* '-' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
871 Normal | 12, /* '=' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
872 Special | 0x08, /* Backspace */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
873 ModFct | 0x74, /* Tab/Backtab */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
874
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
875 /* --------------- 10 to 1f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
876 Map | 15, /* 'q' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
877 Map | 16, /* 'w' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
878 Map | 17, /* 'e' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
879 Map | 18, /* 'r' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
880 Map | 19, /* 't' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
881 Map | 20, /* 'y' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
882 Map | 21, /* 'u' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
883 Map | 22, /* 'i' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
884 Map | 23, /* 'o' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
885 Map | 24, /* 'p' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
886 Map | 25, /* '[' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
887 Map | 26, /* ']' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
888 ModFct | 0x0d, /* Return */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
889 Ignore, /* Ctrl */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
890 Map | 30, /* 'a' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
891 Map | 31, /* 's' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
892
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
893 /* --------------- 20 to 2f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
894 Map | 32, /* 'd' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
895 Map | 33, /* 'f' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
896 Map | 34, /* 'g' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
897 Map | 35, /* 'h' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
898 Map | 36, /* 'j' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
899 Map | 37, /* 'k' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
900 Map | 38, /* 'l' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
901 Map | 39, /* ';' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
902 Map | 40, /* '\'' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
903 Map | 0, /* '`' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
904 Ignore, /* Left shift */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
905 Map | 41, /* '\\' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
906 Map | 45, /* 'z' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
907 Map | 46, /* 'x' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
908 Map | 47, /* 'c' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
909 Map | 48, /* 'v' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
910
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
911 /* --------------- 30 to 3f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
912 Map | 49, /* 'b' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
913 Map | 50, /* 'n' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
914 Map | 51, /* 'm' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
915 Map | 52, /* ',' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
916 Map | 53, /* '.' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
917 Map | 54, /* '/' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
918 Ignore, /* Right shift */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
919 Grey | 1, /* Grey * */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
920 Ignore, /* Alt */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
921 Normal | ' ', /* ' ' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
922 Ignore, /* Caps Lock */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
923 FctKey | 0xbe, /* F1 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
924 FctKey | 0xbf, /* F2 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
925 FctKey | 0xc0, /* F3 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
926 FctKey | 0xc1, /* F4 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
927 FctKey | 0xc2, /* F5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
928
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
929 /* --------------- 40 to 4f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
930 FctKey | 0xc3, /* F6 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
931 FctKey | 0xc4, /* F7 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
932 FctKey | 0xc5, /* F8 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
933 FctKey | 0xc6, /* F9 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
934 FctKey | 0xc7, /* F10 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
935 Ignore, /* Num Lock */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
936 Ignore, /* Scroll Lock */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
937 KeyPad | 7, /* Home */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
938 KeyPad | 8, /* Up */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
939 KeyPad | 9, /* Page Up */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
940 Grey | 2, /* Grey - */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
941 KeyPad | 4, /* Left */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
942 KeyPad | 5, /* Keypad 5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
943 KeyPad | 6, /* Right */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
944 Grey | 3, /* Grey + */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
945 KeyPad | 1, /* End */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
946
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
947 /* --------------- 50 to 5f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
948 KeyPad | 2, /* Down */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
949 KeyPad | 3, /* Page Down */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
950 KeyPad | 0, /* Insert */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
951 KeyPad | 10, /* Delete */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
952 Shift | FctKey | 0xbe, /* (Shift) F1 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
953 Shift | FctKey | 0xbf, /* (Shift) F2 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
954 Shift | FctKey | 0xc0, /* (Shift) F3 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
955 Shift | FctKey | 0xc1, /* (Shift) F4 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
956 Shift | FctKey | 0xc2, /* (Shift) F5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
957 Shift | FctKey | 0xc3, /* (Shift) F6 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
958 Shift | FctKey | 0xc4, /* (Shift) F7 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
959 Shift | FctKey | 0xc5, /* (Shift) F8 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
960 Shift | FctKey | 0xc6, /* (Shift) F9 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
961 Shift | FctKey | 0xc7, /* (Shift) F10 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
962 Ctrl | FctKey | 0xbe, /* (Ctrl) F1 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
963 Ctrl | FctKey | 0xbf, /* (Ctrl) F2 */
13040
169d50e2ee4c (gettimeofday, init_gettimeofday, daylight, gmtoffset): Undo previous change.
Paul Eggert <eggert@twinsun.com>
parents: 13020
diff changeset
964
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
965 /* --------------- 60 to 6f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
966 Ctrl | FctKey | 0xc0, /* (Ctrl) F3 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
967 Ctrl | FctKey | 0xc1, /* (Ctrl) F4 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
968 Ctrl | FctKey | 0xc2, /* (Ctrl) F5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
969 Ctrl | FctKey | 0xc3, /* (Ctrl) F6 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
970 Ctrl | FctKey | 0xc4, /* (Ctrl) F7 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
971 Ctrl | FctKey | 0xc5, /* (Ctrl) F8 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
972 Ctrl | FctKey | 0xc6, /* (Ctrl) F9 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
973 Ctrl | FctKey | 0xc7, /* (Ctrl) F10 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
974 Alt | FctKey | 0xbe, /* (Alt) F1 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
975 Alt | FctKey | 0xbf, /* (Alt) F2 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
976 Alt | FctKey | 0xc0, /* (Alt) F3 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
977 Alt | FctKey | 0xc1, /* (Alt) F4 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
978 Alt | FctKey | 0xc2, /* (Alt) F5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
979 Alt | FctKey | 0xc3, /* (Alt) F6 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
980 Alt | FctKey | 0xc4, /* (Alt) F7 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
981 Alt | FctKey | 0xc5, /* (Alt) F8 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
982
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
983 /* --------------- 70 to 7f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
984 Alt | FctKey | 0xc6, /* (Alt) F9 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
985 Alt | FctKey | 0xc7, /* (Alt) F10 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
986 Ctrl | FctKey | 0x6d, /* (Ctrl) Sys Rq */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
987 Ctrl | KeyPad | 4, /* (Ctrl) Left */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
988 Ctrl | KeyPad | 6, /* (Ctrl) Right */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
989 Ctrl | KeyPad | 1, /* (Ctrl) End */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
990 Ctrl | KeyPad | 3, /* (Ctrl) Page Down */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
991 Ctrl | KeyPad | 7, /* (Ctrl) Home */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
992 Alt | Map | 1, /* '1' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
993 Alt | Map | 2, /* '2' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
994 Alt | Map | 3, /* '3' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
995 Alt | Map | 4, /* '4' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
996 Alt | Map | 5, /* '5' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
997 Alt | Map | 6, /* '6' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
998 Alt | Map | 7, /* '7' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
999 Alt | Map | 8, /* '8' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1000
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1001 /* --------------- 80 to 8f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1002 Alt | Map | 9, /* '9' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1003 Alt | Map | 10, /* '0' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1004 Alt | Map | 11, /* '-' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1005 Alt | Map | 12, /* '=' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1006 Ctrl | KeyPad | 9, /* (Ctrl) Page Up */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1007 FctKey | 0xc8, /* F11 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1008 FctKey | 0xc9, /* F12 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1009 Shift | FctKey | 0xc8, /* (Shift) F11 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1010 Shift | FctKey | 0xc9, /* (Shift) F12 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1011 Ctrl | FctKey | 0xc8, /* (Ctrl) F11 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1012 Ctrl | FctKey | 0xc9, /* (Ctrl) F12 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1013 Alt | FctKey | 0xc8, /* (Alt) F11 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1014 Alt | FctKey | 0xc9, /* (Alt) F12 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1015 Ctrl | KeyPad | 8, /* (Ctrl) Up */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1016 Ctrl | Grey | 2, /* (Ctrl) Grey - */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1017 Ctrl | KeyPad | 5, /* (Ctrl) Keypad 5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1018
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1019 /* --------------- 90 to 9f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1020 Ctrl | Grey | 3, /* (Ctrl) Grey + */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1021 Ctrl | KeyPad | 2, /* (Ctrl) Down */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1022 Ctrl | KeyPad | 0, /* (Ctrl) Insert */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1023 Ctrl | KeyPad | 10, /* (Ctrl) Delete */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1024 Ctrl | FctKey | 0x09, /* (Ctrl) Tab */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1025 Ctrl | Grey | 0, /* (Ctrl) Grey / */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1026 Ctrl | Grey | 1, /* (Ctrl) Grey * */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1027 Alt | FctKey | 0x50, /* (Alt) Home */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1028 Alt | FctKey | 0x52, /* (Alt) Up */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1029 Alt | FctKey | 0x55, /* (Alt) Page Up */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1030 Ignore, /* NO KEY */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1031 Alt | FctKey | 0x51, /* (Alt) Left */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1032 Ignore, /* NO KEY */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1033 Alt | FctKey | 0x53, /* (Alt) Right */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1034 Ignore, /* NO KEY */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1035 Alt | FctKey | 0x57, /* (Alt) End */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1036
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1037 /* --------------- a0 to af --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1038 Alt | KeyPad | 2, /* (Alt) Down */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1039 Alt | KeyPad | 3, /* (Alt) Page Down */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1040 Alt | KeyPad | 0, /* (Alt) Insert */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1041 Alt | KeyPad | 10, /* (Alt) Delete */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1042 Alt | Grey | 0, /* (Alt) Grey / */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1043 Alt | FctKey | 0x09, /* (Alt) Tab */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1044 Alt | Grey | 4 /* (Alt) Keypad Enter */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1045 };
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1046
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1047 /* These bit-positions corresponds to values returned by BIOS */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1048 #define SHIFT_P 0x0003 /* two bits! */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1049 #define CTRL_P 0x0004
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1050 #define ALT_P 0x0008
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1051 #define SCRLOCK_P 0x0010
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1052 #define NUMLOCK_P 0x0020
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1053 #define CAPSLOCK_P 0x0040
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1054 #define ALT_GR_P 0x0800
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1055 #define SUPER_P 0x4000 /* pseudo */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1056 #define HYPER_P 0x8000 /* pseudo */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1057
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1058 static int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1059 dos_get_modifiers (keymask)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1060 int *keymask;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1061 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1062 union REGS regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1063 int mask;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1064 int modifiers = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1065
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1066 /* Calculate modifier bits */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1067 regs.h.ah = extended_kbd ? 0x12 : 0x02;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1068 int86 (0x16, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1069
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1070 if (!extended_kbd)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1071 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1072 mask = regs.h.al & (SHIFT_P | CTRL_P | ALT_P |
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1073 SCRLOCK_P | NUMLOCK_P | CAPSLOCK_P);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1074 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1075 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1076 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1077 mask = regs.h.al & (SHIFT_P |
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1078 SCRLOCK_P | NUMLOCK_P | CAPSLOCK_P);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1079
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1080 /* Do not break international keyboard support. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1081 /* When Keyb.Com is loaded, the right Alt key is */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1082 /* used for accessing characters like { and } */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1083 if (regs.h.ah & 2) /* Left ALT pressed ? */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1084 mask |= ALT_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1085
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1086 if ((regs.h.ah & 8) != 0) /* Right ALT pressed ? */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1087 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1088 mask |= ALT_GR_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1089 if (dos_hyper_key == 1)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1090 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1091 mask |= HYPER_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1092 modifiers |= hyper_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1093 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1094 else if (dos_super_key == 1)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1095 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1096 mask |= SUPER_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1097 modifiers |= super_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1098 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1099 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1100
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1101 if (regs.h.ah & 1) /* Left CTRL pressed
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1102 mask |= CTRL_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1103
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1104 if (regs.h.ah & 4) /* Right CTRL pressed ? */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1105 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1106 if (dos_hyper_key == 2)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1107 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1108 mask |= HYPER_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1109 modifiers |= hyper_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1110 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1111 else if (dos_super_key == 2)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1112 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1113 mask |= SUPER_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1114 modifiers |= super_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1115 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1116 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1117 mask |= CTRL_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1118 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1119 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1120
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1121 if (mask & SHIFT_P)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1122 modifiers |= shift_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1123 if (mask & CTRL_P)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1124 modifiers |= ctrl_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1125 if (mask & ALT_P)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1126 modifiers |= meta_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1127
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1128 if (keymask)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1129 *keymask = mask;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1130 return modifiers;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1131 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1132
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1133 /* Get a char from keyboard. Function keys are put into the event queue. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1134 static int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1135 dos_rawgetc ()
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1136 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1137 struct input_event event;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1138 union REGS regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1139
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1140 #ifndef HAVE_X_WINDOWS
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1141 SCREEN_SET_CURSOR();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1142 if (!mouse_visible) mouse_on ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1143 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1144
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1145 /* The following condition is equivalent to `kbhit ()', except that
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1146 it uses the bios to do its job. This pleases DESQview/X. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1147 while ((regs.h.ah = extended_kbd ? 0x11 : 0x01),
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1148 int86 (0x16, &regs, &regs),
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1149 (regs.x.flags & 0x40) == 0)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1150 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1151 union REGS regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1152 register unsigned char c;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1153 int sc, code, mask, kp_mode;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1154 int modifiers;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1155
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1156 regs.h.ah = extended_kbd ? 0x10 : 0x00;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1157 int86 (0x16, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1158 c = regs.h.al;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1159 sc = regs.h.ah;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1160
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1161 modifiers = dos_get_modifiers( &mask );
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1162
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1163 #ifndef HAVE_X_WINDOWS
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1164 if (!NILP(Vdos_display_scancodes))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1165 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1166 char buf[10];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1167 sprintf (buf, "%02x:%02x*%04x",
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1168 (unsigned) (sc&0xff), (unsigned) c, mask);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1169 dos_direct_output (screen_size_Y - 2, screen_size_X - 12, buf, 10);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1170 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1171 #endif
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1172
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1173 if (sc == 0xe0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1174 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1175 switch (c)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1176 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1177 case 10: /* Ctrl Grey Enter */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1178 code = Ctrl | Grey | 4;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1179 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1180 case 13: /* Grey Enter */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1181 code = Grey | 4;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1182 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1183 case '/': /* Grey / */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1184 code = Grey | 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1185 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1186 default:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1187 continue;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1188 };
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1189 c = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1190 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1191 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1192 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1193 if (sc >= (sizeof (ibmpc_translate_map) / sizeof (short)))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1194 continue;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1195 if ((code = ibmpc_translate_map[sc]) == Ignore)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1196 continue;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1197 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1198
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1199 if (c == 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1200 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1201 if (code & Alt)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1202 modifiers |= meta_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1203 if (code & Ctrl)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1204 modifiers |= ctrl_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1205 if (code & Shift)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1206 modifiers |= shift_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1207 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1208
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1209 switch (code & 0xf000)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1210 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1211 case ModFct:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1212 if (c && !(mask & (SHIFT_P | ALT_P | CTRL_P | HYPER_P | SUPER_P)))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1213 return c;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1214 c = 0; /* Special */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1215
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1216 case FctKey:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1217 if (c != 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1218 return c;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1219
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1220 case Special:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1221 code |= 0xff00;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1222 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1223
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1224 case Normal:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1225 if (sc == 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1226 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1227 if (c == 0) /* ctrl-break */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1228 continue;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1229 return c; /* ALT-nnn */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1230 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1231 if (!keyboard_map_all)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1232 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1233 if (c != ' ')
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1234 return c;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1235 code = c;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1236 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1237 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1238
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1239 case Map:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1240 if (c && !(mask & ALT_P) && !((mask & SHIFT_P) && (mask & CTRL_P)))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1241 if (!keyboard_map_all)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1242 return c;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1243
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1244 code &= 0xff;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1245 if (mask & ALT_P && code <= 10 && code > 0 && dos_keypad_mode & 0x200)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1246 mask |= SHIFT_P; /* ALT-1 => M-! etc. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1247
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1248 if (mask & SHIFT_P)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1249 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1250 code = keyboard->shifted[ code ];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1251 mask -= SHIFT_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1252 modifiers &= ~shift_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1253 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1254 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1255 if ((mask & ALT_GR_P) && keyboard->alt_gr && keyboard->alt_gr[ code ] != ' ')
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1256 code = keyboard->alt_gr[ code ];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1257 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1258 code = keyboard->unshifted[ code ];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1259 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1260
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1261 case KeyPad:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1262 code &= 0xff;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1263 if (c == 0xe0) /* edit key */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1264 kp_mode = 3;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1265 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1266 if ((mask & (NUMLOCK_P|CTRL_P|SHIFT_P|ALT_P)) == NUMLOCK_P) /* numlock on */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1267 kp_mode = dos_keypad_mode & 0x03;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1268 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1269 kp_mode = (dos_keypad_mode >> 4) & 0x03;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1270
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1271 switch (kp_mode)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1272 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1273 case 0:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1274 if (code == 10 && dos_decimal_point)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1275 return dos_decimal_point;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1276 return keypad_translate_map[ code ].char_code;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1277
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1278 case 1:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1279 code = 0xff00 | keypad_translate_map[ code ].keypad_code;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1280 break;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1281
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1282 case 2:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1283 code = keypad_translate_map[ code ].meta_code;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1284 modifiers = meta_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1285 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1286
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1287 case 3:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1288 code = 0xff00 | keypad_translate_map[ code ].editkey_code;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1289 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1290 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1291 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1292
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1293 case Grey:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1294 code &= 0xff;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1295 kp_mode = ((mask & (NUMLOCK_P|CTRL_P|SHIFT_P|ALT_P)) == NUMLOCK_P) ? 0x04 : 0x40;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1296 if (dos_keypad_mode & kp_mode)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1297 code = 0xff00 | grey_key_translate_map[ code ].keypad_code;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1298 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1299 code = grey_key_translate_map[ code ].char_code;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1300 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1301 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1302
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1303 make_event:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1304 if (code == 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1305 continue;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1306
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1307 if (code >= 0x100)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1308 event.kind = non_ascii_keystroke;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1309 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1310 event.kind = ascii_keystroke;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1311 event.code = code;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1312 event.modifiers = modifiers;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1313 XSETFRAME (event.frame_or_window, selected_frame);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1314 event.timestamp = event_timestamp ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1315 kbd_buffer_store_event (&event);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1316 }
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1317
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1318 if (have_mouse > 0)
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1319 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1320 int but, press, x, y, ok;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1321
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1322 /* Check for mouse movement *before* buttons. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1323 mouse_check_moved ();
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1324
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1325 for (but = 0; but < NUM_MOUSE_BUTTONS; but++)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1326 for (press = 0; press < 2; press++)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1327 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1328 if (press)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1329 ok = mouse_pressed (but, &x, &y);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1330 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1331 ok = mouse_released (but, &x, &y);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1332 if (ok)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1333 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1334 event.kind = mouse_click;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1335 event.code = but;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1336 event.modifiers = dos_get_modifiers (0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1337 | (press ? down_modifier : up_modifier);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1338 event.x = x;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1339 event.y = y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1340 XSETFRAME (event.frame_or_window, selected_frame);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1341 event.timestamp = event_timestamp ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1342 kbd_buffer_store_event (&event);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1343 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1344 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1345 }
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1346
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1347 return -1;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1348 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1349
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1350 static int prev_get_char = -1;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1351
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1352 /* Return 1 if a key is ready to be read without suspending execution. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1353 dos_keysns ()
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1354 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1355 if (prev_get_char != -1)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1356 return 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1357 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1358 return ((prev_get_char = dos_rawgetc ()) != -1);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1359 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1360
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1361 /* Read a key. Return -1 if no key is ready. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1362 dos_keyread ()
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1363 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1364 if (prev_get_char != -1)
8246
d48c2b01fba5 (mouse_init1): Use alternate mouse detection for old mouse drivers.
Richard M. Stallman <rms@gnu.org>
parents: 8194
diff changeset
1365 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1366 int c = prev_get_char;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1367 prev_get_char = -1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1368 return c;
8246
d48c2b01fba5 (mouse_init1): Use alternate mouse detection for old mouse drivers.
Richard M. Stallman <rms@gnu.org>
parents: 8194
diff changeset
1369 }
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1370 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1371 return dos_rawgetc ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1372 }
8246
d48c2b01fba5 (mouse_init1): Use alternate mouse detection for old mouse drivers.
Richard M. Stallman <rms@gnu.org>
parents: 8194
diff changeset
1373
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1374
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1375
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1376 #ifndef HAVE_X_WINDOWS
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1377 /* See xterm.c for more info. */
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1378 void
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1379 pixel_to_glyph_coords (f, pix_x, pix_y, x, y, bounds, noclip)
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1380 FRAME_PTR f;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1381 register int pix_x, pix_y;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1382 register int *x, *y;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1383 void /* XRectangle */ *bounds;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1384 int noclip;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1385 {
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1386 if (bounds) abort ();
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1387
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1388 /* Ignore clipping. */
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1389
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1390 *x = pix_x;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1391 *y = pix_y;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1392 }
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1393
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1394 void
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1395 glyph_to_pixel_coords (f, x, y, pix_x, pix_y)
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1396 FRAME_PTR f;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1397 register int x, y;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1398 register int *pix_x, *pix_y;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1399 {
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1400 *pix_x = x;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1401 *pix_y = y;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1402 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1403
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1404 /* Simulation of X's menus. Nothing too fancy here -- just make it work
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1405 for now.
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1406
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1407 Actually, I don't know the meaning of all the parameters of the functions
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1408 here -- I only know how they are called by xmenu.c. I could of course
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1409 grab the nearest Xlib manual (down the hall, second-to-last door on the
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1410 left), but I don't think it's worth the effort. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1411
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1412 static XMenu *
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1413 IT_menu_create ()
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1414 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1415 XMenu *menu;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1416
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1417 menu = (XMenu *) xmalloc (sizeof (XMenu));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1418 menu->allocated = menu->count = menu->panecount = menu->width = 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1419 return menu;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1420 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1421
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1422 /* Allocate some (more) memory for MENU ensuring that there is room for one
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1423 for item. */
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1424
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1425 static void
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1426 IT_menu_make_room (XMenu *menu)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1427 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1428 if (menu->allocated == 0)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1429 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1430 int count = menu->allocated = 10;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1431 menu->text = (char **) xmalloc (count * sizeof (char *));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1432 menu->submenu = (XMenu **) xmalloc (count * sizeof (XMenu *));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1433 menu->panenumber = (int *) xmalloc (count * sizeof (int));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1434 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1435 else if (menu->allocated == menu->count)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1436 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1437 int count = menu->allocated = menu->allocated + 10;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1438 menu->text
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1439 = (char **) xrealloc (menu->text, count * sizeof (char *));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1440 menu->submenu
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1441 = (XMenu **) xrealloc (menu->submenu, count * sizeof (XMenu *));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1442 menu->panenumber
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1443 = (int *) xrealloc (menu->panenumber, count * sizeof (int));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1444 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1445 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1446
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1447 /* Search the given menu structure for a given pane number. */
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1448
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1449 static XMenu *
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1450 IT_menu_search_pane (XMenu *menu, int pane)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1451 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1452 int i;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1453 XMenu *try;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1454
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1455 for (i = 0; i < menu->count; i++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1456 if (menu->submenu[i])
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1457 {
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1458 if (pane == menu->panenumber[i])
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1459 return menu->submenu[i];
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1460 if ((try = IT_menu_search_pane (menu->submenu[i], pane)))
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1461 return try;
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1462 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1463 return (XMenu *) 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1464 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1465
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1466 /* Determine how much screen space a given menu needs. */
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1467
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1468 static void
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1469 IT_menu_calc_size (XMenu *menu, int *width, int *height)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1470 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1471 int i, h2, w2, maxsubwidth, maxheight;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1472
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1473 maxsubwidth = 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1474 maxheight = menu->count;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1475 for (i = 0; i < menu->count; i++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1476 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1477 if (menu->submenu[i])
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1478 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1479 IT_menu_calc_size (menu->submenu[i], &w2, &h2);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1480 if (w2 > maxsubwidth) maxsubwidth = w2;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1481 if (i + h2 > maxheight) maxheight = i + h2;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1482 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1483 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1484 *width = menu->width + maxsubwidth;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1485 *height = maxheight;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1486 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1487
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1488 /* Display MENU at (X,Y) using FACES. */
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1489
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1490 static void
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1491 IT_menu_display (XMenu *menu, int y, int x, int *faces)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1492 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1493 int i, j, face, width;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1494 GLYPH *text, *p;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1495 char *q;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1496 int mx, my;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1497 int enabled, mousehere;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1498 int row, col;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1499
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1500 width = menu->width;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1501 text = (GLYPH *) xmalloc ((width + 2) * sizeof (GLYPH));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1502 ScreenGetCursor (&row, &col);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1503 mouse_get_xy (&mx, &my);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1504 IT_update_begin ();
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1505 for (i = 0; i < menu->count; i++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1506 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1507 IT_cursor_to (y + i, x);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1508 enabled
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1509 = (!menu->submenu[i] && menu->panenumber[i]) || (menu->submenu[i]);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1510 mousehere = (y + i == my && x <= mx && mx < x + width + 2);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1511 face = faces[enabled + mousehere * 2];
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1512 p = text;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1513 *p++ = FAST_MAKE_GLYPH (' ', face);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1514 for (j = 0, q = menu->text[i]; *q; j++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1515 *p++ = FAST_MAKE_GLYPH (*q++, face);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1516 for (; j < width; j++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1517 *p++ = FAST_MAKE_GLYPH (' ', face);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1518 *p++ = FAST_MAKE_GLYPH (menu->submenu[i] ? 16 : ' ', face);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1519 IT_write_glyphs (text, width + 2);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1520 }
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1521 IT_update_end ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1522 IT_cursor_to (row, col);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1523 xfree (text);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1524 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1525
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1526 /* --------------------------- X Menu emulation ---------------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1527
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1528 /* Create a brand new menu structure. */
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1529
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1530 XMenu *
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
1531 XMenuCreate (Display *foo1, Window foo2, char *foo3)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1532 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1533 return IT_menu_create ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1534 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1535
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1536 /* Create a new pane and place it on the outer-most level. It is not
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1537 clear that it should be placed out there, but I don't know what else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1538 to do. */
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1539
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1540 int
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
1541 XMenuAddPane (Display *foo, XMenu *menu, char *txt, int enable)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1542 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1543 int len;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1544
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1545 if (!enable)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1546 abort ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1547
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1548 IT_menu_make_room (menu);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1549 menu->submenu[menu->count] = IT_menu_create ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1550 menu->text[menu->count] = txt;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1551 menu->panenumber[menu->count] = ++menu->panecount;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1552 menu->count++;
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1553 if ((len = strlen (txt)) > menu->width)
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1554 menu->width = len;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1555 return menu->panecount;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1556 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1557
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1558 /* Create a new item in a menu pane. */
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1559
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1560 int
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
1561 XMenuAddSelection (Display *bar, XMenu *menu, int pane,
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
1562 int foo, char *txt, int enable)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1563 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1564 int len;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1565
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1566 if (pane)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1567 if (!(menu = IT_menu_search_pane (menu, pane)))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1568 return XM_FAILURE;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1569 IT_menu_make_room (menu);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1570 menu->submenu[menu->count] = (XMenu *) 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1571 menu->text[menu->count] = txt;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1572 menu->panenumber[menu->count] = enable;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1573 menu->count++;
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1574 if ((len = strlen (txt)) > menu->width)
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1575 menu->width = len;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1576 return XM_SUCCESS;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1577 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1578
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1579 /* Decide where the menu would be placed if requested at (X,Y). */
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1580
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
1581 void
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
1582 XMenuLocate (Display *foo0, XMenu *menu, int foo1, int foo2, int x, int y,
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1583 int *ulx, int *uly, int *width, int *height)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1584 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1585 if (menu->count == 1 && menu->submenu[0])
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1586 /* Special case: the menu consists of only one pane. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1587 IT_menu_calc_size (menu->submenu[0], width, height);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1588 else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1589 IT_menu_calc_size (menu, width, height);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1590 *ulx = x + 1;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1591 *uly = y;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1592 *width += 2;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1593 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1594
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1595 struct IT_menu_state
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1596 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1597 void *screen_behind;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1598 XMenu *menu;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1599 int pane;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1600 int x, y;
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1601 };
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1602
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1603
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1604 /* Display menu, wait for user's response, and return that response. */
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1605
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1606 int
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
1607 XMenuActivate (Display *foo, XMenu *menu, int *pane, int *selidx,
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1608 int x0, int y0, unsigned ButtonMask, char **txt)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1609 {
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1610 struct IT_menu_state *state;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1611 int statecount;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1612 int x, y, i, b;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1613 int screensize;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1614 int faces[4], selectface;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1615 int leave, result, onepane;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1616
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1617 /* Just in case we got here without a mouse present... */
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1618 if (have_mouse <= 0)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1619 return XM_IA_SELECT;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1620
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1621 state = alloca (menu->panecount * sizeof (struct IT_menu_state));
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1622 screensize = screen_size * 2;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1623 faces[0]
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1624 = compute_glyph_face (&the_only_frame,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1625 face_name_id_number
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1626 (&the_only_frame,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1627 intern ("msdos-menu-passive-face")),
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1628 0);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1629 faces[1]
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1630 = compute_glyph_face (&the_only_frame,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1631 face_name_id_number
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1632 (&the_only_frame,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1633 intern ("msdos-menu-active-face")),
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1634 0);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1635 selectface
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1636 = face_name_id_number (&the_only_frame, intern ("msdos-menu-select-face"));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1637 faces[2] = compute_glyph_face (&the_only_frame, selectface, faces[0]);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1638 faces[3] = compute_glyph_face (&the_only_frame, selectface, faces[1]);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1639
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1640 statecount = 1;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1641 state[0].menu = menu;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1642 mouse_off ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1643 ScreenRetrieve (state[0].screen_behind = xmalloc (screensize));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1644 if ((onepane = menu->count == 1 && menu->submenu[0]))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1645 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1646 menu->width = menu->submenu[0]->width;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1647 state[0].menu = menu->submenu[0];
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1648 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1649 else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1650 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1651 state[0].menu = menu;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1652 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1653 state[0].x = x0 - 1;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1654 state[0].y = y0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1655 state[0].pane = onepane;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1656
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1657 mouse_last_x = -1; /* A hack that forces display. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1658 leave = 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1659 while (!leave)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1660 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1661 if (!mouse_visible) mouse_on ();
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1662 mouse_check_moved ();
12573
f8193b0f95ed (mouse_get_pos, mouse_check_moved, XMenuActivate):
Karl Heuer <kwzh@gnu.org>
parents: 11124
diff changeset
1663 if (selected_frame->mouse_moved)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1664 {
12573
f8193b0f95ed (mouse_get_pos, mouse_check_moved, XMenuActivate):
Karl Heuer <kwzh@gnu.org>
parents: 11124
diff changeset
1665 selected_frame->mouse_moved = 0;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1666 result = XM_IA_SELECT;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1667 mouse_get_xy (&x, &y);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1668 for (i = 0; i < statecount; i++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1669 if (state[i].x <= x && x < state[i].x + state[i].menu->width + 2)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1670 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1671 int dy = y - state[i].y;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1672 if (0 <= dy && dy < state[i].menu->count)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1673 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1674 if (!state[i].menu->submenu[dy])
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1675 if (state[i].menu->panenumber[dy])
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1676 result = XM_SUCCESS;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1677 else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1678 result = XM_IA_SELECT;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1679 *pane = state[i].pane - 1;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1680 *selidx = dy;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1681 /* We hit some part of a menu, so drop extra menues that
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1682 have been opened. That does not include an open and
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1683 active submenu. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1684 if (i != statecount - 2
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1685 || state[i].menu->submenu[dy] != state[i+1].menu)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1686 while (i != statecount - 1)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1687 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1688 statecount--;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1689 mouse_off ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1690 ScreenUpdate (state[statecount].screen_behind);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1691 xfree (state[statecount].screen_behind);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1692 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1693 if (i == statecount - 1 && state[i].menu->submenu[dy])
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1694 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1695 IT_menu_display (state[i].menu,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1696 state[i].y,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1697 state[i].x,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1698 faces);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1699 state[statecount].menu = state[i].menu->submenu[dy];
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1700 state[statecount].pane = state[i].menu->panenumber[dy];
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1701 mouse_off ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1702 ScreenRetrieve (state[statecount].screen_behind
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1703 = xmalloc (screensize));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1704 state[statecount].x
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1705 = state[i].x + state[i].menu->width + 2;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1706 state[statecount].y = y;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1707 statecount++;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1708 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1709 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1710 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1711 IT_menu_display (state[statecount - 1].menu,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1712 state[statecount - 1].y,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1713 state[statecount - 1].x,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1714 faces);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1715 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1716 for (b = 0; b < mouse_button_count; b++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1717 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1718 (void) mouse_pressed (b, &x, &y);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1719 if (mouse_released (b, &x, &y))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1720 leave = 1;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1721 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1722 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1723
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1724 mouse_off ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1725 ScreenUpdate (state[0].screen_behind);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1726 while (statecount--)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1727 xfree (state[statecount].screen_behind);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1728 return result;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1729 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1730
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1731 /* Dispose of a menu. */
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1732
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
1733 void
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
1734 XMenuDestroy (Display *foo, XMenu *menu)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1735 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1736 int i;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1737 if (menu->allocated)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1738 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1739 for (i = 0; i < menu->count; i++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1740 if (menu->submenu[i])
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
1741 XMenuDestroy (foo, menu->submenu[i]);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1742 xfree (menu->text);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1743 xfree (menu->submenu);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1744 xfree (menu->panenumber);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1745 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1746 xfree (menu);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1747 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1748
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1749 int
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1750 x_pixel_width (struct frame *f)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1751 {
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1752 return FRAME_WIDTH (f);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1753 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1754
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1755 int
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1756 x_pixel_height (struct frame *f)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1757 {
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1758 return FRAME_HEIGHT (f);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1759 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1760 #endif /* !HAVE_X_WINDOWS */
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1761
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1762
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1763 /* ----------------------- DOS / UNIX conversion --------------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1764
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1765 /* Destructively turn backslashes into slashes. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1766
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1767 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1768 dostounix_filename (p)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1769 register char *p;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1770 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1771 while (*p)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1772 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1773 if (*p == '\\')
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1774 *p = '/';
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1775 p++;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1776 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1777 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1778
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1779 /* Destructively turn slashes into backslashes. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1780
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1781 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1782 unixtodos_filename (p)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1783 register char *p;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1784 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1785 while (*p)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1786 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1787 if (*p == '/')
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1788 *p = '\\';
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1789 p++;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1790 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1791 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1792
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1793 /* Get the default directory for a given drive. 0=def, 1=A, 2=B, ... */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1794
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1795 int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1796 getdefdir (drive, dst)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1797 int drive;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1798 char *dst;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1799 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1800 union REGS regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1801
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1802 *dst++ = '/';
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1803 regs.h.dl = drive;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1804 regs.x.si = (int) dst;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1805 regs.h.ah = 0x47;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1806 intdos (&regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1807 return !regs.x.cflag;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1808 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1809
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1810 /* Remove all CR's that are followed by a LF. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1811
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1812 int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1813 crlf_to_lf (n, buf)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1814 register int n;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1815 register unsigned char *buf;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1816 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1817 unsigned char *np = buf;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1818 unsigned char *startp = buf;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1819 unsigned char *endp = buf + n;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1820 unsigned char c;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1821
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1822 if (n == 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1823 return n;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1824 while (buf < endp - 1)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1825 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1826 if (*buf == 0x0d)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1827 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1828 if (*(++buf) != 0x0a)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1829 *np++ = 0x0d;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1830 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1831 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1832 *np++ = *buf++;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1833 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1834 if (buf < endp)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1835 *np++ = *buf++;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1836 return np - startp;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1837 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1838
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1839 /* The Emacs root directory as determined by init_environment. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1840
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1841 static char emacsroot[MAXPATHLEN];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1842
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1843 char *
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1844 rootrelativepath (rel)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1845 char *rel;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1846 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1847 static char result[MAXPATHLEN + 10];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1848
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1849 strcpy (result, emacsroot);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1850 strcat (result, "/");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1851 strcat (result, rel);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1852 return result;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1853 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1854
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1855 /* Define a lot of environment variables if not already defined. Don't
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1856 remove anything unless you know what you're doing -- lots of code will
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1857 break if one or more of these are missing. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1858
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1859 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1860 init_environment (argc, argv, skip_args)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1861 int argc;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1862 char **argv;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1863 int skip_args;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1864 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1865 char *s, *t, *root;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1866 int len;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1867
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1868 /* Find our root from argv[0]. Assuming argv[0] is, say,
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1869 "c:/emacs/bin/emacs.exe" our root will be "c:/emacs". */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1870 root = alloca (MAXPATHLEN + 20);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1871 _fixpath (argv[0], root);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1872 strlwr (root);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1873 len = strlen (root);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1874 while (len > 0 && root[len] != '/' && root[len] != ':')
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1875 len--;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1876 root[len] = '\0';
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1877 if (len > 4 && strcmp (root + len - 4, "/bin") == 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1878 root[len - 4] = '\0';
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1879 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1880 strcpy (root, "c:/emacs"); /* Only under debuggers, I think. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1881 len = strlen (root);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1882 strcpy (emacsroot, root);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1883
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1884 /* We default HOME to our root. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1885 setenv ("HOME", root, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1886
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1887 /* We default EMACSPATH to root + "/bin". */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1888 strcpy (root + len, "/bin");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1889 setenv ("EMACSPATH", root, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1890
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1891 /* I don't expect anybody to ever use other terminals so the internal
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1892 terminal is the default. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1893 setenv ("TERM", "internal", 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1894
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1895 #ifdef HAVE_X_WINDOWS
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1896 /* Emacs expects DISPLAY to be set. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1897 setenv ("DISPLAY", "unix:0.0", 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1898 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1899
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1900 /* SHELL is a bit tricky -- COMSPEC is the closest we come, but we must
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1901 downcase it and mirror the backslashes. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1902 s = getenv ("COMSPEC");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1903 if (!s) s = "c:/command.com";
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1904 t = alloca (strlen (s) + 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1905 strcpy (t, s);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1906 strlwr (t);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1907 dostounix_filename (t);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1908 setenv ("SHELL", t, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1909
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1910 /* PATH is also downcased and backslashes mirrored. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1911 s = getenv ("PATH");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1912 if (!s) s = "";
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1913 t = alloca (strlen (s) + 3);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1914 /* Current directory is always considered part of MsDos's path but it is
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1915 not normally mentioned. Now it is. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1916 strcat (strcpy (t, ".;"), s);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1917 strlwr (t);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1918 dostounix_filename (t); /* Not a single file name, but this should work. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1919 setenv ("PATH", t, 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1920
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1921 /* In some sense all dos users have root privileges, so... */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1922 setenv ("USER", "root", 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1923 setenv ("NAME", getenv ("USER"), 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1924
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1925 /* Time zone determined from country code. To make this possible, the
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1926 country code may not span more than one time zone. In other words,
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1927 in the USA, you lose. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1928 if (!getenv("TZ"))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1929 switch (dos_country_code)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1930 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1931 case 31: /* Belgium */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1932 case 32: /* The Netherlands */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1933 case 33: /* France */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1934 case 34: /* Spain */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1935 case 36: /* Hungary */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1936 case 38: /* Yugoslavia (or what's left of it?) */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1937 case 39: /* Italy */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1938 case 41: /* Switzerland */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1939 case 42: /* Tjekia */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1940 case 45: /* Denmark */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1941 case 46: /* Sweden */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1942 case 47: /* Norway */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1943 case 48: /* Poland */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1944 case 49: /* Germany */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1945 /* Daylight saving from last Sunday in March to last Sunday in
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1946 September, both at 2AM. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1947 setenv ("TZ", "MET" /* "-01METDST-02,M3.5.0/02:00,M9.5.0/02:00" */, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1948 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1949 case 44: /* United Kingdom */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1950 case 351: /* Portugal */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1951 case 354: /* Iceland */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1952 setenv ("TZ", "GMT" /* "+00" */, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1953 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1954 case 81: /* Japan */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1955 case 82: /* Korea */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1956 setenv ("TZ", "JST" /* "-09" */, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1957 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1958 case 90: /* Turkey */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1959 case 358: /* Finland */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1960 case 972: /* Israel */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1961 setenv ("TZ", "EET" /* "-02" */, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1962 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1963 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1964 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1965
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1966
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1967
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1968 static int break_stat; /* BREAK check mode status. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1969 static int stdin_stat; /* stdin IOCTL status. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1970
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1971 /* These must be global. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1972 static _go32_dpmi_seginfo ctrl_break_vector;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1973 static _go32_dpmi_registers ctrl_break_regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1974 static int ctrlbreakinstalled = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1975
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1976 /* Interrupt level detection of Ctrl-Break. Don't do anything fancy here! */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1977
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1978 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1979 ctrl_break_func (regs)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1980 _go32_dpmi_registers *regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1981 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1982 Vquit_flag = Qt;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1983 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1984
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1985 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1986 install_ctrl_break_check ()
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1987 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1988 if (!ctrlbreakinstalled)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1989 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1990 /* Don't press Ctrl-Break if you don't have either DPMI or Emacs
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1991 was compiler with Djgpp 1.11 maintenance level 5 or later! */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1992 ctrlbreakinstalled = 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1993 ctrl_break_vector.pm_offset = (int) ctrl_break_func;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1994 _go32_dpmi_allocate_real_mode_callback_iret (&ctrl_break_vector,
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1995 &ctrl_break_regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1996 _go32_dpmi_set_real_mode_interrupt_vector (0x1b, &ctrl_break_vector);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1997 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1998 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1999
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2000 /*
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2001 * Turn off Dos' Ctrl-C checking and inhibit interpretation of
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2002 * control chars by Dos.
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2003 * Determine the keyboard type.
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2004 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2005
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2006 int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2007 dos_ttraw ()
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2008 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2009 union REGS inregs, outregs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2010 static int first_time = 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2011
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2012 break_stat = getcbrk ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2013 setcbrk (0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2014 install_ctrl_break_check ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2015
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2016 if (first_time)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2017 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2018 inregs.h.ah = 0xc0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2019 int86 (0x15, &inregs, &outregs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2020 extended_kbd = (!outregs.x.cflag) && (outregs.h.ah == 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2021
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2022 have_mouse = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2023
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2024 if (internal_terminal
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2025 #ifdef HAVE_X_WINDOWS
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2026 && inhibit_window_system
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2027 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2028 )
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2029 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2030 inregs.x.ax = 0x0021;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2031 int86 (0x33, &inregs, &outregs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2032 have_mouse = (outregs.x.ax & 0xffff) == 0xffff;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2033 if (!have_mouse)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2034 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2035 /* Reportedly, the above doesn't work for some mouse drivers. There
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2036 is an additional detection method that should work, but might be
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2037 a little slower. Use that as an alternative. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2038 inregs.x.ax = 0x0000;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2039 int86 (0x33, &inregs, &outregs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2040 have_mouse = (outregs.x.ax & 0xffff) == 0xffff;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2041 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2042
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2043 if (have_mouse)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2044 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2045 have_mouse = 1; /* enable mouse */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2046 mouse_visible = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2047
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2048 if (outregs.x.bx == 3)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2049 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2050 mouse_button_count = 3;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2051 mouse_button_translate[0] = 0; /* Left */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2052 mouse_button_translate[1] = 2; /* Middle */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2053 mouse_button_translate[2] = 1; /* Right */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2054 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2055 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2056 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2057 mouse_button_count = 2;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2058 mouse_button_translate[0] = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2059 mouse_button_translate[1] = 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2060 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2061 mouse_position_hook = &mouse_get_pos;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2062 mouse_init ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2063 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2064 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2065
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2066 first_time = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2067 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2068
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2069 inregs.x.ax = 0x4400; /* Get IOCTL status. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2070 inregs.x.bx = 0x00; /* 0 = stdin. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2071 intdos (&inregs, &outregs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2072 stdin_stat = outregs.h.dl;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2073
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2074 inregs.x.dx = stdin_stat | 0x0020; /* raw mode */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2075 inregs.x.ax = 0x4401; /* Set IOCTL status */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2076 intdos (&inregs, &outregs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2077 return !outregs.x.cflag;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2078 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2079
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2080 /* Restore status of standard input and Ctrl-C checking. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2081 int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2082 dos_ttcooked ()
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2083 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2084 union REGS inregs, outregs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2085
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2086 setcbrk (break_stat);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2087 mouse_off ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2088
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2089 inregs.x.ax = 0x4401; /* Set IOCTL status. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2090 inregs.x.bx = 0x00; /* 0 = stdin. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2091 inregs.x.dx = stdin_stat;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2092 intdos (&inregs, &outregs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2093 return !outregs.x.cflag;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2094 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2095
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2096
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2097 /* Run command as specified by ARGV in directory DIR.
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2098 The command is run with input from TEMPIN and output to file TEMPOUT. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2099 int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2100 run_msdos_command (argv, dir, tempin, tempout)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2101 unsigned char **argv;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2102 Lisp_Object dir;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2103 int tempin, tempout;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2104 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2105 char *saveargv1, *saveargv2, **envv;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2106 char oldwd[MAXPATHLEN + 1]; /* Fixed size is safe on MSDOS. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2107 int msshell, result = -1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2108 int in, out, inbak, outbak, errbak;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2109 int x, y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2110 Lisp_Object cmd;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2111
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2112 /* Get current directory as MSDOS cwd is not per-process. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2113 getwd (oldwd);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2114
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2115 cmd = Ffile_name_nondirectory (build_string (argv[0]));
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2116 msshell = !NILP (Fmember (cmd, Fsymbol_value (intern ("msdos-shells"))))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2117 && !strcmp ("-c", argv[1]);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2118 if (msshell)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2119 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2120 saveargv1 = argv[1];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2121 saveargv2 = argv[2];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2122 argv[1] = "/c";
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2123 if (argv[2])
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2124 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2125 char *p = alloca (strlen (argv[2]) + 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2126
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2127 strcpy (argv[2] = p, saveargv2);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2128 while (*p && isspace (*p))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2129 p++;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2130 while (*p && !isspace (*p))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2131 if (*p == '/')
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2132 *p++ = '\\';
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2133 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2134 p++;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2135 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2136 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2137
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2138 /* Build the environment array. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2139 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2140 extern Lisp_Object Vprocess_environment;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2141 Lisp_Object tmp, lst;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2142 int i, len;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2143
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2144 lst = Vprocess_environment;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2145 len = XFASTINT (Flength (lst));
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2146
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2147 envv = alloca ((len + 1) * sizeof (char *));
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2148 for (i = 0; i < len; i++)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2149 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2150 tmp = Fcar (lst);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2151 lst = Fcdr (lst);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2152 CHECK_STRING (tmp, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2153 envv[i] = alloca (XSTRING (tmp)->size + 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2154 strcpy (envv[i], XSTRING (tmp)->data);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2155 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2156 envv[len] = (char *) 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2157 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2158
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2159 if (STRINGP (dir))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2160 chdir (XSTRING (dir)->data);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2161 inbak = dup (0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2162 outbak = dup (1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2163 errbak = dup (2);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2164 if (inbak < 0 || outbak < 0 || errbak < 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2165 goto done; /* Allocation might fail due to lack of descriptors. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2166
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2167 if (have_mouse > 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2168 mouse_get_xy (&x, &y);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2169
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2170 dos_ttcooked (); /* do it here while 0 = stdin */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2171
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2172 dup2 (tempin, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2173 dup2 (tempout, 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2174 dup2 (tempout, 2);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2175
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2176 result = spawnve (P_WAIT, argv[0], argv, envv);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2177
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2178 dup2 (inbak, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2179 dup2 (outbak, 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2180 dup2 (errbak, 2);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2181 close (inbak);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2182 close (outbak);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2183 close (errbak);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2184
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2185 dos_ttraw();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2186 if (have_mouse > 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2187 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2188 mouse_init ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2189 mouse_moveto (x, y);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2190 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2191
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2192 done:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2193 chdir (oldwd);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2194 if (msshell)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2195 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2196 argv[1] = saveargv1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2197 argv[2] = saveargv2;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2198 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2199 return result;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2200 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2201
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2202 croak (badfunc)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2203 char *badfunc;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2204 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2205 fprintf (stderr, "%s not yet implemented\r\n", badfunc);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2206 reset_sys_modes ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2207 exit (1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2208 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2209
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2210
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2211 /* ------------------------- Compatibility functions -------------------
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2212 * gethostname
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2213 * gettimeofday
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2214 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2215
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2216 /*
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2217 * Hostnames for a pc are not really funny,
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2218 * but they are used in change log so we emulate the best we can.
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2219 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2220
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2221 gethostname (p, size)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2222 char *p;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2223 int size;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2224 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2225 char *q = egetenv ("HOSTNAME");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2226
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2227 if (!q) q = "pc";
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2228 strcpy (p, q);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2229 return 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2230 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2231
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2232 /* When time zones are set from Ms-Dos too may C-libraries are playing
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2233 tricks with time values. We solve this by defining our own version
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2234 of `gettimeofday' bypassing GO32. Our version needs to be initialized
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2235 once and after each call to `tzset' with TZ changed. That is
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2236 accomplished by aliasing tzset to init_gettimeofday. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2237
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2238 static struct tm time_rec;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2239
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2240 int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2241 gettimeofday (struct timeval *tp, struct timezone *tzp)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2242 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2243 if (tp)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2244 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2245 struct time t;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2246 struct tm tm;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2247
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2248 gettime (&t);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2249 if (t.ti_hour < time_rec.tm_hour) /* midnight wrap */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2250 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2251 struct date d;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2252 getdate (&d);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2253 time_rec.tm_year = d.da_year - 1900;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2254 time_rec.tm_mon = d.da_mon - 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2255 time_rec.tm_mday = d.da_day;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2256 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2257
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2258 time_rec.tm_hour = t.ti_hour;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2259 time_rec.tm_min = t.ti_min;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2260 time_rec.tm_sec = t.ti_sec;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2261
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2262 tm = time_rec;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2263 tm.tm_gmtoff = dos_timezone_offset;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2264
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2265 tp->tv_sec = mktime (&tm); /* may modify tm */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2266 tp->tv_usec = t.ti_hund * (1000000 / 100);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2267 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2268 /* Ignore tzp; it's obsolescent. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2269 return 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2270 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2271
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2272
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2273 /*
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2274 * A list of unimplemented functions that we silently ignore.
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2275 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2276
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2277 unsigned alarm (s) unsigned s; {}
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2278 fork () { return 0; }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2279 int kill (x, y) int x, y; { return -1; }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2280 nice (p) int p; {}
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2281 void volatile pause () {}
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2282 request_sigio () {}
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2283 setpgrp () {return 0; }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2284 setpriority (x,y,z) int x,y,z; { return 0; }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2285 sigsetmask (x) int x; { return 0; }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2286 unrequest_sigio () {}
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2287
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2288 int run_dos_timer_hooks = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2289
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2290 #ifndef HAVE_SELECT
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2291 #include "sysselect.h"
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2292
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2293 static int last_ti_sec = -1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2294
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2295 static void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2296 check_timer (t)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2297 struct time *t;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2298 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2299 gettime (t);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2300
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2301 if (t->ti_sec == last_ti_sec)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2302 return;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2303 last_ti_sec = t->ti_sec;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2304
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2305 if (!NILP (Vdos_menubar_clock))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2306 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2307 char clock_str[16];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2308 int len;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2309 int min = t->ti_min;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2310 int hour = t->ti_hour;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2311
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2312 if (dos_timezone_offset)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2313 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2314 int tz = dos_timezone_offset;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2315 min -= tz % 60;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2316 if (min < 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2317 min += 60, hour--;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2318 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2319 if (min >= 60)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2320 min -= 60, hour++;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2321
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2322 if ((hour -= (tz / 60)) < 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2323 hour += 24;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2324 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2325 hour %= 24;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2326 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2327
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2328 if ((dos_country_info[0x11] & 0x01) == 0) /* 12 hour clock */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2329 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2330 hour %= 12;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2331 if (hour == 0) hour = 12;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2332 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2333
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2334 len = sprintf (clock_str, "%2d.%02d.%02d", hour, min, t->ti_sec);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2335 dos_direct_output (0, screen_size_X - len - 1, clock_str, len);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2336 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2337
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2338 if (!NILP (Vdos_timer_hooks))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2339 run_dos_timer_hooks++;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2340 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2341
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2342 /* Only event queue is checked. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2343 int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2344 sys_select (nfds, rfds, wfds, efds, timeout)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2345 int nfds;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2346 SELECT_TYPE *rfds, *wfds, *efds;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2347 EMACS_TIME *timeout;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2348 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2349 int check_input;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2350 long timeoutval, clnow, cllast;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2351 struct time t;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2352
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2353 check_input = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2354 if (rfds)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2355 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2356 check_input = FD_ISSET (0, rfds);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2357 FD_ZERO (rfds);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2358 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2359 if (wfds)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2360 FD_ZERO (wfds);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2361 if (efds)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2362 FD_ZERO (efds);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2363
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2364 if (nfds != 1)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2365 abort ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2366
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2367 /* If we are looking only for the terminal, with no timeout,
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2368 just read it and wait -- that's more efficient. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2369 if (!timeout)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2370 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2371 while (! detect_input_pending ())
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2372 check_timer (&t);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2373 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2374 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2375 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2376 timeoutval = EMACS_SECS (*timeout) * 100 + EMACS_USECS (*timeout) / 10000;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2377 check_timer (&t);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2378 cllast = t.ti_sec * 100 + t.ti_hund;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2379
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2380 while (!check_input || !detect_input_pending ())
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2381 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2382 check_timer (&t);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2383 clnow = t.ti_sec * 100 + t.ti_hund;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2384 if (clnow < cllast) /* time wrap */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2385 timeoutval -= clnow + 6000 - cllast;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2386 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2387 timeoutval -= clnow - cllast;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2388 if (timeoutval <= 0) /* Stop on timer being cleared */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2389 return 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2390 cllast = clnow;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2391 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2392 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2393
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2394 FD_SET (0, rfds);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2395 return 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2396 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2397 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2398
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2399 /*
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2400 * Define overlayed functions:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2401 *
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2402 * chdir -> sys_chdir
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2403 * tzset -> init_gettimeofday
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2404 * abort -> dos_abort
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2405 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2406
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2407 #ifdef chdir
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2408 #undef chdir
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2409 extern int chdir ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2410
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2411 int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2412 sys_chdir (path)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2413 const char* path;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2414 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2415 int len = strlen (path);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2416 char *tmp = (char *)path;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2417
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2418 if (*tmp && tmp[1] == ':')
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2419 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2420 if (getdisk () != tolower (tmp[0]) - 'a')
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2421 setdisk (tolower (tmp[0]) - 'a');
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2422 tmp += 2; /* strip drive: KFS 1995-07-06 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2423 len -= 2;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2424 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2425
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2426 if (len > 1 && (tmp[len - 1] == '/'))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2427 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2428 char *tmp1 = (char *) alloca (len + 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2429 strcpy (tmp1, tmp);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2430 tmp1[len - 1] = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2431 tmp = tmp1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2432 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2433 return chdir (tmp);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2434 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2435 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2436
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2437 #ifdef tzset
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2438 #undef tzset
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2439 extern void tzset (void);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2440
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2441 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2442 init_gettimeofday ()
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2443 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2444 time_t ltm, gtm;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2445 struct tm *lstm;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2446
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2447 tzset ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2448 ltm = gtm = time (NULL);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2449 ltm = mktime (lstm = localtime (&ltm));
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2450 gtm = mktime (gmtime (&gtm));
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2451 time_rec.tm_hour = 99; /* force gettimeofday to get date */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2452 time_rec.tm_isdst = lstm->tm_isdst;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2453 dos_timezone_offset = time_rec.tm_gmtoff = (int)(gtm - ltm) / 60;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2454 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2455 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2456
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2457 #ifdef abort
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2458 #undef abort
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2459 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2460 dos_abort (file, line)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2461 char *file;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2462 int line;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2463 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2464 char buffer1[200], buffer2[400];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2465 int i, j;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2466
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2467 sprintf (buffer1, "<EMACS FATAL ERROR IN %s LINE %d>", file, line);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2468 for (i = j = 0; buffer1[i]; i++) {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2469 buffer2[j++] = buffer1[i];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2470 buffer2[j++] = 0x70;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2471 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2472 dosmemput (buffer2, j, (int)ScreenPrimary);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2473 ScreenSetCursor (2, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2474 abort ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2475 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2476 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2477
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2478 #endif /* MSDOS */