annotate src/msdos.c @ 20892:18f3cb26243f before-miles-orphaned-changes gcc-2_8_1-980401 gcc-2_8_1-980407 gcc-2_8_1-980412 gcc-2_8_1-980413 gcc-2_8_1-RELEASE gcc_2_8_1-980315 libc-980214 libc-980215 libc-980216 libc-980217 libc-980218 libc-980219 libc-980220 libc-980221 libc-980222 libc-980223 libc-980224 libc-980225 libc-980226 libc-980227 libc-980228 libc-980301 libc-980302 libc-980303 libc-980304 libc-980306 libc-980307 libc-980308 libc-980309 libc-980310 libc-980311 libc-980312 libc-980313 libc-980314 libc-980315 libc-980316 libc-980317 libc-980318 libc-980319 libc-980320 libc-980321 libc-980322 libc-980323 libc-980324 libc-980325 libc-980326 libc-980327 libc-980328 libc-980329 libc-980330 libc-980331 libc-980401 libc-980402 libc-980403 libc-980404 libc-980405 libc-980406 libc-980407 libc-980408 libc-980409 libc-980410 libc-980411 libc-980412 libc-980413 libc-980414 libc-980428 libc-980429 libc-980430 libc-980501 libc-980502 libc-980503 libc-980504 libc-980505 libc-980506 libc-980507 libc-980508 libc-980509 libc-980510 libc-980512 libc-980513 libc-980514 libc-980515 libc-980516 libc-980517 libc-980518 libc-980519 libc-980520 libc-980521 libc-980522 libc-980523 libc-980524 libc-980525 libc-980526 libc-980527 libc-980528 libc-980529 libc-980530 libc-980531 libc-980601 libc-980602 libc-980603 libc-980604 libc-980605 libc-980606 libc-980607 libc-980608 libc-980609 libc-980610 libc-980611 libc-980612 libc-980613

