1 /*
2 * CDDL HEADER START
3 *
4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License, Version 1.0 only
6 * (the "License"). You may not use this file except in compliance
7 * with the License.
8 *
9 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10 * or http://www.opensolaris.org/os/licensing.
11 * See the License for the specific language governing permissions
12 * and limitations under the License.
13 *
14 * When distributing Covered Code, include this CDDL HEADER in each
15 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16 * If applicable, add the following below this CDDL HEADER, with the
17 * fields enclosed by brackets "[]" replaced with your own identifying
18 * information: Portions Copyright [yyyy] [name of copyright owner]
19 *
20 * CDDL HEADER END
21 */
22 /*
23 * Copyright (c) 1995-1998 by Sun Microsystems, Inc.
24 * All rights reserved.
25 */
26
27 #pragma ident "%Z%%M% %I% %E% SMI"
28
29 /* LINTLIBRARY */
30
31 /*
32 * vid_puts.c
33 *
34 * XCurses Library
35 *
36 * Copyright 1990, 1995 by Mortice Kern Systems Inc. All rights reserved.
37 *
38 */
39
40 #ifdef M_RCSID
41 #ifndef lint
42 static char rcsID[] =
43 "$Header: /team/ps/sun_xcurses/archive/local_changes/xcurses/src/lib/"
44 "libxcurses/src/libc/xcurses/rcs/vid_puts.c 1.6 1998/05/28 14:22:43 "
45 "cbates Exp $";
46 #endif
47 #endif
48
49 #include <private.h>
50
51 static attr_t turn_off(int (*)(int), attr_t);
52 static attr_t turn_on(int (*)(int), attr_t);
53
54 /*
55 * Return true if attribute X a member of the attribute set A.
56 * no_color_video is the set of attributes that cannot be combined
57 * with colours.
58 */
59 #define ISATTR(a, x) (((a) & ~no_color_video & (x)) == (x))
60
61 /*
62 * Set the desired attribute state for a terminal screen.
63 *
64 * Using set_attributes is the prefered method but requires some care
65 * in writing the proper terminfo string. Using exit_attribute_mode and
66 * the assorted enter_ attribute mode capabilities is the next best method.
67 * Finally using the assorted exit_ and enter_ attribute mode capabilities
68 * is the last method available and is not necessarily efficent (or smart
69 * because of the needs of ceol_standout_glitch support).
70 */
71 /* ARGSUSED */
72 int
vid_puts(attr_t attr,short pair,void * opts,int (* putout)(int))73 vid_puts(attr_t attr, short pair, void *opts, int (*putout)(int))
74 {
75 long p1, p2, p3, p4, p5, p6, p7, p8, p9;
76
77 if (set_attributes != NULL && ATTR_STATE != attr) {
78 /*
79 * Assume that <set_attributes> disables attributes
80 * then re-enables attributes that are to be on.
81 */
82 p1 = (long) ISATTR(attr, WA_STANDOUT);
83 p2 = (long) ISATTR(attr, WA_UNDERLINE);
84 p3 = (long) ISATTR(attr, WA_REVERSE);
85 p4 = (long) ISATTR(attr, WA_BLINK);
86 p5 = (long) ISATTR(attr, WA_DIM);
87 p6 = (long) ISATTR(attr, WA_BOLD);
88 p7 = (long) ISATTR(attr, WA_INVIS);
89 p8 = (long) ISATTR(attr, WA_PROTECT);
90 p9 = (long) ISATTR(attr, WA_ALTCHARSET);
91
92 (void) TPUTS(tparm(set_attributes,
93 p1, p2, p3, p4, p5, p6, p7, p8, p9),
94 1, putout);
95
96 ATTR_STATE &= ~WA_SGR_MASK;
97 ATTR_STATE |= attr & WA_SGR_MASK;
98
99 /*
100 * Only use <set_a_attributes> when <set_attributes>
101 * is defined. <set_a_attributes> should not disable
102 * attributes, as this will have been handled by
103 * <set_attributes>.
104 * NOT TRUE - C. Bates
105 */
106 if (set_a_attributes != NULL) {
107 p1 = (long) ISATTR(attr, WA_HORIZONTAL);
108 p2 = (long) ISATTR(attr, WA_LEFT);
109 p3 = (long) ISATTR(attr, WA_LOW);
110 p4 = (long) ISATTR(attr, WA_RIGHT);
111 p5 = (long) ISATTR(attr, WA_TOP);
112 p6 = (long) ISATTR(attr, WA_VERTICAL);
113
114 (void) TPUTS(tparm(set_a_attributes,
115 p1, p2, p3, p4, p5, p6, 0L, 0L, 0L),
116 1, putout);
117
118 ATTR_STATE &= ~WA_SGR1_MASK;
119 ATTR_STATE |= attr & WA_SGR1_MASK;
120 }
121 } else if (ATTR_STATE != attr) {
122 /* Turn off only those attributes that are on. */
123 (void) turn_off(putout, ATTR_STATE);
124
125 /*
126 * Turn on attributes regardless if they are already
127 * on, because terminals with ceol_standout_glitch, like
128 * HP terminals, will have to re-enforce the current
129 * attributes in order to change existing attribute
130 * cookies on the screen.
131 */
132 ATTR_STATE = turn_on(putout, attr);
133 }
134
135 /*
136 * A_NORMAL equals 0, which is all attributes off and
137 * COLOR_PAIR(0). This implies that colour pair 0 is
138 * the orig_pair.
139 */
140 if (pair == 0) {
141 if (orig_pair != NULL) {
142 (void) TPUTS(orig_pair, 1, putout);
143 }
144
145 pair = 0;
146 } else if (pair != cur_term->_co && 0 < max_colors) {
147 short fg, bg;
148
149 if (set_color_pair != NULL) {
150 (void) TPUTS(tparm(set_color_pair, (long) pair,
151 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L),
152 1, putout);
153 } else if (pair_content(pair, &fg, &bg) == OK) {
154 if (set_a_foreground != NULL) {
155 (void) TPUTS(tparm(set_a_foreground, (long) fg,
156 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L),
157 1, putout);
158 } else if (set_foreground != NULL) {
159 (void) TPUTS(tparm(set_foreground, (long) fg,
160 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L),
161 1, putout);
162 }
163
164 if (set_a_background != NULL) {
165 (void) TPUTS(tparm(set_a_background, (long) bg,
166 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L),
167 1, putout);
168 } else if (set_background != NULL) {
169 (void) TPUTS(tparm(set_background, (long) bg,
170 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L),
171 1, putout);
172 }
173 }
174 }
175
176 /* Remember the current attribute state for the terminal. */
177 ATTR_STATE = attr;
178 cur_term->_co = pair;
179
180 return (OK);
181 }
182
183 static attr_t
turn_off(int (* putout)(int),attr_t attr)184 turn_off(int (*putout)(int), attr_t attr)
185 {
186 attr_t new = attr;
187
188 if (exit_attribute_mode != NULL) {
189 (void) TPUTS(exit_attribute_mode, 1, putout);
190 new = WA_NORMAL;
191 } else {
192 if (ISATTR(attr, WA_UNDERLINE) &&
193 exit_underline_mode != NULL) {
194 (void) TPUTS(exit_underline_mode, 1, putout);
195 new &= ~WA_UNDERLINE;
196 }
197
198 if (ISATTR(attr, WA_STANDOUT) &&
199 exit_standout_mode != NULL) {
200 (void) TPUTS(exit_standout_mode, 1, putout);
201 new &= ~WA_STANDOUT;
202 }
203
204 if (ISATTR(attr, WA_ALTCHARSET) &&
205 exit_alt_charset_mode != NULL) {
206 (void) TPUTS(exit_alt_charset_mode, 1, putout);
207 new &= ~WA_ALTCHARSET;
208 }
209 }
210
211 return (new);
212 }
213
214 static attr_t
turn_on(int (* putout)(int),attr_t attr)215 turn_on(int (*putout)(int), attr_t attr)
216 {
217 attr_t new = attr;
218
219 if (ISATTR(attr, WA_ALTCHARSET) &&
220 enter_alt_charset_mode != NULL) {
221 (void) TPUTS(enter_alt_charset_mode, 1, putout);
222 new |= WA_ALTCHARSET;
223 }
224
225 if (ISATTR(attr, WA_BLINK) &&
226 enter_blink_mode != NULL) {
227 (void) TPUTS(enter_blink_mode, 1, putout);
228 new |= WA_BLINK;
229 }
230
231 if (ISATTR(attr, WA_BOLD) &&
232 enter_bold_mode != NULL) {
233 (void) TPUTS(enter_bold_mode, 1, putout);
234 new |= WA_BOLD;
235 }
236
237 if (ISATTR(attr, WA_INVIS) &&
238 enter_secure_mode != NULL) {
239 (void) TPUTS(enter_secure_mode, 1, putout);
240 new |= WA_INVIS;
241 }
242
243 if (ISATTR(attr, WA_DIM) &&
244 enter_dim_mode != NULL) {
245 (void) TPUTS(enter_dim_mode, 1, putout);
246 new |= WA_DIM;
247 }
248
249 if (ISATTR(attr, WA_PROTECT) &&
250 enter_protected_mode != NULL) {
251 (void) TPUTS(enter_protected_mode, 1, putout);
252 new |= WA_PROTECT;
253 }
254
255 if (ISATTR(attr, WA_REVERSE) &&
256 enter_reverse_mode != NULL) {
257 (void) TPUTS(enter_reverse_mode, 1, putout);
258 new |= WA_REVERSE;
259 }
260
261 if (ISATTR(attr, WA_STANDOUT) &&
262 enter_standout_mode != NULL) {
263 (void) TPUTS(enter_standout_mode, 1, putout);
264 new |= WA_STANDOUT;
265 }
266
267 if (ISATTR(attr, WA_UNDERLINE) &&
268 enter_underline_mode != NULL) {
269 (void) TPUTS(enter_underline_mode, 1, putout);
270 new |= WA_UNDERLINE;
271 }
272
273 if (ISATTR(attr, WA_HORIZONTAL) &&
274 enter_horizontal_hl_mode != NULL) {
275 (void) TPUTS(enter_horizontal_hl_mode, 1, putout);
276 new |= WA_HORIZONTAL;
277 }
278
279 if (ISATTR(attr, WA_LEFT) &&
280 enter_left_hl_mode != NULL) {
281 (void) TPUTS(enter_left_hl_mode, 1, putout);
282 new |= WA_LEFT;
283 }
284
285 if (ISATTR(attr, WA_LOW) &&
286 enter_low_hl_mode != NULL) {
287 (void) TPUTS(enter_low_hl_mode, 1, putout);
288 new |= WA_LOW;
289 }
290
291 if (ISATTR(attr, WA_RIGHT) &&
292 enter_right_hl_mode != NULL) {
293 (void) TPUTS(enter_right_hl_mode, 1, putout);
294 new |= WA_RIGHT;
295 }
296
297 if (ISATTR(attr, WA_TOP) &&
298 enter_top_hl_mode != NULL) {
299 (void) TPUTS(enter_top_hl_mode, 1, putout);
300 new |= WA_TOP;
301 }
302
303 if (ISATTR(attr, WA_VERTICAL) &&
304 enter_vertical_hl_mode != NULL) {
305 (void) TPUTS(enter_vertical_hl_mode, 1, putout);
306 new |= WA_VERTICAL;
307 }
308
309 return (new);
310 }
311