annotate src/msdos.c @ 10597:b357342180c2

(indent-new-comment-line): Obey the convention about \(...\) pairs in comment-start-skip.
author Richard M. Stallman <rms@gnu.org>
date Mon, 30 Jan 1995 07:46:16 +0000
parents 8a1bd0598b49
children 020042ee37cd
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
7666
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
1 /* MS-DOS specific C utilities.
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
2 Copyright (C) 1993, 1994 Free Software Foundation, Inc.
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4 This file is part of GNU Emacs.
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6 GNU Emacs is free software; you can redistribute it and/or modify
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7 it under the terms of the GNU General Public License as published by
10504
8a1bd0598b49 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 10501
diff changeset
8 the Free Software Foundation; either version 2, or (at your option)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9 any later version.
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 GNU General Public License for more details.
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 along with GNU Emacs; see the file COPYING. If not, write to
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19
7666
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
20 /* Contributed by Morten Welinder */
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
21
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 /* 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
23
5980
a203b7c30300 Use <...> for config.h.
Richard M. Stallman <rms@gnu.org>
parents: 5503
diff changeset
24 #include <config.h>
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 #ifdef MSDOS
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 #include "lisp.h"
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 #include <stdio.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 #include <stdlib.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 #include <sys/param.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 #include <sys/time.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32 #include <dos.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 #include "dosfns.h"
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 #include "msdos.h"
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 #include "systime.h"
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 #include "termhooks.h"
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
37 #include "dispextern.h"
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
38 #include "termopts.h"
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 #include "frame.h"
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
40 #include "window.h"
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 #include <go32.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 #include <pc.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 #include <ctype.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44 /* #include <process.h> */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 /* Damn that local process.h! Instead we can define P_WAIT ourselves. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 #define P_WAIT 1
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48 static int break_stat; /* BREAK check mode status. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 static int stdin_stat; /* stdin IOCTL status. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 static int extended_kbd; /* 101 (102) keyboard present. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52 int have_mouse; /* Mouse present? */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53 static int mouse_last_x;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54 static int mouse_last_y;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56 /* Turn off Dos' Ctrl-C checking and inhibit interpretation of control chars
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57 by Dos. Determine the keyboard type. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58 int
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
59 dos_ttraw ()
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 union REGS inregs, outregs;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63 inregs.h.ah = 0xc0;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64 int86 (0x15, &inregs, &outregs);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65 extended_kbd = (!outregs.x.cflag) && (outregs.h.ah == 0);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67 break_stat = getcbrk ();
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 setcbrk (0);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69 install_ctrl_break_check ();
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
70 have_mouse = mouse_init1 ();
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72 inregs.x.ax = 0x4400; /* Get IOCTL status. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73 inregs.x.bx = 0x00; /* 0 = stdin. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74 intdos (&inregs, &outregs);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75 stdin_stat = outregs.h.dl;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77 inregs.x.dx = (outregs.x.dx | 0x0020) & 0x0027; /* raw mode */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78 inregs.h.al = 0x01;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79 intdos (&inregs, &outregs);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
80 return !outregs.x.cflag;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
82
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
83 /* Restore status of standard input and Ctrl-C checking. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
84 int
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85 dos_ttcooked ()
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87 union REGS inregs, outregs;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
88
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
89 setcbrk (break_stat);
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
90 if (have_mouse) mouse_off ();
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
91
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92 inregs.x.ax = 0x4401; /* Set IOCTL status. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93 inregs.x.bx = 0x00; /* 0 = stdin. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94 inregs.x.dx = stdin_stat;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95 intdos (&inregs, &outregs);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
96 return !outregs.x.cflag;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
98
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99 static unsigned short
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100 ibmpc_translate_map[] =
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
101 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
102 /* --------------- 00 to 0f --------------- */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
103 0, /* Ctrl Break */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
104 0xff1b, /* Escape */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
105 0xffb1, /* Keypad 1 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
106 0xffb2, /* Keypad 2 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
107 0xffb3, /* Keypad 3 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
108 0xffb4, /* Keypad 4 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109 0xffb5, /* Keypad 5 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110 0xffb6, /* Keypad 6 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
111 0xffb7, /* Keypad 7 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
112 0xffb8, /* Keypad 8 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113 0xffb9, /* Keypad 9 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
114 0xffb0, /* Keypad 0 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
115 '-', '=',
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
116 0xff08, /* Backspace */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
117 0xff74, /* (Shift) Tab [Tab doesn't use this table] */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
118
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119 /* --------------- 10 to 1f --------------- */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
120 'q', 'w', 'e', 'r', 't', 'y', 'u', 'i', 'o', 'p', '[', ']',
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
121 0xff8d, /* Keypad Enter */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
122 0, /* Ctrl */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
123 'a', 's',
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
124
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
125 /* --------------- 20 to 2f --------------- */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
126 'd', 'f', 'g', 'h', 'j', 'k', 'l', ';', '\'', '`',
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127 0, /* Left shift */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128 '\\', 'z', 'x', 'c', 'v',
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
130 /* --------------- 30 to 3f --------------- */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
131 'b', 'n', 'm', ',', '.',
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
132 0xffaf, /* Grey / */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
133 0, /* Right shift */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
134 0xffaa, /* Grey * */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
135 0, /* Alt */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
136 ' ',
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
137 0, /* Caps Lock */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
138 0xffbe, /* F1 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139 0xffbf, /* F2 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
140 0xffc0, /* F3 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
141 0xffc1, /* F4 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142 0xffc2, /* F5 */
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 /* --------------- 40 to 4f --------------- */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
145 0xffc3, /* F6 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146 0xffc4, /* F7 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147 0xffc5, /* F8 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 0xffc6, /* F9 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
149 0xffc7, /* F10 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
150 0, /* Num Lock */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
151 0, /* Scroll Lock */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
152 0xff50, /* Home */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
153 0xff52, /* Up */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
154 0xff55, /* Page Up */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
155 0xffad, /* Grey - */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
156 0xff51, /* Left */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
157 0xffb5, /* Keypad 5 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
158 0xff53, /* Right */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
159 0xffab, /* Grey + */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
160 0xff57, /* End */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
161
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
162 /* --------------- 50 to 5f --------------- */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
163 0xff54, /* Down */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
164 0xff56, /* Page Down */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
165 0xff63, /* Insert */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
166 0xffff, /* Delete */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
167 0xffbe, /* (Shift) F1 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
168 0xffbf, /* (Shift) F2 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
169 0xffc0, /* (Shift) F3 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
170 0xffc1, /* (Shift) F4 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
171 0xffc2, /* (Shift) F5 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
172 0xffc3, /* (Shift) F6 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
173 0xffc4, /* (Shift) F7 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
174 0xffc5, /* (Shift) F8 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
175 0xffc6, /* (Shift) F9 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
176 0xffc7, /* (Shift) F10 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
177 0xffbe, /* (Ctrl) F1 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
178 0xffbf, /* (Ctrl) F2 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
179
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
180 /* --------------- 60 to 6f --------------- */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
181 0xffc0, /* (Ctrl) F3 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
182 0xffc1, /* (Ctrl) F4 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
183 0xffc2, /* (Ctrl) F5 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
184 0xffc3, /* (Ctrl) F6 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
185 0xffc4, /* (Ctrl) F7 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
186 0xffc5, /* (Ctrl) F8 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
187 0xffc6, /* (Ctrl) F9 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
188 0xffc7, /* (Ctrl) F10 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
189 0xffbe, /* (Alt) F1 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
190 0xffbf, /* (Alt) F2 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
191 0xffc0, /* (Alt) F3 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
192 0xffc1, /* (Alt) F4 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
193 0xffc2, /* (Alt) F5 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
194 0xffc3, /* (Alt) F6 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
195 0xffc4, /* (Alt) F7 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
196 0xffc5, /* (Alt) F8 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
197
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
198 /* --------------- 70 to 7f --------------- */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
199 0xffc6, /* (Alt) F9 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
200 0xffc7, /* (Alt) F10 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
201 0xff6d, /* (Ctrl) Sys Rq */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
202 0xff51, /* (Ctrl) Left */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
203 0xff53, /* (Ctrl) Right */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
204 0xff57, /* (Ctrl) End */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
205 0xff56, /* (Ctrl) Page Down */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
206 0xff50, /* (Ctrl) Home */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
207 '1', '2', '3', '4', '5', '6', '7', '8', /* (Alt) */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
208
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
209 /* --------------- 80 to 8f --------------- */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
210 '9', '0', '-', '=', /* (Alt) */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
211 0xff55, /* (Ctrl) Page Up */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
212 0xffc8, /* F11 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
213 0xffc9, /* F12 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
214 0xffc8, /* (Shift) F11 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
215 0xffc9, /* (Shift) F12 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
216 0xffc8, /* (Ctrl) F11 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
217 0xffc9, /* (Ctrl) F12 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
218 0xffc8, /* (Alt) F11 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
219 0xffc9, /* (Alt) F12 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
220 0xff52, /* (Ctrl) Up */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
221 0xffae, /* (Ctrl) Grey - */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
222 0xffb5, /* (Ctrl) Keypad 5 */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
223
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
224 /* --------------- 90 to 9f --------------- */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
225 0xffab, /* (Ctrl) Grey + */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
226 0xff54, /* (Ctrl) Down */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
227 0xff63, /* (Ctrl) Insert */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
228 0xffff, /* (Ctrl) Delete */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
229 0xff09, /* (Ctrl) Tab */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
230 0xffaf, /* (Ctrl) Grey / */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
231 0xffaa, /* (Ctrl) Grey * */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
232 0xff50, /* (Alt) Home */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
233 0xff52, /* (Alt) Up */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
234 0xff55, /* (Alt) Page Up */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
235 0, /* NO KEY */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
236 0xff51, /* (Alt) Left */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
237 0, /* NO KEY */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
238 0xff53, /* (Alt) Right */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
239 0, /* NO KEY */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
240 0xff57, /* (Alt) End */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
241
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
242 /* --------------- a0 to af --------------- */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
243 0xff54, /* (Alt) Down */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
244 0xff56, /* (Alt) Page Down */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
245 0xff63, /* (Alt) Insert */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
246 0xffff, /* (Alt) Delete */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
247 0xffaf, /* (Alt) Grey / */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
248 0xff09, /* (Alt) Tab */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
249 0xff0d /* (Alt) Enter */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
250 };
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
251
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
252 /* Get a char from keyboard. Function keys are put into the event queue. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
253 static int
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
254 dos_rawgetc ()
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
255 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
256 struct input_event event;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
257 struct timeval tv;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
258 union REGS regs;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
259 int ctrl_p, alt_p, shift_p;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
260
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
261 /* Calculate modifier bits */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
262 regs.h.ah = extended_kbd ? 0x12 : 0x02;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
263 int86 (0x16, &regs, &regs);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
264 ctrl_p = ((regs.h.al & 4) != 0);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
265 shift_p = ((regs.h.al & 3) != 0);
7666
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
266 /* Please be very careful here not to break international keyboard support.
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
267 When Keyb.Com is loaded, the key marked `Alt Gr' is used for accessing
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
268 characters like { and } if their positions are overlaid. */
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
269 alt_p = ((extended_kbd ? (regs.h.ah & 2) : (regs.h.al & 8)) != 0);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
270
8194
b11f71df59d9 (dos_rawgetc): Use bios, not kbhit ().
Richard M. Stallman <rms@gnu.org>
parents: 8183
diff changeset
271 /* The following condition is equivalent to `kbhit ()', except that
b11f71df59d9 (dos_rawgetc): Use bios, not kbhit ().
Richard M. Stallman <rms@gnu.org>
parents: 8183
diff changeset
272 it uses the bios to do its job. This pleases DESQview/X. */
b11f71df59d9 (dos_rawgetc): Use bios, not kbhit ().
Richard M. Stallman <rms@gnu.org>
parents: 8183
diff changeset
273 while ((regs.h.ah = extended_kbd ? 0x11 : 0x01),
b11f71df59d9 (dos_rawgetc): Use bios, not kbhit ().
Richard M. Stallman <rms@gnu.org>
parents: 8183
diff changeset
274 int86 (0x16, &regs, &regs),
b11f71df59d9 (dos_rawgetc): Use bios, not kbhit ().
Richard M. Stallman <rms@gnu.org>
parents: 8183
diff changeset
275 (regs.x.flags & 0x40) == 0)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
276 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
277 union REGS regs;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
278 register unsigned char c;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
279 int sc, code;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
280
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
281 regs.h.ah = extended_kbd ? 0x10 : 0x00;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
282 int86 (0x16, &regs, &regs);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
283 c = regs.h.al;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
284 sc = regs.h.ah;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
285
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
286 /* Determine from the scan code if a keypad key was pressed. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
287 if (c >= '0' && c <= '9' && sc > 0xb)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
288 sc = (c == '0') ? 0xb : (c - '0' + 1), c = 0;
7666
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
289 else if (sc == 0x53 && c != 0xe0)
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
290 {
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
291 code = 0xffae; /* Keypad decimal point/comma. */
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
292 goto nonascii;
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
293 }
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
294 else if (sc == 0xe0)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
295 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
296 switch (c)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
297 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
298 case 10: /* Ctrl Enter */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
299 case 13:
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
300 sc = 0x1c;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
301 break;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
302 case '/':
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
303 sc = 0x35;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
304 break;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
305 default:
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
306 sc = 0;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
307 };
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
308 c = 0;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
309 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
310
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
311 if (c == 0
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
312 || c == ' '
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
313 || alt_p
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
314 || (ctrl_p && shift_p)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
315 || (c == 0xe0 && sc != 0) /* Pseudo-key */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
316 || sc == 0x37 /* Grey * */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
317 || sc == 0x4a /* Grey - */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
318 || sc == 0x4e /* Grey + */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
319 || sc == 0x0e) /* Back space *key*, not Ctrl-h */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
320 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
321 if (sc >= (sizeof (ibmpc_translate_map) / sizeof (short)))
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
322 code = 0;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
323 else
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
324 code = ibmpc_translate_map[sc];
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
325 if (code != 0)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
326 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
327 if (code >= 0x100)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
328 {
7666
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
329 nonascii:
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
330 event.kind = non_ascii_keystroke;
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
331 event.code = (code & 0xff) + 0xff00;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
332 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
333 else
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
334 {
7666
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
335 /* Don't return S- if we don't have to. `shifted' is
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
336 supposed to be the shifted versions of the characters
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
337 in `unshifted'. Unfortunately, this is only true for
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
338 US keyboard layout. If anyone knows how to do this
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
339 right, please tell us. */
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
340 static char *unshifted
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
341 = "abcdefghijklmnopqrstuvwxyz,./=;[\\]'-`0123456789";
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
342 static char *shifted
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
343 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ<>?+:{|}\"_~)!@#$%^&*(";
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
344 char *pos;
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
345
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
346 if (shift_p && (pos = strchr (unshifted, code)))
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
347 {
7666
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
348 c = shifted[pos - unshifted];
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
349 shift_p = 0;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
350 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
351 else
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
352 if (c == 0) c = code;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
353 event.kind = ascii_keystroke;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
354 event.code = c;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
355 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
356 event.modifiers
7666
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
357 = (shift_p ? shift_modifier : 0)
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
358 + (ctrl_p ? ctrl_modifier : 0)
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
359 + (alt_p ? meta_modifier : 0);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
360 /* EMACS == Enter Meta Alt Control Shift */
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
361 XSETFRAME (event.frame_or_window, selected_frame);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
362 gettimeofday (&tv, NULL);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
363 event.timestamp = tv.tv_usec;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
364 kbd_buffer_store_event (&event);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
365 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
366 } else
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
367 return c;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
368 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
369
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
370 if (have_mouse)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
371 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
372 int but, press, x, y, ok;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
373
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
374 /* Check for mouse movement *before* buttons. */
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
375 mouse_check_moved ();
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
376
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
377 for (but = 0; but < NUM_MOUSE_BUTTONS; but++)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
378 for (press = 0; press < 2; press++)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
379 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
380 if (press)
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
381 ok = mouse_pressed (but, &x, &y);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
382 else
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
383 ok = mouse_released (but, &x, &y);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
384 if (ok)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
385 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
386 event.kind = mouse_click;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
387 event.code = but;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
388 event.modifiers
7666
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
389 = (shift_p ? shift_modifier : 0)
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
390 + (ctrl_p ? ctrl_modifier : 0)
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
391 + (alt_p ? meta_modifier : 0)
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
392 + (press ? down_modifier : up_modifier);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
393 event.x = x;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
394 event.y = y;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
395 XSETFRAME (event.frame_or_window, selected_frame);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
396 gettimeofday (&tv, NULL);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
397 event.timestamp = tv.tv_usec;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
398 kbd_buffer_store_event (&event);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
399 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
400 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
401 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
402
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
403 return -1;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
404 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
405
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
406 static int prev_get_char = -1;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
407
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
408 /* Return 1 if a key is ready to be read without suspending execution. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
409 dos_keysns ()
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
410 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
411 if (prev_get_char != -1)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
412 return 1;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
413 else
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
414 return ((prev_get_char = dos_rawgetc ()) != -1);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
415 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
416
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
417 /* Read a key. Return -1 if no key is ready. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
418 dos_keyread ()
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
419 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
420 if (prev_get_char != -1)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
421 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
422 int c = prev_get_char;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
423 prev_get_char = -1;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
424 return c;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
425 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
426 else
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
427 return dos_rawgetc ();
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
428 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
429
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
430 /* Hostnames for a pc are not really funny, but they are used in change log
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
431 so we emulate the best we can. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
432 gethostname (p, size)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
433 char *p;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
434 int size;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
435 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
436 char *q = egetenv ("HOSTNAME");
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
437
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
438 if (!q) q = "pc";
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
439 strcpy (p, q);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
440 return 0;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
441 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
442
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
443 /* Destructively turn backslashes into slashes. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
444 void
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
445 dostounix_filename (p)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
446 register char *p;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
447 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
448 while (*p)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
449 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
450 if (*p == '\\')
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
451 *p = '/';
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
452 p++;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
453 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
454 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
455
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
456 /* Destructively turn slashes into backslashes. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
457 void
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
458 unixtodos_filename (p)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
459 register char *p;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
460 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
461 while (*p)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
462 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
463 if (*p == '/')
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
464 *p = '\\';
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
465 p++;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
466 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
467 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
468
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
469 /* Get the default directory for a given drive. 0=def, 1=A, 2=B, ... */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
470 int
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
471 getdefdir (drive, dst)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
472 int drive;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
473 char *dst;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
474 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
475 union REGS regs;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
476
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
477 *dst++ = '/';
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
478 regs.h.dl = drive;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
479 regs.x.si = (int) dst;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
480 regs.h.ah = 0x47;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
481 intdos (&regs, &regs);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
482 return !regs.x.cflag;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
483 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
484
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
485 /* Remove all CR's that are followed by a LF. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
486 int
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
487 crlf_to_lf (n, buf)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
488 register int n;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
489 register unsigned char *buf;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
490 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
491 unsigned char *np = buf;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
492 unsigned char *startp = buf;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
493 unsigned char *endp = buf + n;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
494 unsigned char c;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
495
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
496 if (n == 0)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
497 return n;
7507
b393834bab2a (crlf_to_lf): Fix off-by-one condition.
Richard M. Stallman <rms@gnu.org>
parents: 7273
diff changeset
498 while (buf < endp - 1)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
499 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
500 if (*buf == 0x0d)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
501 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
502 if (*(++buf) != 0x0a)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
503 *np++ = 0x0d;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
504 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
505 else
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
506 *np++ = *buf++;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
507 }
7507
b393834bab2a (crlf_to_lf): Fix off-by-one condition.
Richard M. Stallman <rms@gnu.org>
parents: 7273
diff changeset
508 if (buf < endp)
b393834bab2a (crlf_to_lf): Fix off-by-one condition.
Richard M. Stallman <rms@gnu.org>
parents: 7273
diff changeset
509 *np++ = *buf++;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
510 return np - startp;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
511 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
512
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
513
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
514 /* Run command as specified by ARGV in directory DIR.
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
515 The command is run with input from TEMPIN and output to file TEMPOUT. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
516 int
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
517 run_msdos_command (argv, dir, tempin, tempout)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
518 unsigned char **argv;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
519 Lisp_Object dir;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
520 int tempin, tempout;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
521 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
522 char *saveargv1, *saveargv2, **envv;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
523 char oldwd[MAXPATHLEN + 1]; /* Fixed size is safe on MSDOS. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
524 int msshell, result = -1;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
525 int in, out, inbak, outbak, errbak;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
526 Lisp_Object cmd;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
527
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
528 /* Get current directory as MSDOS cwd is not per-process. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
529 getwd (oldwd);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
530
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
531 cmd = Ffile_name_nondirectory (build_string (argv[0]));
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
532 msshell = !NILP (Fmember (cmd, Fsymbol_value (intern ("msdos-shells"))))
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
533 && !strcmp ("-c", argv[1]);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
534 if (msshell)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
535 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
536 saveargv1 = argv[1];
7774
f9cde3320987 (run_msdos_command): Make local copy of argv[2] on stack, not on heap.
Karl Heuer <kwzh@gnu.org>
parents: 7744
diff changeset
537 saveargv2 = argv[2];
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
538 argv[1] = "/c";
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
539 if (argv[2])
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
540 {
7774
f9cde3320987 (run_msdos_command): Make local copy of argv[2] on stack, not on heap.
Karl Heuer <kwzh@gnu.org>
parents: 7744
diff changeset
541 char *p = alloca (strlen (argv[2]) + 1);
f9cde3320987 (run_msdos_command): Make local copy of argv[2] on stack, not on heap.
Karl Heuer <kwzh@gnu.org>
parents: 7744
diff changeset
542
f9cde3320987 (run_msdos_command): Make local copy of argv[2] on stack, not on heap.
Karl Heuer <kwzh@gnu.org>
parents: 7744
diff changeset
543 strcpy (argv[2] = p, saveargv2);
f9cde3320987 (run_msdos_command): Make local copy of argv[2] on stack, not on heap.
Karl Heuer <kwzh@gnu.org>
parents: 7744
diff changeset
544 while (*p && isspace (*p))
f9cde3320987 (run_msdos_command): Make local copy of argv[2] on stack, not on heap.
Karl Heuer <kwzh@gnu.org>
parents: 7744
diff changeset
545 p++;
f9cde3320987 (run_msdos_command): Make local copy of argv[2] on stack, not on heap.
Karl Heuer <kwzh@gnu.org>
parents: 7744
diff changeset
546 while (*p && !isspace (*p))
f9cde3320987 (run_msdos_command): Make local copy of argv[2] on stack, not on heap.
Karl Heuer <kwzh@gnu.org>
parents: 7744
diff changeset
547 if (*p == '/')
f9cde3320987 (run_msdos_command): Make local copy of argv[2] on stack, not on heap.
Karl Heuer <kwzh@gnu.org>
parents: 7744
diff changeset
548 *p++ = '\\';
f9cde3320987 (run_msdos_command): Make local copy of argv[2] on stack, not on heap.
Karl Heuer <kwzh@gnu.org>
parents: 7744
diff changeset
549 else
f9cde3320987 (run_msdos_command): Make local copy of argv[2] on stack, not on heap.
Karl Heuer <kwzh@gnu.org>
parents: 7744
diff changeset
550 p++;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
551 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
552 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
553
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
554 /* Build the environment array. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
555 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
556 extern Lisp_Object Vprocess_environment;
6505
ce4fbb055f87 (run_msdos_command): Use assignment instead of initialization.
Karl Heuer <kwzh@gnu.org>
parents: 6056
diff changeset
557 Lisp_Object tmp, lst;
ce4fbb055f87 (run_msdos_command): Use assignment instead of initialization.
Karl Heuer <kwzh@gnu.org>
parents: 6056
diff changeset
558 int i, len;
ce4fbb055f87 (run_msdos_command): Use assignment instead of initialization.
Karl Heuer <kwzh@gnu.org>
parents: 6056
diff changeset
559
ce4fbb055f87 (run_msdos_command): Use assignment instead of initialization.
Karl Heuer <kwzh@gnu.org>
parents: 6056
diff changeset
560 lst = Vprocess_environment;
ce4fbb055f87 (run_msdos_command): Use assignment instead of initialization.
Karl Heuer <kwzh@gnu.org>
parents: 6056
diff changeset
561 len = XFASTINT (Flength (lst));
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
562
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
563 envv = alloca ((len + 1) * sizeof (char *));
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
564 for (i = 0; i < len; i++)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
565 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
566 tmp = Fcar (lst);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
567 lst = Fcdr (lst);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
568 CHECK_STRING (tmp, 0);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
569 envv[i] = alloca (XSTRING (tmp)->size + 1);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
570 strcpy (envv[i], XSTRING (tmp)->data);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
571 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
572 envv[len] = (char *) 0;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
573 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
574
9118
3c4437496ebc (run_msdos_command): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 8246
diff changeset
575 if (STRINGP (dir))
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
576 chdir (XSTRING (dir)->data);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
577 inbak = dup (0);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
578 outbak = dup (1);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
579 errbak = dup (2);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
580 if (inbak < 0 || outbak < 0 || errbak < 0)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
581 goto done; /* Allocation might fail due to lack of descriptors. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
582 dup2 (tempin, 0);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
583 dup2 (tempout, 1);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
584 dup2 (tempout, 2);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
585 dos_ttcooked ();
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
586 result = spawnve (P_WAIT, argv[0], argv, envv);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
587 dos_ttraw ();
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
588 dup2 (inbak, 0);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
589 dup2 (outbak, 1);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
590 dup2 (errbak, 2);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
591
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
592 done:
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
593 chdir (oldwd);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
594 if (msshell)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
595 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
596 argv[1] = saveargv1;
7774
f9cde3320987 (run_msdos_command): Make local copy of argv[2] on stack, not on heap.
Karl Heuer <kwzh@gnu.org>
parents: 7744
diff changeset
597 argv[2] = saveargv2;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
598 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
599 return result;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
600 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
601
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
602
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
603 croak (badfunc)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
604 char *badfunc;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
605 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
606 fprintf (stderr, "%s not yet implemented\r\n", badfunc);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
607 reset_sys_modes ();
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
608 exit (1);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
609 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
610
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
611 /* A list of unimplemented functions that we silently ignore. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
612 unsigned alarm (s) unsigned s; {}
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
613 fork () { return 0; }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
614 int kill (x, y) int x, y; { return -1; }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
615 nice (p) int p; {}
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
616 void volatile pause () {}
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
617 request_sigio () {}
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
618 setpgrp () {return 0; }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
619 setpriority (x,y,z) int x,y,z; { return 0; }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
620 sigsetmask (x) int x; { return 0; }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
621 unrequest_sigio () {}
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
622
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
623 #ifdef chdir
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
624 #undef chdir
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
625 #endif
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
626
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
627 int
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
628 sys_chdir (path)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
629 const char* path;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
630 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
631 int len = strlen (path);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
632 char *tmp = (char *) alloca (len + 1);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
633 /* Gotta do this extern here due to the corresponding #define: */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
634 extern int chdir ();
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
635
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
636 if (*path && path[1] == ':' && (getdisk () != tolower (path[0]) - 'a'))
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
637 setdisk (tolower (path[0]) - 'a');
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
638
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
639 strcpy (tmp, path);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
640 if (strcmp (path, "/") && strcmp (path + 1, ":/") && (path[len - 1] == '/'))
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
641 tmp[len - 1] = 0;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
642 return chdir (tmp);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
643 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
644
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
645 /* Sleep SECS. If KBDOK also return immediately if a key is pressed. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
646 void
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
647 sleep_or_kbd_hit (secs, kbdok)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
648 int secs, kbdok;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
649 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
650 long clnow, clthen;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
651 struct timeval t;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
652
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
653 gettimeofday (&t, NULL);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
654 clnow = t.tv_sec * 100 + t.tv_usec / 10000;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
655 clthen = clnow + (100 * secs);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
656
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
657 do
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
658 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
659 gettimeofday (&t, NULL);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
660 clnow = t.tv_sec * 100 + t.tv_usec / 10000;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
661 if (kbdok && detect_input_pending ())
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
662 return;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
663 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
664 while (clnow < clthen);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
665 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
666
7821
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
667 /* The Emacs root directory as determined by init_environment. */
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
668 static char emacsroot[MAXPATHLEN];
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
669
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
670 char *
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
671 rootrelativepath (rel)
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
672 char *rel;
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
673 {
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
674 static char result[MAXPATHLEN + 10];
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
675
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
676 strcpy (result, emacsroot);
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
677 strcat (result, "/");
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
678 strcat (result, rel);
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
679 return result;
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
680 }
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
681
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
682 /* Define a lot of environment variables if not already defined. Don't
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
683 remove anything unless you know what you're doing -- lots of code will
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
684 break if one or more of these are missing. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
685 void
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
686 init_environment (argc, argv, skip_args)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
687 int argc;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
688 char **argv;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
689 int skip_args;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
690 {
7821
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
691 char *s, *t, *root;
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
692 int len;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
693
7821
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
694 /* Find our root from argv[0]. Assuming argv[0] is, say,
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
695 "c:/emacs/bin/emacs.exe" our root will be "c:/emacs". */
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
696 _fixpath (argv[0], root = alloca (MAXPATHLEN + 20));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
697 strlwr (root);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
698 len = strlen (root);
7821
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
699 while (len > 0 && root[len] != '/' && root[len] != ':')
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
700 len--;
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
701 root[len] = '\0';
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
702 if (len > 4 && strcmp (root + len - 4, "/bin") == 0)
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
703 root[len - 4] = '\0';
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
704 else
7821
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
705 strcpy (root, "c:/emacs"); /* Only under debuggers, I think. */
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
706 len = strlen (root);
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
707 strcpy (emacsroot, root);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
708
7821
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
709 /* We default HOME to our root. */
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
710 setenv ("HOME", root, 0);
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
711
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
712 /* We default EMACSPATH to root + "/bin". */
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
713 strcpy (root + len, "/bin");
f96225d8c3eb (init_environment): Clean up code and make the default
Richard M. Stallman <rms@gnu.org>
parents: 7774
diff changeset
714 setenv ("EMACSPATH", root, 0);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
715
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
716 /* I don't expect anybody to ever use other terminals so the internal
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
717 terminal is the default. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
718 setenv ("TERM", "internal", 0);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
719
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
720 #ifdef HAVE_X_WINDOWS
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
721 /* Emacs expects DISPLAY to be set. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
722 setenv ("DISPLAY", "unix:0.0", 0);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
723 #endif
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
724
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
725 /* SHELL is a bit tricky -- COMSPEC is the closest we come, but we must
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
726 downcase it and mirror the backslashes. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
727 s = getenv ("COMSPEC");
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
728 if (!s) s = "c:/command.com";
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
729 t = alloca (strlen (s) + 1);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
730 strcpy (t, s);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
731 strlwr (t);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
732 dostounix_filename (t);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
733 setenv ("SHELL", t, 0);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
734
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
735 /* PATH is also downcased and backslashes mirrored. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
736 s = getenv ("PATH");
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
737 if (!s) s = "";
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
738 t = alloca (strlen (s) + 3);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
739 /* Current directory is always considered part of MsDos's path but it is
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
740 not normally mentioned. Now it is. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
741 strcat (strcpy (t, ".;"), s);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
742 strlwr (t);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
743 dostounix_filename (t); /* Not a single file name, but this should work. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
744 setenv ("PATH", t, 1);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
745
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
746 /* In some sense all dos users have root privileges, so... */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
747 setenv ("USER", "root", 0);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
748 setenv ("NAME", getenv ("USER"), 0);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
749
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
750 /* Time zone determined from country code. To make this possible, the
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
751 country code may not span more than one time zone. In other words,
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
752 in the USA, you lose. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
753 switch (dos_country_code)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
754 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
755 case 31: /* Belgium */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
756 case 32: /* The Netherlands */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
757 case 33: /* France */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
758 case 34: /* Spain */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
759 case 36: /* Hungary */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
760 case 38: /* Yugoslavia (or what's left of it?) */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
761 case 39: /* Italy */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
762 case 41: /* Switzerland */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
763 case 42: /* Tjekia */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
764 case 45: /* Denmark */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
765 case 46: /* Sweden */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
766 case 47: /* Norway */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
767 case 48: /* Poland */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
768 case 49: /* Germany */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
769 /* Daylight saving from last Sunday in March to last Sunday in
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
770 September, both at 2AM. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
771 setenv ("TZ", "MET-01METDST-02,M3.5.0/02:00,M9.5.0/02:00", 0);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
772 break;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
773 case 44: /* United Kingdom */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
774 case 351: /* Portugal */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
775 case 354: /* Iceland */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
776 setenv ("TZ", "GMT+00", 0);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
777 break;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
778 case 81: /* Japan */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
779 case 82: /* Korea */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
780 setenv ("TZ", "???-09", 0);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
781 break;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
782 case 90: /* Turkey */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
783 case 358: /* Finland */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
784 case 972: /* Israel */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
785 setenv ("TZ", "EET-02", 0);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
786 break;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
787 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
788 tzset ();
7523
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
789 init_gettimeofday ();
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
790 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
791
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
792 /* Flash the screen as a substitute for BEEPs. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
793
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
794 static void
7667
bae9c0fa1c2f (do_visible_bell): Renamed from visible_bell to avoid
Richard M. Stallman <rms@gnu.org>
parents: 7666
diff changeset
795 do_visible_bell (xorattr)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
796 unsigned char xorattr;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
797 {
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
798 asm volatile
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
799 (" movb $1,%%dl
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
800 visible_bell_0:
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
801 movl _ScreenPrimary,%%eax
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
802 call dosmemsetup
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
803 movl %%eax,%%ebx
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
804 movl %1,%%ecx
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
805 movb %0,%%al
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
806 incl %%ebx
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
807 visible_bell_1:
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
808 xorb %%al,%%gs:(%%ebx)
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
809 addl $2,%%ebx
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
810 decl %%ecx
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
811 jne visible_bell_1
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
812 decb %%dl
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
813 jne visible_bell_3
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
814 visible_bell_2:
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
815 movzwl %%ax,%%eax
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
816 movzwl %%ax,%%eax
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
817 movzwl %%ax,%%eax
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
818 movzwl %%ax,%%eax
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
819 decw %%cx
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
820 jne visible_bell_2
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
821 jmp visible_bell_0
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
822 visible_bell_3:"
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
823 : /* no output */
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
824 : "m" (xorattr), "g" (ScreenCols () * ScreenRows ())
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
825 : "%eax", "%ebx", /* "%gs",*/ "%ecx", "%edx");
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
826 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
827
7744
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
828 /* At screen position (X,Y), output C characters from string S with
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
829 attribute A. Do it fast! */
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
830
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
831 static void
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
832 output_string (x, y, s, c, a)
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
833 int x, y, c;
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
834 unsigned char *s;
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
835 unsigned char a;
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
836 {
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
837 char *t = (char *)ScreenPrimary + 2 * (x + ScreenCols () * y);
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
838 asm volatile
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
839 (" movl %1,%%eax
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
840 call dosmemsetup
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
841 movl %%eax,%%edi
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
842 movb %0,%%ah
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
843 movl %2,%%ecx
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
844 movl %3,%%esi
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
845 output_string1:
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
846 movb (%%esi),%%al
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
847 movw %%ax,%%gs:(%%edi)
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
848 addl $2,%%edi
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
849 incl %%esi
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
850 decl %%ecx
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
851 jne output_string1"
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
852 : /* no output */
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
853 : "m" (a), "g" (t), "g" (c), "g" (s)
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
854 : "%eax", "%ecx", /* "%gs",*/ "%esi", "%edi");
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
855 }
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
856
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
857 static int internal_terminal = 0;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
858 static int highlight;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
859
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
860 #undef fflush
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
861
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
862 int
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
863 internal_flush (f)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
864 FILE *f;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
865 {
7744
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
866 static char spaces[] = " ";
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
867 static int x;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
868 static int y;
7744
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
869 unsigned char *cp, *cp0;
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
870 int count, i, j;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
871
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
872 if (internal_terminal && f == stdout)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
873 {
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
874 if (have_mouse) mouse_off ();
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
875 cp = stdout->_base;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
876 count = stdout->_ptr - stdout->_base;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
877 while (count > 0)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
878 {
7744
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
879 switch (*cp++)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
880 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
881 case 27:
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
882 switch (*cp++)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
883 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
884 case '@':
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
885 y = *cp++;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
886 x = *cp++;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
887 count -= 4;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
888 break;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
889 case 'A':
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
890 ScreenAttrib = *cp++;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
891 count -= 3;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
892 break;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
893 case 'B':
7667
bae9c0fa1c2f (do_visible_bell): Renamed from visible_bell to avoid
Richard M. Stallman <rms@gnu.org>
parents: 7666
diff changeset
894 do_visible_bell (*cp++);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
895 count -= 3;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
896 break;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
897 case 'C':
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
898 ScreenClear ();
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
899 x = y = 0;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
900 count -= 2;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
901 break;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
902 case 'E':
7744
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
903 i = ScreenCols () - x;
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
904 j = x;
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
905 while (i >= sizeof spaces)
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
906 {
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
907 output_string (j, y, spaces, sizeof spaces,
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
908 ScreenAttrib);
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
909 j += sizeof spaces;
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
910 i -= sizeof spaces;
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
911 }
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
912 if (i > 0)
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
913 output_string (j, y, spaces, i, ScreenAttrib);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
914 count -= 2;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
915 break;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
916 case 'R':
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
917 x++;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
918 count -= 2;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
919 break;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
920 case 'U':
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
921 y--;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
922 count -= 2;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
923 break;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
924 case 'X':
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
925 ScreenAttrib ^= *cp++;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
926 count -= 3;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
927 break;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
928 default:
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
929 count -= 2;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
930 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
931 break;
7667
bae9c0fa1c2f (do_visible_bell): Renamed from visible_bell to avoid
Richard M. Stallman <rms@gnu.org>
parents: 7666
diff changeset
932 case 7:
bae9c0fa1c2f (do_visible_bell): Renamed from visible_bell to avoid
Richard M. Stallman <rms@gnu.org>
parents: 7666
diff changeset
933 write (1, "\007", 1);
bae9c0fa1c2f (do_visible_bell): Renamed from visible_bell to avoid
Richard M. Stallman <rms@gnu.org>
parents: 7666
diff changeset
934 count--;
bae9c0fa1c2f (do_visible_bell): Renamed from visible_bell to avoid
Richard M. Stallman <rms@gnu.org>
parents: 7666
diff changeset
935 break;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
936 case 8:
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
937 x--;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
938 count--;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
939 break;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
940 case 13:
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
941 x = 0;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
942 count--;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
943 break;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
944 case 10:
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
945 y++;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
946 count--;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
947 break;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
948 default:
7744
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
949 cp0 = cp - 1;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
950 count--;
7744
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
951 while (count > 0 && *cp >= ' ')
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
952 cp++, count--;
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
953 output_string (x, y, cp0, cp - cp0, ScreenAttrib);
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
954 x += (cp - cp0);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
955 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
956 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
957 fpurge (stdout);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
958 ScreenSetCursor (y, x);
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
959 if (have_mouse) mouse_on ();
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
960 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
961 else
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
962 /* This is a call to the original fflush. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
963 fflush (f);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
964 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
965
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
966 #ifndef HAVE_X_WINDOWS
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
967 static void
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
968 rien_du_tout ()
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
969 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
970 /* Rien du tout, cela va sans dire! */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
971 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
972
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
973 static
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
974 IT_ring_bell ()
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
975 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
976 if (visible_bell)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
977 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
978 /* This creates an xor-mask that will swap the default fore- and
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
979 background colors. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
980 if (have_mouse) mouse_off ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
981 do_visible_bell (((the_only_x_display.foreground_pixel
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
982 ^ the_only_x_display.background_pixel)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
983 * 0x11) & 0x7f);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
984 if (have_mouse) mouse_on ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
985 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
986 else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
987 /* Write it directly to ms-dos -- don't let it go through our terminal
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
988 emulator. This way the mouse cursor won't blink. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
989 write (1, "\007", 1);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
990 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
991
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
992 static void
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
993 IT_set_face (int face)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
994 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
995 struct face *fp;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
996 extern struct face *intern_face (/* FRAME_PTR, struct face * */);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
997
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
998 if (face == 1 || (face == 0 && highlight))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
999 fp = FRAME_MODE_LINE_FACE (foo);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1000 else if (face <= 0 || face >= FRAME_N_COMPUTED_FACES (foo))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1001 fp = FRAME_DEFAULT_FACE (foo);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1002 else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1003 fp = intern_face (selected_frame, FRAME_COMPUTED_FACES (foo)[face]);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1004 putchar ('\e');
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1005 putchar ('A');
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1006 putchar ((FACE_BACKGROUND (fp) << 4) | FACE_FOREGROUND (fp));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1007 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1008
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1009 static
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1010 IT_write_glyphs (GLYPH *str, int len)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1011 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1012 int face = -1;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1013 int newface;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1014
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1015 while (len > 0)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1016 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1017 newface = FAST_GLYPH_FACE (*str);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1018 if (newface != face)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1019 IT_set_face ((face = newface));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1020 putchar (FAST_GLYPH_CHAR (*str));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1021 str++, len--;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1022 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1023 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1024
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1025 static
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1026 IT_clear_end_of_line (first_unused)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1027 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1028 putchar ('\e');
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1029 putchar ('E');
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1030 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1031
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1032 static
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1033 IT_cursor_to (int y, int x)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1034 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1035 putchar ('\e');
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1036 putchar ('@');
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1037 putchar (y);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1038 putchar (x);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1039 }
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 IT_reassert_line_highlight (new, vpos)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1042 int new, vpos;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1043 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1044 highlight = new;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1045 IT_set_face (0); /* To possibly clear the highlighting. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1046 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1047
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1048 static
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1049 IT_change_line_highlight (new_highlight, vpos, first_unused_hpos)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1050 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1051 highlight = new_highlight;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1052 IT_set_face (0); /* To possibly clear the highlighting. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1053 IT_cursor_to (vpos, 0);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1054 IT_clear_end_of_line (first_unused_hpos);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1055 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1056
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1057 static
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1058 IT_update_begin ()
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1059 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1060 highlight = 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1061 IT_set_face (0); /* To possibly clear the highlighting. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1062 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1063
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1064 /* This was more or less copied from xterm.c */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1065 static void
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1066 IT_set_menu_bar_lines (window, n)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1067 Lisp_Object window;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1068 int n;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1069 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1070 struct window *w = XWINDOW (window);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1071
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1072 XSETFASTINT (w->top, XFASTINT (w->top) + n);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1073 XSETFASTINT (w->height, XFASTINT (w->height) - n);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1074
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1075 /* Handle just the top child in a vertical split. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1076 if (!NILP (w->vchild))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1077 IT_set_menu_bar_lines (w->vchild, n);
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 /* Adjust all children in a horizontal split. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1080 for (window = w->hchild; !NILP (window); window = w->next)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1081 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1082 w = XWINDOW (window);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1083 IT_set_menu_bar_lines (window, n);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1084 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1085 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1086
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1087 void
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1088 IT_set_frame_parameters (frame, alist)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1089 FRAME_PTR frame;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1090 Lisp_Object alist;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1091 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1092 Lisp_Object tail;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1093 int redraw;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1094 extern unsigned long load_color ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1095 FRAME_PTR f = (FRAME_PTR) &the_only_frame;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1096
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1097 redraw = 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1098 for (tail = alist; CONSP (tail); tail = Fcdr (tail))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1099 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1100 Lisp_Object elt, prop, val;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1101
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1102 elt = Fcar (tail);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1103 prop = Fcar (elt);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1104 val = Fcdr (elt);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1105 CHECK_SYMBOL (prop, 1);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1106
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1107 if (EQ (prop, intern ("foreground-color")))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1108 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1109 unsigned long new_color = load_color (f, val);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1110 if (new_color != ~0)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1111 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1112 FRAME_FOREGROUND_PIXEL (f) = new_color;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1113 redraw = 1;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1114 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1115 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1116 else if (EQ (prop, intern ("background-color")))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1117 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1118 unsigned long new_color = load_color (f, val);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1119 if (new_color != ~0)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1120 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1121 FRAME_BACKGROUND_PIXEL (f) = new_color & ~8;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1122 redraw = 1;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1123 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1124 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1125 else if (EQ (prop, intern ("menu-bar-lines")))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1126 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1127 int new;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1128 int old = FRAME_MENU_BAR_LINES (the_only_frame);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1129
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1130 if (INTEGERP (val))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1131 new = XINT (val);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1132 else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1133 new = 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1134 FRAME_MENU_BAR_LINES (f) = new;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1135 IT_set_menu_bar_lines (the_only_frame.root_window, new - old);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1136 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1137 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1138
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1139 if (redraw)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1140 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1141 recompute_basic_faces (f);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1142 Fredraw_frame (Fselected_frame ());
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1143 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1144 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1145
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1146 /* Similar to the_only_frame. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1147 struct x_display the_only_x_display;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1148
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1149 /* This is never dereferenced. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1150 Display *x_current_display;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1151
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1152 #endif /* !HAVE_X_WINDOWS */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1153
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1154 /* Do we need the internal terminal? */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1155 void
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1156 internal_terminal_init ()
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1157 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1158 char *term = getenv ("TERM");
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1159
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1160 #ifdef HAVE_X_WINDOWS
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1161 if (!inhibit_window_system)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1162 return;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1163 #endif
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1164
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1165 internal_terminal
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1166 = (!noninteractive) && term && !strcmp (term, "internal");
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1167
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1168 #ifndef HAVE_X_WINDOWS
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1169 if (internal_terminal && !inhibit_window_system)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1170 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1171 Vwindow_system = intern ("pc");
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1172 Vwindow_system_version = make_number (1);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1173
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1174 bzero (&the_only_x_display, sizeof the_only_x_display);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1175 the_only_x_display.background_pixel = 7; /* White */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1176 the_only_x_display.foreground_pixel = 0; /* Black */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1177 the_only_x_display.line_height = 1;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1178 the_only_frame.display.x = &the_only_x_display;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1179 the_only_frame.output_method = output_msdos_raw;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1180
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1181 init_frame_faces ((FRAME_PTR) &the_only_frame);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1182
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1183 ring_bell_hook = IT_ring_bell;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1184 write_glyphs_hook = IT_write_glyphs;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1185 cursor_to_hook = raw_cursor_to_hook = IT_cursor_to;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1186 clear_end_of_line_hook = IT_clear_end_of_line;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1187 change_line_highlight_hook = IT_change_line_highlight;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1188 update_begin_hook = IT_update_begin;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1189 reassert_line_highlight_hook = IT_reassert_line_highlight;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1190
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1191 /* These hooks are called by term.c without being checked. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1192 set_terminal_modes_hook
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1193 = reset_terminal_modes_hook
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1194 = update_end_hook
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1195 = set_terminal_window_hook
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1196 = (void *)rien_du_tout;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1197 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1198 else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1199 the_only_frame.output_method = output_termcap;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1200 #endif
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1201 }
7523
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1202
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1203 /* When time zones are set from Ms-Dos too may C-libraries are playing
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1204 tricks with time values. We solve this by defining our own version
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1205 of `gettimeofday' bypassing GO32. Our version needs to be initialized
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1206 once and after each call to `tzset' with TZ changed. */
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1207
7523
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1208 static int daylight, gmtoffset;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1209
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1210 int
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1211 gettimeofday (struct timeval *tp, struct timezone *tzp)
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1212 {
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1213 if (tp)
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1214 {
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1215 struct time t;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1216 struct date d;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1217 struct tm tmrec;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1218
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1219 gettime (&t);
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1220 getdate (&d);
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1221 tmrec.tm_year = d.da_year - 1900;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1222 tmrec.tm_mon = d.da_mon - 1;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1223 tmrec.tm_mday = d.da_day;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1224 tmrec.tm_hour = t.ti_hour;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1225 tmrec.tm_min = t.ti_min;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1226 tmrec.tm_sec = t.ti_sec;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1227 tmrec.tm_gmtoff = gmtoffset;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1228 tmrec.tm_isdst = daylight;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1229 tp->tv_sec = mktime (&tmrec);
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1230 tp->tv_usec = t.ti_hund * (1000000 / 100);
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1231 }
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1232 if (tzp)
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1233 {
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1234 tzp->tz_minuteswest = gmtoffset;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1235 tzp->tz_dsttime = daylight;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1236 }
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1237 return 0;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1238 }
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1239
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1240 void
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1241 init_gettimeofday ()
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1242 {
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1243 time_t ltm, gtm;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1244 struct tm *lstm;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1245
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1246 daylight = 0;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1247 gmtoffset = 0;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1248 ltm = gtm = time (NULL);
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1249 ltm = mktime (lstm = localtime (&ltm));
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1250 gtm = mktime (gmtime (&gtm));
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1251 daylight = lstm->tm_isdst;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1252 gmtoffset = (int)(gtm - ltm) / 60;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1253 }
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
1254
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1255 /* These must be global. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1256 static _go32_dpmi_seginfo ctrl_break_vector;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1257 static _go32_dpmi_registers ctrl_break_regs;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1258 static int ctrlbreakinstalled = 0;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1259
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1260 /* Interrupt level detection of Ctrl-Break. Don't do anything fancy here! */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1261 void
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1262 ctrl_break_func (regs)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1263 _go32_dpmi_registers *regs;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1264 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1265 Vquit_flag = Qt;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1266 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1267
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1268 void
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1269 install_ctrl_break_check ()
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1270 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1271 if (!ctrlbreakinstalled)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1272 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1273 /* Don't press Ctrl-Break if you don't have either DPMI or Emacs
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
1274 was compiler with Djgpp 1.11 maintenance level 5 or later! */
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1275 ctrlbreakinstalled = 1;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1276 ctrl_break_vector.pm_offset = (int) ctrl_break_func;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1277 _go32_dpmi_allocate_real_mode_callback_iret (&ctrl_break_vector,
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1278 &ctrl_break_regs);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1279 _go32_dpmi_set_real_mode_interrupt_vector (0x1b, &ctrl_break_vector);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1280 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1281 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1282
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1283 /* Mouse routines follow. Coordinates are in screen positions and zero
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1284 based. Mouse buttons are numbered from left to right and also zero
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1285 based. */
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1286
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1287 static int mouse_button_translate[NUM_MOUSE_BUTTONS];
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1288 static int mouse_button_count;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1289
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1290 void
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1291 mouse_init ()
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1292 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1293 union REGS regs;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1294
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1295 regs.x.ax = 0x0007;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1296 regs.x.cx = 0;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1297 regs.x.dx = 8 * (ScreenCols () - 1);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1298 int86 (0x33, &regs, &regs);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1299
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1300 regs.x.ax = 0x0008;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1301 regs.x.cx = 0;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1302 regs.x.dx = 8 * (ScreenRows () - 1);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1303 int86 (0x33, &regs, &regs);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1304
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1305 mouse_moveto (ScreenCols () - 1, ScreenRows () - 1);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1306 mouse_on ();
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1307 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1308
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1309 void
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1310 mouse_on ()
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1311 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1312 union REGS regs;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1313
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1314 regs.x.ax = 0x0001;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1315 int86 (0x33, &regs, &regs);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1316 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1317
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1318 void
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1319 mouse_off ()
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1320 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1321 union REGS regs;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1322
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1323 regs.x.ax = 0x0002;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1324 int86 (0x33, &regs, &regs);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1325 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1326
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1327 void
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1328 mouse_moveto (x, y)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1329 int x, y;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1330 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1331 union REGS regs;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1332
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1333 regs.x.ax = 0x0004;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1334 mouse_last_x = regs.x.cx = x * 8;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1335 mouse_last_y = regs.x.dx = y * 8;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1336 int86 (0x33, &regs, &regs);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1337 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1338
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1339 int
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1340 mouse_pressed (b, xp, yp)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1341 int b, *xp, *yp;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1342 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1343 union REGS regs;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1344
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1345 if (b >= mouse_button_count)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1346 return 0;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1347 regs.x.ax = 0x0005;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1348 regs.x.bx = mouse_button_translate[b];
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1349 int86 (0x33, &regs, &regs);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1350 if (regs.x.bx)
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
1351 *xp = regs.x.cx / 8, *yp = regs.x.dx / 8;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1352 return (regs.x.bx != 0);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1353 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1354
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1355 int
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1356 mouse_released (b, xp, yp)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1357 int b, *xp, *yp;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1358 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1359 union REGS regs;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1360
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1361 if (b >= mouse_button_count)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1362 return 0;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1363 regs.x.ax = 0x0006;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1364 regs.x.bx = mouse_button_translate[b];
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1365 int86 (0x33, &regs, &regs);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1366 if (regs.x.bx)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1367 *xp = regs.x.cx / 8, *yp = regs.x.dx / 8;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1368 return (regs.x.bx != 0);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1369 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1370
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1371 static void
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1372 mouse_get_xy (int *x, int *y)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1373 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1374 union REGS regs;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1375
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1376 regs.x.ax = 0x0003;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1377 int86 (0x33, &regs, &regs);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1378 *x = regs.x.cx / 8;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1379 *y = regs.x.dx / 8;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1380 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1381
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1382 void
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1383 mouse_get_pos (f, bar_window, part, x, y, time)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1384 FRAME_PTR *f;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1385 Lisp_Object *bar_window, *x, *y;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1386 enum scroll_bar_part *part;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1387 unsigned long *time;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1388 {
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1389 int ix, iy;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1390 union REGS regs;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1391 struct timeval tv;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1392
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1393 regs.x.ax = 0x0003;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1394 int86 (0x33, &regs, &regs);
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1395 *f = selected_frame;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1396 *bar_window = Qnil;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1397 gettimeofday (&tv, NULL);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1398 mouse_get_xy (&ix, &iy);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1399 mouse_moved = 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1400 *x = make_number (ix);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1401 *y = make_number (iy);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1402 *time = tv.tv_usec;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1403 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1404
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1405 void
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1406 mouse_check_moved ()
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1407 {
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1408 int x, y;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1409
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1410 mouse_get_xy (&x, &y);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1411 mouse_moved |= (x != mouse_last_x || y != mouse_last_y);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1412 mouse_last_x = x;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1413 mouse_last_y = y;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1414 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1415
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1416 int
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1417 mouse_init1 ()
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1418 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1419 union REGS regs;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1420 int present;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1421
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1422 #ifdef HAVE_X_WINDOWS
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1423 if (!inhibit_window_system)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1424 return 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1425 #endif
8246
d48c2b01fba5 (mouse_init1): Use alternate mouse detection for old mouse drivers.
Richard M. Stallman <rms@gnu.org>
parents: 8194
diff changeset
1426 if (!internal_terminal)
d48c2b01fba5 (mouse_init1): Use alternate mouse detection for old mouse drivers.
Richard M. Stallman <rms@gnu.org>
parents: 8194
diff changeset
1427 return 0;
d48c2b01fba5 (mouse_init1): Use alternate mouse detection for old mouse drivers.
Richard M. Stallman <rms@gnu.org>
parents: 8194
diff changeset
1428
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1429 regs.x.ax = 0x0021;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1430 int86 (0x33, &regs, &regs);
8246
d48c2b01fba5 (mouse_init1): Use alternate mouse detection for old mouse drivers.
Richard M. Stallman <rms@gnu.org>
parents: 8194
diff changeset
1431 present = (regs.x.ax & 0xffff) == 0xffff;
d48c2b01fba5 (mouse_init1): Use alternate mouse detection for old mouse drivers.
Richard M. Stallman <rms@gnu.org>
parents: 8194
diff changeset
1432 if (!present)
d48c2b01fba5 (mouse_init1): Use alternate mouse detection for old mouse drivers.
Richard M. Stallman <rms@gnu.org>
parents: 8194
diff changeset
1433 {
d48c2b01fba5 (mouse_init1): Use alternate mouse detection for old mouse drivers.
Richard M. Stallman <rms@gnu.org>
parents: 8194
diff changeset
1434 /* Reportedly, the above doesn't work for some mouse drivers. There
d48c2b01fba5 (mouse_init1): Use alternate mouse detection for old mouse drivers.
Richard M. Stallman <rms@gnu.org>
parents: 8194
diff changeset
1435 is an additional detection method that should work, but might be
d48c2b01fba5 (mouse_init1): Use alternate mouse detection for old mouse drivers.
Richard M. Stallman <rms@gnu.org>
parents: 8194
diff changeset
1436 a little slower. Use that as an alternative. */
d48c2b01fba5 (mouse_init1): Use alternate mouse detection for old mouse drivers.
Richard M. Stallman <rms@gnu.org>
parents: 8194
diff changeset
1437 regs.x.ax = 0x0000;
d48c2b01fba5 (mouse_init1): Use alternate mouse detection for old mouse drivers.
Richard M. Stallman <rms@gnu.org>
parents: 8194
diff changeset
1438 int86 (0x33, &regs, &regs);
d48c2b01fba5 (mouse_init1): Use alternate mouse detection for old mouse drivers.
Richard M. Stallman <rms@gnu.org>
parents: 8194
diff changeset
1439 present = (regs.x.ax & 0xffff) == 0xffff;
d48c2b01fba5 (mouse_init1): Use alternate mouse detection for old mouse drivers.
Richard M. Stallman <rms@gnu.org>
parents: 8194
diff changeset
1440 }
d48c2b01fba5 (mouse_init1): Use alternate mouse detection for old mouse drivers.
Richard M. Stallman <rms@gnu.org>
parents: 8194
diff changeset
1441
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1442 if (present)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1443 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1444 if (regs.x.bx == 3)
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1445 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1446 mouse_button_count = 3;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1447 mouse_button_translate[0] = 0; /* Left */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1448 mouse_button_translate[1] = 2; /* Middle */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1449 mouse_button_translate[2] = 1; /* Right */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1450 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1451 else
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1452 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1453 mouse_button_count = 2;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1454 mouse_button_translate[0] = 0;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1455 mouse_button_translate[1] = 1;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1456 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1457 mouse_position_hook = &mouse_get_pos;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1458 mouse_init ();
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1459 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1460 return present;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1461 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1462
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1463 #ifndef HAVE_X_WINDOWS
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1464 /* See xterm.c for more info. */
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1465 void
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1466 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
1467 FRAME_PTR f;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1468 register int pix_x, pix_y;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1469 register int *x, *y;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1470 void /* XRectangle */ *bounds;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1471 int noclip;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1472 {
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1473 if (bounds) abort ();
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1474
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1475 /* Ignore clipping. */
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1476
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1477 *x = pix_x;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1478 *y = pix_y;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1479 }
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1480
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1481 void
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1482 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
1483 FRAME_PTR f;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1484 register int x, y;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1485 register int *pix_x, *pix_y;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1486 {
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1487 *pix_x = x;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1488 *pix_y = y;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1489 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1490
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1491 /* 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
1492 for now.
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1493
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1494 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
1495 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
1496 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
1497 left), but I don't think it's worth the effort. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1498
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1499 static XMenu *
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1500 IT_menu_create ()
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1501 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1502 XMenu *menu;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1503
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1504 menu = (XMenu *) xmalloc (sizeof (XMenu));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1505 menu->allocated = menu->count = menu->panecount = menu->width = 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1506 return menu;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1507 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1508
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1509 /* 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
1510 for item. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1511 static void
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1512 IT_menu_make_room (XMenu *menu)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1513 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1514 if (menu->allocated == 0)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1515 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1516 int count = menu->allocated = 10;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1517 menu->text = (char **) xmalloc (count * sizeof (char *));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1518 menu->submenu = (XMenu **) xmalloc (count * sizeof (XMenu *));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1519 menu->panenumber = (int *) xmalloc (count * sizeof (int));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1520 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1521 else if (menu->allocated == menu->count)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1522 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1523 int count = menu->allocated = menu->allocated + 10;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1524 menu->text
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1525 = (char **) xrealloc (menu->text, count * sizeof (char *));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1526 menu->submenu
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1527 = (XMenu **) xrealloc (menu->submenu, count * sizeof (XMenu *));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1528 menu->panenumber
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1529 = (int *) xrealloc (menu->panenumber, count * sizeof (int));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1530 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1531 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1532
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1533 /* Search the given menu structure for a given pane number. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1534 static XMenu *
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1535 IT_menu_search_pane (XMenu *menu, int pane)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1536 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1537 int i;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1538 XMenu *try;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1539
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1540 for (i = 0; i < menu->count; i++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1541 if (menu->submenu[i])
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1542 if (pane == menu->panenumber[i])
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1543 return menu->submenu[i];
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1544 else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1545 if ((try = IT_menu_search_pane (menu->submenu[i], pane)))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1546 return try;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1547 return (XMenu *) 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1548 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1549
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1550 /* Determine how much screen space a given menu needs. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1551 static void
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1552 IT_menu_calc_size (XMenu *menu, int *width, int *height)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1553 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1554 int i, h2, w2, maxsubwidth, maxheight;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1555
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1556 maxsubwidth = 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1557 maxheight = menu->count;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1558 for (i = 0; i < menu->count; i++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1559 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1560 if (menu->submenu[i])
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1561 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1562 IT_menu_calc_size (menu->submenu[i], &w2, &h2);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1563 if (w2 > maxsubwidth) maxsubwidth = w2;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1564 if (i + h2 > maxheight) maxheight = i + h2;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1565 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1566 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1567 *width = menu->width + maxsubwidth;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1568 *height = maxheight;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1569 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1570
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1571 /* Display MENU at (X,Y) using FACES. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1572 static void
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1573 IT_menu_display (XMenu *menu, int y, int x, int *faces)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1574 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1575 int i, j, face, width;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1576 GLYPH *text, *p;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1577 char *q;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1578 int mx, my;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1579 int enabled, mousehere;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1580 int row, col;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1581
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1582 width = menu->width;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1583 text = (GLYPH *) xmalloc ((width + 2) * sizeof (GLYPH));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1584 ScreenGetCursor (&row, &col);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1585 mouse_get_xy (&mx, &my);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1586 mouse_off ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1587 (*update_begin_hook) ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1588 for (i = 0; i < menu->count; i++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1589 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1590 (*cursor_to_hook) (y + i, x);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1591 enabled
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1592 = (!menu->submenu[i] && menu->panenumber[i]) || (menu->submenu[i]);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1593 mousehere = (y + i == my && x <= mx && mx < x + width + 2);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1594 face = faces[enabled + mousehere * 2];
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1595 p = text;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1596 *p++ = FAST_MAKE_GLYPH (' ', face);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1597 for (j = 0, q = menu->text[i]; *q; j++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1598 *p++ = FAST_MAKE_GLYPH (*q++, face);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1599 for (; j < width; j++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1600 *p++ = FAST_MAKE_GLYPH (' ', face);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1601 *p++ = FAST_MAKE_GLYPH (menu->submenu[i] ? 16 : ' ', face);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1602 (*write_glyphs_hook) (text, width + 2);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1603 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1604 internal_flush (stdout);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1605 (*update_end_hook) ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1606 mouse_on ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1607 ScreenSetCursor (row, col);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1608 xfree (text);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1609 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1610
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1611 /* Create a brand new menu structure. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1612 XMenu *
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
1613 XMenuCreate (Display *foo1, Window foo2, char *foo3)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1614 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1615 return IT_menu_create ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1616 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1617
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1618 /* 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
1619 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
1620 to do. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1621 int
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
1622 XMenuAddPane (Display *foo, XMenu *menu, char *txt, int enable)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1623 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1624 int len;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1625
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1626 if (!enable)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1627 abort ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1628
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1629 IT_menu_make_room (menu);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1630 menu->submenu[menu->count] = IT_menu_create ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1631 menu->text[menu->count] = txt;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1632 menu->panenumber[menu->count] = ++menu->panecount;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1633 menu->count++;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1634 if ((len = strlen (txt)) > menu->width) menu->width = len;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1635 return menu->panecount;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1636 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1637
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1638 /* Create a new item in a menu pane. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1639 int
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
1640 XMenuAddSelection (Display *bar, XMenu *menu, int pane,
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
1641 int foo, char *txt, int enable)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1642 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1643 int len;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1644
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1645 if (pane)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1646 if (!(menu = IT_menu_search_pane (menu, pane)))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1647 return XM_FAILURE;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1648 IT_menu_make_room (menu);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1649 menu->submenu[menu->count] = (XMenu *) 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1650 menu->text[menu->count] = txt;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1651 menu->panenumber[menu->count] = enable;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1652 menu->count++;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1653 if ((len = strlen (txt)) > menu->width) menu->width = len;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1654 return XM_SUCCESS;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1655 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1656
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1657 /* Decide where the menu would be placed if requested at (X,Y). */
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
1658 void
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
1659 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
1660 int *ulx, int *uly, int *width, int *height)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1661 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1662 if (menu->count == 1 && menu->submenu[0])
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1663 /* Special case: the menu consists of only one pane. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1664 IT_menu_calc_size (menu->submenu[0], width, height);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1665 else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1666 IT_menu_calc_size (menu, width, height);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1667 *ulx = x + 1;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1668 *uly = y;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1669 *width += 2;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1670 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1671
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1672 typedef struct
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1673 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1674 void *screen_behind;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1675 XMenu *menu;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1676 int pane;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1677 int x, y;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1678 } IT_menu_state;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1679
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1680
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1681 /* Display menu, wait for user's response, and return that response. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1682 int
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
1683 XMenuActivate (Display *foo, XMenu *menu, int *pane, int *selidx,
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1684 int x0, int y0, unsigned ButtonMask, char **txt)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1685 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1686 IT_menu_state *state;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1687 int statecount;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1688 int x, y, i, b;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1689 int screensize;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1690 int faces[4], selectface;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1691 int leave, result, onepane;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1692
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1693 /* Just in case we got here without a mouse present... */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1694 if (!have_mouse)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1695 return XM_IA_SELECT;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1696
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1697 state = alloca (menu->panecount * sizeof (IT_menu_state));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1698 screensize = ScreenRows () * ScreenCols () * 2;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1699 faces[0]
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1700 = compute_glyph_face (&the_only_frame,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1701 face_name_id_number
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1702 (&the_only_frame,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1703 intern ("msdos-menu-passive-face")),
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1704 0);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1705 faces[1]
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1706 = compute_glyph_face (&the_only_frame,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1707 face_name_id_number
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1708 (&the_only_frame,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1709 intern ("msdos-menu-active-face")),
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1710 0);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1711 selectface
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1712 = face_name_id_number (&the_only_frame, intern ("msdos-menu-select-face"));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1713 faces[2] = compute_glyph_face (&the_only_frame, selectface, faces[0]);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1714 faces[3] = compute_glyph_face (&the_only_frame, selectface, faces[1]);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1715
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1716 statecount = 1;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1717 state[0].menu = menu;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1718 mouse_off ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1719 ScreenRetrieve (state[0].screen_behind = xmalloc (screensize));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1720 mouse_on ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1721 if ((onepane = menu->count == 1 && menu->submenu[0]))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1722 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1723 menu->width = menu->submenu[0]->width;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1724 state[0].menu = menu->submenu[0];
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1725 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1726 else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1727 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1728 state[0].menu = menu;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1729 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1730 state[0].x = x0 - 1;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1731 state[0].y = y0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1732 state[0].pane = onepane;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1733
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1734 mouse_last_x = -1; /* A hack that forces display. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1735 leave = 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1736 while (!leave)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1737 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1738 mouse_check_moved ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1739 if (mouse_moved)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1740 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1741 mouse_moved = 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1742 result = XM_IA_SELECT;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1743 mouse_get_xy (&x, &y);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1744 for (i = 0; i < statecount; i++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1745 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
1746 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1747 int dy = y - state[i].y;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1748 if (0 <= dy && dy < state[i].menu->count)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1749 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1750 if (!state[i].menu->submenu[dy])
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1751 if (state[i].menu->panenumber[dy])
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1752 result = XM_SUCCESS;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1753 else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1754 result = XM_IA_SELECT;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1755 *pane = state[i].pane - 1;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1756 *selidx = dy;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1757 /* We hit some part of a menu, so drop extra menues that
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1758 have been opened. That does not include an open and
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1759 active submenu. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1760 if (i != statecount - 2
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1761 || state[i].menu->submenu[dy] != state[i+1].menu)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1762 while (i != statecount - 1)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1763 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1764 statecount--;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1765 mouse_off ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1766 ScreenUpdate (state[statecount].screen_behind);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1767 mouse_on ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1768 xfree (state[statecount].screen_behind);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1769 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1770 if (i == statecount - 1 && state[i].menu->submenu[dy])
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1771 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1772 IT_menu_display (state[i].menu,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1773 state[i].y,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1774 state[i].x,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1775 faces);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1776 state[statecount].menu = state[i].menu->submenu[dy];
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1777 state[statecount].pane = state[i].menu->panenumber[dy];
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1778 mouse_off ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1779 ScreenRetrieve (state[statecount].screen_behind
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1780 = xmalloc (screensize));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1781 mouse_on ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1782 state[statecount].x
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1783 = state[i].x + state[i].menu->width + 2;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1784 state[statecount].y = y;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1785 statecount++;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1786 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1787 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1788 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1789 IT_menu_display (state[statecount - 1].menu,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1790 state[statecount - 1].y,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1791 state[statecount - 1].x,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1792 faces);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1793 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1794 for (b = 0; b < mouse_button_count; b++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1795 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1796 (void) mouse_pressed (b, &x, &y);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1797 if (mouse_released (b, &x, &y))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1798 leave = 1;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1799 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1800 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1801
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1802 mouse_off ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1803 ScreenUpdate (state[0].screen_behind);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1804 mouse_on ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1805 while (statecount--)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1806 xfree (state[statecount].screen_behind);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1807 return result;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1808 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1809
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1810 /* Dispose of a menu. */
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
1811 void
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
1812 XMenuDestroy (Display *foo, XMenu *menu)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1813 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1814 int i;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1815 if (menu->allocated)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1816 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1817 for (i = 0; i < menu->count; i++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1818 if (menu->submenu[i])
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
1819 XMenuDestroy (foo, menu->submenu[i]);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1820 xfree (menu->text);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1821 xfree (menu->submenu);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1822 xfree (menu->panenumber);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1823 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1824 xfree (menu);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1825 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1826
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1827 int x_pixel_width (struct frame *f)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1828 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1829 return FRAME_WIDTH(f);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1830 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1831
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1832 int x_pixel_height (struct frame *f)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1833 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1834 return FRAME_HEIGHT(f);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1835 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1836 #endif /* !HAVE_X_WINDOWS */
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
1837
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1838 #endif /* MSDOS */