Add PentiumII (i786). Add '7' to all i[3456] entries. Add AMD and Cyrix names for P5 and P6.
author Richard Kenner <kenner@gnu.org>
date Fri, 13 Feb 1998 12:16:46 +0000
parents 963e9cda8f04
children e6d49d55ea7e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
19871
847fbc8725a9 Switch to raw-text as coding system.
Richard M. Stallman <rms@gnu.org>
parents: 19864
diff changeset
1 /* MS-DOS specific C utilities. -*- coding: raw-text -*-
19293
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
2 Copyright (C) 1993, 1994, 1995, 1996, 1997 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
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14157
diff changeset
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14157
diff changeset
19 Boston, MA 02111-1307, USA. */
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20
7666
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
21 /* Contributed by Morten Welinder */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
22 /* 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
23
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 /* 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
25
5980
a203b7c30300 Use <...> for config.h.
Richard M. Stallman <rms@gnu.org>
parents: 5503
diff changeset
26 #include <config.h>
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 #ifdef MSDOS
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 #include "lisp.h"
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 #include <stdio.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 #include <stdlib.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32 #include <sys/param.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 #include <sys/time.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 #include <dos.h>
15125
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
35 #include <errno.h>
16915
8d28d96f6031 (run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents: 16872
diff changeset
36 #include <string.h> /* for bzero and string functions */
15125
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
37 #include <sys/stat.h> /* for _fixpath */
16915
8d28d96f6031 (run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents: 16872
diff changeset
38 #include <unistd.h> /* for chdir, dup, dup2, etc. */
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
39 #if __DJGPP__ >= 2
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
40 #include <fcntl.h>
16915
8d28d96f6031 (run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents: 16872
diff changeset
41 #include <io.h> /* for setmode */
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
42 #include <dpmi.h> /* for __dpmi_xxx stuff */
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
43 #include <sys/farptr.h> /* for _farsetsel, _farnspokeb */
15125
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
44 #include <libc/dosio.h> /* for _USE_LFN */
16915
8d28d96f6031 (run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents: 16872
diff changeset
45 #include <conio.h> /* for cputs */
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
46 #endif
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
47
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48 #include "dosfns.h"
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 #include "msdos.h"
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 #include "systime.h"
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51 #include "termhooks.h"
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
52 #include "dispextern.h"
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
53 #include "termopts.h"
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54 #include "frame.h"
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
55 #include "window.h"
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
56 #include "buffer.h"
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
57 #include "commands.h"
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58 #include <go32.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
59 #include <pc.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 #include <ctype.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 /* #include <process.h> */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62 /* Damn that local process.h! Instead we can define P_WAIT ourselves. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63 #define P_WAIT 1
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64
15125
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
65 #ifndef _USE_LFN
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
66 #define _USE_LFN 0
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
67 #endif
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
68
16837
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
69 #ifndef _dos_ds
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
70 #define _dos_ds _go32_info_block.selector_for_linear_memory
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
71 #endif
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
72
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
73 #if __DJGPP__ > 1
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
74
14999
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
75 #include <signal.h>
16872
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
76 #include "syssignal.h"
14999
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
77
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
78 #ifndef SYSTEM_MALLOC
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
79
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
80 #ifdef GNU_MALLOC
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
81
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
82 /* If other `malloc' than ours is used, force our `sbrk' behave like
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
83 Unix programs expect (resize memory blocks to keep them contiguous).
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
84 If `sbrk' from `ralloc.c' is NOT used, also zero-out sbrk'ed memory,
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
85 because that's what `gmalloc' expects to get. */
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
86 #include <crt0.h>
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
87
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
88 #ifdef REL_ALLOC
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
89 int _crt0_startup_flags = _CRT0_FLAG_UNIX_SBRK;
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
90 #else /* not REL_ALLOC */
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
91 int _crt0_startup_flags = (_CRT0_FLAG_UNIX_SBRK | _CRT0_FLAG_FILL_SBRK_MEMORY);
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
92 #endif /* not REL_ALLOC */
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
93 #endif /* GNU_MALLOC */
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
94
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
95 #endif /* not SYSTEM_MALLOC */
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
96 #endif /* __DJGPP__ > 1 */
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
97
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
98 static unsigned long
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
99 event_timestamp ()
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
100 {
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
101 struct time t;
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
102 unsigned long s;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
103
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
104 gettime (&t);
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
105 s = t.ti_min;
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
106 s *= 60;
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
107 s += t.ti_sec;
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
108 s *= 1000;
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
109 s += t.ti_hund * 10;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
110
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
111 return s;
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
112 }
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
113
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
114
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
115 /* ------------------------ Mouse control ---------------------------
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
116 *
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
117 * Coordinates are in screen positions and zero based.
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
118 * 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
119 */
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
120
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
121 int have_mouse; /* 0: no, 1: enabled, -1: disabled */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
122 static int mouse_visible;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
123
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
124 static int mouse_last_x;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
125 static int mouse_last_y;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
126
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
127 static int mouse_button_translate[NUM_MOUSE_BUTTONS];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
128 static int mouse_button_count;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
130 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
131 mouse_on ()
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
132 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
133 union REGS regs;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
134
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
135 if (have_mouse > 0 && !mouse_visible)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
136 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
137 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
138 fprintf (termscript, "<M_ON>");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
139 regs.x.ax = 0x0001;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
140 int86 (0x33, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
141 mouse_visible = 1;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
143 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
144
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
145 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
146 mouse_off ()
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
148 union REGS regs;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
149
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
150 if (have_mouse > 0 && mouse_visible)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
151 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
152 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
153 fprintf (termscript, "<M_OFF>");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
154 regs.x.ax = 0x0002;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
155 int86 (0x33, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
156 mouse_visible = 0;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
157 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
158 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
159
20036
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
160 static void
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
161 mouse_get_xy (int *x, int *y)
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
162 {
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
163 union REGS regs;
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
164
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
165 regs.x.ax = 0x0003;
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
166 int86 (0x33, &regs, &regs);
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
167 *x = regs.x.cx / 8;
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
168 *y = regs.x.dx / 8;
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
169 }
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
170
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
171 void
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
172 mouse_moveto (x, y)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
173 int x, y;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
174 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
175 union REGS regs;
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 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
178 fprintf (termscript, "<M_XY=%dx%d>", x, y);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
179 regs.x.ax = 0x0004;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
180 mouse_last_x = regs.x.cx = x * 8;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
181 mouse_last_y = regs.x.dx = y * 8;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
182 int86 (0x33, &regs, &regs);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
183 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
184
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
185 static int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
186 mouse_pressed (b, xp, yp)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
187 int b, *xp, *yp;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
188 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
189 union REGS regs;
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 if (b >= mouse_button_count)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
192 return 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
193 regs.x.ax = 0x0005;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
194 regs.x.bx = mouse_button_translate[b];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
195 int86 (0x33, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
196 if (regs.x.bx)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
197 *xp = regs.x.cx / 8, *yp = regs.x.dx / 8;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
198 return (regs.x.bx != 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
199 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
200
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
201 static int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
202 mouse_released (b, xp, yp)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
203 int b, *xp, *yp;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
204 {
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 (b >= mouse_button_count)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
208 return 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
209 regs.x.ax = 0x0006;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
210 regs.x.bx = mouse_button_translate[b];
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 if (regs.x.bx)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
213 *xp = regs.x.cx / 8, *yp = regs.x.dx / 8;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
214 return (regs.x.bx != 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
215 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
216
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
217 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
218 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
219 FRAME_PTR *f;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
220 int insist;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
221 Lisp_Object *bar_window, *x, *y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
222 enum scroll_bar_part *part;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
223 unsigned long *time;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
224 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
225 int ix, iy;
20036
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
226 Lisp_Object frame, tail;
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
227
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
228 /* Clear the mouse-moved flag for every frame on this display. */
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
229 FOR_EACH_FRAME (tail, frame)
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
230 XFRAME (frame)->mouse_moved = 0;
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
231
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
232 *f = selected_frame;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
233 *bar_window = Qnil;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
234 mouse_get_xy (&ix, &iy);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
235 *time = event_timestamp ();
20036
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
236 *x = make_number (mouse_last_x = ix);
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
237 *y = make_number (mouse_last_y = iy);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
238 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
239
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
240 static void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
241 mouse_check_moved ()
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
242 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
243 int x, y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
244
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
245 mouse_get_xy (&x, &y);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
246 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
247 mouse_last_x = x;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
248 mouse_last_y = y;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
249 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
250
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
251 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
252 mouse_init ()
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
253 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
254 union REGS regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
255
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
256 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
257 fprintf (termscript, "<M_INIT>");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
258
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
259 regs.x.ax = 0x0021;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
260 int86 (0x33, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
261
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
262 regs.x.ax = 0x0007;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
263 regs.x.cx = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
264 regs.x.dx = 8 * (ScreenCols () - 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
265 int86 (0x33, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
266
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
267 regs.x.ax = 0x0008;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
268 regs.x.cx = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
269 regs.x.dx = 8 * (ScreenRows () - 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
270 int86 (0x33, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
271
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
272 mouse_moveto (0, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
273 mouse_visible = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
274 }
13848
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
275
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
276 /* ------------------------- Screen control ----------------------
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
277 *
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
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
280 static int internal_terminal = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
281
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
282 #ifndef HAVE_X_WINDOWS
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
283 extern unsigned char ScreenAttrib;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
284 static int screen_face;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
285 static int highlight;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
286
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
287 static int screen_size_X;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
288 static int screen_size_Y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
289 static int screen_size;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
290
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
291 static int current_pos_X;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
292 static int current_pos_Y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
293 static int new_pos_X;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
294 static int new_pos_Y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
295
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
296 static void *startup_screen_buffer;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
297 static int startup_screen_size_X;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
298 static int startup_screen_size_Y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
299 static int startup_pos_X;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
300 static int startup_pos_Y;
13717
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
301 static unsigned char startup_screen_attrib;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
302
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
303 static int term_setup_done;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
304
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
305 /* Similar to the_only_frame. */
13394
c4549fcdd5f3 (the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents: 13305
diff changeset
306 struct x_output the_only_x_display;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
307
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
308 /* This is never dereferenced. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
309 Display *x_current_display;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
310
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
311 /* Support for DOS/V (allows Japanese characters to be displayed on
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
312 standard, non-Japanese, ATs). Only supported for DJGPP v2 and later. */
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
313
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
314 /* Holds the address of the text-mode screen buffer. */
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
315 static unsigned long screen_old_address = 0;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
316 /* Segment and offset of the virtual screen. If 0, DOS/V is NOT loaded. */
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
317 static unsigned short screen_virtual_segment = 0;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
318 static unsigned short screen_virtual_offset = 0;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
319
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
320 #if __DJGPP__ > 1
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
321 /* Update the screen from a part of relocated DOS/V screen buffer which
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
322 begins at OFFSET and includes COUNT characters. */
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
323 static void
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
324 dosv_refresh_virtual_screen (int offset, int count)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
325 {
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
326 __dpmi_regs regs;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
327
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
328 regs.h.ah = 0xff; /* update relocated screen */
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
329 regs.x.es = screen_virtual_segment;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
330 regs.x.di = screen_virtual_offset + offset;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
331 regs.x.cx = count;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
332 __dpmi_int (0x10, &regs);
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
333 }
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
334 #endif
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
335
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
336 static
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
337 dos_direct_output (y, x, buf, len)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
338 int y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
339 int x;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
340 char *buf;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
341 int len;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
342 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
343 int t = (int) ScreenPrimary + 2 * (x + y * screen_size_X);
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
344 int t0 = t;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
345 int l0 = len;
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
346
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
347 #if (__DJGPP__ < 2)
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
348 while (--len >= 0) {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
349 dosmemput (buf++, 1, t);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
350 t += 2;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
351 }
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
352 #else
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
353 /* This is faster. */
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
354 for (_farsetsel (_dos_ds); --len >= 0; t += 2, buf++)
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
355 _farnspokeb (t, *buf);
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
356
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
357 if (screen_virtual_segment)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
358 dosv_refresh_virtual_screen (t0, l0);
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
359 #endif
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
360 }
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
361 #endif
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
362
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
363 /* Flash the screen as a substitute for BEEPs. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
364
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
365 #if (__DJGPP__ < 2)
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
366 static void
7667
bae9c0fa1c2f (do_visible_bell): Renamed from visible_bell to avoid
Richard M. Stallman <rms@gnu.org>
parents: 7666
diff changeset
367 do_visible_bell (xorattr)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
368 unsigned char xorattr;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
369 {
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
370 asm volatile
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
371 (" movb $1,%%dl
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
372 visible_bell_0:
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
373 movl _ScreenPrimary,%%eax
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
374 call dosmemsetup
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
375 movl %%eax,%%ebx
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
376 movl %1,%%ecx
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
377 movb %0,%%al
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
378 incl %%ebx
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
379 visible_bell_1:
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
380 xorb %%al,%%gs:(%%ebx)
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
381 addl $2,%%ebx
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
382 decl %%ecx
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
383 jne visible_bell_1
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
384 decb %%dl
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
385 jne visible_bell_3
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
386 visible_bell_2:
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
387 movzwl %%ax,%%eax
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
388 movzwl %%ax,%%eax
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
389 movzwl %%ax,%%eax
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
390 movzwl %%ax,%%eax
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
391 decw %%cx
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
392 jne visible_bell_2
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
393 jmp visible_bell_0
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
394 visible_bell_3:"
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
395 : /* no output */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
396 : "m" (xorattr), "g" (screen_size)
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
397 : "%eax", "%ebx", /* "%gs",*/ "%ecx", "%edx");
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
398 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
399
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
400 static void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
401 ScreenVisualBell (void)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
402 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
403 /* 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
404 background colors. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
405 do_visible_bell (((the_only_x_display.foreground_pixel
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
406 ^ the_only_x_display.background_pixel)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
407 * 0x11) & 0x7f);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
408 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
409 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
410
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
411 #ifndef HAVE_X_WINDOWS
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
412
16837
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
413 static int blink_bit = -1; /* the state of the blink bit at startup */
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
414
15341
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
415 /* Enable bright background colors. */
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
416 static void
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
417 bright_bg (void)
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
418 {
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
419 union REGS regs;
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
420
16837
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
421 /* Remember the original state of the blink/bright-background bit.
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
422 It is stored at 0040:0065h in the BIOS data area. */
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
423 if (blink_bit == -1)
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
424 blink_bit = (_farpeekb (_dos_ds, 0x465) & 0x20) == 0x20;
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
425
15341
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
426 regs.h.bl = 0;
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
427 regs.x.ax = 0x1003;
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
428 int86 (0x10, &regs, &regs);
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
429 }
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
430
16837
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
431 /* Disable bright background colors (and enable blinking) if we found
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
432 the video system in that state at startup. */
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
433 static void
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
434 maybe_enable_blinking (void)
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
435 {
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
436 if (blink_bit == 1)
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
437 {
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
438 union REGS regs;
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
439
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
440 regs.h.bl = 1;
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
441 regs.x.ax = 0x1003;
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
442 int86 (0x10, &regs, &regs);
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
443 }
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
444 }
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
445
14284
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
446 /* Set the screen dimensions so that it can show no less than
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
447 ROWS x COLS frame. */
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
448
14284
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
449 void
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
450 dos_set_window_size (rows, cols)
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
451 int *rows, *cols;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
452 {
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
453 char video_name[30];
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
454 Lisp_Object video_mode;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
455 int video_mode_value;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
456 int have_vga = 0;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
457 union REGS regs;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
458 int current_rows = ScreenRows (), current_cols = ScreenCols ();
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
459
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
460 if (*rows == current_rows && *cols == current_cols)
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
461 return;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
462
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
463 /* Do we have a VGA? */
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
464 regs.x.ax = 0x1a00;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
465 int86 (0x10, &regs, &regs);
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
466 if (regs.h.al == 0x1a && regs.h.bl > 5 && regs.h.bl < 13)
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
467 have_vga = 1;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
468
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
469 mouse_off ();
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
470
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
471 /* If the user specified a special video mode for these dimensions,
14284
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
472 use that mode. */
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
473 sprintf (video_name, "screen-dimensions-%dx%d", *rows, *cols);
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
474 video_mode = XSYMBOL (Fintern_soft (build_string (video_name),
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
475 Qnil))-> value;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
476
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
477 if (INTEGERP (video_mode)
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
478 && (video_mode_value = XINT (video_mode)) > 0)
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
479 {
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
480 regs.x.ax = video_mode_value;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
481 int86 (0x10, &regs, &regs);
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
482
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
483 if (have_mouse)
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
484 {
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
485 /* Must hardware-reset the mouse, or else it won't update
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
486 its notion of screen dimensions for some non-standard
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
487 video modes. This is *painfully* slow... */
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
488 regs.x.ax = 0;
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
489 int86 (0x33, &regs, &regs);
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
490 }
14284
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
491 }
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
492
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
493 /* Find one of the dimensions supported by standard EGA/VGA
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
494 which gives us at least the required dimensions. */
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
495
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
496 #if __DJGPP__ > 1
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
497
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
498 else
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
499 {
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
500 static struct {
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
501 int rows;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
502 int need_vga;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
503 } std_dimension[] = {
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
504 {25, 0},
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
505 {28, 1},
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
506 {35, 0},
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
507 {40, 1},
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
508 {43, 0},
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
509 {50, 1}
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
510 };
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
511 int i = 0;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
512
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
513 while (i < sizeof (std_dimension) / sizeof (std_dimension[0]))
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
514 {
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
515 if (std_dimension[i].need_vga <= have_vga
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
516 && std_dimension[i].rows >= *rows)
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
517 {
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
518 if (std_dimension[i].rows != current_rows
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
519 || *cols != current_cols)
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
520 _set_screen_lines (std_dimension[i].rows);
14284
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
521 break;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
522 }
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
523 i++;
14284
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
524 }
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
525 }
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
526
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
527 #else /* not __DJGPP__ > 1 */
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
528
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
529 else if (*rows <= 25)
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
530 {
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
531 if (current_rows != 25 || current_cols != 80)
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
532 {
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
533 regs.x.ax = 3;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
534 int86 (0x10, &regs, &regs);
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
535 regs.x.ax = 0x1101;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
536 regs.h.bl = 0;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
537 int86 (0x10, &regs, &regs);
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
538 regs.x.ax = 0x1200;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
539 regs.h.bl = 32;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
540 int86 (0x10, &regs, &regs);
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
541 regs.x.ax = 3;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
542 int86 (0x10, &regs, &regs);
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
543 }
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
544 }
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
545 else if (*rows <= 50)
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
546 if (have_vga && (current_rows != 50 || current_cols != 80)
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
547 || *rows <= 43 && (current_rows != 43 || current_cols != 80))
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
548 {
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
549 regs.x.ax = 3;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
550 int86 (0x10, &regs, &regs);
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
551 regs.x.ax = 0x1112;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
552 regs.h.bl = 0;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
553 int86 (0x10, &regs, &regs);
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
554 regs.x.ax = 0x1200;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
555 regs.h.bl = 32;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
556 int86 (0x10, &regs, &regs);
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
557 regs.x.ax = 0x0100;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
558 regs.x.cx = 7;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
559 int86 (0x10, &regs, &regs);
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
560 }
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
561 #endif /* not __DJGPP__ > 1 */
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
562
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
563 if (have_mouse)
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
564 {
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
565 mouse_init ();
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
566 mouse_on ();
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
567 }
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
568
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
569 /* Tell the caller what dimensions have been REALLY set. */
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
570 *rows = ScreenRows ();
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
571 *cols = ScreenCols ();
15341
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
572
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
573 /* Enable bright background colors. */
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
574 bright_bg ();
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
575
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
576 /* FIXME: I'm not sure the above will run at all on DOS/V. But let's
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
577 be defensive anyway. */
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
578 if (screen_virtual_segment)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
579 dosv_refresh_virtual_screen (0, *cols * *rows);
14284
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
580 }
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
581
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
582 /* If we write a character in the position where the mouse is,
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
583 the mouse cursor may need to be refreshed. */
7744
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
584
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
585 static void
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
586 mouse_off_maybe ()
7744
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
587 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
588 int x, y;
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
589
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
590 if (!mouse_visible)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
591 return;
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
592
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
593 mouse_get_xy (&x, &y);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
594 if (y != new_pos_Y || x < new_pos_X)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
595 return;
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
596
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
597 mouse_off ();
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
598 }
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 static
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
601 IT_ring_bell ()
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 if (visible_bell)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
604 {
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
605 mouse_off ();
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
606 ScreenVisualBell ();
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
607 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
608 else
13305
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
609 {
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
610 union REGS inregs, outregs;
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
611 inregs.h.ah = 2;
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
612 inregs.h.dl = 7;
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
613 intdos (&inregs, &outregs);
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
614 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
615 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
616
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
617 static void
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
618 IT_set_face (int face)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
619 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
620 struct face *fp;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
621 extern struct face *intern_face (/* FRAME_PTR, struct face * */);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
622
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
623 if (face == 1 || (face == 0 && highlight))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
624 fp = FRAME_MODE_LINE_FACE (foo);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
625 else if (face <= 0 || face >= FRAME_N_COMPUTED_FACES (foo))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
626 fp = FRAME_DEFAULT_FACE (foo);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
627 else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
628 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
629 if (termscript)
19295
812986c77ae2 (init_environment): Set Emacs root directory properly when
Richard M. Stallman <rms@gnu.org>
parents: 19293
diff changeset
630 fprintf (termscript, "<FACE %d: %d/%d>",
812986c77ae2 (init_environment): Set Emacs root directory properly when
Richard M. Stallman <rms@gnu.org>
parents: 19293
diff changeset
631 face, FACE_FOREGROUND (fp), FACE_BACKGROUND (fp));
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
632 screen_face = face;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
633 ScreenAttrib = (FACE_BACKGROUND (fp) << 4) | FACE_FOREGROUND (fp);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
634 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
635
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
636 static
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
637 IT_write_glyphs (GLYPH *str, int len)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
638 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
639 int newface;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
640 int ch, l = len;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
641 unsigned char *buf, *bp;
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
642 int offset = 2 * (new_pos_X + screen_size_X * new_pos_Y);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
643
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
644 if (len == 0) return;
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
645
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
646 buf = bp = alloca (len * 2);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
647
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
648 while (--l >= 0)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
649 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
650 newface = FAST_GLYPH_FACE (*str);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
651 if (newface != screen_face)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
652 IT_set_face (newface);
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
653 ch = FAST_GLYPH_CHAR (*str);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
654 *bp++ = (unsigned char)ch;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
655 *bp++ = ScreenAttrib;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
656
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
657 if (termscript)
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
658 fputc (ch, termscript);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
659 str++;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
660 }
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
661
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
662 mouse_off_maybe ();
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
663 dosmemput (buf, 2 * len, (int)ScreenPrimary + offset);
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
664 if (screen_virtual_segment)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
665 dosv_refresh_virtual_screen (offset, len);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
666 new_pos_X += len;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
667 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
668
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
669 static
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
670 IT_clear_end_of_line (first_unused)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
671 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
672 char *spaces, *sp;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
673 int i, j;
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
674 int offset = 2 * (new_pos_X + screen_size_X * new_pos_Y);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
675
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
676 IT_set_face (0);
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
677 if (termscript)
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
678 fprintf (termscript, "<CLR:EOL>");
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
679 i = (j = screen_size_X - new_pos_X) * 2;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
680 spaces = sp = alloca (i);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
681
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
682 while (--j >= 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
683 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
684 *sp++ = ' ';
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
685 *sp++ = ScreenAttrib;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
686 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
687
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
688 mouse_off_maybe ();
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
689 dosmemput (spaces, i, (int)ScreenPrimary + offset);
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
690 if (screen_virtual_segment)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
691 dosv_refresh_virtual_screen (offset, i / 2);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
692 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
693
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
694 static
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
695 IT_clear_screen (void)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
696 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
697 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
698 fprintf (termscript, "<CLR:SCR>");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
699 IT_set_face (0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
700 mouse_off ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
701 ScreenClear ();
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
702 if (screen_virtual_segment)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
703 dosv_refresh_virtual_screen (0, screen_size);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
704 new_pos_X = new_pos_Y = 0;
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
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
707 static
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
708 IT_clear_to_end (void)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
709 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
710 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
711 fprintf (termscript, "<CLR:EOS>");
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 while (new_pos_Y < screen_size_Y) {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
714 new_pos_X = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
715 IT_clear_end_of_line (0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
716 new_pos_Y++;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
717 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
718 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
719
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
720 static
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
721 IT_cursor_to (int y, int x)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
722 {
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
723 if (termscript)
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
724 fprintf (termscript, "\n<XY=%dx%d>", x, y);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
725 new_pos_X = x;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
726 new_pos_Y = y;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
727 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
728
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
729 static int cursor_cleared;
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
730
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
731 static
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
732 IT_display_cursor (int on)
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
733 {
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
734 if (on && cursor_cleared)
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
735 {
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
736 ScreenSetCursor (current_pos_Y, current_pos_X);
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
737 cursor_cleared = 0;
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
738 }
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
739 else if (!on && !cursor_cleared)
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
740 {
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
741 ScreenSetCursor (-1, -1);
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
742 cursor_cleared = 1;
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
743 }
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
744 if (screen_virtual_segment)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
745 dosv_refresh_virtual_screen (2 * (current_pos_X + screen_size_X * current_pos_Y), 1);
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
746 }
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
747
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
748 /* Emacs calls cursor-movement functions a lot when it updates the
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
749 display (probably a legacy of old terminals where you cannot
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
750 update a screen line without first moving the cursor there).
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
751 However, cursor movement is expensive on MSDOS (it calls a slow
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
752 BIOS function and requires 2 mode switches), while actual screen
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
753 updates access the video memory directly and don't depend on
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
754 cursor position. To avoid slowing down the redisplay, we cheat:
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
755 all functions that move the cursor only set internal variables
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
756 which record the cursor position, whereas the cursor is only
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
757 moved to its final position whenever screen update is complete.
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
758
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
759 `IT_cmgoto' is called from the keyboard reading loop and when the
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
760 frame update is complete. This means that we are ready for user
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
761 input, so we update the cursor position to show where the point is,
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
762 and also make the mouse pointer visible.
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
763
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
764 Special treatment is required when the cursor is in the echo area,
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
765 to put the cursor at the end of the text displayed there. */
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
766
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
767 static
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
768 IT_cmgoto (f)
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
769 FRAME_PTR f;
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
770 {
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
771 /* Only set the cursor to where it should be if the display is
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
772 already in sync with the window contents. */
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
773 int update_cursor_pos = MODIFF == unchanged_modified;
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
774
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
775 /* If we are in the echo area, put the cursor at the end of text. */
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
776 if (!update_cursor_pos
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
777 && XFASTINT (XWINDOW (FRAME_MINIBUF_WINDOW (f))->top) <= new_pos_Y)
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
778 {
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
779 new_pos_X = FRAME_DESIRED_GLYPHS (f)->used[new_pos_Y];
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
780 update_cursor_pos = 1;
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
781 }
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
782
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
783 if (update_cursor_pos
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
784 && (current_pos_X != new_pos_X || current_pos_Y != new_pos_Y))
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
785 {
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
786 ScreenSetCursor (current_pos_Y = new_pos_Y, current_pos_X = new_pos_X);
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
787 if (termscript)
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
788 fprintf (termscript, "\n<CURSOR:%dx%d>", current_pos_X, current_pos_Y);
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
789 }
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
790
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
791 /* Maybe cursor is invisible, so make it visible. */
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
792 IT_display_cursor (1);
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
793
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
794 /* Mouse pointer should be always visible if we are waiting for
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
795 keyboard input. */
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
796 if (!mouse_visible)
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
797 mouse_on ();
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
798 }
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
799
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
800 static
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
801 IT_reassert_line_highlight (new, vpos)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
802 int new, vpos;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
803 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
804 highlight = new;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
805 IT_set_face (0); /* To possibly clear the highlighting. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
806 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
807
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
808 static
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
809 IT_change_line_highlight (new_highlight, vpos, first_unused_hpos)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
810 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
811 highlight = new_highlight;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
812 IT_set_face (0); /* To possibly clear the highlighting. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
813 IT_cursor_to (vpos, 0);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
814 IT_clear_end_of_line (first_unused_hpos);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
815 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
816
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
817 static
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
818 IT_update_begin ()
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
819 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
820 highlight = 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
821 IT_set_face (0); /* To possibly clear the highlighting. */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
822 screen_face = -1;
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
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
825 static
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
826 IT_update_end ()
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
827 {
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
828 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
829
20036
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
830 /* set-window-configuration on window.c needs this. */
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
831 void
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
832 x_set_menu_bar_lines (f, value, oldval)
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
833 struct frame *f;
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
834 Lisp_Object value, oldval;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
835 {
20036
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
836 set_menu_bar_lines (f, value, oldval);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
837 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
838
15387
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
839 /* This was copied from xfns.c */
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
840
19287
653fc5d3caa8 (Qbackground_color, Qforeground_color): Define vars.
Richard M. Stallman <rms@gnu.org>
parents: 16967
diff changeset
841 Lisp_Object Qbackground_color;
653fc5d3caa8 (Qbackground_color, Qforeground_color): Define vars.
Richard M. Stallman <rms@gnu.org>
parents: 16967
diff changeset
842 Lisp_Object Qforeground_color;
20036
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
843 extern Lisp_Object Qtitle;
15387
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
844
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
845 /* IT_set_terminal_modes is called when emacs is started,
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
846 resumed, and whenever the screen is redrawn! */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
847
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
848 static
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
849 IT_set_terminal_modes (void)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
850 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
851 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
852 fprintf (termscript, "\n<SET_TERM>");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
853 highlight = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
854
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
855 screen_size_X = ScreenCols ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
856 screen_size_Y = ScreenRows ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
857 screen_size = screen_size_X * screen_size_Y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
858
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
859 new_pos_X = new_pos_Y = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
860 current_pos_X = current_pos_Y = -1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
861
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
862 if (term_setup_done)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
863 return;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
864 term_setup_done = 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
865
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
866 startup_screen_size_X = screen_size_X;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
867 startup_screen_size_Y = screen_size_Y;
13717
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
868 startup_screen_attrib = ScreenAttrib;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
869
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
870 #if __DJGPP__ > 1
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
871 /* Is DOS/V (or any other RSIS software which relocates
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
872 the screen) installed? */
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
873 {
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
874 unsigned short es_value;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
875 __dpmi_regs regs;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
876
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
877 regs.h.ah = 0xfe; /* get relocated screen address */
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
878 if (ScreenPrimary == 0xb0000UL || ScreenPrimary == 0xb8000UL)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
879 regs.x.es = (ScreenPrimary >> 4) & 0xffff;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
880 else if (screen_old_address) /* already switched to Japanese mode once */
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
881 regs.x.es = (screen_old_address >> 4) & 0xffff;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
882 else
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
883 regs.x.es = ScreenMode () == 7 ? 0xb000 : 0xb800;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
884 regs.x.di = 0;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
885 es_value = regs.x.es;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
886 __dpmi_int (0x10, &regs);
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
887
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
888 if (regs.x.es != es_value && regs.x.es != (ScreenPrimary >> 4) & 0xffff)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
889 {
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
890 screen_old_address = ScreenPrimary;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
891 screen_virtual_segment = regs.x.es;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
892 screen_virtual_offset = regs.x.di;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
893 ScreenPrimary = (screen_virtual_segment << 4) + screen_virtual_offset;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
894 }
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
895 }
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
896 #endif /* __DJGPP__ > 1 */
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
897
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
898 ScreenGetCursor (&startup_pos_Y, &startup_pos_X);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
899 ScreenRetrieve (startup_screen_buffer = xmalloc (screen_size * 2));
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
900
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
901 if (termscript)
13717
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
902 fprintf (termscript, "<SCREEN SAVED (dimensions=%dx%d)>\n",
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
903 screen_size_X, screen_size_Y);
15341
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
904
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
905 bright_bg ();
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
906 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
907
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
908 /* IT_reset_terminal_modes is called when emacs is
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
909 suspended or killed. */
13179
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 static
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
912 IT_reset_terminal_modes (void)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
913 {
13717
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
914 int display_row_start = (int) ScreenPrimary;
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
915 int saved_row_len = startup_screen_size_X * 2;
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
916 int update_row_len = ScreenCols () * 2;
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
917 int current_rows = ScreenRows ();
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
918 int to_next_row = update_row_len;
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
919 unsigned char *saved_row = startup_screen_buffer;
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
920 int cursor_pos_X = ScreenCols () - 1;
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
921 int cursor_pos_Y = ScreenRows () - 1;
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
922
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
923 if (termscript)
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
924 fprintf (termscript, "\n<RESET_TERM>");
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
925
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
926 highlight = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
927
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
928 if (!term_setup_done)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
929 return;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
930
13717
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
931 mouse_off ();
16837
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
932
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
933 /* Leave the video system in the same state as we found it,
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
934 as far as the blink/bright-background bit is concerned. */
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
935 maybe_enable_blinking ();
13717
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
936
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
937 /* We have a situation here.
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
938 We cannot just do ScreenUpdate(startup_screen_buffer) because
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
939 the luser could have changed screen dimensions inside Emacs
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
940 and failed (or didn't want) to restore them before killing
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
941 Emacs. ScreenUpdate() uses the *current* screen dimensions and
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
942 thus will happily use memory outside what was allocated for
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
943 `startup_screen_buffer'.
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
944 Thus we only restore as much as the current screen dimensions
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
945 can hold, and clear the rest (if the saved screen is smaller than
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
946 the current) with the color attribute saved at startup. The cursor
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
947 is also restored within the visible dimensions. */
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
948
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
949 ScreenAttrib = startup_screen_attrib;
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
950 ScreenClear ();
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
951 if (screen_virtual_segment)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
952 dosv_refresh_virtual_screen (0, screen_size);
13717
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
953
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
954 if (update_row_len > saved_row_len)
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
955 update_row_len = saved_row_len;
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
956 if (current_rows > startup_screen_size_Y)
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
957 current_rows = startup_screen_size_Y;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
958
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
959 if (termscript)
13717
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
960 fprintf (termscript, "<SCREEN RESTORED (dimensions=%dx%d)>\n",
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
961 update_row_len / 2, current_rows);
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
962
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
963 while (current_rows--)
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
964 {
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
965 dosmemput (saved_row, update_row_len, display_row_start);
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
966 if (screen_virtual_segment)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
967 dosv_refresh_virtual_screen (display_row_start - ScreenPrimary,
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
968 update_row_len / 2);
13717
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
969 saved_row += saved_row_len;
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
970 display_row_start += to_next_row;
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
971 }
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
972 if (startup_pos_X < cursor_pos_X)
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
973 cursor_pos_X = startup_pos_X;
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
974 if (startup_pos_Y < cursor_pos_Y)
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
975 cursor_pos_Y = startup_pos_Y;
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
976
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
977 ScreenSetCursor (cursor_pos_Y, cursor_pos_X);
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
978 if (screen_virtual_segment)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
979 dosv_refresh_virtual_screen (2*(cursor_pos_X+cursor_pos_Y*screen_size_X),
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
980 1);
13717
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
981 xfree (startup_screen_buffer);
13179
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 term_setup_done = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
984 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
985
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
986 static
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
987 IT_set_terminal_window (void)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
988 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
989 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
990
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
991 void
15387
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
992 IT_set_frame_parameters (f, alist)
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
993 FRAME_PTR f;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
994 Lisp_Object alist;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
995 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
996 Lisp_Object tail;
19293
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
997 int length = XINT (Flength (alist));
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
998 int i;
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
999 Lisp_Object *parms
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
1000 = (Lisp_Object *) alloca (length * sizeof (Lisp_Object));
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
1001 Lisp_Object *values
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
1002 = (Lisp_Object *) alloca (length * sizeof (Lisp_Object));
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1003 int redraw;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1004 extern unsigned long load_color ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1005
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1006 redraw = 0;
19293
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
1007
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
1008 /* Extract parm names and values into those vectors. */
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
1009 i = 0;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1010 for (tail = alist; CONSP (tail); tail = Fcdr (tail))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1011 {
19293
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
1012 Lisp_Object elt;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1013
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1014 elt = Fcar (tail);
19293
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
1015 parms[i] = Fcar (elt);
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
1016 CHECK_SYMBOL (parms[i], 1);
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
1017 values[i] = Fcdr (elt);
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
1018 i++;
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
1019 }
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
1020
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
1021
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
1022 /* Now process them in reverse of specified order. */
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
1023 for (i--; i >= 0; i--)
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
1024 {
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
1025 Lisp_Object prop = parms[i];
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
1026 Lisp_Object val = values[i];
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1027
19864
44dcf37ec345 (syms_of_msdos): Intern background-color and
Richard M. Stallman <rms@gnu.org>
parents: 19603
diff changeset
1028 if (EQ (prop, Qforeground_color))
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1029 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1030 unsigned long new_color = load_color (f, val);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1031 if (new_color != ~0)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1032 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1033 FRAME_FOREGROUND_PIXEL (f) = new_color;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1034 redraw = 1;
15341
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
1035 if (termscript)
16915
8d28d96f6031 (run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents: 16872
diff changeset
1036 fprintf (termscript, "<FGCOLOR %lu>\n", new_color);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1037 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1038 }
19864
44dcf37ec345 (syms_of_msdos): Intern background-color and
Richard M. Stallman <rms@gnu.org>
parents: 19603
diff changeset
1039 else if (EQ (prop, Qbackground_color))
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1040 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1041 unsigned long new_color = load_color (f, val);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1042 if (new_color != ~0)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1043 {
15341
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
1044 FRAME_BACKGROUND_PIXEL (f) = new_color;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1045 redraw = 1;
15341
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
1046 if (termscript)
16915
8d28d96f6031 (run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents: 16872
diff changeset
1047 fprintf (termscript, "<BGCOLOR %lu>\n", new_color);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1048 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1049 }
20036
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
1050 else if (EQ (prop, Qtitle))
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
1051 {
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
1052 x_set_title (f, val);
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
1053 if (termscript)
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
1054 fprintf (termscript, "<TITLE: %s>\n", XSTRING (val)->data);
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
1055 }
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
1056 else if (EQ (prop, intern ("reverse")) && EQ (val, Qt))
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
1057 {
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
1058 unsigned long fg = FRAME_FOREGROUND_PIXEL (f);
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
1059
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
1060 FRAME_FOREGROUND_PIXEL (f) = FRAME_BACKGROUND_PIXEL (f);
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
1061 FRAME_BACKGROUND_PIXEL (f) = fg;
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
1062 if (termscript)
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
1063 fprintf (termscript, "<INVERSE-VIDEO>\n");
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
1064 }
19293
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
1065 store_frame_param (f, prop, val);
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
1066
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1067 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1068
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1069 if (redraw)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1070 {
16915
8d28d96f6031 (run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents: 16872
diff changeset
1071 extern void recompute_basic_faces (FRAME_PTR);
8d28d96f6031 (run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents: 16872
diff changeset
1072 extern void redraw_frame (FRAME_PTR);
8d28d96f6031 (run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents: 16872
diff changeset
1073
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1074 recompute_basic_faces (f);
15387
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
1075 if (f == selected_frame)
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
1076 redraw_frame (f);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1077 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1078 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1079
16915
8d28d96f6031 (run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents: 16872
diff changeset
1080 extern void init_frame_faces (FRAME_PTR);
8d28d96f6031 (run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents: 16872
diff changeset
1081
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1082 #endif /* !HAVE_X_WINDOWS */
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1083
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1084
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1085 /* Do we need the internal terminal? */
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1086
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1087 void
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1088 internal_terminal_init ()
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1089 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1090 char *term = getenv ("TERM");
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1091 char *colors;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1092
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1093 #ifdef HAVE_X_WINDOWS
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1094 if (!inhibit_window_system)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1095 return;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1096 #endif
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1097
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1098 internal_terminal
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1099 = (!noninteractive) && term && !strcmp (term, "internal");
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1100
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1101 if (getenv ("EMACSTEST"))
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
1102 termscript = fopen (getenv ("EMACSTEST"), "wt");
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1103
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1104 #ifndef HAVE_X_WINDOWS
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1105 if (!internal_terminal || inhibit_window_system)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1106 {
15387
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
1107 selected_frame->output_method = output_termcap;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1108 return;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1109 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1110
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1111 Vwindow_system = intern ("pc");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1112 Vwindow_system_version = make_number (1);
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
1113
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
1114 /* If Emacs was dumped on DOS/V machine, forget the stale VRAM address. */
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
1115 screen_old_address = 0;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
1116
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1117 bzero (&the_only_x_display, sizeof the_only_x_display);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1118 the_only_x_display.background_pixel = 7; /* White */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1119 the_only_x_display.foreground_pixel = 0; /* Black */
15341
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
1120 bright_bg ();
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
1121 colors = getenv ("EMACSCOLORS");
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1122 if (colors && strlen (colors) >= 2)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1123 {
15341
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
1124 /* The colors use 4 bits each (we enable bright background). */
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
1125 if (isdigit (colors[0]))
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
1126 colors[0] -= '0';
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
1127 else if (isxdigit (colors[0]))
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
1128 colors[0] -= (isupper (colors[0]) ? 'A' : 'a') - 10;
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
1129 if (colors[0] >= 0 && colors[0] < 16)
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
1130 the_only_x_display.foreground_pixel = colors[0];
15341
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
1131 if (isdigit (colors[1]))
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
1132 colors[1] -= '0';
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
1133 else if (isxdigit (colors[1]))
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
1134 colors[1] -= (isupper (colors[1]) ? 'A' : 'a') - 10;
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
1135 if (colors[1] >= 0 && colors[1] < 16)
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
1136 the_only_x_display.background_pixel = colors[1];
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1137 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1138 the_only_x_display.line_height = 1;
13625
397f07418271 (internal_terminal_init): Initialize the_only_x_display.font.
Richard M. Stallman <rms@gnu.org>
parents: 13624
diff changeset
1139 the_only_x_display.font = (XFontStruct *)1; /* must *not* be zero */
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1140
15387
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
1141 init_frame_faces (selected_frame);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1142
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1143 ring_bell_hook = IT_ring_bell;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1144 write_glyphs_hook = IT_write_glyphs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1145 cursor_to_hook = raw_cursor_to_hook = IT_cursor_to;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1146 clear_to_end_hook = IT_clear_to_end;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1147 clear_end_of_line_hook = IT_clear_end_of_line;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1148 clear_frame_hook = IT_clear_screen;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1149 change_line_highlight_hook = IT_change_line_highlight;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1150 update_begin_hook = IT_update_begin;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1151 update_end_hook = IT_update_end;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1152 reassert_line_highlight_hook = IT_reassert_line_highlight;
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1153 frame_up_to_date_hook = IT_cmgoto; /* position cursor when update is done */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1154
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1155 /* These hooks are called by term.c without being checked. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1156 set_terminal_modes_hook = IT_set_terminal_modes;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1157 reset_terminal_modes_hook = IT_reset_terminal_modes;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1158 set_terminal_window_hook = IT_set_terminal_window;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1159 #endif
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
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1162 dos_get_saved_screen (screen, rows, cols)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1163 char **screen;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1164 int *rows;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1165 int *cols;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1166 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1167 #ifndef HAVE_X_WINDOWS
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1168 *screen = startup_screen_buffer;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1169 *cols = startup_screen_size_X;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1170 *rows = startup_screen_size_Y;
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
1171 return *screen != (char *)0;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1172 #else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1173 return 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1174 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1175 }
15387
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
1176
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
1177 #ifndef HAVE_X_WINDOWS
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
1178
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
1179 /* We are not X, but we can emulate it well enough for our needs... */
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
1180 void
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
1181 check_x (void)
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
1182 {
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
1183 if (! FRAME_MSDOS_P (selected_frame))
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
1184 error ("Not running under a windows system");
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
1185 }
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
1186
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
1187 #endif
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
1188
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
1189
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1190 /* ----------------------- Keyboard control ----------------------
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1191 *
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1192 * Keymaps reflect the following keyboard layout:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1193 *
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1194 * 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
1195 * 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
1196 * 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
1197 * 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
1198 * SPACE
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1199 */
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 static int extended_kbd; /* 101 (102) keyboard present. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1202
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1203 struct dos_keyboard_map
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1204 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1205 char *unshifted;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1206 char *shifted;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1207 char *alt_gr;
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
13040
169d50e2ee4c (gettimeofday, init_gettimeofday, daylight, gmtoffset): Undo previous change.
Paul Eggert <eggert@twinsun.com>
parents: 13020
diff changeset
1210
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1211 static struct dos_keyboard_map us_keyboard = {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1212 /* 0 1 2 3 4 5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1213 /* 01234567890123456789012345678901234567890 12345678901234 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1214 "`1234567890-= qwertyuiop[] asdfghjkl;'\\ zxcvbnm,./ ",
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1215 /* 0123456789012345678901234567890123456789 012345678901234 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1216 "~!@#$%^&*()_+ QWERTYUIOP{} ASDFGHJKL:\"| ZXCVBNM<>? ",
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1217 0 /* no Alt-Gr key */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1218 };
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 static struct dos_keyboard_map fr_keyboard = {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1221 /* 0 1 2 3 4 5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1222 /* 012 3456789012345678901234567890123456789012345678901234 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1223 "ý&‚\",(-Š_€…)= azertyuiop^$ qsdfghjklm—* wxcvbnm;:! ",
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1224 /* 0123456789012345678901234567890123456789012345678901234 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1225 " 1234567890ø+ AZERTYUIOPùœ QSDFGHJKLM%æ WXCVBN?./õ ",
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1226 /* 01234567 89012345678901234567890123456789012345678901234 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1227 " ~#{[|`\\^@]} Ï "
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1228 };
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1229
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1230 static struct dos_keyboard_map dk_keyboard = {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1231 /* 0 1 2 3 4 5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1232 /* 0123456789012345678901234567890123456789012345678901234 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1233 "«1234567890+| qwertyuiop†~ asdfghjkl‘›' zxcvbnm,.- ",
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1234 /* 01 23456789012345678901234567890123456789012345678901234 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1235 "õ!\"#$%&/()=?` QWERTYUIOP^ ASDFGHJKL’* ZXCVBNM;:_ ",
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1236 /* 0123456789012345678901234567890123456789012345678901234 */
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
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1240 static struct keyboard_layout_list
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1241 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1242 int country_code;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1243 struct dos_keyboard_map *keyboard_map;
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
1244 } keyboard_layout_list[] =
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
1245 {
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
1246 1, &us_keyboard,
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
1247 33, &fr_keyboard,
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
1248 45, &dk_keyboard
13179
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
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1251 static struct dos_keyboard_map *keyboard;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1252 static int keyboard_map_all;
16763
e4f0f7fe8304 (dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents: 16613
diff changeset
1253 static int international_keyboard;
7523
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1254
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1255 int
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1256 dos_set_keyboard (code, always)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1257 int code;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1258 int always;
7523
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1259 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1260 int i;
16763
e4f0f7fe8304 (dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents: 16613
diff changeset
1261 union REGS regs;
e4f0f7fe8304 (dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents: 16613
diff changeset
1262
e4f0f7fe8304 (dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents: 16613
diff changeset
1263 /* See if Keyb.Com is installed (for international keyboard support). */
e4f0f7fe8304 (dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents: 16613
diff changeset
1264 regs.x.ax = 0xad80;
e4f0f7fe8304 (dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents: 16613
diff changeset
1265 int86 (0x2f, &regs, &regs);
e4f0f7fe8304 (dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents: 16613
diff changeset
1266 if (regs.h.al == 0xff)
e4f0f7fe8304 (dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents: 16613
diff changeset
1267 international_keyboard = 1;
13624
47484dd9a970 (dos_set_keyboard): If CODE is not recognized,
Richard M. Stallman <rms@gnu.org>
parents: 13520
diff changeset
1268
47484dd9a970 (dos_set_keyboard): If CODE is not recognized,
Richard M. Stallman <rms@gnu.org>
parents: 13520
diff changeset
1269 /* Initialize to US settings, for countries that don't have their own. */
47484dd9a970 (dos_set_keyboard): If CODE is not recognized,
Richard M. Stallman <rms@gnu.org>
parents: 13520
diff changeset
1270 keyboard = keyboard_layout_list[0].keyboard_map;
47484dd9a970 (dos_set_keyboard): If CODE is not recognized,
Richard M. Stallman <rms@gnu.org>
parents: 13520
diff changeset
1271 keyboard_map_all = always;
47484dd9a970 (dos_set_keyboard): If CODE is not recognized,
Richard M. Stallman <rms@gnu.org>
parents: 13520
diff changeset
1272 dos_keyboard_layout = 1;
47484dd9a970 (dos_set_keyboard): If CODE is not recognized,
Richard M. Stallman <rms@gnu.org>
parents: 13520
diff changeset
1273
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1274 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
1275 if (code == keyboard_layout_list[i].country_code)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1276 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1277 keyboard = keyboard_layout_list[i].keyboard_map;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1278 keyboard_map_all = always;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1279 dos_keyboard_layout = code;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1280 return 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1281 }
7523
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1282 return 0;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1283 }
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
1284
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1285 #define Ignore 0x0000
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1286 #define Normal 0x0000 /* normal key - alt changes scan-code */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1287 #define FctKey 0x1000 /* func key if c == 0, else c */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1288 #define Special 0x2000 /* func key even if c != 0 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1289 #define ModFct 0x3000 /* special if mod-keys, else 'c' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1290 #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
1291 #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
1292 #define Grey 0x6000 /* Grey keypad key */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1293
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1294 #define Alt 0x0100 /* alt scan-code */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1295 #define Ctrl 0x0200 /* ctrl scan-code */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1296 #define Shift 0x0400 /* shift scan-code */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1297
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1298 static struct
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1299 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1300 unsigned char char_code; /* normal code */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1301 unsigned char meta_code; /* M- code */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1302 unsigned char keypad_code; /* keypad code */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1303 unsigned char editkey_code; /* edit key */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1304 } keypad_translate_map[] = {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1305 '0', '0', 0xb0, /* kp-0 */ 0x63, /* insert */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1306 '1', '1', 0xb1, /* kp-1 */ 0x57, /* end */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1307 '2', '2', 0xb2, /* kp-2 */ 0x54, /* down */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1308 '3', '3', 0xb3, /* kp-3 */ 0x56, /* next */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1309 '4', '4', 0xb4, /* kp-4 */ 0x51, /* left */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1310 '5', '5', 0xb5, /* kp-5 */ 0xb5, /* kp-5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1311 '6', '6', 0xb6, /* kp-6 */ 0x53, /* right */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1312 '7', '7', 0xb7, /* kp-7 */ 0x50, /* home */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1313 '8', '8', 0xb8, /* kp-8 */ 0x52, /* up */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1314 '9', '9', 0xb9, /* kp-9 */ 0x55, /* prior */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1315 '.', '-', 0xae, /* kp-decimal */ 0xff /* delete */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1316 };
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1317
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1318 static struct
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1319 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1320 unsigned char char_code; /* normal code */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1321 unsigned char keypad_code; /* keypad code */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1322 } grey_key_translate_map[] = {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1323 '/', 0xaf, /* kp-decimal */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1324 '*', 0xaa, /* kp-multiply */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1325 '-', 0xad, /* kp-subtract */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1326 '+', 0xab, /* kp-add */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1327 '\r', 0x8d /* kp-enter */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1328 };
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1329
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1330 static unsigned short
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1331 ibmpc_translate_map[] =
13040
169d50e2ee4c (gettimeofday, init_gettimeofday, daylight, gmtoffset): Undo previous change.
Paul Eggert <eggert@twinsun.com>
parents: 13020
diff changeset
1332 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1333 /* --------------- 00 to 0f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1334 Normal | 0xff, /* Ctrl Break + Alt-NNN */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1335 Alt | ModFct | 0x1b, /* Escape */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1336 Normal | 1, /* '1' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1337 Normal | 2, /* '2' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1338 Normal | 3, /* '3' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1339 Normal | 4, /* '4' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1340 Normal | 5, /* '5' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1341 Normal | 6, /* '6' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1342 Normal | 7, /* '7' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1343 Normal | 8, /* '8' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1344 Normal | 9, /* '9' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1345 Normal | 10, /* '0' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1346 Normal | 11, /* '-' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1347 Normal | 12, /* '=' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1348 Special | 0x08, /* Backspace */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1349 ModFct | 0x74, /* Tab/Backtab */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1350
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1351 /* --------------- 10 to 1f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1352 Map | 15, /* 'q' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1353 Map | 16, /* 'w' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1354 Map | 17, /* 'e' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1355 Map | 18, /* 'r' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1356 Map | 19, /* 't' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1357 Map | 20, /* 'y' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1358 Map | 21, /* 'u' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1359 Map | 22, /* 'i' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1360 Map | 23, /* 'o' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1361 Map | 24, /* 'p' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1362 Map | 25, /* '[' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1363 Map | 26, /* ']' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1364 ModFct | 0x0d, /* Return */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1365 Ignore, /* Ctrl */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1366 Map | 30, /* 'a' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1367 Map | 31, /* 's' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1368
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1369 /* --------------- 20 to 2f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1370 Map | 32, /* 'd' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1371 Map | 33, /* 'f' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1372 Map | 34, /* 'g' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1373 Map | 35, /* 'h' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1374 Map | 36, /* 'j' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1375 Map | 37, /* 'k' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1376 Map | 38, /* 'l' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1377 Map | 39, /* ';' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1378 Map | 40, /* '\'' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1379 Map | 0, /* '`' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1380 Ignore, /* Left shift */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1381 Map | 41, /* '\\' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1382 Map | 45, /* 'z' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1383 Map | 46, /* 'x' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1384 Map | 47, /* 'c' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1385 Map | 48, /* 'v' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1386
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1387 /* --------------- 30 to 3f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1388 Map | 49, /* 'b' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1389 Map | 50, /* 'n' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1390 Map | 51, /* 'm' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1391 Map | 52, /* ',' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1392 Map | 53, /* '.' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1393 Map | 54, /* '/' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1394 Ignore, /* Right shift */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1395 Grey | 1, /* Grey * */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1396 Ignore, /* Alt */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1397 Normal | ' ', /* ' ' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1398 Ignore, /* Caps Lock */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1399 FctKey | 0xbe, /* F1 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1400 FctKey | 0xbf, /* F2 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1401 FctKey | 0xc0, /* F3 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1402 FctKey | 0xc1, /* F4 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1403 FctKey | 0xc2, /* F5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1404
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1405 /* --------------- 40 to 4f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1406 FctKey | 0xc3, /* F6 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1407 FctKey | 0xc4, /* F7 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1408 FctKey | 0xc5, /* F8 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1409 FctKey | 0xc6, /* F9 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1410 FctKey | 0xc7, /* F10 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1411 Ignore, /* Num Lock */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1412 Ignore, /* Scroll Lock */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1413 KeyPad | 7, /* Home */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1414 KeyPad | 8, /* Up */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1415 KeyPad | 9, /* Page Up */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1416 Grey | 2, /* Grey - */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1417 KeyPad | 4, /* Left */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1418 KeyPad | 5, /* Keypad 5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1419 KeyPad | 6, /* Right */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1420 Grey | 3, /* Grey + */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1421 KeyPad | 1, /* End */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1422
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1423 /* --------------- 50 to 5f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1424 KeyPad | 2, /* Down */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1425 KeyPad | 3, /* Page Down */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1426 KeyPad | 0, /* Insert */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1427 KeyPad | 10, /* Delete */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1428 Shift | FctKey | 0xbe, /* (Shift) F1 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1429 Shift | FctKey | 0xbf, /* (Shift) F2 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1430 Shift | FctKey | 0xc0, /* (Shift) F3 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1431 Shift | FctKey | 0xc1, /* (Shift) F4 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1432 Shift | FctKey | 0xc2, /* (Shift) F5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1433 Shift | FctKey | 0xc3, /* (Shift) F6 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1434 Shift | FctKey | 0xc4, /* (Shift) F7 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1435 Shift | FctKey | 0xc5, /* (Shift) F8 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1436 Shift | FctKey | 0xc6, /* (Shift) F9 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1437 Shift | FctKey | 0xc7, /* (Shift) F10 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1438 Ctrl | FctKey | 0xbe, /* (Ctrl) F1 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1439 Ctrl | FctKey | 0xbf, /* (Ctrl) F2 */
13040
169d50e2ee4c (gettimeofday, init_gettimeofday, daylight, gmtoffset): Undo previous change.
Paul Eggert <eggert@twinsun.com>
parents: 13020
diff changeset
1440
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1441 /* --------------- 60 to 6f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1442 Ctrl | FctKey | 0xc0, /* (Ctrl) F3 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1443 Ctrl | FctKey | 0xc1, /* (Ctrl) F4 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1444 Ctrl | FctKey | 0xc2, /* (Ctrl) F5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1445 Ctrl | FctKey | 0xc3, /* (Ctrl) F6 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1446 Ctrl | FctKey | 0xc4, /* (Ctrl) F7 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1447 Ctrl | FctKey | 0xc5, /* (Ctrl) F8 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1448 Ctrl | FctKey | 0xc6, /* (Ctrl) F9 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1449 Ctrl | FctKey | 0xc7, /* (Ctrl) F10 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1450 Alt | FctKey | 0xbe, /* (Alt) F1 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1451 Alt | FctKey | 0xbf, /* (Alt) F2 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1452 Alt | FctKey | 0xc0, /* (Alt) F3 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1453 Alt | FctKey | 0xc1, /* (Alt) F4 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1454 Alt | FctKey | 0xc2, /* (Alt) F5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1455 Alt | FctKey | 0xc3, /* (Alt) F6 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1456 Alt | FctKey | 0xc4, /* (Alt) F7 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1457 Alt | FctKey | 0xc5, /* (Alt) F8 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1458
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1459 /* --------------- 70 to 7f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1460 Alt | FctKey | 0xc6, /* (Alt) F9 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1461 Alt | FctKey | 0xc7, /* (Alt) F10 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1462 Ctrl | FctKey | 0x6d, /* (Ctrl) Sys Rq */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1463 Ctrl | KeyPad | 4, /* (Ctrl) Left */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1464 Ctrl | KeyPad | 6, /* (Ctrl) Right */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1465 Ctrl | KeyPad | 1, /* (Ctrl) End */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1466 Ctrl | KeyPad | 3, /* (Ctrl) Page Down */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1467 Ctrl | KeyPad | 7, /* (Ctrl) Home */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1468 Alt | Map | 1, /* '1' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1469 Alt | Map | 2, /* '2' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1470 Alt | Map | 3, /* '3' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1471 Alt | Map | 4, /* '4' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1472 Alt | Map | 5, /* '5' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1473 Alt | Map | 6, /* '6' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1474 Alt | Map | 7, /* '7' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1475 Alt | Map | 8, /* '8' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1476
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1477 /* --------------- 80 to 8f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1478 Alt | Map | 9, /* '9' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1479 Alt | Map | 10, /* '0' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1480 Alt | Map | 11, /* '-' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1481 Alt | Map | 12, /* '=' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1482 Ctrl | KeyPad | 9, /* (Ctrl) Page Up */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1483 FctKey | 0xc8, /* F11 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1484 FctKey | 0xc9, /* F12 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1485 Shift | FctKey | 0xc8, /* (Shift) F11 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1486 Shift | FctKey | 0xc9, /* (Shift) F12 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1487 Ctrl | FctKey | 0xc8, /* (Ctrl) F11 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1488 Ctrl | FctKey | 0xc9, /* (Ctrl) F12 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1489 Alt | FctKey | 0xc8, /* (Alt) F11 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1490 Alt | FctKey | 0xc9, /* (Alt) F12 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1491 Ctrl | KeyPad | 8, /* (Ctrl) Up */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1492 Ctrl | Grey | 2, /* (Ctrl) Grey - */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1493 Ctrl | KeyPad | 5, /* (Ctrl) Keypad 5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1494
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1495 /* --------------- 90 to 9f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1496 Ctrl | Grey | 3, /* (Ctrl) Grey + */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1497 Ctrl | KeyPad | 2, /* (Ctrl) Down */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1498 Ctrl | KeyPad | 0, /* (Ctrl) Insert */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1499 Ctrl | KeyPad | 10, /* (Ctrl) Delete */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1500 Ctrl | FctKey | 0x09, /* (Ctrl) Tab */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1501 Ctrl | Grey | 0, /* (Ctrl) Grey / */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1502 Ctrl | Grey | 1, /* (Ctrl) Grey * */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1503 Alt | FctKey | 0x50, /* (Alt) Home */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1504 Alt | FctKey | 0x52, /* (Alt) Up */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1505 Alt | FctKey | 0x55, /* (Alt) Page Up */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1506 Ignore, /* NO KEY */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1507 Alt | FctKey | 0x51, /* (Alt) Left */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1508 Ignore, /* NO KEY */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1509 Alt | FctKey | 0x53, /* (Alt) Right */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1510 Ignore, /* NO KEY */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1511 Alt | FctKey | 0x57, /* (Alt) End */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1512
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1513 /* --------------- a0 to af --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1514 Alt | KeyPad | 2, /* (Alt) Down */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1515 Alt | KeyPad | 3, /* (Alt) Page Down */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1516 Alt | KeyPad | 0, /* (Alt) Insert */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1517 Alt | KeyPad | 10, /* (Alt) Delete */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1518 Alt | Grey | 0, /* (Alt) Grey / */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1519 Alt | FctKey | 0x09, /* (Alt) Tab */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1520 Alt | Grey | 4 /* (Alt) Keypad Enter */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1521 };
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
1522
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1523 /* These bit-positions corresponds to values returned by BIOS */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1524 #define SHIFT_P 0x0003 /* two bits! */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1525 #define CTRL_P 0x0004
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1526 #define ALT_P 0x0008
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1527 #define SCRLOCK_P 0x0010
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1528 #define NUMLOCK_P 0x0020
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1529 #define CAPSLOCK_P 0x0040
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1530 #define ALT_GR_P 0x0800
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1531 #define SUPER_P 0x4000 /* pseudo */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1532 #define HYPER_P 0x8000 /* pseudo */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1533
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1534 static int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1535 dos_get_modifiers (keymask)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1536 int *keymask;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1537 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1538 union REGS regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1539 int mask;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1540 int modifiers = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1541
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1542 /* Calculate modifier bits */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1543 regs.h.ah = extended_kbd ? 0x12 : 0x02;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1544 int86 (0x16, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1545
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1546 if (!extended_kbd)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1547 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1548 mask = regs.h.al & (SHIFT_P | CTRL_P | ALT_P |
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1549 SCRLOCK_P | NUMLOCK_P | CAPSLOCK_P);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1550 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1551 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1552 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1553 mask = regs.h.al & (SHIFT_P |
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1554 SCRLOCK_P | NUMLOCK_P | CAPSLOCK_P);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1555
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1556 /* Do not break international keyboard support. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1557 /* When Keyb.Com is loaded, the right Alt key is */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1558 /* used for accessing characters like { and } */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1559 if (regs.h.ah & 2) /* Left ALT pressed ? */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1560 mask |= ALT_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1561
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1562 if ((regs.h.ah & 8) != 0) /* Right ALT pressed ? */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1563 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1564 mask |= ALT_GR_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1565 if (dos_hyper_key == 1)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1566 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1567 mask |= HYPER_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1568 modifiers |= hyper_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1569 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1570 else if (dos_super_key == 1)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1571 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1572 mask |= SUPER_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1573 modifiers |= super_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1574 }
16763
e4f0f7fe8304 (dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents: 16613
diff changeset
1575 else if (!international_keyboard)
e4f0f7fe8304 (dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents: 16613
diff changeset
1576 {
e4f0f7fe8304 (dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents: 16613
diff changeset
1577 /* If Keyb.Com is NOT installed, let Right Alt behave
e4f0f7fe8304 (dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents: 16613
diff changeset
1578 like the Left Alt. */
e4f0f7fe8304 (dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents: 16613
diff changeset
1579 mask &= ~ALT_GR_P;
e4f0f7fe8304 (dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents: 16613
diff changeset
1580 mask |= ALT_P;
e4f0f7fe8304 (dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents: 16613
diff changeset
1581 }
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1582 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1583
15125
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
1584 if (regs.h.ah & 1) /* Left CTRL pressed ? */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1585 mask |= CTRL_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1586
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1587 if (regs.h.ah & 4) /* Right CTRL pressed ? */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1588 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1589 if (dos_hyper_key == 2)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1590 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1591 mask |= HYPER_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1592 modifiers |= hyper_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1593 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1594 else if (dos_super_key == 2)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1595 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1596 mask |= SUPER_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1597 modifiers |= super_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1598 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1599 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1600 mask |= CTRL_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1601 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1602 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1603
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1604 if (mask & SHIFT_P)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1605 modifiers |= shift_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1606 if (mask & CTRL_P)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1607 modifiers |= ctrl_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1608 if (mask & ALT_P)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1609 modifiers |= meta_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1610
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1611 if (keymask)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1612 *keymask = mask;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1613 return modifiers;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1614 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1615
13305
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1616 #define NUM_RECENT_DOSKEYS (100)
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1617 int recent_doskeys_index; /* Index for storing next element into recent_doskeys */
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1618 int total_doskeys; /* Total number of elements stored into recent_doskeys */
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1619 Lisp_Object recent_doskeys; /* A vector, holding the last 100 keystrokes */
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1620
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1621 DEFUN ("recent-doskeys", Frecent_doskeys, Srecent_doskeys, 0, 0, 0,
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1622 "Return vector of last 100 keyboard input values seen in dos_rawgetc.\n\
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1623 Each input key receives two values in this vector: first the ASCII code,\n\
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1624 and then the scan code.")
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1625 ()
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1626 {
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1627 Lisp_Object *keys = XVECTOR (recent_doskeys)->contents;
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1628 Lisp_Object val;
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1629
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1630 if (total_doskeys < NUM_RECENT_DOSKEYS)
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1631 return Fvector (total_doskeys, keys);
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1632 else
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1633 {
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1634 val = Fvector (NUM_RECENT_DOSKEYS, keys);
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1635 bcopy (keys + recent_doskeys_index,
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1636 XVECTOR (val)->contents,
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1637 (NUM_RECENT_DOSKEYS - recent_doskeys_index) * sizeof (Lisp_Object));
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1638 bcopy (keys,
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1639 XVECTOR (val)->contents + NUM_RECENT_DOSKEYS - recent_doskeys_index,
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1640 recent_doskeys_index * sizeof (Lisp_Object));
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1641 return val;
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1642 }
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1643 }
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1644
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1645 /* Get a char from keyboard. Function keys are put into the event queue. */
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1646
16915
8d28d96f6031 (run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents: 16872
diff changeset
1647 extern void kbd_buffer_store_event (struct input_event *);
8d28d96f6031 (run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents: 16872
diff changeset
1648
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1649 static int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1650 dos_rawgetc ()
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1651 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1652 struct input_event event;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1653 union REGS regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1654
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1655 #ifndef HAVE_X_WINDOWS
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1656 /* Maybe put the cursor where it should be. */
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1657 IT_cmgoto (selected_frame);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1658 #endif
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1659
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1660 /* The following condition is equivalent to `kbhit ()', except that
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1661 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
1662 while ((regs.h.ah = extended_kbd ? 0x11 : 0x01),
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1663 int86 (0x16, &regs, &regs),
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1664 (regs.x.flags & 0x40) == 0)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1665 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1666 union REGS regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1667 register unsigned char c;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1668 int sc, code, mask, kp_mode;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1669 int modifiers;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1670
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1671 regs.h.ah = extended_kbd ? 0x10 : 0x00;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1672 int86 (0x16, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1673 c = regs.h.al;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1674 sc = regs.h.ah;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1675
13305
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1676 total_doskeys += 2;
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1677 XVECTOR (recent_doskeys)->contents[recent_doskeys_index++]
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1678 = make_number (c);
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1679 if (recent_doskeys_index == NUM_RECENT_DOSKEYS)
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1680 recent_doskeys_index = 0;
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1681 XVECTOR (recent_doskeys)->contents[recent_doskeys_index++]
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1682 = make_number (sc);
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1683 if (recent_doskeys_index == NUM_RECENT_DOSKEYS)
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1684 recent_doskeys_index = 0;
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1685
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
1686 modifiers = dos_get_modifiers (&mask);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1687
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1688 #ifndef HAVE_X_WINDOWS
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
1689 if (!NILP (Vdos_display_scancodes))
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1690 {
14157
38606398dfa6 (dos_rawgetc): Make buf longer.
Richard M. Stallman <rms@gnu.org>
parents: 14036
diff changeset
1691 char buf[11];
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1692 sprintf (buf, "%02x:%02x*%04x",
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1693 (unsigned) (sc&0xff), (unsigned) c, mask);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1694 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
1695 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1696 #endif
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1697
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1698 if (sc == 0xe0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1699 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1700 switch (c)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1701 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1702 case 10: /* Ctrl Grey Enter */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1703 code = Ctrl | Grey | 4;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1704 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1705 case 13: /* Grey Enter */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1706 code = Grey | 4;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1707 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1708 case '/': /* Grey / */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1709 code = Grey | 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1710 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1711 default:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1712 continue;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1713 };
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1714 c = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1715 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1716 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1717 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1718 if (sc >= (sizeof (ibmpc_translate_map) / sizeof (short)))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1719 continue;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1720 if ((code = ibmpc_translate_map[sc]) == Ignore)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1721 continue;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1722 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1723
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1724 if (c == 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1725 {
16967
4ca0a5e25605 dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents: 16915
diff changeset
1726 /* We only look at the keyboard Ctrl/Shift/Alt keys when
4ca0a5e25605 dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents: 16915
diff changeset
1727 Emacs is ready to read a key. Therefore, if they press
4ca0a5e25605 dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents: 16915
diff changeset
1728 `Alt-x' when Emacs is busy, by the time we get to
4ca0a5e25605 dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents: 16915
diff changeset
1729 `dos_get_modifiers', they might have already released the
4ca0a5e25605 dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents: 16915
diff changeset
1730 Alt key, and Emacs gets just `x', which is BAD.
4ca0a5e25605 dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents: 16915
diff changeset
1731 However, for keys with the `Map' property set, the ASCII
4ca0a5e25605 dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents: 16915
diff changeset
1732 code returns zero iff Alt is pressed. So, when we DON'T
4ca0a5e25605 dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents: 16915
diff changeset
1733 have to support international_keyboard, we don't have to
4ca0a5e25605 dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents: 16915
diff changeset
1734 distinguish between the left and right Alt keys, and we
4ca0a5e25605 dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents: 16915
diff changeset
1735 can set the META modifier for any keys with the `Map'
4ca0a5e25605 dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents: 16915
diff changeset
1736 property if they return zero ASCII code (c = 0). */
4ca0a5e25605 dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents: 16915
diff changeset
1737 if ( (code & Alt)
4ca0a5e25605 dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents: 16915
diff changeset
1738 || ( (code & 0xf000) == Map && !international_keyboard))
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1739 modifiers |= meta_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1740 if (code & Ctrl)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1741 modifiers |= ctrl_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1742 if (code & Shift)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1743 modifiers |= shift_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1744 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1745
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1746 switch (code & 0xf000)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1747 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1748 case ModFct:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1749 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
1750 return c;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1751 c = 0; /* Special */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1752
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1753 case FctKey:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1754 if (c != 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1755 return c;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1756
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1757 case Special:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1758 code |= 0xff00;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1759 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1760
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1761 case Normal:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1762 if (sc == 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1763 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1764 if (c == 0) /* ctrl-break */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1765 continue;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1766 return c; /* ALT-nnn */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1767 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1768 if (!keyboard_map_all)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1769 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1770 if (c != ' ')
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1771 return c;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1772 code = c;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1773 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1774 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1775
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1776 case Map:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1777 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
1778 if (!keyboard_map_all)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1779 return c;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1780
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1781 code &= 0xff;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1782 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
1783 mask |= SHIFT_P; /* ALT-1 => M-! etc. */
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 if (mask & SHIFT_P)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1786 {
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
1787 code = keyboard->shifted[code];
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1788 mask -= SHIFT_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1789 modifiers &= ~shift_modifier;
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 else
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
1792 if ((mask & ALT_GR_P) && keyboard->alt_gr && keyboard->alt_gr[code] != ' ')
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
1793 code = keyboard->alt_gr[code];
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1794 else
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
1795 code = keyboard->unshifted[code];
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1796 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1797
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1798 case KeyPad:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1799 code &= 0xff;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1800 if (c == 0xe0) /* edit key */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1801 kp_mode = 3;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1802 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1803 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
1804 kp_mode = dos_keypad_mode & 0x03;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1805 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1806 kp_mode = (dos_keypad_mode >> 4) & 0x03;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1807
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1808 switch (kp_mode)
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 case 0:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1811 if (code == 10 && dos_decimal_point)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1812 return dos_decimal_point;
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
1813 return keypad_translate_map[code].char_code;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1814
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1815 case 1:
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
1816 code = 0xff00 | keypad_translate_map[code].keypad_code;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1817 break;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1818
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1819 case 2:
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
1820 code = keypad_translate_map[code].meta_code;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1821 modifiers = meta_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1822 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1823
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1824 case 3:
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
1825 code = 0xff00 | keypad_translate_map[code].editkey_code;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1826 break;
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 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1829
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1830 case Grey:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1831 code &= 0xff;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1832 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
1833 if (dos_keypad_mode & kp_mode)
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
1834 code = 0xff00 | grey_key_translate_map[code].keypad_code;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1835 else
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
1836 code = grey_key_translate_map[code].char_code;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1837 break;
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
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1840 make_event:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1841 if (code == 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1842 continue;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1843
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1844 if (code >= 0x100)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1845 event.kind = non_ascii_keystroke;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1846 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1847 event.kind = ascii_keystroke;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1848 event.code = code;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1849 event.modifiers = modifiers;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1850 XSETFRAME (event.frame_or_window, selected_frame);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1851 event.timestamp = event_timestamp ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1852 kbd_buffer_store_event (&event);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1853 }
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1854
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1855 if (have_mouse > 0)
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1856 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1857 int but, press, x, y, ok;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1858
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1859 /* Check for mouse movement *before* buttons. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1860 mouse_check_moved ();
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1861
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1862 for (but = 0; but < NUM_MOUSE_BUTTONS; but++)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1863 for (press = 0; press < 2; press++)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1864 {
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1865 int button_num = but;
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1866
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1867 if (press)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1868 ok = mouse_pressed (but, &x, &y);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1869 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1870 ok = mouse_released (but, &x, &y);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1871 if (ok)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1872 {
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1873 /* Allow a simultaneous press/release of Mouse-1 and
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1874 Mouse-2 to simulate Mouse-3 on two-button mice. */
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1875 if (mouse_button_count == 2 && but < 2)
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1876 {
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1877 int x2, y2; /* don't clobber original coordinates */
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1878
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1879 /* If only one button is pressed, wait 100 msec and
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1880 check again. This way, Speedy Gonzales isn't
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1881 punished, while the slow get their chance. */
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1882 if (press && mouse_pressed (1-but, &x2, &y2)
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1883 || !press && mouse_released (1-but, &x2, &y2))
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1884 button_num = 2;
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1885 else
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1886 {
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1887 delay (100);
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1888 if (press && mouse_pressed (1-but, &x2, &y2)
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1889 || !press && mouse_released (1-but, &x2, &y2))
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1890 button_num = 2;
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1891 }
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1892 }
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1893
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1894 event.kind = mouse_click;
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1895 event.code = button_num;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1896 event.modifiers = dos_get_modifiers (0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1897 | (press ? down_modifier : up_modifier);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1898 event.x = x;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1899 event.y = y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1900 XSETFRAME (event.frame_or_window, selected_frame);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1901 event.timestamp = event_timestamp ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1902 kbd_buffer_store_event (&event);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1903 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1904 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1905 }
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1906
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1907 return -1;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1908 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1909
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1910 static int prev_get_char = -1;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1911
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1912 /* Return 1 if a key is ready to be read without suspending execution. */
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1913
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1914 dos_keysns ()
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1915 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1916 if (prev_get_char != -1)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1917 return 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1918 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1919 return ((prev_get_char = dos_rawgetc ()) != -1);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1920 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1921
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1922 /* Read a key. Return -1 if no key is ready. */
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
1923
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1924 dos_keyread ()
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1925 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1926 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
1927 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1928 int c = prev_get_char;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1929 prev_get_char = -1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1930 return c;
8246
d48c2b01fba5 (mouse_init1): Use alternate mouse detection for old mouse drivers.
Richard M. Stallman <rms@gnu.org>
parents: 8194
diff changeset
1931 }
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1932 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1933 return dos_rawgetc ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1934 }
13305
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
1935
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1936 #ifndef HAVE_X_WINDOWS
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1937 /* See xterm.c for more info. */
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1938 void
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1939 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
1940 FRAME_PTR f;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1941 register int pix_x, pix_y;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1942 register int *x, *y;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1943 void /* XRectangle */ *bounds;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1944 int noclip;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1945 {
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1946 if (bounds) abort ();
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1947
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1948 /* Ignore clipping. */
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1949
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1950 *x = pix_x;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1951 *y = pix_y;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1952 }
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1953
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1954 void
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1955 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
1956 FRAME_PTR f;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1957 register int x, y;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1958 register int *pix_x, *pix_y;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1959 {
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1960 *pix_x = x;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1961 *pix_y = y;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1962 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1963
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1964 /* 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
1965 for now.
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1966
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1967 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
1968 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
1969 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
1970 left), but I don't think it's worth the effort. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1971
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1972 static XMenu *
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1973 IT_menu_create ()
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1974 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1975 XMenu *menu;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1976
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1977 menu = (XMenu *) xmalloc (sizeof (XMenu));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1978 menu->allocated = menu->count = menu->panecount = menu->width = 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1979 return menu;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1980 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1981
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1982 /* 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
1983 for item. */
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1984
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1985 static void
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1986 IT_menu_make_room (XMenu *menu)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1987 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1988 if (menu->allocated == 0)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1989 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1990 int count = menu->allocated = 10;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1991 menu->text = (char **) xmalloc (count * sizeof (char *));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1992 menu->submenu = (XMenu **) xmalloc (count * sizeof (XMenu *));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1993 menu->panenumber = (int *) xmalloc (count * sizeof (int));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1994 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1995 else if (menu->allocated == menu->count)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1996 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1997 int count = menu->allocated = menu->allocated + 10;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1998 menu->text
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1999 = (char **) xrealloc (menu->text, count * sizeof (char *));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2000 menu->submenu
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2001 = (XMenu **) xrealloc (menu->submenu, count * sizeof (XMenu *));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2002 menu->panenumber
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2003 = (int *) xrealloc (menu->panenumber, count * sizeof (int));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2004 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2005 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2006
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2007 /* 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
2008
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2009 static XMenu *
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2010 IT_menu_search_pane (XMenu *menu, int pane)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2011 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2012 int i;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2013 XMenu *try;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2014
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2015 for (i = 0; i < menu->count; i++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2016 if (menu->submenu[i])
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
2017 {
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
2018 if (pane == menu->panenumber[i])
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
2019 return menu->submenu[i];
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2020 if ((try = IT_menu_search_pane (menu->submenu[i], pane)))
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2021 return try;
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
2022 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2023 return (XMenu *) 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2024 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2025
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2026 /* 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
2027
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2028 static void
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2029 IT_menu_calc_size (XMenu *menu, int *width, int *height)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2030 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2031 int i, h2, w2, maxsubwidth, maxheight;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2032
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2033 maxsubwidth = 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2034 maxheight = menu->count;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2035 for (i = 0; i < menu->count; i++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2036 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2037 if (menu->submenu[i])
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2038 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2039 IT_menu_calc_size (menu->submenu[i], &w2, &h2);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2040 if (w2 > maxsubwidth) maxsubwidth = w2;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2041 if (i + h2 > maxheight) maxheight = i + h2;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2042 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2043 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2044 *width = menu->width + maxsubwidth;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2045 *height = maxheight;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2046 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2047
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
2048 /* 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
2049
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2050 static void
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2051 IT_menu_display (XMenu *menu, int y, int x, int *faces)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2052 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2053 int i, j, face, width;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2054 GLYPH *text, *p;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2055 char *q;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2056 int mx, my;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2057 int enabled, mousehere;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2058 int row, col;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2059
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2060 width = menu->width;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2061 text = (GLYPH *) xmalloc ((width + 2) * sizeof (GLYPH));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2062 ScreenGetCursor (&row, &col);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2063 mouse_get_xy (&mx, &my);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2064 IT_update_begin ();
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2065 for (i = 0; i < menu->count; i++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2066 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2067 IT_cursor_to (y + i, x);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2068 enabled
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2069 = (!menu->submenu[i] && menu->panenumber[i]) || (menu->submenu[i]);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2070 mousehere = (y + i == my && x <= mx && mx < x + width + 2);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2071 face = faces[enabled + mousehere * 2];
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2072 p = text;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2073 *p++ = FAST_MAKE_GLYPH (' ', face);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2074 for (j = 0, q = menu->text[i]; *q; j++)
15627
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2075 {
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2076 if (*q > 26)
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2077 *p++ = FAST_MAKE_GLYPH (*q++, face);
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2078 else /* make '^x' */
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2079 {
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2080 *p++ = FAST_MAKE_GLYPH ('^', face);
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2081 j++;
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2082 *p++ = FAST_MAKE_GLYPH (*q++ + 64, face);
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2083 }
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2084 }
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2085
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2086 for (; j < width; j++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2087 *p++ = FAST_MAKE_GLYPH (' ', face);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2088 *p++ = FAST_MAKE_GLYPH (menu->submenu[i] ? 16 : ' ', face);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2089 IT_write_glyphs (text, width + 2);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2090 }
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2091 IT_update_end ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2092 IT_cursor_to (row, col);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2093 xfree (text);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2094 }
13848
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
2095
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
2096 /* --------------------------- X Menu emulation ---------------------- */
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2097
13848
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
2098 /* Report availability of menus. */
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
2099
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
2100 int
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
2101 have_menus_p ()
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
2102 {
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
2103 return 1;
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
2104 }
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2105
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2106 /* 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
2107
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2108 XMenu *
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
2109 XMenuCreate (Display *foo1, Window foo2, char *foo3)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2110 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2111 return IT_menu_create ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2112 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2113
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2114 /* 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
2115 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
2116 to do. */
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
2117
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2118 int
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
2119 XMenuAddPane (Display *foo, XMenu *menu, char *txt, int enable)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2120 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2121 int len;
15627
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2122 char *p;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2123
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2124 if (!enable)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2125 abort ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2126
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2127 IT_menu_make_room (menu);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2128 menu->submenu[menu->count] = IT_menu_create ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2129 menu->text[menu->count] = txt;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2130 menu->panenumber[menu->count] = ++menu->panecount;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2131 menu->count++;
15627
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2132
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2133 /* Adjust length for possible control characters (which will
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2134 be written as ^x). */
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2135 for (len = strlen (txt), p = txt; *p; p++)
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2136 if (*p < 27)
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2137 len++;
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2138
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2139 if (len > menu->width)
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
2140 menu->width = len;
15627
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2141
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2142 return menu->panecount;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2143 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2144
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2145 /* 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
2146
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2147 int
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
2148 XMenuAddSelection (Display *bar, XMenu *menu, int pane,
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
2149 int foo, char *txt, int enable)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2150 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2151 int len;
15627
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2152 char *p;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2153
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2154 if (pane)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2155 if (!(menu = IT_menu_search_pane (menu, pane)))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2156 return XM_FAILURE;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2157 IT_menu_make_room (menu);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2158 menu->submenu[menu->count] = (XMenu *) 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2159 menu->text[menu->count] = txt;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2160 menu->panenumber[menu->count] = enable;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2161 menu->count++;
15627
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2162
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2163 /* Adjust length for possible control characters (which will
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2164 be written as ^x). */
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2165 for (len = strlen (txt), p = txt; *p; p++)
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2166 if (*p < 27)
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2167 len++;
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2168
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2169 if (len > menu->width)
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
2170 menu->width = len;
15627
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
2171
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2172 return XM_SUCCESS;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2173 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2174
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2175 /* 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
2176
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
2177 void
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
2178 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
2179 int *ulx, int *uly, int *width, int *height)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2180 {
13714
45e71ea63d71 (XMenuActivate): Display the menu pane title.
Karl Heuer <kwzh@gnu.org>
parents: 13657
diff changeset
2181 IT_menu_calc_size (menu, width, height);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2182 *ulx = x + 1;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2183 *uly = y;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2184 *width += 2;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2185 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2186
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
2187 struct IT_menu_state
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2188 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2189 void *screen_behind;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2190 XMenu *menu;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2191 int pane;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2192 int x, y;
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
2193 };
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2194
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2195
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2196 /* 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
2197
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2198 int
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
2199 XMenuActivate (Display *foo, XMenu *menu, int *pane, int *selidx,
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2200 int x0, int y0, unsigned ButtonMask, char **txt)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2201 {
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
2202 struct IT_menu_state *state;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2203 int statecount;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2204 int x, y, i, b;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2205 int screensize;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2206 int faces[4], selectface;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2207 int leave, result, onepane;
13860
659a54e026bb (XMenuActivate): Make sure the menu title is always
Richard M. Stallman <rms@gnu.org>
parents: 13848
diff changeset
2208 int title_faces[4]; /* face to display the menu title */
15387
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2209 int buffers_num_deleted = 0;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2210
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2211 /* 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
2212 if (have_mouse <= 0)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2213 return XM_IA_SELECT;
16871
45a12f628d3f * (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents: 16837
diff changeset
2214 /* Don't allow non-positive x0 and y0, lest the menu will wrap
45a12f628d3f * (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents: 16837
diff changeset
2215 around the display. */
45a12f628d3f * (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents: 16837
diff changeset
2216 if (x0 <= 0)
45a12f628d3f * (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents: 16837
diff changeset
2217 x0 = 1;
45a12f628d3f * (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents: 16837
diff changeset
2218 if (y0 <= 0)
45a12f628d3f * (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents: 16837
diff changeset
2219 y0 = 1;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2220
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
2221 state = alloca (menu->panecount * sizeof (struct IT_menu_state));
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2222 screensize = screen_size * 2;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2223 faces[0]
15387
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2224 = compute_glyph_face (selected_frame,
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2225 face_name_id_number
15387
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2226 (selected_frame,
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2227 intern ("msdos-menu-passive-face")),
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2228 0);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2229 faces[1]
15387
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2230 = compute_glyph_face (selected_frame,
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2231 face_name_id_number
15387
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2232 (selected_frame,
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2233 intern ("msdos-menu-active-face")),
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2234 0);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2235 selectface
15387
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2236 = face_name_id_number (selected_frame, intern ("msdos-menu-select-face"));
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2237 faces[2] = compute_glyph_face (selected_frame, selectface, faces[0]);
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2238 faces[3] = compute_glyph_face (selected_frame, selectface, faces[1]);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2239
13860
659a54e026bb (XMenuActivate): Make sure the menu title is always
Richard M. Stallman <rms@gnu.org>
parents: 13848
diff changeset
2240 /* Make sure the menu title is always displayed with
659a54e026bb (XMenuActivate): Make sure the menu title is always
Richard M. Stallman <rms@gnu.org>
parents: 13848
diff changeset
2241 `msdos-menu-active-face', no matter where the mouse pointer is. */
659a54e026bb (XMenuActivate): Make sure the menu title is always
Richard M. Stallman <rms@gnu.org>
parents: 13848
diff changeset
2242 for (i = 0; i < 4; i++)
659a54e026bb (XMenuActivate): Make sure the menu title is always
Richard M. Stallman <rms@gnu.org>
parents: 13848
diff changeset
2243 title_faces[i] = faces[3];
659a54e026bb (XMenuActivate): Make sure the menu title is always
Richard M. Stallman <rms@gnu.org>
parents: 13848
diff changeset
2244
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2245 statecount = 1;
15387
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2246
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2247 /* Don't let the title for the "Buffers" popup menu include a
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2248 digit (which is ugly).
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2249
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2250 This is a terrible kludge, but I think the "Buffers" case is
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2251 the only one where the title includes a number, so it doesn't
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2252 seem to be necessary to make this more general. */
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2253 if (strncmp (menu->text[0], "Buffers 1", 9) == 0)
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2254 {
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2255 menu->text[0][7] = '\0';
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2256 buffers_num_deleted = 1;
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2257 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2258 state[0].menu = menu;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2259 mouse_off ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2260 ScreenRetrieve (state[0].screen_behind = xmalloc (screensize));
13714
45e71ea63d71 (XMenuActivate): Display the menu pane title.
Karl Heuer <kwzh@gnu.org>
parents: 13657
diff changeset
2261
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
2262 /* Turn off the cursor. Otherwise it shows through the menu
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
2263 panes, which is ugly. */
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
2264 IT_display_cursor (0);
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
2265
13860
659a54e026bb (XMenuActivate): Make sure the menu title is always
Richard M. Stallman <rms@gnu.org>
parents: 13848
diff changeset
2266 IT_menu_display (menu, y0 - 1, x0 - 1, title_faces); /* display menu title */
15387
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2267 if (buffers_num_deleted)
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2268 menu->text[0][7] = ' ';
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2269 if ((onepane = menu->count == 1 && menu->submenu[0]))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2270 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2271 menu->width = menu->submenu[0]->width;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2272 state[0].menu = menu->submenu[0];
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2273 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2274 else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2275 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2276 state[0].menu = menu;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2277 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2278 state[0].x = x0 - 1;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2279 state[0].y = y0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2280 state[0].pane = onepane;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2281
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2282 mouse_last_x = -1; /* A hack that forces display. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2283 leave = 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2284 while (!leave)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2285 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2286 if (!mouse_visible) mouse_on ();
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2287 mouse_check_moved ();
12573
f8193b0f95ed (mouse_get_pos, mouse_check_moved, XMenuActivate):
Karl Heuer <kwzh@gnu.org>
parents: 11124
diff changeset
2288 if (selected_frame->mouse_moved)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2289 {
12573
f8193b0f95ed (mouse_get_pos, mouse_check_moved, XMenuActivate):
Karl Heuer <kwzh@gnu.org>
parents: 11124
diff changeset
2290 selected_frame->mouse_moved = 0;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2291 result = XM_IA_SELECT;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2292 mouse_get_xy (&x, &y);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2293 for (i = 0; i < statecount; i++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2294 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
2295 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2296 int dy = y - state[i].y;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2297 if (0 <= dy && dy < state[i].menu->count)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2298 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2299 if (!state[i].menu->submenu[dy])
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2300 if (state[i].menu->panenumber[dy])
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2301 result = XM_SUCCESS;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2302 else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2303 result = XM_IA_SELECT;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2304 *pane = state[i].pane - 1;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2305 *selidx = dy;
14036
621a575db6f7 Comment fixes.
Karl Heuer <kwzh@gnu.org>
parents: 13860
diff changeset
2306 /* We hit some part of a menu, so drop extra menus that
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2307 have been opened. That does not include an open and
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2308 active submenu. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2309 if (i != statecount - 2
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2310 || state[i].menu->submenu[dy] != state[i+1].menu)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2311 while (i != statecount - 1)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2312 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2313 statecount--;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2314 mouse_off ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2315 ScreenUpdate (state[statecount].screen_behind);
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2316 if (screen_virtual_segment)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2317 dosv_refresh_virtual_screen (0, screen_size);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2318 xfree (state[statecount].screen_behind);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2319 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2320 if (i == statecount - 1 && state[i].menu->submenu[dy])
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2321 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2322 IT_menu_display (state[i].menu,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2323 state[i].y,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2324 state[i].x,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2325 faces);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2326 state[statecount].menu = state[i].menu->submenu[dy];
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2327 state[statecount].pane = state[i].menu->panenumber[dy];
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2328 mouse_off ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2329 ScreenRetrieve (state[statecount].screen_behind
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2330 = xmalloc (screensize));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2331 state[statecount].x
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2332 = state[i].x + state[i].menu->width + 2;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2333 state[statecount].y = y;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2334 statecount++;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2335 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2336 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2337 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2338 IT_menu_display (state[statecount - 1].menu,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2339 state[statecount - 1].y,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2340 state[statecount - 1].x,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2341 faces);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2342 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2343 for (b = 0; b < mouse_button_count; b++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2344 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2345 (void) mouse_pressed (b, &x, &y);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2346 if (mouse_released (b, &x, &y))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2347 leave = 1;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2348 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2349 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2350
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2351 mouse_off ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2352 ScreenUpdate (state[0].screen_behind);
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2353 if (screen_virtual_segment)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2354 dosv_refresh_virtual_screen (0, screen_size);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2355 while (statecount--)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2356 xfree (state[statecount].screen_behind);
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
2357 IT_display_cursor (1); /* turn cursor back on */
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2358 return result;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2359 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2360
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2361 /* Dispose of a menu. */
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
2362
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
2363 void
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
2364 XMenuDestroy (Display *foo, XMenu *menu)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2365 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2366 int i;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2367 if (menu->allocated)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2368 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2369 for (i = 0; i < menu->count; i++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2370 if (menu->submenu[i])
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
2371 XMenuDestroy (foo, menu->submenu[i]);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2372 xfree (menu->text);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2373 xfree (menu->submenu);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2374 xfree (menu->panenumber);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2375 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2376 xfree (menu);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2377 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2378
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
2379 int
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
2380 x_pixel_width (struct frame *f)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2381 {
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
2382 return FRAME_WIDTH (f);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2383 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2384
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
2385 int
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
2386 x_pixel_height (struct frame *f)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2387 {
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
2388 return FRAME_HEIGHT (f);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2389 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2390 #endif /* !HAVE_X_WINDOWS */
13848
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
2391
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2392 /* ----------------------- DOS / UNIX conversion --------------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2393
15618
5da6a61ce827 (dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents: 15588
diff changeset
2394 void msdos_downcase_filename (unsigned char *);
5da6a61ce827 (dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents: 15588
diff changeset
2395
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2396 /* Destructively turn backslashes into slashes. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2397
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2398 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2399 dostounix_filename (p)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2400 register char *p;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2401 {
15618
5da6a61ce827 (dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents: 15588
diff changeset
2402 msdos_downcase_filename (p);
5da6a61ce827 (dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents: 15588
diff changeset
2403
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2404 while (*p)
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 if (*p == '\\')
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2407 *p = '/';
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2408 p++;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2409 }
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
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2412 /* Destructively turn slashes into backslashes. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2413
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2414 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2415 unixtodos_filename (p)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2416 register char *p;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2417 {
15618
5da6a61ce827 (dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents: 15588
diff changeset
2418 if (p[1] == ':' && *p >= 'A' && *p <= 'Z')
5da6a61ce827 (dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents: 15588
diff changeset
2419 {
5da6a61ce827 (dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents: 15588
diff changeset
2420 *p += 'a' - 'A';
5da6a61ce827 (dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents: 15588
diff changeset
2421 p += 2;
5da6a61ce827 (dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents: 15588
diff changeset
2422 }
5da6a61ce827 (dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents: 15588
diff changeset
2423
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2424 while (*p)
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 (*p == '/')
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2427 *p = '\\';
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2428 p++;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2429 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2430 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2431
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2432 /* 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
2433
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2434 int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2435 getdefdir (drive, dst)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2436 int drive;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2437 char *dst;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2438 {
15125
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
2439 char in_path[4], *p = in_path;
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
2440 int e = errno;
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
2441
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
2442 /* Generate "X:." (when drive is X) or "." (when drive is 0). */
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
2443 if (drive != 0)
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
2444 {
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
2445 *p++ = drive + 'A' - 1;
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
2446 *p++ = ':';
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
2447 }
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
2448
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
2449 *p++ = '.';
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
2450 *p = '\0';
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
2451 errno = 0;
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
2452 _fixpath (in_path, dst);
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
2453 if (errno)
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
2454 return 0;
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
2455
15219
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
2456 msdos_downcase_filename (dst);
15125
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
2457
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
2458 errno = e;
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
2459 return 1;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2460 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2461
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2462 /* Remove all CR's that are followed by a LF. */
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 int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2465 crlf_to_lf (n, buf)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2466 register int n;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2467 register unsigned char *buf;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2468 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2469 unsigned char *np = buf;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2470 unsigned char *startp = buf;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2471 unsigned char *endp = buf + n;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2472
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2473 if (n == 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2474 return n;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2475 while (buf < endp - 1)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2476 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2477 if (*buf == 0x0d)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2478 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2479 if (*(++buf) != 0x0a)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2480 *np++ = 0x0d;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2481 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2482 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2483 *np++ = *buf++;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2484 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2485 if (buf < endp)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2486 *np++ = *buf++;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2487 return np - startp;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2488 }
14999
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2489
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2490 #if defined(__DJGPP__) && __DJGPP__ == 2 && __DJGPP_MINOR__ == 0
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2491
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2492 /* In DJGPP v2.0, library `write' can call `malloc', which might
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2493 cause relocation of the buffer whose address we get in ADDR.
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2494 Here is a version of `write' that avoids calling `malloc',
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2495 to serve us until such time as the library is fixed.
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2496 Actually, what we define here is called `__write', because
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2497 `write' is a stub that just jmp's to `__write' (to be
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2498 POSIXLY-correct with respect to the global name-space). */
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2499
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2500 #include <io.h> /* for _write */
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2501 #include <libc/dosio.h> /* for __file_handle_modes[] */
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2502
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2503 static char xbuf[64 * 1024]; /* DOS cannot write more in one chunk */
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2504
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2505 #define XBUF_END (xbuf + sizeof (xbuf) - 1)
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2506
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2507 int
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2508 __write (int handle, const void *buffer, size_t count)
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2509 {
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2510 if (count == 0)
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2511 return 0;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2512
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2513 if(__file_handle_modes[handle] & O_BINARY)
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2514 return _write (handle, buffer, count);
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2515 else
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2516 {
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2517 char *xbp = xbuf;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2518 const char *bp = buffer;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2519 int total_written = 0;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2520 int nmoved = 0, ncr = 0;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2521
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2522 while (count)
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2523 {
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2524 /* The next test makes sure there's space for at least 2 more
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2525 characters in xbuf[], so both CR and LF can be put there. */
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2526 if (xbp < XBUF_END)
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2527 {
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2528 if (*bp == '\n')
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2529 {
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2530 ncr++;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2531 *xbp++ = '\r';
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2532 }
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2533 *xbp++ = *bp++;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2534 nmoved++;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2535 count--;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2536 }
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2537 if (xbp >= XBUF_END || !count)
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2538 {
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2539 size_t to_write = nmoved + ncr;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2540 int written = _write (handle, xbuf, to_write);
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2541
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2542 if (written == -1)
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2543 return -1;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2544 else
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2545 total_written += nmoved; /* CRs aren't counted in ret value */
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2546
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2547 /* If some, but not all were written (disk full?), return
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2548 an estimate of the total written bytes not counting CRs. */
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2549 if (written < to_write)
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2550 return total_written - (to_write - written) * nmoved/to_write;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2551
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2552 nmoved = 0;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2553 ncr = 0;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2554 xbp = xbuf;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2555 }
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2556 }
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2557 return total_written;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2558 }
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2559 }
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2560
16524
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2561 /* A low-level file-renaming function which works around Windows 95 bug.
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2562 This is pulled directly out of DJGPP v2.01 library sources, and only
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2563 used when you compile with DJGPP v2.0. */
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2564
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2565 #include <io.h>
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2566
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2567 int _rename(const char *old, const char *new)
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2568 {
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2569 __dpmi_regs r;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2570 int olen = strlen(old) + 1;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2571 int i;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2572 int use_lfn = _USE_LFN;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2573 char tempfile[FILENAME_MAX];
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2574 const char *orig = old;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2575 int lfn_fd = -1;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2576
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2577 r.x.dx = __tb_offset;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2578 r.x.di = __tb_offset + olen;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2579 r.x.ds = r.x.es = __tb_segment;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2580
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2581 if (use_lfn)
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2582 {
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2583 /* Windows 95 bug: for some filenames, when you rename
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2584 file -> file~ (as in Emacs, to leave a backup), the
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2585 short 8+3 alias doesn't change, which effectively
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2586 makes OLD and NEW the same file. We must rename
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2587 through a temporary file to work around this. */
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2588
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2589 char *pbase = 0, *p;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2590 static char try_char[] = "abcdefghijklmnopqrstuvwxyz012345789";
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2591 int idx = sizeof(try_char) - 1;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2592
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2593 /* Generate a temporary name. Can't use `tmpnam', since $TMPDIR
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2594 might point to another drive, which will fail the DOS call. */
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2595 strcpy(tempfile, old);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2596 for (p = tempfile; *p; p++) /* ensure temporary is on the same drive */
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2597 if (*p == '/' || *p == '\\' || *p == ':')
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2598 pbase = p;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2599 if (pbase)
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2600 pbase++;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2601 else
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2602 pbase = tempfile;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2603 strcpy(pbase, "X$$djren$$.$$temp$$");
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2604
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2605 do
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2606 {
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2607 if (idx <= 0)
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2608 return -1;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2609 *pbase = try_char[--idx];
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2610 } while (_chmod(tempfile, 0) != -1);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2611
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2612 r.x.ax = 0x7156;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2613 _put_path2(tempfile, olen);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2614 _put_path(old);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2615 __dpmi_int(0x21, &r);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2616 if (r.x.flags & 1)
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2617 {
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2618 errno = __doserr_to_errno(r.x.ax);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2619 return -1;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2620 }
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2621
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2622 /* Now create a file with the original name. This will
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2623 ensure that NEW will always have a 8+3 alias
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2624 different from that of OLD. (Seems to be required
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2625 when NameNumericTail in the Registry is set to 0.) */
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2626 lfn_fd = _creat(old, 0);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2627
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2628 olen = strlen(tempfile) + 1;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2629 old = tempfile;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2630 r.x.di = __tb_offset + olen;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2631 }
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2632
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2633 for (i=0; i<2; i++)
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2634 {
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2635 if(use_lfn)
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2636 r.x.ax = 0x7156;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2637 else
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2638 r.h.ah = 0x56;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2639 _put_path2(new, olen);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2640 _put_path(old);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2641 __dpmi_int(0x21, &r);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2642 if(r.x.flags & 1)
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2643 {
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2644 if (r.x.ax == 5 && i == 0) /* access denied */
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2645 remove(new); /* and try again */
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2646 else
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2647 {
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2648 errno = __doserr_to_errno(r.x.ax);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2649
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2650 /* Restore to original name if we renamed it to temporary. */
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2651 if (use_lfn)
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2652 {
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2653 if (lfn_fd != -1)
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2654 {
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2655 _close (lfn_fd);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2656 remove (orig);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2657 }
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2658 _put_path2(orig, olen);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2659 _put_path(tempfile);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2660 r.x.ax = 0x7156;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2661 __dpmi_int(0x21, &r);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2662 }
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2663 return -1;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2664 }
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2665 }
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2666 else
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2667 break;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2668 }
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2669
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2670 /* Success. Delete the file possibly created to work
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2671 around the Windows 95 bug. */
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2672 if (lfn_fd != -1)
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2673 return (_close (lfn_fd) == 0) ? remove (orig) : -1;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2674 return 0;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2675 }
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
2676
14999
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2677 #endif /* __DJGPP__ == 2 && __DJGPP_MINOR__ == 0 */
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
2678
15174
08937f70419e (Fmsdos_long_file_names): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15125
diff changeset
2679 DEFUN ("msdos-long-file-names", Fmsdos_long_file_names, Smsdos_long_file_names,
08937f70419e (Fmsdos_long_file_names): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15125
diff changeset
2680 0, 0, 0,
08937f70419e (Fmsdos_long_file_names): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15125
diff changeset
2681 "Return non-nil if long file names are supported on MSDOS.")
08937f70419e (Fmsdos_long_file_names): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15125
diff changeset
2682 ()
08937f70419e (Fmsdos_long_file_names): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15125
diff changeset
2683 {
08937f70419e (Fmsdos_long_file_names): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15125
diff changeset
2684 return (_USE_LFN ? Qt : Qnil);
08937f70419e (Fmsdos_long_file_names): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15125
diff changeset
2685 }
15219
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
2686
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
2687 /* Convert alphabetic characters in a filename to lower-case. */
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
2688
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
2689 void
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
2690 msdos_downcase_filename (p)
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
2691 register unsigned char *p;
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
2692 {
15588
e49a2eb71713 (msdos_downcase_filename):
Miles Bader <miles@gnu.org>
parents: 15387
diff changeset
2693 /* Always lower-case drive letters a-z, even if the filesystem
e49a2eb71713 (msdos_downcase_filename):
Miles Bader <miles@gnu.org>
parents: 15387
diff changeset
2694 preserves case in filenames.
e49a2eb71713 (msdos_downcase_filename):
Miles Bader <miles@gnu.org>
parents: 15387
diff changeset
2695 This is so MSDOS filenames could be compared by string comparison
e49a2eb71713 (msdos_downcase_filename):
Miles Bader <miles@gnu.org>
parents: 15387
diff changeset
2696 functions that are case-sensitive. Even case-preserving filesystems
e49a2eb71713 (msdos_downcase_filename):
Miles Bader <miles@gnu.org>
parents: 15387
diff changeset
2697 do not distinguish case in drive letters. */
e49a2eb71713 (msdos_downcase_filename):
Miles Bader <miles@gnu.org>
parents: 15387
diff changeset
2698 if (p[1] == ':' && *p >= 'A' && *p <= 'Z')
e49a2eb71713 (msdos_downcase_filename):
Miles Bader <miles@gnu.org>
parents: 15387
diff changeset
2699 {
e49a2eb71713 (msdos_downcase_filename):
Miles Bader <miles@gnu.org>
parents: 15387
diff changeset
2700 *p += 'a' - 'A';
e49a2eb71713 (msdos_downcase_filename):
Miles Bader <miles@gnu.org>
parents: 15387
diff changeset
2701 p += 2;
e49a2eb71713 (msdos_downcase_filename):
Miles Bader <miles@gnu.org>
parents: 15387
diff changeset
2702 }
e49a2eb71713 (msdos_downcase_filename):
Miles Bader <miles@gnu.org>
parents: 15387
diff changeset
2703
15219
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
2704 /* Under LFN we expect to get pathnames in their true case. */
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
2705 if (NILP (Fmsdos_long_file_names ()))
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
2706 for ( ; *p; p++)
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
2707 if (*p >= 'A' && *p <= 'Z')
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
2708 *p += 'a' - 'A';
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
2709 }
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
2710
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
2711 DEFUN ("msdos-downcase-filename", Fmsdos_downcase_filename, Smsdos_downcase_filename,
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
2712 1, 1, 0,
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
2713 "Convert alphabetic characters in FILENAME to lower case and return that.\n\
15222
cc264dd966cd (Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents: 15219
diff changeset
2714 When long filenames are supported, doesn't change FILENAME.\n\
cc264dd966cd (Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents: 15219
diff changeset
2715 If FILENAME is not a string, returns nil.\n\
cc264dd966cd (Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents: 15219
diff changeset
2716 The argument object is never altered--the value is a copy.")
15219
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
2717 (filename)
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
2718 Lisp_Object filename;
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
2719 {
15222
cc264dd966cd (Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents: 15219
diff changeset
2720 Lisp_Object tem;
cc264dd966cd (Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents: 15219
diff changeset
2721
cc264dd966cd (Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents: 15219
diff changeset
2722 if (! STRINGP (filename))
cc264dd966cd (Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents: 15219
diff changeset
2723 return Qnil;
cc264dd966cd (Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents: 15219
diff changeset
2724
cc264dd966cd (Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents: 15219
diff changeset
2725 tem = Fcopy_sequence (filename);
cc264dd966cd (Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents: 15219
diff changeset
2726 msdos_downcase_filename (XSTRING (tem)->data);
cc264dd966cd (Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents: 15219
diff changeset
2727 return tem;
15219
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
2728 }
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2729
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2730 /* The Emacs root directory as determined by init_environment. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2731
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2732 static char emacsroot[MAXPATHLEN];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2733
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2734 char *
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2735 rootrelativepath (rel)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2736 char *rel;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2737 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2738 static char result[MAXPATHLEN + 10];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2739
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2740 strcpy (result, emacsroot);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2741 strcat (result, "/");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2742 strcat (result, rel);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2743 return result;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2744 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2745
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2746 /* 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
2747 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
2748 break if one or more of these are missing. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2749
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2750 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2751 init_environment (argc, argv, skip_args)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2752 int argc;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2753 char **argv;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2754 int skip_args;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2755 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2756 char *s, *t, *root;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2757 int len;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2758
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2759 /* 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
2760 "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
2761 root = alloca (MAXPATHLEN + 20);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2762 _fixpath (argv[0], root);
15618
5da6a61ce827 (dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents: 15588
diff changeset
2763 msdos_downcase_filename (root);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2764 len = strlen (root);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2765 while (len > 0 && root[len] != '/' && root[len] != ':')
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2766 len--;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2767 root[len] = '\0';
19295
812986c77ae2 (init_environment): Set Emacs root directory properly when
Richard M. Stallman <rms@gnu.org>
parents: 19293
diff changeset
2768 if (len > 4
812986c77ae2 (init_environment): Set Emacs root directory properly when
Richard M. Stallman <rms@gnu.org>
parents: 19293
diff changeset
2769 && (strcmp (root + len - 4, "/bin") == 0
812986c77ae2 (init_environment): Set Emacs root directory properly when
Richard M. Stallman <rms@gnu.org>
parents: 19293
diff changeset
2770 || strcmp (root + len - 4, "/src") == 0)) /* under a debugger */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2771 root[len - 4] = '\0';
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2772 else
19295
812986c77ae2 (init_environment): Set Emacs root directory properly when
Richard M. Stallman <rms@gnu.org>
parents: 19293
diff changeset
2773 strcpy (root, "c:/emacs"); /* let's be defensive */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2774 len = strlen (root);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2775 strcpy (emacsroot, root);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2776
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2777 /* We default HOME to our root. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2778 setenv ("HOME", root, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2779
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2780 /* We default EMACSPATH to root + "/bin". */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2781 strcpy (root + len, "/bin");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2782 setenv ("EMACSPATH", root, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2783
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2784 /* 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
2785 terminal is the default. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2786 setenv ("TERM", "internal", 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2787
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2788 #ifdef HAVE_X_WINDOWS
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2789 /* Emacs expects DISPLAY to be set. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2790 setenv ("DISPLAY", "unix:0.0", 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2791 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2792
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2793 /* 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
2794 downcase it and mirror the backslashes. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2795 s = getenv ("COMSPEC");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2796 if (!s) s = "c:/command.com";
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2797 t = alloca (strlen (s) + 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2798 strcpy (t, s);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2799 dostounix_filename (t);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2800 setenv ("SHELL", t, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2801
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2802 /* PATH is also downcased and backslashes mirrored. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2803 s = getenv ("PATH");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2804 if (!s) s = "";
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2805 t = alloca (strlen (s) + 3);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2806 /* 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
2807 not normally mentioned. Now it is. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2808 strcat (strcpy (t, ".;"), s);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2809 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
2810 setenv ("PATH", t, 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2811
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2812 /* In some sense all dos users have root privileges, so... */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2813 setenv ("USER", "root", 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2814 setenv ("NAME", getenv ("USER"), 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2815
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2816 /* 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
2817 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
2818 in the USA, you lose. */
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
2819 if (!getenv ("TZ"))
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2820 switch (dos_country_code)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2821 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2822 case 31: /* Belgium */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2823 case 32: /* The Netherlands */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2824 case 33: /* France */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2825 case 34: /* Spain */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2826 case 36: /* Hungary */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2827 case 38: /* Yugoslavia (or what's left of it?) */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2828 case 39: /* Italy */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2829 case 41: /* Switzerland */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2830 case 42: /* Tjekia */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2831 case 45: /* Denmark */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2832 case 46: /* Sweden */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2833 case 47: /* Norway */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2834 case 48: /* Poland */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2835 case 49: /* Germany */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2836 /* 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
2837 September, both at 2AM. */
13394
c4549fcdd5f3 (the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents: 13305
diff changeset
2838 setenv ("TZ", "MET-01METDST-02,M3.5.0/02:00,M9.5.0/02:00", 0);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2839 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2840 case 44: /* United Kingdom */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2841 case 351: /* Portugal */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2842 case 354: /* Iceland */
13394
c4549fcdd5f3 (the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents: 13305
diff changeset
2843 setenv ("TZ", "GMT+00", 0);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2844 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2845 case 81: /* Japan */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2846 case 82: /* Korea */
13394
c4549fcdd5f3 (the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents: 13305
diff changeset
2847 setenv ("TZ", "JST-09", 0);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2848 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2849 case 90: /* Turkey */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2850 case 358: /* Finland */
13394
c4549fcdd5f3 (the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents: 13305
diff changeset
2851 setenv ("TZ", "EET-02", 0);
c4549fcdd5f3 (the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents: 13305
diff changeset
2852 break;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2853 case 972: /* Israel */
13394
c4549fcdd5f3 (the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents: 13305
diff changeset
2854 /* This is an approximation. (For exact rules, use the
c4549fcdd5f3 (the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents: 13305
diff changeset
2855 `zoneinfo/israel' file which comes with DJGPP, but you need
c4549fcdd5f3 (the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents: 13305
diff changeset
2856 to install it in `/usr/share/zoneinfo/' directory first.) */
c4549fcdd5f3 (the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents: 13305
diff changeset
2857 setenv ("TZ", "IST-02IDT-03,M4.1.6/00:00,M9.5.6/01:00", 0);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2858 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2859 }
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2860 tzset ();
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2861 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2862
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2863
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2864
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2865 static int break_stat; /* BREAK check mode status. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2866 static int stdin_stat; /* stdin IOCTL status. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2867
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2868 #if __DJGPP__ < 2
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2869
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2870 /* These must be global. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2871 static _go32_dpmi_seginfo ctrl_break_vector;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2872 static _go32_dpmi_registers ctrl_break_regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2873 static int ctrlbreakinstalled = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2874
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2875 /* 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
2876
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2877 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2878 ctrl_break_func (regs)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2879 _go32_dpmi_registers *regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2880 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2881 Vquit_flag = Qt;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2882 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2883
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2884 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2885 install_ctrl_break_check ()
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2886 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2887 if (!ctrlbreakinstalled)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2888 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2889 /* 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
2890 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
2891 ctrlbreakinstalled = 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2892 ctrl_break_vector.pm_offset = (int) ctrl_break_func;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2893 _go32_dpmi_allocate_real_mode_callback_iret (&ctrl_break_vector,
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2894 &ctrl_break_regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2895 _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
2896 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2897 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2898
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2899 #endif /* __DJGPP__ < 2 */
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2900
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
2901 /* Turn off Dos' Ctrl-C checking and inhibit interpretation of
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
2902 control chars by DOS. Determine the keyboard type. */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2903
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2904 int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2905 dos_ttraw ()
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2906 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2907 union REGS inregs, outregs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2908 static int first_time = 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2909
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2910 break_stat = getcbrk ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2911 setcbrk (0);
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2912 #if __DJGPP__ < 2
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2913 install_ctrl_break_check ();
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2914 #endif
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2915
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2916 if (first_time)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2917 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2918 inregs.h.ah = 0xc0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2919 int86 (0x15, &inregs, &outregs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2920 extended_kbd = (!outregs.x.cflag) && (outregs.h.ah == 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2921
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2922 have_mouse = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2923
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2924 if (internal_terminal
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2925 #ifdef HAVE_X_WINDOWS
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2926 && inhibit_window_system
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2927 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2928 )
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2929 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2930 inregs.x.ax = 0x0021;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2931 int86 (0x33, &inregs, &outregs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2932 have_mouse = (outregs.x.ax & 0xffff) == 0xffff;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2933 if (!have_mouse)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2934 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2935 /* 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
2936 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
2937 a little slower. Use that as an alternative. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2938 inregs.x.ax = 0x0000;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2939 int86 (0x33, &inregs, &outregs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2940 have_mouse = (outregs.x.ax & 0xffff) == 0xffff;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2941 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2942
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2943 if (have_mouse)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2944 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2945 have_mouse = 1; /* enable mouse */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2946 mouse_visible = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2947
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2948 if (outregs.x.bx == 3)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2949 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2950 mouse_button_count = 3;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2951 mouse_button_translate[0] = 0; /* Left */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2952 mouse_button_translate[1] = 2; /* Middle */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2953 mouse_button_translate[2] = 1; /* Right */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2954 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2955 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2956 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2957 mouse_button_count = 2;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2958 mouse_button_translate[0] = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2959 mouse_button_translate[1] = 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2960 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2961 mouse_position_hook = &mouse_get_pos;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2962 mouse_init ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2963 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2964 }
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2965
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2966 first_time = 0;
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2967
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2968 #if __DJGPP__ >= 2
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2969
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2970 stdin_stat = setmode (fileno (stdin), O_BINARY);
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2971 return (stdin_stat != -1);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2972 }
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2973 else
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2974 return (setmode (fileno (stdin), O_BINARY) != -1);
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2975
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2976 #else /* __DJGPP__ < 2 */
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2977
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2978 }
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2979
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2980 /* I think it is wrong to overwrite `stdin_stat' every time
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2981 but the first one this function is called, but I don't
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2982 want to change the way it used to work in v1.x.--EZ */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2983
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2984 inregs.x.ax = 0x4400; /* Get IOCTL status. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2985 inregs.x.bx = 0x00; /* 0 = stdin. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2986 intdos (&inregs, &outregs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2987 stdin_stat = outregs.h.dl;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2988
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2989 inregs.x.dx = stdin_stat | 0x0020; /* raw mode */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2990 inregs.x.ax = 0x4401; /* Set IOCTL status */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2991 intdos (&inregs, &outregs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2992 return !outregs.x.cflag;
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2993
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2994 #endif /* __DJGPP__ < 2 */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2995 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2996
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2997 /* Restore status of standard input and Ctrl-C checking. */
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
2998
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2999 int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3000 dos_ttcooked ()
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3001 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3002 union REGS inregs, outregs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3003
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3004 setcbrk (break_stat);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3005 mouse_off ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3006
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
3007 #if __DJGPP__ >= 2
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
3008
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
3009 return (setmode (fileno (stdin), stdin_stat) != -1);
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
3010
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
3011 #else /* not __DJGPP__ >= 2 */
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
3012
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3013 inregs.x.ax = 0x4401; /* Set IOCTL status. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3014 inregs.x.bx = 0x00; /* 0 = stdin. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3015 inregs.x.dx = stdin_stat;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3016 intdos (&inregs, &outregs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3017 return !outregs.x.cflag;
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
3018
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
3019 #endif /* not __DJGPP__ >= 2 */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3020 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3021
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3022
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3023 /* Run command as specified by ARGV in directory DIR.
13718
e1b33f87545f (run_msdos_command): Support redirection of stderr.
Karl Heuer <kwzh@gnu.org>
parents: 13717
diff changeset
3024 The command is run with input from TEMPIN, output to
e1b33f87545f (run_msdos_command): Support redirection of stderr.
Karl Heuer <kwzh@gnu.org>
parents: 13717
diff changeset
3025 file TEMPOUT and stderr to TEMPERR. */
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
3026
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3027 int
13718
e1b33f87545f (run_msdos_command): Support redirection of stderr.
Karl Heuer <kwzh@gnu.org>
parents: 13717
diff changeset
3028 run_msdos_command (argv, dir, tempin, tempout, temperr)
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3029 unsigned char **argv;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3030 Lisp_Object dir;
13718
e1b33f87545f (run_msdos_command): Support redirection of stderr.
Karl Heuer <kwzh@gnu.org>
parents: 13717
diff changeset
3031 int tempin, tempout, temperr;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3032 {
16310
c987c025d448 (run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents: 16210
diff changeset
3033 char *saveargv1, *saveargv2, **envv, *lowcase_argv0, *pa, *pl;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3034 char oldwd[MAXPATHLEN + 1]; /* Fixed size is safe on MSDOS. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3035 int msshell, result = -1;
16915
8d28d96f6031 (run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents: 16872
diff changeset
3036 int inbak, outbak, errbak;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3037 int x, y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3038 Lisp_Object cmd;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3039
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3040 /* Get current directory as MSDOS cwd is not per-process. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3041 getwd (oldwd);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3042
16310
c987c025d448 (run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents: 16210
diff changeset
3043 /* If argv[0] is the shell, it might come in any lettercase.
c987c025d448 (run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents: 16210
diff changeset
3044 Since `Fmember' is case-sensitive, we need to downcase
c987c025d448 (run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents: 16210
diff changeset
3045 argv[0], even if we are on case-preserving filesystems. */
c987c025d448 (run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents: 16210
diff changeset
3046 lowcase_argv0 = alloca (strlen (argv[0]) + 1);
c987c025d448 (run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents: 16210
diff changeset
3047 for (pa = argv[0], pl = lowcase_argv0; *pa; pl++)
c987c025d448 (run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents: 16210
diff changeset
3048 {
c987c025d448 (run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents: 16210
diff changeset
3049 *pl = *pa++;
c987c025d448 (run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents: 16210
diff changeset
3050 if (*pl >= 'A' && *pl <= 'Z')
c987c025d448 (run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents: 16210
diff changeset
3051 *pl += 'a' - 'A';
c987c025d448 (run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents: 16210
diff changeset
3052 }
c987c025d448 (run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents: 16210
diff changeset
3053 *pl = '\0';
c987c025d448 (run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents: 16210
diff changeset
3054
c987c025d448 (run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents: 16210
diff changeset
3055 cmd = Ffile_name_nondirectory (build_string (lowcase_argv0));
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3056 msshell = !NILP (Fmember (cmd, Fsymbol_value (intern ("msdos-shells"))))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3057 && !strcmp ("-c", argv[1]);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3058 if (msshell)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3059 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3060 saveargv1 = argv[1];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3061 saveargv2 = argv[2];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3062 argv[1] = "/c";
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3063 if (argv[2])
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3064 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3065 char *p = alloca (strlen (argv[2]) + 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3066
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3067 strcpy (argv[2] = p, saveargv2);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3068 while (*p && isspace (*p))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3069 p++;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3070 while (*p && !isspace (*p))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3071 if (*p == '/')
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3072 *p++ = '\\';
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3073 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3074 p++;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3075 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3076 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3077
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3078 /* Build the environment array. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3079 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3080 extern Lisp_Object Vprocess_environment;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3081 Lisp_Object tmp, lst;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3082 int i, len;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3083
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3084 lst = Vprocess_environment;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3085 len = XFASTINT (Flength (lst));
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3086
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3087 envv = alloca ((len + 1) * sizeof (char *));
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3088 for (i = 0; i < len; i++)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3089 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3090 tmp = Fcar (lst);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3091 lst = Fcdr (lst);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3092 CHECK_STRING (tmp, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3093 envv[i] = alloca (XSTRING (tmp)->size + 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3094 strcpy (envv[i], XSTRING (tmp)->data);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3095 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3096 envv[len] = (char *) 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3097 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3098
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3099 if (STRINGP (dir))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3100 chdir (XSTRING (dir)->data);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3101 inbak = dup (0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3102 outbak = dup (1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3103 errbak = dup (2);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3104 if (inbak < 0 || outbak < 0 || errbak < 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3105 goto done; /* Allocation might fail due to lack of descriptors. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3106
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3107 if (have_mouse > 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3108 mouse_get_xy (&x, &y);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3109
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3110 dos_ttcooked (); /* do it here while 0 = stdin */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3111
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3112 dup2 (tempin, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3113 dup2 (tempout, 1);
13718
e1b33f87545f (run_msdos_command): Support redirection of stderr.
Karl Heuer <kwzh@gnu.org>
parents: 13717
diff changeset
3114 dup2 (temperr, 2);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3115
15125
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
3116 #if __DJGPP__ > 1
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
3117
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
3118 if (msshell && !argv[3])
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
3119 {
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
3120 /* MS-DOS native shells are too restrictive. For starters, they
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
3121 cannot grok commands longer than 126 characters. In DJGPP v2
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
3122 and later, `system' is much smarter, so we'll call it instead. */
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
3123
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
3124 extern char **environ;
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
3125 environ = envv;
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
3126
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
3127 /* A shell gets a single argument--its full command
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
3128 line--whose original was saved in `saveargv2'. */
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
3129 result = system (saveargv2);
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
3130 }
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
3131 else
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
3132
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
3133 #endif /* __DJGPP__ > 1 */
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
3134
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3135 result = spawnve (P_WAIT, argv[0], argv, envv);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3136
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3137 dup2 (inbak, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3138 dup2 (outbak, 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3139 dup2 (errbak, 2);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3140 close (inbak);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3141 close (outbak);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3142 close (errbak);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3143
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
3144 dos_ttraw ();
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3145 if (have_mouse > 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3146 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3147 mouse_init ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3148 mouse_moveto (x, y);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3149 }
16837
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
3150
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
3151 /* Some programs might change the meaning of the highest bit of the
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
3152 text attribute byte, so we get blinking characters instead of the
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
3153 bright background colors. Restore that. */
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
3154 bright_bg ();
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3155
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3156 done:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3157 chdir (oldwd);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3158 if (msshell)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3159 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3160 argv[1] = saveargv1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3161 argv[2] = saveargv2;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3162 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3163 return result;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3164 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3165
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3166 croak (badfunc)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3167 char *badfunc;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3168 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3169 fprintf (stderr, "%s not yet implemented\r\n", badfunc);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3170 reset_sys_modes ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3171 exit (1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3172 }
13848
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
3173
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
3174 #if __DJGPP__ < 2
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
3175
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3176 /* ------------------------- Compatibility functions -------------------
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3177 * gethostname
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3178 * gettimeofday
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3179 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3180
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
3181 /* Hostnames for a pc are not really funny,
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
3182 but they are used in change log so we emulate the best we can. */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3183
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3184 gethostname (p, size)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3185 char *p;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3186 int size;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3187 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3188 char *q = egetenv ("HOSTNAME");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3189
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3190 if (!q) q = "pc";
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3191 strcpy (p, q);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3192 return 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3193 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3194
13394
c4549fcdd5f3 (the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents: 13305
diff changeset
3195 /* When time zones are set from Ms-Dos too many C-libraries are playing
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3196 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
3197 of `gettimeofday' bypassing GO32. Our version needs to be initialized
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3198 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
3199 accomplished by aliasing tzset to init_gettimeofday. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3200
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3201 static struct tm time_rec;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3202
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3203 int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3204 gettimeofday (struct timeval *tp, struct timezone *tzp)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3205 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3206 if (tp)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3207 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3208 struct time t;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3209 struct tm tm;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3210
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3211 gettime (&t);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3212 if (t.ti_hour < time_rec.tm_hour) /* midnight wrap */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3213 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3214 struct date d;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3215 getdate (&d);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3216 time_rec.tm_year = d.da_year - 1900;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3217 time_rec.tm_mon = d.da_mon - 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3218 time_rec.tm_mday = d.da_day;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3219 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3220
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3221 time_rec.tm_hour = t.ti_hour;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3222 time_rec.tm_min = t.ti_min;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3223 time_rec.tm_sec = t.ti_sec;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3224
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3225 tm = time_rec;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3226 tm.tm_gmtoff = dos_timezone_offset;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3227
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3228 tp->tv_sec = mktime (&tm); /* may modify tm */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3229 tp->tv_usec = t.ti_hund * (1000000 / 100);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3230 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3231 /* Ignore tzp; it's obsolescent. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3232 return 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3233 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3234
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
3235 #endif /* __DJGPP__ < 2 */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3236
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3237 /*
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3238 * A list of unimplemented functions that we silently ignore.
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3239 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3240
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
3241 #if __DJGPP__ < 2
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3242 unsigned alarm (s) unsigned s; {}
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3243 fork () { return 0; }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3244 int kill (x, y) int x, y; { return -1; }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3245 nice (p) int p; {}
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3246 void volatile pause () {}
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
3247 sigsetmask (x) int x; { return 0; }
16872
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3248 sigblock (mask) int mask; { return 0; }
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
3249 #endif
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
3250
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3251 request_sigio () {}
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3252 setpgrp () {return 0; }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3253 setpriority (x,y,z) int x,y,z; { return 0; }
16872
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3254 unrequest_sigio () {}
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3255
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3256 #if __DJGPP__ > 1
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3257
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3258 #ifdef POSIX_SIGNALS
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3259
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3260 /* Augment DJGPP library POSIX signal functions. This is needed
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3261 as of DJGPP v2.01, but might be in the library in later releases. */
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3262
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3263 #include <libc/bss.h>
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3264
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3265 /* A counter to know when to re-initialize the static sets. */
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3266 static int sigprocmask_count = -1;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3267
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3268 /* Which signals are currently blocked (initially none). */
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3269 static sigset_t current_mask;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3270
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3271 /* Which signals are pending (initially none). */
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3272 static sigset_t pending_signals;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3273
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3274 /* Previous handlers to restore when the blocked signals are unblocked. */
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3275 typedef void (*sighandler_t)(int);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3276 static sighandler_t prev_handlers[320];
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3277
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3278 /* A signal handler which just records that a signal occured
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3279 (it will be raised later, if and when the signal is unblocked). */
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3280 static void
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3281 sig_suspender (signo)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3282 int signo;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3283 {
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3284 sigaddset (&pending_signals, signo);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3285 }
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3286
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3287 int
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3288 sigprocmask (how, new_set, old_set)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3289 int how;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3290 const sigset_t *new_set;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3291 sigset_t *old_set;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3292 {
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3293 int signo;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3294 sigset_t new_mask;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3295
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3296 /* If called for the first time, initialize. */
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3297 if (sigprocmask_count != __bss_count)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3298 {
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3299 sigprocmask_count = __bss_count;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3300 sigemptyset (&pending_signals);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3301 sigemptyset (&current_mask);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3302 for (signo = 0; signo < 320; signo++)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3303 prev_handlers[signo] = SIG_ERR;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3304 }
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3305
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3306 if (old_set)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3307 *old_set = current_mask;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3308
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3309 if (new_set == 0)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3310 return 0;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3311
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3312 if (how != SIG_BLOCK && how != SIG_UNBLOCK && how != SIG_SETMASK)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3313 {
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3314 errno = EINVAL;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3315 return -1;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3316 }
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3317
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3318 sigemptyset (&new_mask);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3319
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3320 /* DJGPP supports upto 320 signals. */
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3321 for (signo = 0; signo < 320; signo++)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3322 {
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3323 if (sigismember (&current_mask, signo))
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3324 sigaddset (&new_mask, signo);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3325 else if (sigismember (new_set, signo) && how != SIG_UNBLOCK)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3326 {
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3327 sigaddset (&new_mask, signo);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3328
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3329 /* SIGKILL is silently ignored, as on other platforms. */
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3330 if (signo != SIGKILL && prev_handlers[signo] == SIG_ERR)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3331 prev_handlers[signo] = signal (signo, sig_suspender);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3332 }
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3333 if (( how == SIG_UNBLOCK
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3334 && sigismember (&new_mask, signo)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3335 && sigismember (new_set, signo))
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3336 || (how == SIG_SETMASK
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3337 && sigismember (&new_mask, signo)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3338 && !sigismember (new_set, signo)))
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3339 {
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3340 sigdelset (&new_mask, signo);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3341 if (prev_handlers[signo] != SIG_ERR)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3342 {
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3343 signal (signo, prev_handlers[signo]);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3344 prev_handlers[signo] = SIG_ERR;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3345 }
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3346 if (sigismember (&pending_signals, signo))
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3347 {
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3348 sigdelset (&pending_signals, signo);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3349 raise (signo);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3350 }
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3351 }
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3352 }
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3353 current_mask = new_mask;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3354 return 0;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3355 }
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3356
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3357 #else /* not POSIX_SIGNALS */
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3358
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3359 sigsetmask (x) int x; { return 0; }
14262
ef10a42c21f4 (sigblock): New (dummy) function.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3360 sigblock (mask) int mask; { return 0; }
16872
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3361
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3362 #endif /* not POSIX_SIGNALS */
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
3363 #endif /* __DJGPP__ > 1 */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3364
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3365 #ifndef HAVE_SELECT
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3366 #include "sysselect.h"
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3367
14279
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
3368 #ifndef EMACS_TIME_ZERO_OR_NEG_P
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
3369 #define EMACS_TIME_ZERO_OR_NEG_P(time) \
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
3370 ((long)(time).tv_sec < 0 \
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
3371 || ((time).tv_sec == 0 \
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
3372 && (long)(time).tv_usec <= 0))
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
3373 #endif
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
3374
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
3375
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3376 /* Only event queue is checked. */
14999
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
3377 /* We don't have to call timer_check here
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
3378 because wait_reading_process_input takes care of that. */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3379 int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3380 sys_select (nfds, rfds, wfds, efds, timeout)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3381 int nfds;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3382 SELECT_TYPE *rfds, *wfds, *efds;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3383 EMACS_TIME *timeout;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3384 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3385 int check_input;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3386 struct time t;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3387
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3388 check_input = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3389 if (rfds)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3390 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3391 check_input = FD_ISSET (0, rfds);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3392 FD_ZERO (rfds);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3393 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3394 if (wfds)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3395 FD_ZERO (wfds);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3396 if (efds)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3397 FD_ZERO (efds);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3398
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3399 if (nfds != 1)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3400 abort ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3401
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3402 /* 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
3403 just read it and wait -- that's more efficient. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3404 if (!timeout)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3405 {
15033
9e174c2b4ba6 (check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents: 14999
diff changeset
3406 while (!detect_input_pending ())
9e174c2b4ba6 (check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents: 14999
diff changeset
3407 {
9e174c2b4ba6 (check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents: 14999
diff changeset
3408 #if __DJGPP__ >= 2
9e174c2b4ba6 (check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents: 14999
diff changeset
3409 __dpmi_yield ();
9e174c2b4ba6 (check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents: 14999
diff changeset
3410 #endif
9e174c2b4ba6 (check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents: 14999
diff changeset
3411 }
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3412 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3413 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3414 {
14279
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
3415 EMACS_TIME clnow, cllast, cldiff;
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
3416
15033
9e174c2b4ba6 (check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents: 14999
diff changeset
3417 gettime (&t);
14279
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
3418 EMACS_SET_SECS_USECS (cllast, t.ti_sec, t.ti_hund * 10000L);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3419
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3420 while (!check_input || !detect_input_pending ())
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3421 {
15033
9e174c2b4ba6 (check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents: 14999
diff changeset
3422 gettime (&t);
14279
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
3423 EMACS_SET_SECS_USECS (clnow, t.ti_sec, t.ti_hund * 10000L);
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
3424 EMACS_SUB_TIME (cldiff, clnow, cllast);
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
3425
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
3426 /* When seconds wrap around, we assume that no more than
15033
9e174c2b4ba6 (check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents: 14999
diff changeset
3427 1 minute passed since last `gettime'. */
14279
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
3428 if (EMACS_TIME_NEG_P (cldiff))
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
3429 EMACS_SET_SECS (cldiff, EMACS_SECS (cldiff) + 60);
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
3430 EMACS_SUB_TIME (*timeout, *timeout, cldiff);
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
3431
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
3432 /* Stop when timeout value crosses zero. */
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
3433 if (EMACS_TIME_ZERO_OR_NEG_P (*timeout))
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3434 return 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3435 cllast = clnow;
15033
9e174c2b4ba6 (check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents: 14999
diff changeset
3436 #if __DJGPP__ >= 2
9e174c2b4ba6 (check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents: 14999
diff changeset
3437 __dpmi_yield ();
9e174c2b4ba6 (check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents: 14999
diff changeset
3438 #endif
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3439 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3440 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3441
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3442 FD_SET (0, rfds);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3443 return 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3444 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3445 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3446
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3447 /*
14036
621a575db6f7 Comment fixes.
Karl Heuer <kwzh@gnu.org>
parents: 13860
diff changeset
3448 * Define overlaid functions:
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3449 *
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3450 * chdir -> sys_chdir
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3451 * tzset -> init_gettimeofday
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3452 * abort -> dos_abort
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3453 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3454
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3455 #ifdef chdir
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3456 #undef chdir
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3457 extern int chdir ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3458
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3459 int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3460 sys_chdir (path)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3461 const char* path;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3462 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3463 int len = strlen (path);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3464 char *tmp = (char *)path;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3465
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3466 if (*tmp && tmp[1] == ':')
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3467 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3468 if (getdisk () != tolower (tmp[0]) - 'a')
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3469 setdisk (tolower (tmp[0]) - 'a');
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3470 tmp += 2; /* strip drive: KFS 1995-07-06 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3471 len -= 2;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3472 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3473
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3474 if (len > 1 && (tmp[len - 1] == '/'))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3475 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3476 char *tmp1 = (char *) alloca (len + 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3477 strcpy (tmp1, tmp);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3478 tmp1[len - 1] = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3479 tmp = tmp1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3480 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3481 return chdir (tmp);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3482 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3483 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3484
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3485 #ifdef tzset
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3486 #undef tzset
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3487 extern void tzset (void);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3488
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3489 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3490 init_gettimeofday ()
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3491 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3492 time_t ltm, gtm;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3493 struct tm *lstm;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3494
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3495 tzset ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3496 ltm = gtm = time (NULL);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3497 ltm = mktime (lstm = localtime (&ltm));
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3498 gtm = mktime (gmtime (&gtm));
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3499 time_rec.tm_hour = 99; /* force gettimeofday to get date */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3500 time_rec.tm_isdst = lstm->tm_isdst;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3501 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
3502 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3503 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3504
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3505 #ifdef abort
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3506 #undef abort
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3507 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3508 dos_abort (file, line)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3509 char *file;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3510 int line;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3511 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3512 char buffer1[200], buffer2[400];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3513 int i, j;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3514
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3515 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
3516 for (i = j = 0; buffer1[i]; i++) {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3517 buffer2[j++] = buffer1[i];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3518 buffer2[j++] = 0x70;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3519 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3520 dosmemput (buffer2, j, (int)ScreenPrimary);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3521 ScreenSetCursor (2, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3522 abort ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3523 }
13744
120c884de8a2 (check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents: 13718
diff changeset
3524 #else
120c884de8a2 (check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents: 13718
diff changeset
3525 void
120c884de8a2 (check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents: 13718
diff changeset
3526 abort ()
120c884de8a2 (check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents: 13718
diff changeset
3527 {
120c884de8a2 (check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents: 13718
diff changeset
3528 dos_ttcooked ();
120c884de8a2 (check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents: 13718
diff changeset
3529 ScreenSetCursor (10, 0);
120c884de8a2 (check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents: 13718
diff changeset
3530 cputs ("\r\n\nEmacs aborted!\r\n");
14999
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
3531 #if __DJGPP__ > 1
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
3532 #if __DJGPP__ == 2 && __DJGPP_MINOR__ < 2
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
3533 if (screen_virtual_segment)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
3534 dosv_refresh_virtual_screen (2 * 10 * screen_size_X, 4 * screen_size_X);
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
3535 #endif /* __DJGPP_MINOR__ < 2 */
14999
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
3536 /* Generate traceback, so we could tell whodunit. */
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
3537 signal (SIGINT, SIG_DFL);
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
3538 __asm__ __volatile__ ("movb $0x1b,%al;call ___djgpp_hw_exception");
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
3539 #endif
13744
120c884de8a2 (check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents: 13718
diff changeset
3540 exit (2);
120c884de8a2 (check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents: 13718
diff changeset
3541 }
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3542 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3543
19334
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
3544 /* The following two are required so that customization feature
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
3545 won't complain about unbound variables. */
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
3546 #ifndef HAVE_X_WINDOWS
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
3547 /* Search path for bitmap files (xfns.c). */
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
3548 Lisp_Object Vx_bitmap_file_path;
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
3549 #endif
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
3550 #ifndef subprocesses
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
3551 /* Nonzero means delete a process right away if it exits (process.c). */
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
3552 static int delete_exited_processes;
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
3553 #endif
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
3554
13305
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3555 syms_of_msdos ()
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3556 {
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3557 recent_doskeys = Fmake_vector (make_number (NUM_RECENT_DOSKEYS), Qnil);
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3558 staticpro (&recent_doskeys);
19334
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
3559 #ifndef HAVE_X_WINDOWS
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
3560 DEFVAR_LISP ("x-bitmap-file-path", &Vx_bitmap_file_path,
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
3561 "List of directories to search for bitmap files for X.");
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
3562 Vx_bitmap_file_path = decode_env_path ((char *) 0, ".");
19864
44dcf37ec345 (syms_of_msdos): Intern background-color and
Richard M. Stallman <rms@gnu.org>
parents: 19603
diff changeset
3563
44dcf37ec345 (syms_of_msdos): Intern background-color and
Richard M. Stallman <rms@gnu.org>
parents: 19603
diff changeset
3564 /* The following two are from xfns.c: */
44dcf37ec345 (syms_of_msdos): Intern background-color and
Richard M. Stallman <rms@gnu.org>
parents: 19603
diff changeset
3565 Qbackground_color = intern ("background-color");
44dcf37ec345 (syms_of_msdos): Intern background-color and
Richard M. Stallman <rms@gnu.org>
parents: 19603
diff changeset
3566 staticpro (&Qbackground_color);
44dcf37ec345 (syms_of_msdos): Intern background-color and
Richard M. Stallman <rms@gnu.org>
parents: 19603
diff changeset
3567 Qforeground_color = intern ("foreground-color");
44dcf37ec345 (syms_of_msdos): Intern background-color and
Richard M. Stallman <rms@gnu.org>
parents: 19603
diff changeset
3568 staticpro (&Qforeground_color);
19334
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
3569 #endif
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
3570 #ifndef subprocesses
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
3571 DEFVAR_BOOL ("delete-exited-processes", &delete_exited_processes,
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
3572 "*Non-nil means delete processes immediately when they exit.\n\
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
3573 nil means don't delete them until `list-processes' is run.");
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
3574 delete_exited_processes = 0;
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
3575 #endif
13305
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3576
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3577 defsubr (&Srecent_doskeys);
15186
242bddc25e5a (syms_of_msdos): Fix typo.
Richard M. Stallman <rms@gnu.org>
parents: 15174
diff changeset
3578 defsubr (&Smsdos_long_file_names);
15219
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
3579 defsubr (&Smsdos_downcase_filename);
13305
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3580 }
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3581
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3582 #endif /* MSDOS */