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