annotate src/s/vms.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 e442bb589751
children b31d55638c0c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
457
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1 /* system description header for VMS
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2 Copyright (C) 1986 Free Software Foundation, Inc.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4 This file is part of GNU Emacs.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6 GNU Emacs is free software; you can redistribute it and/or modify
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7 it under the terms of the GNU General Public License as published by
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8 the Free Software Foundation; either version 1, or (at your option)
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9 any later version.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 GNU General Public License for more details.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 along with GNU Emacs; see the file COPYING. If not, write to
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20 /*
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21 * Define symbols to identify the version of Unix this is.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22 * Define all the symbols that apply correctly.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23 */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25 #ifndef VMS /* Decus cpp doesn't define this but VAX C does */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
26 #define VMS
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
27 #endif /* VMS */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
28 /* Note that this file is used indirectly via vms4-0.h, or some other
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
29 such file. These other files define a symbol VMS4_0, VMS4_2, etc. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
30
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
31 /* SYSTEM_TYPE should indicate the kind of system you are using.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
32 It sets the Lisp variable system-type. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
33
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
34 #define SYSTEM_TYPE "vax-vms"
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
36 /* NOMULTIPLEJOBS should be defined if your system's shell
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
37 does not have "job control" (the ability to stop a program,
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
38 run some other program, then continue the first one). */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
40 /* #define NOMULTIPLEJOBS */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42 /* INTERRUPT_INPUT controls a default for Unix systems.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43 VMS uses a separate mechanism. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
44
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
45 /* #define INTERRUPT_INPUT */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47 /* Letter to use in finding device name of first pty,
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48 if system supports pty's. 'a' means it is /dev/ptya0 */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50 #define FIRST_PTY_LETTER 'a'
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
51
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
52 /*
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53 * Define HAVE_TIMEVAL if the system supports the BSD style clock values.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
54 * Look in <sys/time.h> for a timeval structure.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
55 */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
56
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
57 /* #define HAVE_TIMEVAL */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
59 /*
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
60 * Define HAVE_SELECT if the system supports the `select' system call.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
61 */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
62
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
63 /* #define HAVE_SELECT */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
64
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
65 /*
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
66 * Define HAVE_PTYS if the system supports pty devices.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
67 */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
68
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
69 /* #define HAVE_PTYS */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
70
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
71 /* Define HAVE_SOCKETS if system supports 4.2-compatible sockets. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
72
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
73 /* #define HAVE_SOCKETS */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
74
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
75 /*
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
76 * Define NONSYSTEM_DIR_LIBRARY to make Emacs emulate
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
77 * The 4.2 opendir, etc., library functions.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
78 */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
79
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
80 #define NONSYSTEM_DIR_LIBRARY
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
81
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
82 /* Define this symbol if your system has the functions bcopy, etc. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
83
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
84 /* #define BSTRING */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
85
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
86 /* subprocesses should be defined if you want to
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
87 have code for asynchronous subprocesses
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
88 (as used in M-x compile and M-x shell).
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
89 This is generally OS dependent, and not supported
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
90 under most USG systems. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
91
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
92 #define subprocesses
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
93
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
94 /* If your system uses COFF (Common Object File Format) then define the
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
95 preprocessor symbol "COFF". */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
96
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
97 /* #define COFF */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
98
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
99 /* define MAIL_USE_FLOCK if the mailer uses flock
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
100 to interlock access to /usr/spool/mail/$USER.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
101 The alternative is that a lock file named
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
102 /usr/spool/mail/$USER.lock. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
103
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
104 /* #define MAIL_USE_FLOCK */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
105
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
106 /* Define CLASH_DETECTION if you want lock files to be written
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
107 so that Emacs can tell instantly when you try to modify
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
108 a file that someone else has modified in his Emacs. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
109
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
110 /* #define CLASH_DETECTION */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
111
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
112 /* Define the maximum record length for print strings, if needed. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
113
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
114 #define MAX_PRINT_CHARS 300
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
115
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
116
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
117 /* Here, on a separate page, add any special hacks needed
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
118 to make Emacs work on this system. For example,
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
119 you might define certain system call names that don't
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
120 exist on your system, or that do different things on
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
121 your system and must be used only through an encapsulation
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
122 (Which you should place, by convention, in sysdep.c). */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
123
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
124 /* Do you have the shareable library bug? If you link with a shareable
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
125 library that contains psects with the NOSHR attribute and also refer to
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
126 those psects in your program, the linker give you a private version of
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
127 the psect which is not related to the version used by the shareable
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
128 library. The end result is that your references to variables in that
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
129 psect have absolutely nothing to do with library references to what is
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
130 supposed to be the same variable. If you intend to link with the standard
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
131 C library (NOT the shareable one) you don't need to define this. (This
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
132 is NOT fixed in V4.4...) */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
133
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
134 #define SHAREABLE_LIB_BUG
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
135
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
136 /* Partially due to the above mentioned bug and also so that we don't need
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
137 to require that people have a shareable C library, the default for Emacs
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
138 is to link with the non-shared library. If you want to link with the
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
139 shared library, define this and remake xmakefile and fileio.c. This allows
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
140 us to ship a guaranteed executable image. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
141
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
142 #define LINK_CRTL_SHARE
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
143
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
144 /* Define this if you want to read the file SYS$SYSTEM:SYSUAF.DAT for user
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
145 information. If you do use this, you must either make SYSUAF.DAT world
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
146 readable or install Emacs with SYSPRV. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
147
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
148 /* #define READ_SYSUAF */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
149
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
150 /* On VMS these have a different name */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
151
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
152 #define index strchr
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
153 #define rindex strrchr
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
154 #define unlink delete
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
155
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
156 /* On later versions of VMS these exist in the C run time library, but
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
157 we are using our own implementations. Hide their names to avoid
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
158 linker errors */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
159 #define rename sys_rename
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
160 #define execvp sys_execvp
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
161 #define system sys_system
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
162
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
163 /* Hide these names so that we don't get linker errors */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
164 #define malloc sys_malloc
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
165 #define free sys_free
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
166 #define realloc sys_realloc
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
167 #define calloc sys_calloc
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
168
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
169 /* Don't use the standard brk and sbrk */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
170 #define sbrk sys_sbrk
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
171 #define brk sys_brk
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
172
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
173 /* On VMS we want to avoid reading and writing very large amounts of
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
174 data at once, so we redefine read and write here. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
175
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
176 #define read sys_read
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
177 #define write sys_write
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
178
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
179 /* sys_creat just calls the real creat with additional args of
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
180 "rfm=var", "rat=cr" to get "normal" VMS files... */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
181 #define creat sys_creat
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
182
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
183 /* fwrite forces an RMS PUT on every call. This is abysmally slow, so
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
184 we emulate fwrite with fputc, which forces buffering and is much
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
185 faster! */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
186 #define fwrite sys_fwrite
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
187
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
188 /* getuid only returns the member number, which is not unique on most VMS
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
189 systems. We emulate it with (getgid()<<16 | getuid()). */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
190 #define getuid sys_getuid
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
191
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
192 /* If user asks for TERM, check first for EMACS_TERM. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
193 #define getenv sys_getenv
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
194
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
195 /* Standard C abort is less useful than it should be. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
196 #define abort sys_abort
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
197
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
198 /* Case conflicts with C library fread. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
199 #define Fread F_read
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
200
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
201 /* Case conflicts with C library srandom. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
202 #define Srandom S_random
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
203
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
204 /* Cause initialization of vmsfns.c to be run. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
205 #define SYMS_SYSTEM syms_of_vmsfns ()
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
206
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
207 /* VAXCRTL access doesn't deal with SYSPRV very well (among other oddites...)
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
208 Here, we use $CHKPRO to really determine access. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
209 #define access sys_access
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
210
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
211 #define PAGESIZE 512
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
212
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
213 #define _longjmp longjmp
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
214 #define _setjmp setjmp
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
215
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
216 globalref char sdata[];
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
217 #define DATA_START (((int) sdata + 511) & ~511)
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
218 #define TEXT_START 512
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
219
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
220 /* Baud-rate values from tty status are not standard. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
221
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
222 #define BAUD_CONVERT \
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
223 { 0, 50, 75, 110, 134, 150, 300, 600, 1200, 1800, \
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
224 2000, 2400, 3600, 4800, 7200, 9600, 19200 }
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
225
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
226 #define PURESIZE 132000
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
227
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
228 /* Stdio FILE type has extra indirect on VMS, so must alter this macro. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
229
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
230 #define PENDING_OUTPUT_COUNT(FILE) ((*(FILE))->_ptr - (*(FILE))->_base)