GCC Code Coverage Report
Directory: ./ Exec Total Coverage
File: lib/libcurses/tinfo/lib_tputs.c Lines: 4 92 4.3 %
Date: 2017-11-13 Branches: 1 100 1.0 %

Line Branch Exec Source
1
/* $OpenBSD: lib_tputs.c,v 1.12 2010/01/12 23:22:06 nicm Exp $ */
2
3
/****************************************************************************
4
 * Copyright (c) 1998-2007,2008 Free Software Foundation, Inc.              *
5
 *                                                                          *
6
 * Permission is hereby granted, free of charge, to any person obtaining a  *
7
 * copy of this software and associated documentation files (the            *
8
 * "Software"), to deal in the Software without restriction, including      *
9
 * without limitation the rights to use, copy, modify, merge, publish,      *
10
 * distribute, distribute with modifications, sublicense, and/or sell       *
11
 * copies of the Software, and to permit persons to whom the Software is    *
12
 * furnished to do so, subject to the following conditions:                 *
13
 *                                                                          *
14
 * The above copyright notice and this permission notice shall be included  *
15
 * in all copies or substantial portions of the Software.                   *
16
 *                                                                          *
17
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  *
18
 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               *
19
 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   *
20
 * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   *
21
 * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    *
22
 * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    *
23
 * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               *
24
 *                                                                          *
25
 * Except as contained in this notice, the name(s) of the above copyright   *
26
 * holders shall not be used in advertising or otherwise to promote the     *
27
 * sale, use or other dealings in this Software without prior written       *
28
 * authorization.                                                           *
29
 ****************************************************************************/
30
31
/****************************************************************************
32
 *  Author: Zeyd M. Ben-Halim <zmbenhal@netcom.com> 1992,1995               *
33
 *     and: Eric S. Raymond <esr@snark.thyrsus.com>                         *
34
 *     and: Thomas E. Dickey                        1996-on                 *
35
 ****************************************************************************/
36
37
/*
38
 *	tputs.c
39
 *		delay_output()
40
 *		_nc_outch()
41
 *		tputs()
42
 *
43
 */
