1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
|
/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License, Version 1.0 only
* (the "License"). You may not use this file except in compliance
* with the License.
*
* You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
* or http://www.opensolaris.org/os/licensing.
* See the License for the specific language governing permissions
* and limitations under the License.
*
* When distributing Covered Code, include this CDDL HEADER in each
* file and include the License file at usr/src/OPENSOLARIS.LICENSE.
* If applicable, add the following below this CDDL HEADER, with the
* fields enclosed by brackets "[]" replaced with your own identifying
* information: Portions Copyright [yyyy] [name of copyright owner]
*
* CDDL HEADER END
*/
/*
* Copyright 1997 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
* Copyright (c) 2016 by Delphix. All rights reserved.
*/
/* Copyright (c) 1988 AT&T */
/* All Rights Reserved */
/* Copyright (c) 1979 Regents of the University of California */
#pragma ident "%Z%%M% %I% %E% SMI"
/*LINTLIBRARY*/
#include <sys/types.h>
#include <ctype.h>
#include "curses_inc.h"
/*
* Put the character string cp out, with padding.
* The number of affected lines is affcnt, and the routine
* used to output one character is outc.
*/
static char *ocp;
static char *
_tpad(char *, int, int (*)(char));
static char *
_tpad(char *cp, int affcnt, int (*outc)(char x))
{
int delay = 0;
char *icp = cp;
int ignorexon = 0, doaffcnt = 0;
#ifdef _VR2_COMPAT_CODE
/*
* Why is this here?
* Because mandatory padding must be used for flash_screen
* and bell. We cannot force users to code mandatory padding
* in their terminfo entries, as that would break compatibility.
* We therefore, do it here.
*
* When compatibility is to be broken, it will go away
* and users will be informed that they MUST use mandatory
* padding for flash and bell.
*/
if (ocp == bell || ocp == flash_screen)
ignorexon = TRUE;
#endif /* _VR2_COMPAT_CODE */
/* Eat initial $< */
cp += 2;
/* Convert the number representing the delay. */
if (isdigit(*cp)) {
do
delay = delay * 10 + *cp++ - '0';
while (isdigit(*cp));
}
delay *= 10;
if (*cp == '.') {
cp++;
if (isdigit(*cp))
delay += *cp - '0';
/* Only one digit to the right of the decimal point. */
while (isdigit(*cp))
cp++;
}
/*
* If the delay is followed by a `*', then
* multiply by the affected lines count.
* If the delay is followed by a '/', then
* the delay is done irregardless of xon/xoff.
*/
/*CONSTCOND*/
while (TRUE) {
if (*cp == '/')
ignorexon = TRUE;
else
if (*cp == '*')
doaffcnt = TRUE;
else
break;
cp++;
}
if (doaffcnt)
delay *= affcnt;
if (*cp == '>')
cp++; /* Eat trailing '>' */
else {
/*
* We got a "$<" with no ">". This is usually caused by
* a cursor addressing sequence that happened to generate
* $ < . To avoid an infinite loop, we output the $ here
* and pass back the rest.
*/
(*outc)(*icp++);
return (icp);
}
/*
* If no delay needed, or output speed is
* not comprehensible, then don't try to delay.
*/
if (delay == 0)
return (cp);
/*
* Let handshaking take care of it - no extra cpu load from pads.
* Also, this will be more optimal since the pad info is usually
* worst case. We only use padding info for such terminals to
* estimate the cost of a capability in choosing the cheapest one.
* Some capabilities, such as flash_screen, really want the
* padding irregardless.
*/
if (xon_xoff && !ignorexon)
return (cp);
(void) _delay(delay, outc);
return (cp);
}
int
tputs(char *cp, int affcnt, int (*outc)(char))
{
if (cp != 0) {
ocp = cp;
/* The guts of the string. */
while (*cp)
if (*cp == '$' && cp[1] == '<')
cp = _tpad(cp, affcnt, outc);
else
(*outc)(*cp++);
}
return (OK);
}
|
