Mercurial > emacs
annotate src/s/vms.h @ 53226:dd3018b4785b
Implemented multiple tty support.
README.multi-tty: New file.
src/termchar.h (struct terminal): Renamed to struct tty_output. Added name, type,
input, output, termscript, old_tty, term_initted, old_tty_valid,
background_pixel, foreground_pixel, next fields.
(TERMINAL_*): Renamed to TTY_* for brevity.
(CURRENT_TERMINAL): Renamed to CURTTY for brevity.
(tty_list): New variable.
(TERMINAL_PTR): Removed.
(FRAME_TTY): New function.
(TTY_NAME, TTY_TYPE): New macros.
src/term.c (current_terminal): Removed. (_current_terminal): Removed. (tty_list):
New variable. (OUTPUT, OUTPUT1, OUTPUTL, OUTPUT_IF, OUTPUT1_IF): Added tty
parameter. (set_terminal_modes): Added tty parameter. (reset_terminal_modes):
Added tty parameter. (cursor_to, raw_cursor_to): Updated cmgoto() calls.
(clear_end_of_line, write_glyphs): Add indirection to terminal output, updated
cmcheckmagic() calls. (get_named_tty): New function. (term_dummy_init): New
function. (term_init): Added name parameter, added tty_output return value.
Changed algorithm to update tty_list. Call init_sys_modes() to set up tty
mode on the newly opened terminal device.
(get_current_tty): New function, intended for debugging.
src/termhooks.h (termscript): Removed.
src/w32term.h (FRAME_FOREGROUND_PIXEL, FRAME_BACKGROUND_PIXEL): Removed redundant
definition.
src/macterm.h (FRAME_FOREGROUND_PIXEL, FRAME_BACKGROUND_PIXEL): Ditto.
src/window.c (init_window_once): Call make_terminal_frame with two zero parameters.
src/cm.h (emacs_tputs): New macro to set current_tty, and then call tputs().
(current_tty): New variable, for cmputc().
(cmcheckmagic, cmputc, cmgoto): Added prototypes.
src/cm.c (current_tty): New variable, for cmputc().
(cmputc): Use it.
(cmcheckmagic): Added tty parameter, look up terminal streams there.
(calccost): Added tty parameter. Use emacs_tputs() instead of tputs().
(cmgoto): Added tty parameter. Pass it on to calccost(). Use emacs_tputs()
instead of tputs().
src/dispextern.h (set_terminal_modes, reset_terminal_modes): Added tty parameter.
(term_init): Added name parameter (the filename of the terminal device). Added
return value (struct tty_output).
src/dispnew.c: Replace CURTTY() with local variables throughout the file (where applicable).
(termscript): Moved to struct tty_output.
(terminal_type): Removed.
src/emacs.c (main): Don't call init_sys_modes(), the new term_init() already does that
during init_display().
(shut_down_emacs): Call reset_all_sys_modes() instead of reset_sys_modes().
src/frame.c (Qtty, Qtty_type): New variables.
(syms_of_frame): Initialize them.
(tty_display): Removed.
(make_terminal_frame): New parameters (tty filename and type).
Initialize output_data.tty field instead of output_data.x. Use term_init() to
find the right tty_output. (Use term_dummy_init() during bootstrap.)
(Fmake_terminal_frame): Get device filename and type from frame parameters.
src/frame.h (FRAME_FOREGROUND_PIXEL, FRAME_BACKGROUND_PIXEL): Do the right thing
if the frame is a tty.
(struct frame): New member in output_data: tty.
(make_terminal_frame): Updated of prototype.
src/keyboard.c (Fset_input_mode): Call reset_all_sys_modes(), not
reset_sys_modes(). Ditto with init_sys_modes().
src/lisp.h (tty_output): Added forward declaration.
(init_sys_modes, reset_sys_modes): Updated prototype.
(init_all_sys_modes, reset_all_sys_modes): New prototypes.
src/scroll.c: Replace CURTTY() with local variables throughout the file (where applicable).
src/sysdep.c (old_tty, term_initted, old_tty_valid): Moved to struct tty_output.(
(init_all_sys_modes): New function.
(init_sys_modes): Added tty_output parameter. Use it.
(reset_all_sys_modes): New function.
(reset_sys_modes): Added tty_output parameter. Use it.
src/Makefile.in: Update dependencies.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-2
author | Karoly Lorentey <lorentey@elte.hu> |
---|---|
date | Thu, 25 Dec 2003 06:59:31 +0000 |
parents | 695cf19ef79e |
children | 8bb5ca4faf36 375f2633d815 |
rev | line source |
---|---|
457 | 1 /* system description header for VMS |
2 Copyright (C) 1986 Free Software Foundation, Inc. | |
3 | |
4 This file is part of GNU Emacs. | |
5 | |
6 GNU Emacs is free software; you can redistribute it and/or modify | |
7 it under the terms of the GNU General Public License as published by | |
3699 | 8 the Free Software Foundation; either version 2, or (at your option) |
457 | 9 any later version. |
10 | |
11 GNU Emacs is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
13940
diff
changeset
|
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
13940
diff
changeset
|
19 Boston, MA 02111-1307, USA. */ |
457 | 20 |
21 /* | |
22 * Define symbols to identify the version of Unix this is. | |
23 * Define all the symbols that apply correctly. | |
24 */ | |
25 | |
26 #ifndef VMS /* Decus cpp doesn't define this but VAX C does */ | |
27 #define VMS | |
28 #endif /* VMS */ | |
29 /* Note that this file is used indirectly via vms4-0.h, or some other | |
30 such file. These other files define a symbol VMS4_0, VMS4_2, etc. */ | |
31 | |
32 /* SYSTEM_TYPE should indicate the kind of system you are using. | |
33 It sets the Lisp variable system-type. */ | |
34 | |
35 #define SYSTEM_TYPE "vax-vms" | |
36 | |
37 /* NOMULTIPLEJOBS should be defined if your system's shell | |
38 does not have "job control" (the ability to stop a program, | |
39 run some other program, then continue the first one). */ | |
40 | |
41 /* #define NOMULTIPLEJOBS */ | |
42 | |
43 /* INTERRUPT_INPUT controls a default for Unix systems. | |
44 VMS uses a separate mechanism. */ | |
45 | |
46 /* #define INTERRUPT_INPUT */ | |
47 | |
48 /* Letter to use in finding device name of first pty, | |
49 if system supports pty's. 'a' means it is /dev/ptya0 */ | |
50 | |
51 #define FIRST_PTY_LETTER 'a' | |
52 | |
53 /* | |
54 * Define HAVE_PTYS if the system supports pty devices. | |
55 */ | |
56 | |
57 /* #define HAVE_PTYS */ | |
58 | |
59 /* Define HAVE_SOCKETS if system supports 4.2-compatible sockets. */ | |
60 | |
61 /* #define HAVE_SOCKETS */ | |
62 | |
63 /* | |
64 * Define NONSYSTEM_DIR_LIBRARY to make Emacs emulate | |
65 * The 4.2 opendir, etc., library functions. | |
66 */ | |
67 | |
68 #define NONSYSTEM_DIR_LIBRARY | |
69 | |
70 /* Define this symbol if your system has the functions bcopy, etc. */ | |
71 | |
72 /* #define BSTRING */ | |
73 | |
74 /* subprocesses should be defined if you want to | |
75 have code for asynchronous subprocesses | |
76 (as used in M-x compile and M-x shell). | |
77 This is generally OS dependent, and not supported | |
78 under most USG systems. */ | |
79 | |
80 #define subprocesses | |
81 | |
82 /* If your system uses COFF (Common Object File Format) then define the | |
83 preprocessor symbol "COFF". */ | |
84 | |
85 /* #define COFF */ | |
86 | |
87 /* define MAIL_USE_FLOCK if the mailer uses flock | |
88 to interlock access to /usr/spool/mail/$USER. | |
89 The alternative is that a lock file named | |
90 /usr/spool/mail/$USER.lock. */ | |
91 | |
92 /* #define MAIL_USE_FLOCK */ | |
93 | |
94 /* Define CLASH_DETECTION if you want lock files to be written | |
95 so that Emacs can tell instantly when you try to modify | |
96 a file that someone else has modified in his Emacs. */ | |
97 | |
98 /* #define CLASH_DETECTION */ | |
99 | |
100 /* Define the maximum record length for print strings, if needed. */ | |
101 | |
102 #define MAX_PRINT_CHARS 300 | |
103 | |
104 | |
105 /* Here, on a separate page, add any special hacks needed | |
106 to make Emacs work on this system. For example, | |
107 you might define certain system call names that don't | |
108 exist on your system, or that do different things on | |
109 your system and must be used only through an encapsulation | |
110 (Which you should place, by convention, in sysdep.c). */ | |
111 | |
13940
1b0e886a4476
(SHARABLE_LIB_BUG): Renamed from SHAREABLE_LIB_BUG.
Karl Heuer <kwzh@gnu.org>
parents:
8892
diff
changeset
|
112 /* Do you have the sharable library bug? If you link with a sharable |
457 | 113 library that contains psects with the NOSHR attribute and also refer to |
114 those psects in your program, the linker give you a private version of | |
13940
1b0e886a4476
(SHARABLE_LIB_BUG): Renamed from SHAREABLE_LIB_BUG.
Karl Heuer <kwzh@gnu.org>
parents:
8892
diff
changeset
|
115 the psect which is not related to the version used by the sharable |
457 | 116 library. The end result is that your references to variables in that |
117 psect have absolutely nothing to do with library references to what is | |
118 supposed to be the same variable. If you intend to link with the standard | |
13940
1b0e886a4476
(SHARABLE_LIB_BUG): Renamed from SHAREABLE_LIB_BUG.
Karl Heuer <kwzh@gnu.org>
parents:
8892
diff
changeset
|
119 C library (NOT the sharable one) you don't need to define this. (This |
457 | 120 is NOT fixed in V4.4...) */ |
121 | |
13940
1b0e886a4476
(SHARABLE_LIB_BUG): Renamed from SHAREABLE_LIB_BUG.
Karl Heuer <kwzh@gnu.org>
parents:
8892
diff
changeset
|
122 #define SHARABLE_LIB_BUG |
457 | 123 |
124 /* Partially due to the above mentioned bug and also so that we don't need | |
13940
1b0e886a4476
(SHARABLE_LIB_BUG): Renamed from SHAREABLE_LIB_BUG.
Karl Heuer <kwzh@gnu.org>
parents:
8892
diff
changeset
|
125 to require that people have a sharable C library, the default for Emacs |
457 | 126 is to link with the non-shared library. If you want to link with the |
127 shared library, define this and remake xmakefile and fileio.c. This allows | |
128 us to ship a guaranteed executable image. */ | |
129 | |
130 #define LINK_CRTL_SHARE | |
131 | |
132 /* Define this if you want to read the file SYS$SYSTEM:SYSUAF.DAT for user | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
14186
diff
changeset
|
133 information. If you do use this, you must either make SYSUAF.DAT world |
457 | 134 readable or install Emacs with SYSPRV. */ |
135 | |
136 /* #define READ_SYSUAF */ | |
137 | |
138 /* On VMS these have a different name */ | |
139 | |
140 #define index strchr | |
141 #define rindex strrchr | |
142 #define unlink delete | |
2245
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
143 |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
144 #ifndef _GNUC_ |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
145 extern double mth$dmod(double, double); |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
146 #define drem mth$dmod |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
147 #endif |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
148 |
13940
1b0e886a4476
(SHARABLE_LIB_BUG): Renamed from SHAREABLE_LIB_BUG.
Karl Heuer <kwzh@gnu.org>
parents:
8892
diff
changeset
|
149 /* Some time routines are missing in the VAX C RTL, or needs some |
2245
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
150 extra bit of code */ |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
151 #define tzset sys_tzset |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
152 #define localtime sys_localtime |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
153 #define gmtime sys_gmtime |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
154 |
457 | 155 /* On later versions of VMS these exist in the C run time library, but |
156 we are using our own implementations. Hide their names to avoid | |
157 linker errors */ | |
158 #define rename sys_rename | |
159 #define execvp sys_execvp | |
160 #define system sys_system | |
161 | |
2245
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
162 #ifndef GNU_MALLOC |
457 | 163 /* Hide these names so that we don't get linker errors */ |
164 #define malloc sys_malloc | |
165 #define free sys_free | |
166 #define realloc sys_realloc | |
167 #define calloc sys_calloc | |
168 | |
169 /* Don't use the standard brk and sbrk */ | |
170 #define sbrk sys_sbrk | |
171 #define brk sys_brk | |
2245
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
172 #endif |
457 | 173 |
174 /* On VMS we want to avoid reading and writing very large amounts of | |
175 data at once, so we redefine read and write here. */ | |
176 | |
177 #define read sys_read | |
178 #define write sys_write | |
179 | |
180 /* sys_creat just calls the real creat with additional args of | |
181 "rfm=var", "rat=cr" to get "normal" VMS files... */ | |
182 #define creat sys_creat | |
183 | |
184 /* fwrite forces an RMS PUT on every call. This is abysmally slow, so | |
185 we emulate fwrite with fputc, which forces buffering and is much | |
186 faster! */ | |
187 #define fwrite sys_fwrite | |
188 | |
189 /* getuid only returns the member number, which is not unique on most VMS | |
190 systems. We emulate it with (getgid()<<16 | getuid()). */ | |
191 #define getuid sys_getuid | |
192 | |
193 /* If user asks for TERM, check first for EMACS_TERM. */ | |
194 #define getenv sys_getenv | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
14186
diff
changeset
|
195 |
457 | 196 /* Standard C abort is less useful than it should be. */ |
197 #define abort sys_abort | |
198 | |
199 /* Case conflicts with C library fread. */ | |
200 #define Fread F_read | |
201 | |
202 /* Case conflicts with C library srandom. */ | |
203 #define Srandom S_random | |
204 | |
2245
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
205 /* variable length too long... maybe */ |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
206 #if 0 |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
207 #define do_line_insertion_deletion_costs do_line_insertion_deletion_cost |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
208 #endif |
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
209 |
457 | 210 /* Cause initialization of vmsfns.c to be run. */ |
211 #define SYMS_SYSTEM syms_of_vmsfns () | |
212 | |
13940
1b0e886a4476
(SHARABLE_LIB_BUG): Renamed from SHAREABLE_LIB_BUG.
Karl Heuer <kwzh@gnu.org>
parents:
8892
diff
changeset
|
213 /* VAXCRTL access doesn't deal with SYSPRV very well (among other oddities...) |
457 | 214 Here, we use $CHKPRO to really determine access. */ |
215 #define access sys_access | |
216 | |
217 #define PAGESIZE 512 | |
218 | |
219 #define _longjmp longjmp | |
220 #define _setjmp setjmp | |
221 | |
222 globalref char sdata[]; | |
223 #define DATA_START (((int) sdata + 511) & ~511) | |
224 #define TEXT_START 512 | |
225 | |
226 /* Baud-rate values from tty status are not standard. */ | |
227 | |
228 #define BAUD_CONVERT \ | |
229 { 0, 50, 75, 110, 134, 150, 300, 600, 1200, 1800, \ | |
230 2000, 2400, 3600, 4800, 7200, 9600, 19200 } | |
231 | |
2245
b31d55638c0c
Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents:
457
diff
changeset
|
232 #define PURESIZE 330000 |
457 | 233 |
234 /* Stdio FILE type has extra indirect on VMS, so must alter this macro. */ | |
235 | |
236 #define PENDING_OUTPUT_COUNT(FILE) ((*(FILE))->_ptr - (*(FILE))->_base) | |
2433
06fcbff9d381
New macros NULL_DEVICE and EXEC_SUFFIXES, to give the name of the
Jim Blandy <jimb@redhat.com>
parents:
2245
diff
changeset
|
237 |
06fcbff9d381
New macros NULL_DEVICE and EXEC_SUFFIXES, to give the name of the
Jim Blandy <jimb@redhat.com>
parents:
2245
diff
changeset
|
238 #define NULL_DEVICE "NLA0:" |
2459
fd35248ff0d1
* s/vms.h (EXEC_SUFFIXES): Add definition for this.
Jim Blandy <jimb@redhat.com>
parents:
2433
diff
changeset
|
239 |
5334
37ea8707b175
(TERMCAP_NAME): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
3699
diff
changeset
|
240 #define TERMCAP_NAME "emacs_library:[etc]termcap.dat" |
37ea8707b175
(TERMCAP_NAME): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
3699
diff
changeset
|
241 |
2459
fd35248ff0d1
* s/vms.h (EXEC_SUFFIXES): Add definition for this.
Jim Blandy <jimb@redhat.com>
parents:
2433
diff
changeset
|
242 #define EXEC_SUFFIXES ".exe:.com" |
2644
6d563cf5a260
* emacs.c (SEPCHAR): Instead of defining this to be ',' on VMS and
Jim Blandy <jimb@redhat.com>
parents:
2459
diff
changeset
|
243 |
6d563cf5a260
* emacs.c (SEPCHAR): Instead of defining this to be ',' on VMS and
Jim Blandy <jimb@redhat.com>
parents:
2459
diff
changeset
|
244 /* Case conflict with Xlib XFree () */ |
6d563cf5a260
* emacs.c (SEPCHAR): Instead of defining this to be ',' on VMS and
Jim Blandy <jimb@redhat.com>
parents:
2459
diff
changeset
|
245 #define xfree emacs_xfree |
6d563cf5a260
* emacs.c (SEPCHAR): Instead of defining this to be ',' on VMS and
Jim Blandy <jimb@redhat.com>
parents:
2459
diff
changeset
|
246 |
6d563cf5a260
* emacs.c (SEPCHAR): Instead of defining this to be ',' on VMS and
Jim Blandy <jimb@redhat.com>
parents:
2459
diff
changeset
|
247 /* What separator do we use in paths? */ |
6d563cf5a260
* emacs.c (SEPCHAR): Instead of defining this to be ',' on VMS and
Jim Blandy <jimb@redhat.com>
parents:
2459
diff
changeset
|
248 #define SEPCHAR ',' |
52401 | 249 |
250 /* arch-tag: 76bc2b70-46d1-4334-8f12-955c0d0ca6d4 | |
251 (do not change this comment) */ |