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