Mercurial > emacs
annotate src/s/rtu.h @ 1719:48f539ac6921
* frame.h (struct frame): New fields `can_have_scrollbars' and
`has_vertical_scrollbars'.
(FRAME_CAN_HAVE_SCROLLBARS, FRAME_HAS_VERTICAL_SCROLLBARS): New
accessors, for both the MULTI_FRAME and non-MULTI_FRAME.
(VERTICAL_SCROLLBAR_WIDTH, WINDOW_VERTICAL_SCROLLBAR,
WINDOW_VERTICAL_SCROLLBAR_COLUMN,
WINDOW_VERTICAL_SCROLLBAR_HEIGHT): New macros.
* window.h (struct window): New field `vertical_scrollbar'.
* xterm.h (struct x_display): vertical_scrollbars,
judge_timestamp, vertical_scrollbar_extra: New fields.
(struct scrollbar): New struct.
(VERTICAL_SCROLLBAR_PIXEL_WIDTH, VERTICAL_SCROLLBAR_PIXEL_HEIGHT,
VERTICAL_SCROLLBAR_LEFT_BORDER, VERTICAL_SCROLLBAR_RIGHT_BORDER,
VERTICAL_SCROLLBAR_TOP_BORDER, VERTICAL_SCROLLBAR_BOTTOM_BORDER,
CHAR_TO_PIXEL_WIDTH, CHAR_TO_PIXEL_HEIGHT, PIXEL_TO_CHAR_WIDTH,
PIXEL_TO_CHAR_HEIGHT): New accessors and macros.
* frame.c (make_frame): Initialize the `can_have_scrollbars' and
`has_vertical_scrollbars' fields of the frame.
* term.c (term_init): Note that TERMCAP terminals don't support
scrollbars.
(mouse_position_hook): Document new args.
(set_vertical_scrollbar_hook, condemn_scrollbars_hook,
redeem_scrollbar_hook, judge_scrollbars_hook): New hooks.
* termhooks.h: Declare and document them.
(enum scrollbar_part): New type.
(struct input_event): Describe the new form of the scrollbar_click
event type. Change `part' from a Lisp_Object to an enum
scrollbar_part. Add a new field `scrollbar'.
* keyboard.c (kbd_buffer_get_event): Pass appropriate new
parameters to *mouse_position_hook, and make_lispy_movement.
* xfns.c (x_set_vertical_scrollbar): New function.
(x_figure_window_size): Use new macros to calculate frame size.
(Fx_create_frame): Note that X Windows frames do support scroll
bars. Default to "yes".
* xterm.c: #include <X11/cursorfont.h> and "window.h".
(x_vertical_scrollbar_cursor): New variable.
(x_term_init): Initialize it.
(last_mouse_bar, last_mouse_bar_frame, last_mouse_part,
last_mouse_scroll_range_start, last_mouse_scroll_range_end): New
variables.
(XTmouse_position): Use them to return scrollbar movement events.
Take new arguments, for that purpose.
(x_window_to_scrollbar, x_scrollbar_create,
x_scrollbar_set_handle, x_scrollbar_remove, x_scrollbar_move,
XTset_scrollbar, XTcondemn_scrollbars, XTredeem_scrollbar,
XTjudge_scrollbars, x_scrollbar_expose,
x_scrollbar_background_expose, x_scrollbar_handle_click,
x_scrollbar_handle_motion): New functions to implement scrollbars.
(x_term_init): Set the termhooks.h hooks to point to them.
(x_set_window_size): Use new macros to calculate frame size. Set
vertical_scrollbar_extra field.
(x_make_frame_visible): Use the frame accessor
FRAME_HAS_VERTICAL_SCROLLBARS to decide if we need to map the
frame's subwindows as well.
(XTread_socket): Use new size-calculation macros from xterm.h when
processing ConfigureNotify events.
(x_wm_set_size_hint): Use PIXEL_TO_CHAR_WIDTH and
PIXEL_TO_CHAR_HEIGHT macros.
* ymakefile (xdisp.o): This now depends on termhooks.h.
(xterm.o): This now depends on window.h.
* xterm.h (struct x_display): Delete v_scrollbar, v_thumbup,
v_thumbdown, v_slider, h_scrollbar, h_thumbup,
h_thumbdown, h_slider, v_scrollbar_width, h_scrollbar_height
fields.
* keyboard.c (Qvscrollbar_part, Qvslider_part, Qvthumbup_part,
Qvthumbdown_part, Qhscrollbar_part, Qhslider_part, Qhthumbup_part,
Qhthumbdown_part, Qscrollbar_click): Deleted; part of an obsolete
interface.
(head_table): Removed from here as well.
(syms_of_keyboard): And here.
* keyboard.h: And here.
(POSN_SCROLLBAR_BUTTON): Removed.
* xscrollbar.h: File removed - no longer necessary.
* xfns.c: Don't #include it any more.
(Qhorizontal_scroll_bar, Qvertical_scroll_bar): Deleted.
(syms_of_xfns): Don't initialize or staticpro them.
(gray_bits): Salvaged from xscrollbar.h.
(x_window_to_scrollbar): Deleted.
(x_set_horizontal_scrollbar): Deleted.
(enum x_frame_parm, x_frame_parms): Remove references to
x_set_horizontal_scrollbar.
(x_set_foreground_color, x_set_background_color,
x_set_border_pixel): Remove special code to support scrollbars.
(Fx_create_frame): Remove old scrollbar setup code.
(install_vertical_scrollbar, install_horizontal_scrollbar,
adjust_scrollbars, x_resize_scrollbars): Deleted.
* xterm.c (construct_mouse_click): This doesn't need to take care of
scrollbar clicks anymore.
(XTread_socket): Remove old code to support scrollbars. Call new
functions instead for events which occur in scrollbar windows.
(XTupdate_end): Remove call to adjust_scrollbars; the main
redisplay code takes care of that now.
(enum window_type): Deleted.
* ymakefile: Note that xfns.o no longer depends on xscrollbar.h.
* xfns.c (syms_of_xfns): Delete defvars for x_mouse_x and
x_mouse_y. That interface hasn't been live for years.
(x_mouse_x, x_mouse_y): Delete these variables.
* xfns.c (Fx_create_frame): Don't initialize the wm_hints field here.
(x_window): Do it here, along with all the similar stuff.
It's a pain to remember that you can't assign to FRAME->visible.
Let's change all references to the `visible' member of struct
frame to use the accessor macros, and then write a setter for the
`visible' field that does the right thing.
* frame.h (FRAME_VISIBLE_P): Make this not an l-value.
(FRAME_SET_VISIBLE): New macro.
* frame.c (make_terminal_frame, Fdelete_frame): Use FRAME_SET_VISIBLE.
(Fframe_visible_p, Fvisible_frame_list): Use FRAME_VISIBLE_P and
FRAME_ICONIFIED_P.
* dispnew.c (Fredraw_display): Use the FRAME_VISIBLE_P and
FRAME_GARBAGED_P accessors.
* xdisp.c (redisplay): Use the FRAME_VISIBLE_P accessor.
* xfns.c (x_set_foreground_color, x_set_background_color,
x_set_cursor_color, x_set_border_pixel, x_set_icon_type): Use the
FRAME_VISIBLE_P accessor.
(Fx_create_frame): Use FRAME_SET_VISIBILITY.
* xterm.c (clear_cursor, x_display_bar_cursor,
x_display_box_cursor): Use FRAME_SET_VISIBILITY.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Thu, 24 Dec 1992 06:19:31 +0000 |
parents | 88a29c720fa7 |
children | 507f64624555 |
rev | line source |
---|---|
456 | 1 /* Definitions file for GNU Emacs running on RTU 3.0, ucb universe. |
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 | |
8 the Free Software Foundation; either version 1, or (at your option) | |
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 | |
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ | |
19 | |
20 | |
21 /* | |
22 * Define symbols to identify the version of Unix this is. | |
23 * Define all the symbols that apply correctly. | |
24 */ | |
25 | |
26 #define BSD4_2 | |
27 #define BSD | |
28 #define RTU | |
29 | |
30 /* SYSTEM_TYPE should indicate the kind of system you are using. | |
31 It sets the Lisp variable system-type. */ | |
32 | |
33 #define SYSTEM_TYPE "rtu" | |
34 | |
35 /* NOMULTIPLEJOBS should be defined if your system's shell | |
36 does not have "job control" (the ability to stop a program, | |
37 run some other program, then continue the first one). */ | |
38 | |
39 #define NOMULTIPLEJOBS | |
40 | |
41 /* Emacs can read input using SIGIO and buffering characters itself, | |
42 or using CBREAK mode and making C-g cause SIGINT. | |
43 The choice is controlled by the variable interrupt_input. | |
44 Define INTERRUPT_INPUT to make interrupt_input = 1 the default (use SIGIO) | |
45 | |
46 SIGIO can be used only on systems that implement it (4.2 and 4.3). | |
47 CBREAK mode has two disadvatages | |
48 1) At least in 4.2, it is impossible to handle the Meta key properly. | |
49 I hear that in system V this problem does not exist. | |
50 2) Control-G causes output to be discarded. | |
51 I do not know whether this can be fixed in system V. | |
52 | |
53 Another method of doing input is planned but not implemented. | |
54 It would have Emacs fork off a separate process | |
55 to read the input and send it to the true Emacs process | |
56 through a pipe. | |
57 */ | |
58 | |
59 #undef INTERRUPT_INPUT | |
60 | |
61 /* Letter to use in finding device name of first pty, | |
62 if system supports pty's. 'a' means it is /dev/ptya0 */ | |
63 | |
64 #define FIRST_PTY_LETTER 'z' /* i.e. no PTY_LETTERs */ | |
65 | |
66 /* | |
67 * Define HAVE_TIMEVAL if the system supports the BSD style clock values. | |
68 * Look in <sys/time.h> for a timeval structure. | |
69 */ | |
70 | |
71 #define HAVE_TIMEVAL | |
72 | |
73 /* | |
74 * Define HAVE_SELECT if the system supports the `select' system call. | |
75 */ | |
76 | |
77 #define HAVE_SELECT | |
78 | |
79 /* | |
80 * Define HAVE_PTYS if the system supports pty devices. | |
81 */ | |
82 | |
83 #define HAVE_PTYS | |
84 | |
85 /* Define this macro if system defines a type `union wait'. */ | |
86 | |
87 #define HAVE_UNION_WAIT | |
88 | |
89 /* Define HAVE_SOCKETS if system supports 4.2-compatible sockets. */ | |
90 | |
91 #define HAVE_SOCKETS | |
92 | |
93 /* | |
94 * Define NONSYSTEM_DIR_LIBRARY to make Emacs emulate | |
95 * The 4.2 opendir, etc., library functions. | |
96 */ | |
97 | |
98 #define NONSYSTEM_DIR_LIBRARY | |
99 | |
100 /* Define this symbol if your system has the functions bcopy, etc. */ | |
101 /* The system library bcopy() is broken in RTU. For one thing, it expects | |
102 the length to be less than 64k. */ | |
103 #undef BSTRING | |
104 | |
105 /* subprocesses should be defined if you want to | |
106 have code for asynchronous subprocesses | |
107 (as used in M-x compile and M-x shell). | |
108 This is generally OS dependent, and not supported | |
109 under most USG systems. */ | |
110 | |
111 #define subprocesses | |
112 | |
113 /* If your system uses COFF (Common Object File Format) then define the | |
114 preprocessor symbol "COFF". */ | |
115 | |
116 #undef COFF | |
117 | |
118 /* define MAIL_USE_FLOCK if the mailer uses flock | |
119 to interlock access to /usr/spool/mail/$USER. | |
120 The alternative is that a lock file named | |
121 /usr/spool/mail/$USER.lock. */ | |
122 | |
123 #undef MAIL_USE_FLOCK | |
124 | |
125 /* Define CLASH_DETECTION if you want lock files to be written | |
126 so that Emacs can tell instantly when you try to modify | |
127 a file that someone else has modified in his Emacs. */ | |
128 | |
129 #undef CLASH_DETECTION | |
130 | |
131 /* We use the Berkeley (and usg5.2.2) interface to nlist. */ | |
132 | |
133 #define NLIST_STRUCT | |
134 | |
135 /* The symbol in the kernel where the load average is found | |
136 is named _avenrun. */ | |
137 | |
138 #define LDAV_SYMBOL "_avenrun" | |
139 | |
140 /* Special hacks needed to make Emacs run on this system. */ | |
141 | |
142 /* On RTU systems (like USG) the system calls are interruptable by signals | |
143 that the user program has elected to catch. Thus the system call | |
144 must be retried in these cases. To handle this without massive | |
145 changes in the source code, we remap the standard system call names | |
146 to names for our own functions in sysdep.c that do the system call | |
147 with retries. */ | |
148 | |
149 #define read sys_read | |
150 #define open sys_open | |
151 #define write sys_write | |
152 | |
153 #define INTERRUPTIBLE_OPEN | |
154 #define INTERRUPTIBLE_IO | |
155 | |
156 /* The "fsync" call on RTU versions 3.0 and 3.1 is badly broken! | |
157 This hack below isn't the best solution, but without it this | |
158 program will cause the whole system to hang! !@#$#%$ Masscomp! */ | |
159 | |
160 #define fsync(x) 0 /* "Comment out" fsync calls */ | |
161 | |
162 /* RTU has IPC instead of Unix-domain sockets. */ | |
163 | |
164 #define HAVE_SYSVIPC | |
165 | |
166 /* This is how to get the device name of the tty end of a pty. */ | |
167 #define PTY_TTY_NAME_SPRINTF \ | |
620 | 168 sprintf (pty_name, "/dev/ttyp%x", i); |
456 | 169 |
170 /* This is how to get the device name of the control end of a pty. */ | |
171 #define PTY_NAME_SPRINTF \ | |
620 | 172 sprintf (pty_name, "/dev/pty%x", i); |