xref: /netbsd-src/lib/libcurses/addchnstr.c (revision 6348e3f32a4431b45d07e1da16fd7b12725a45e7)
1 /*	$NetBSD: addchnstr.c,v 1.10 2024/12/23 02:58:03 blymn Exp $	*/
2 
3 /*
4  * Copyright (c) 2003 The NetBSD Foundation, Inc.
5  * All rights reserved.
6  *
7  * This code is derived from software contributed to The NetBSD Foundation
8  * by Douwe Kiela (virtus@wanadoo.nl).
9  *
10  * Redistribution and use in source and binary forms, with or without
11  * modification, are permitted provided that the following conditions
12  * are met:
13  * 1. Redistributions of source code must retain the above copyright
14  *    notice, this list of conditions and the following disclaimer.
15  * 2. Redistributions in binary form must reproduce the above copyright
16  *    notice, this list of conditions and the following disclaimer in the
17  *    documentation and/or other materials provided with the distribution.
18  *
19  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
20  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
21  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
23  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29  * POSSIBILITY OF SUCH DAMAGE.
30  */
31 
32 #include <sys/cdefs.h>
33 #ifndef lint
34 __RCSID("$NetBSD: addchnstr.c,v 1.10 2024/12/23 02:58:03 blymn Exp $");
35 #endif				/* not lint */
36 
37 #include <stdlib.h>
38 
39 #include "curses.h"
40 #include "curses_private.h"
41 
42 #ifndef _CURSES_USE_MACROS
43 
44 /*
45  * addchstr --
46  *      Add a string to stdscr starting at (_cury, _curx).
47  */
48 int
49 addchstr(const chtype *chstr)
50 {
51 	return waddchnstr(stdscr, chstr, -1);
52 }
53 
54 /*
55  * waddchstr --
56  *      Add a string to the given window starting at (_cury, _curx).
57  */
58 int
59 waddchstr(WINDOW *win, const chtype *chstr)
60 {
61 	return waddchnstr(win, chstr, -1);
62 }
63 
64 /*
65  * addchnstr --
66  *      Add a string (at most n characters) to stdscr starting
67  *	at (_cury, _curx).  If n is negative, add the entire string.
68  */
69 int
70 addchnstr(const chtype *chstr, int n)
71 {
72 	return waddchnstr(stdscr, chstr, n);
73 }
74 
75 /*
76  * mvaddchstr --
77  *      Add a string to stdscr starting at (y, x)
78  */
79 int
80 mvaddchstr(int y, int x, const chtype *chstr)
81 {
82 	return mvwaddchnstr(stdscr, y, x, chstr, -1);
83 }
84 
85 /*
86  * mvwaddchstr --
87  *      Add a string to the given window starting at (y, x)
88  */
89 int
90 mvwaddchstr(WINDOW *win, int y, int x, const chtype *chstr)
91 {
92 	return mvwaddchnstr(win, y, x, chstr, -1);
93 }
94 
95 /*
96  * mvaddchnstr --
97  *      Add a string of at most n characters to stdscr
98  *      starting at (y, x).
99  */
100 int
101 mvaddchnstr(int y, int x, const chtype *chstr, int n)
102 {
103 	return mvwaddchnstr(stdscr, y, x, chstr, n);
104 }
105 
106 /*
107  * mvwaddchnstr --
108  *      Add a string of at most n characters to the given window
109  *      starting at (y, x).
110  */
111 int
112 mvwaddchnstr(WINDOW *win, int y, int x, const chtype *chstr, int n)
113 {
114 	if (wmove(win, y, x) == ERR)
115 		return ERR;
116 
117 	return waddchnstr(win, chstr, n);
118 }
119 
120 #endif
121 
122 /*
123  * waddchnstr --
124  *	Add a string (at most n characters) to the given window
125  *	starting at (_cury, _curx) until the end of line is reached or
126  *      n characters have been added.  If n is negative, add as much
127  *	of the string that will fit on the current line.  SUSv2 says
128  *      that the addchnstr family does not wrap and strings are truncated
129  *      to the RHS of the window.
130  */
131 int
132 waddchnstr(WINDOW *win, const chtype *chstr, int n)
133 {
134 	size_t  len;
135 	const chtype *chp;
136 	attr_t	attr;
137 	char	*ocp, *cp, *start;
138 	int i, ret, ox, oy;
139 
140 	__CTRACE(__CTRACE_INPUT, "waddchnstr: win = %p, chstr = %p, n = %d\n",
141 	    win, chstr, n);
142 
143 	if (__predict_false(win == NULL))
144 		return ERR;
145 
146 	if (n >= 0)
147 		for (chp = chstr, len = 0; n-- && *chp++; ++len);
148 	else
149 		for (chp = chstr, len = 0; *chp++; ++len);
150 
151 	/* check if string is too long for current location */
152 	if (len > (win->maxx - win->curx))
153 		len = win->maxx - win->curx;
154 
155 	if ((ocp = malloc(len + 1)) == NULL)
156 		return ERR;
157 	chp = chstr;
158 	cp = ocp;
159 	start = ocp;
160 	i = 0;
161 	attr = (*chp) & __ATTRIBUTES;
162 	ox = win->curx;
163 	oy = win->cury;
164 	while (len) {
165 		*cp = (*chp) & __CHARTEXT;
166 		cp++;
167 		chp++;
168 		i++;
169 		len--;
170 		if (((*chp) & __ATTRIBUTES) != attr) {
171 			*cp = '\0';
172 			if (_cursesi_waddbytes(win, start, i, attr, 0) == ERR) {
173 				free(ocp);
174 				return ERR;
175 			}
176 			attr = (*chp) & __ATTRIBUTES;
177 			start = cp;
178 			i = 0;
179 		}
180 	}
181 	*cp = '\0';
182 	ret = _cursesi_waddbytes(win, start, i, attr, 0);
183 	free(ocp);
184 	wmove(win, oy, ox);
185 	return ret;
186 }
187