1 /*
2 * CDDL HEADER START
3 *
4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License, Version 1.0 only
6 * (the "License"). You may not use this file except in compliance
7 * with the License.
8 *
9 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10 * or http://www.opensolaris.org/os/licensing.
11 * See the License for the specific language governing permissions
12 * and limitations under the License.
13 *
14 * When distributing Covered Code, include this CDDL HEADER in each
15 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16 * If applicable, add the following below this CDDL HEADER, with the
17 * fields enclosed by brackets "[]" replaced with your own identifying
18 * information: Portions Copyright [yyyy] [name of copyright owner]
19 *
20 * CDDL HEADER END
21 */
22 /*
23 * Copyright (c) 1995-1998 by Sun Microsystems, Inc.
24 * All rights reserved.
25 */
26
27 /* LINTLIBRARY */
28
29 /*
30 * tputs.c
31 *
32 * XCurses Library
33 *
34 * Copyright 1990, 1995 by Mortice Kern Systems Inc. All rights reserved.
35 *
36 */
37
38 #ifdef M_RCSID
39 #ifndef lint
40 static char rcsID[] =
41 "$Header: /team/ps/sun_xcurses/archive/local_changes/xcurses/src/lib/"
42 "libxcurses/src/libc/xcurses/rcs/tputs.c 1.4 1998/06/03 12:57:02 "
43 "cbates Exp $";
44 #endif
45 #endif
46
47 #include <private.h>
48 #include <ctype.h>
49 #include <string.h>
50 #include <stdlib.h>
51
52 int
__m_putchar(int byte)53 __m_putchar(int byte)
54 {
55 return (putchar(byte));
56 }
57
58 #undef putp
59
60 int
putp(const char * s)61 putp(const char *s)
62 {
63 int code;
64
65 code = tputs(s, 1, __m_putchar);
66
67 return (code);
68 }
69
70 int
tputs(const char * string,int affcnt,int (* putout)(int))71 tputs(const char *string, int affcnt, int (*putout)(int))
72 {
73 (void) __m_tputs(string, affcnt, putout);
74
75 return (OK);
76 }
77
78 /*
79 * Apply padding information to a string and write it out.
80 * Note the '/' option is not supported.
81 */
82 int
__m_tputs(const char * string,int affcnt,int (* putout)(int))83 __m_tputs(const char *string, int affcnt, int (*putout)(int))
84 {
85 char *mark;
86 int i, baud, len, null, number;
87
88 baud = baudrate();
89 null = pad_char == NULL ? '\0' : pad_char[0];
90
91 for (len = 0; *string; ++string) {
92 /* Look for "$<num.????>" */
93 if (*string == '$' && string[1] == '<' &&
94 (isdigit(string[2]) || string[2] == '.') &&
95 (mark = strchr(string, '>'))) {
96 number = atoi(string + 2) * 10;
97 if ((string = strchr(string, '.')) != NULL)
98 number += *++string - '0';
99 string = mark;
100 if (*--mark == '*')
101 number *= affcnt;
102 #ifdef BREAKS_ftputs_ftputs1_2
103 if (padding_baud_rate && baud >= padding_baud_rate &&
104 !xon_xoff) {
105 #else /* BREAKS_ftputs_ftputs1_2 */
106 if (baud >= padding_baud_rate) {
107 #endif /* BREAKS_ftputs_ftputs1_2 */
108 number = (baud / 8 * number) / 10000;
109 len += number;
110 if (putout != (int (*)(int)) NULL) {
111 for (i = 0; i < number; i++)
112 (void) (*putout)(null);
113 }
114 }
115 } else {
116 ++len;
117 if (putout != (int (*)(int)) NULL)
118 (void) (*putout)(*string);
119 }
120 }
121
122 return (len);
123 }
124