Mercurial > emacs
annotate src/s/irix3-3.h @ 1717:aa7d6d57504b
* 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.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Thu, 24 Dec 1992 06:17:18 +0000 |
| parents | 5d0527284372 |
| children | 6c044c8796dd |
| rev | line source |
|---|---|
| 457 | 1 /* Definitions file for GNU Emacs running on Silicon Graphics Irix system 3.3. |
| 2 Copyright (C) 1987,1990 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 USG | |
| 27 #define USG5 | |
| 28 #define IRIS | |
|
1491
5d0527284372
(HAVE_SETSID, IRIX): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
457
diff
changeset
|
29 #ifndef IRIX |
|
5d0527284372
(HAVE_SETSID, IRIX): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
457
diff
changeset
|
30 #define IRIX |
|
5d0527284372
(HAVE_SETSID, IRIX): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
457
diff
changeset
|
31 #endif |
| 457 | 32 |
| 33 /* SYSTEM_TYPE should indicate the kind of system you are using. | |
| 34 It sets the Lisp variable system-type. */ | |
| 35 | |
| 36 #define SYSTEM_TYPE "irix" | |
| 37 | |
| 38 /* nomultiplejobs should be defined if your system's shell | |
| 39 does not have "job control" (the ability to stop a program, | |
| 40 run some other program, then continue the first one). */ | |
| 41 | |
| 42 /* #define NOMULTIPLEJOBS */ | |
| 43 | |
| 44 /* Default is to set interrupt_input to 0: don't do input buffering within Emacs */ | |
| 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_TERMIO if the system provides sysV-style ioctls | |
| 55 * for terminal control. | |
| 56 */ | |
| 57 | |
| 58 #define HAVE_TERMIO | |
| 59 | |
| 60 /* | |
| 61 * Define HAVE_TIMEVAL if the system supports the BSD style clock values. | |
| 62 * Look in <sys/time.h> for a timeval structure. | |
| 63 */ | |
| 64 | |
| 65 #define HAVE_TIMEVAL | |
| 66 | |
| 67 /* `utime' system call doesn't understand timevals. */ | |
| 68 | |
| 69 #define IRIS_UTIME | |
| 70 | |
| 71 /* | |
| 72 * Define HAVE_SELECT if the system supports the `select' system call. | |
| 73 */ | |
| 74 | |
| 75 #define HAVE_SELECT | |
| 76 | |
| 77 /* | |
| 78 * Define HAVE_PTYS if the system supports pty devices. | |
| 79 */ | |
| 80 | |
| 81 #define HAVE_PTYS | |
| 82 | |
| 83 /* Define HAVE_SOCKETS if system supports 4.2-compatible sockets. */ | |
| 84 | |
| 85 #define HAVE_SOCKETS | |
| 86 | |
| 87 /* | |
| 88 * Define NONSYSTEM_DIR_LIBRARY to make Emacs emulate | |
| 89 * The 4.2 opendir, etc., library functions. | |
| 90 */ | |
| 91 | |
| 92 /* #define NONSYSTEM_DIR_LIBRARY */ | |
| 93 | |
| 94 /* Define this symbol if your system has the functions bcopy, etc. */ | |
| 95 | |
| 96 #define BSTRING | |
| 97 | |
| 98 /* subprocesses should be defined if you want to | |
| 99 have code for asynchronous subprocesses | |
| 100 (as used in M-x compile and M-x shell). | |
| 101 This is generally OS dependent, and not supported | |
| 102 under most USG systems. */ | |
| 103 | |
| 104 #define subprocesses | |
| 105 | |
| 106 /* If your system uses COFF (Common Object File Format) then define the | |
| 107 preprocessor symbol "COFF". */ | |
| 108 | |
| 109 /* #define COFF */ | |
| 110 | |
| 111 /* define MAIL_USE_FLOCK if the mailer uses flock | |
| 112 to interlock access to /usr/spool/mail/$USER. | |
| 113 The alternative is that a lock file named | |
| 114 /usr/spool/mail/$USER.lock. */ | |
| 115 | |
| 116 /* #define MAIL_USE_FLOCK */ | |
| 117 | |
| 118 /* Define CLASH_DETECTION if you want lock files to be written | |
| 119 so that Emacs can tell instantly when you try to modify | |
| 120 a file that someone else has modified in his Emacs. */ | |
| 121 | |
| 122 /* #define CLASH_DETECTION */ | |
| 123 | |
| 124 /* We use the Berkeley (and usg5.2.2) interface to nlist. */ | |
| 125 | |
| 126 #define NLIST_STRUCT | |
| 127 | |
| 128 /* The file containing the kernel's symbol table is called /unix. */ | |
| 129 | |
| 130 #define KERNEL_FILE "/unix" | |
| 131 | |
| 132 /* The symbol in the kernel where the load average is found | |
| 133 is named _avenrun. */ | |
| 134 | |
| 135 #define LDAV_SYMBOL "avenrun" | |
| 136 | |
| 137 | |
| 138 /* setjmp and longjmp can safely replace _setjmp and _longjmp, | |
| 139 but they will run slower. */ | |
| 140 | |
| 141 #define _setjmp setjmp | |
| 142 #define _longjmp longjmp | |
| 143 | |
| 144 /* On USG systems the system calls are interruptable by signals | |
| 145 that the user program has elected to catch. Thus the system call | |
| 146 must be retried in these cases. To handle this without massive | |
| 147 changes in the source code, we remap the standard system call names | |
| 148 to names for our own functions in sysdep.c that do the system call | |
| 149 with retries. */ | |
| 150 | |
| 151 #define read sys_read | |
| 152 #define open sys_open | |
| 153 #define write sys_write | |
| 154 | |
| 155 #define INTERRUPTIBLE_OPEN | |
| 156 #define INTERRUPTIBLE_IO | |
| 157 | |
| 158 /* On USG systems these have different names */ | |
| 159 | |
| 160 #define index strchr | |
| 161 #define rindex strrchr | |
| 162 | |
| 163 /* USG systems tend to put everything declared static | |
| 164 into the initialized data area, which becomes pure after dumping Emacs. | |
| 165 Foil this. Emacs carefully avoids static vars inside functions. */ | |
| 166 | |
| 167 /* #define static */ | |
| 168 | |
| 169 /* This is how to get the device name of the tty end of a pty. */ | |
| 170 #define PTY_TTY_NAME_SPRINTF \ | |
| 171 sprintf (ptyname, "/dev/ttyq%d", minor (stb.st_rdev)); | |
| 172 | |
| 173 | |
| 174 /* getwd is defined. */ | |
| 175 | |
| 176 #define HAVE_GETWD | |
| 177 | |
| 178 #define HAVE_SYSVIPC | |
|
1491
5d0527284372
(HAVE_SETSID, IRIX): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
457
diff
changeset
|
179 |
|
5d0527284372
(HAVE_SETSID, IRIX): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
457
diff
changeset
|
180 /* Use setsid to handle terminals for subprocesses. */ |
|
5d0527284372
(HAVE_SETSID, IRIX): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
457
diff
changeset
|
181 #define HAVE_SETSID |
|
5d0527284372
(HAVE_SETSID, IRIX): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
457
diff
changeset
|
182 |
|
5d0527284372
(HAVE_SETSID, IRIX): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
457
diff
changeset
|
183 /* Implementation of uname is broken on Irix as of version 3.3 */ |
|
5d0527284372
(HAVE_SETSID, IRIX): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
457
diff
changeset
|
184 #define HAVE_GETHOSTNAME |