44
45
#include <curses.priv.h>
46
#include <ctype.h>
47
#include <term.h>		/* padding_baud_rate, xon_xoff */
48
#include <termcap.h>		/* ospeed */
49
#include <tic.h>
50
51
MODULE_ID("$Id: lib_tputs.c,v 1.12 2010/01/12 23:22:06 nicm Exp $")
52
53
NCURSES_EXPORT_VAR(char) PC = 0;              /* used by termcap library */
54
NCURSES_EXPORT_VAR(NCURSES_OSPEED) ospeed = 0;        /* used by termcap library */
55
56
NCURSES_EXPORT_VAR(int) _nc_nulls_sent = 0;   /* used by 'tack' program */
57
58
#if NCURSES_NO_PADDING
59
NCURSES_EXPORT(void)
60
_nc_set_no_padding(SCREEN *sp)
61
{
62
6
    bool no_padding = (getenv("NCURSES_NO_PADDING") != 0);
63
64
3
    if (sp)
65
	sp->_no_padding = no_padding;
66
    else
67
3
	_nc_prescreen._no_padding = no_padding;
68
69
    TR(TRACE_CHARPUT | TRACE_MOVE, ("padding will%s be used",
70
				    GetNoPadding(sp) ? " not" : ""));
71
3
}
72
#endif
73
74
static int (*my_outch) (int c) = _nc_outch;
75
76
NCURSES_EXPORT(int)
77
delay_output(int ms)
78
{
79
    T((T_CALLED("delay_output(%d)"), ms));
80
81
    if (no_pad_char) {
82
	_nc_flush();
83
	napms(ms);
84
    } else {
85
	register int nullcount;
86
87
	nullcount = (ms * _nc_baudrate(ospeed)) / (BAUDBYTE * 1000);
88
	for (_nc_nulls_sent += nullcount; nullcount > 0; nullcount--)
89
	    my_outch(PC);
90
	if (my_outch == _nc_outch)
91
	    _nc_flush();
92
    }
93
94
    returnCode(OK);
95
}
96
97
NCURSES_EXPORT(void)
98
_nc_flush(void)
99
{
100
    (void) fflush(NC_OUTPUT);
101
}
102
103
NCURSES_EXPORT(int)
104
_nc_outch(int ch)
105
{
106
    COUNT_OUTCHARS(1);
107
108
    if (SP != 0
109
	&& SP->_cleanup) {
110
	char tmp = ch;
111
	/*
112
	 * POSIX says write() is safe in a signal handler, but the
113
	 * buffered I/O is not.
114
	 */
115
	write(fileno(NC_OUTPUT), &tmp, 1);
116
    } else {
117
	putc(ch, NC_OUTPUT);
118
    }
119
    return OK;
120
}
121
122
NCURSES_EXPORT(int)
123
putp(const char *string)
124
{
125
    return tputs(string, 1, _nc_outch);
126
}
127
128
NCURSES_EXPORT(int)
129
tputs(const char *string, int affcnt, int (*outc) (int))
130
{
131
    bool always_delay;
132
    bool normal_delay;
133
    int number;
134
#if BSD_TPUTS
135
    int trailpad;
136
#endif /* BSD_TPUTS */
137
138
#ifdef TRACE
139
    char addrbuf[32];
140
141
    if (USE_TRACEF(TRACE_TPUTS)) {
142
	if (outc == _nc_outch)
143
	    (void) strlcpy(addrbuf, "_nc_outch", sizeof(addrbuf));
144
	else
145
	    (void) snprintf(addrbuf, sizeof(addrbuf), "%p", outc);
146
	if (_nc_tputs_trace) {
147
	    _tracef("tputs(%s = %s, %d, %s) called", _nc_tputs_trace,
148
		    _nc_visbuf(string), affcnt, addrbuf);
149
	} else {
150
	    _tracef("tputs(%s, %d, %s) called", _nc_visbuf(string), affcnt, addrbuf);
151
	}
152
	TPUTS_TRACE(NULL);
153
	_nc_unlock_global(tracef);
154
    }
155
#endif /* TRACE */
156
157
    if (!VALID_STRING(string))
158
	return ERR;
159
160
    if (cur_term == 0) {
161
	always_delay = FALSE;
162
	normal_delay = TRUE;
163
    } else {
164
	always_delay = (string == bell) || (string == flash_screen);
165
	normal_delay =
166
	    !xon_xoff
167
	    && padding_baud_rate
168
#if NCURSES_NO_PADDING
169
	    && !GetNoPadding(SP)
170
#endif
171
	    && (_nc_baudrate(ospeed) >= padding_baud_rate);
172
    }
173
174
#if BSD_TPUTS
175
    /*
176
     * This ugly kluge deals with the fact that some ancient BSD programs
177
     * (like nethack) actually do the likes of tputs("50") to get delays.
178
     */
179
    trailpad = 0;
180
    if (isdigit(UChar(*string))) {
181
	while (isdigit(UChar(*string))) {
182
	    trailpad = trailpad * 10 + (*string - '0');
183
	    string++;
184
	}
185
	trailpad *= 10;
186
	if (*string == '.') {
187
	    string++;
188
	    if (isdigit(UChar(*string))) {
189
		trailpad += (*string - '0');
190
		string++;
191
	    }
192
	    while (isdigit(UChar(*string)))
193
		string++;
194
	}
195
196
	if (*string == '*') {
197
	    trailpad *= affcnt;
198
	    string++;
199
	}
200
    }
201
#endif /* BSD_TPUTS */
202
203
    my_outch = outc;		/* redirect delay_output() */
204
    while (*string) {
205
	if (*string != '$')
206
	    (*outc) (*string);
207
	else {
208
	    string++;
209
	    if (*string != '<') {
210
		(*outc) ('$');
211
		if (*string)
212
		    (*outc) (*string);
213
	    } else {
214
		bool mandatory;
215
216
		string++;
217
		if ((!isdigit(UChar(*string)) && *string != '.')
218
		    || !strchr(string, '>')) {
219
		    (*outc) ('$');
220
		    (*outc) ('<');
221
		    continue;
222
		}
223
224
		number = 0;
225
		while (isdigit(UChar(*string))) {
226
		    number = number * 10 + (*string - '0');
227
		    string++;
228
		}
229
		number *= 10;
230
		if (*string == '.') {
231
		    string++;
232
		    if (isdigit(UChar(*string))) {
233
			number += (*string - '0');
234
			string++;
235
		    }
236
		    while (isdigit(UChar(*string)))
237
			string++;
238
		}
239
240
		mandatory = FALSE;
241
		while (*string == '*' || *string == '/') {
242
		    if (*string == '*') {
243
			number *= affcnt;
244
			string++;
245
		    } else {	/* if (*string == '/') */
246
			mandatory = TRUE;
247
			string++;
248
		    }
249
		}
250
251
		if (number > 0
252
		    && (always_delay
253
			|| normal_delay
254
			|| mandatory))
255
		    delay_output(number / 10);
256
257
	    }			/* endelse (*string == '<') */
258
	}			/* endelse (*string == '$') */
259
260
	if (*string == '\0')
261
	    break;
262
263
	string++;
264
    }
265
266
#if BSD_TPUTS
267
    /*
268
     * Emit any BSD-style prefix padding that we've accumulated now.
269
     */
270
    if (trailpad > 0
271
	&& (always_delay || normal_delay))
272
	delay_output(trailpad / 10);
273
#endif /* BSD_TPUTS */
274
275
    my_outch = _nc_outch;
276
    return OK;
277
}