17c478bd9Sstevel@tonic-gate /*
27c478bd9Sstevel@tonic-gate * CDDL HEADER START
37c478bd9Sstevel@tonic-gate *
47c478bd9Sstevel@tonic-gate * The contents of this file are subject to the terms of the
57c478bd9Sstevel@tonic-gate * Common Development and Distribution License, Version 1.0 only
67c478bd9Sstevel@tonic-gate * (the "License"). You may not use this file except in compliance
77c478bd9Sstevel@tonic-gate * with the License.
87c478bd9Sstevel@tonic-gate *
97c478bd9Sstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
107c478bd9Sstevel@tonic-gate * or http://www.opensolaris.org/os/licensing.
117c478bd9Sstevel@tonic-gate * See the License for the specific language governing permissions
127c478bd9Sstevel@tonic-gate * and limitations under the License.
137c478bd9Sstevel@tonic-gate *
147c478bd9Sstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each
157c478bd9Sstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
167c478bd9Sstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the
177c478bd9Sstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying
187c478bd9Sstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner]
197c478bd9Sstevel@tonic-gate *
207c478bd9Sstevel@tonic-gate * CDDL HEADER END
217c478bd9Sstevel@tonic-gate */
227c478bd9Sstevel@tonic-gate /*
237c478bd9Sstevel@tonic-gate * Copyright (c) 1995, by Sun Microsystems, Inc.
247c478bd9Sstevel@tonic-gate * All rights reserved.
257c478bd9Sstevel@tonic-gate */
267c478bd9Sstevel@tonic-gate
277c478bd9Sstevel@tonic-gate /*
287c478bd9Sstevel@tonic-gate * tputs.c
297c478bd9Sstevel@tonic-gate *
307c478bd9Sstevel@tonic-gate * XCurses Library
317c478bd9Sstevel@tonic-gate *
327c478bd9Sstevel@tonic-gate * Copyright 1990, 1995 by Mortice Kern Systems Inc. All rights reserved.
337c478bd9Sstevel@tonic-gate *
347c478bd9Sstevel@tonic-gate */
357c478bd9Sstevel@tonic-gate
367c478bd9Sstevel@tonic-gate #ifdef M_RCSID
377c478bd9Sstevel@tonic-gate #ifndef lint
387c478bd9Sstevel@tonic-gate static char rcsID[] = "$Header: /rd/src/libc/xcurses/rcs/tputs.c 1.4 1995/07/19 12:44:45 ant Exp $";
397c478bd9Sstevel@tonic-gate #endif
407c478bd9Sstevel@tonic-gate #endif
417c478bd9Sstevel@tonic-gate
427c478bd9Sstevel@tonic-gate #include <private.h>
437c478bd9Sstevel@tonic-gate #include <ctype.h>
447c478bd9Sstevel@tonic-gate #include <string.h>
457c478bd9Sstevel@tonic-gate #include <stdlib.h>
467c478bd9Sstevel@tonic-gate
477c478bd9Sstevel@tonic-gate int
__m_putchar(byte)487c478bd9Sstevel@tonic-gate __m_putchar(byte)
497c478bd9Sstevel@tonic-gate int byte;
507c478bd9Sstevel@tonic-gate {
517c478bd9Sstevel@tonic-gate return putchar(byte);
527c478bd9Sstevel@tonic-gate }
537c478bd9Sstevel@tonic-gate
547c478bd9Sstevel@tonic-gate int
557c478bd9Sstevel@tonic-gate (putp)(const char *s)
567c478bd9Sstevel@tonic-gate {
577c478bd9Sstevel@tonic-gate int code;
587c478bd9Sstevel@tonic-gate
597c478bd9Sstevel@tonic-gate #ifdef M_CURSES_TRACE
607c478bd9Sstevel@tonic-gate __m_trace("putp(%p = \"%s\")", s, s);
617c478bd9Sstevel@tonic-gate #endif
627c478bd9Sstevel@tonic-gate
637c478bd9Sstevel@tonic-gate code = tputs(s, 1, __m_putchar);
647c478bd9Sstevel@tonic-gate
657c478bd9Sstevel@tonic-gate return __m_return_code("putp", code);
667c478bd9Sstevel@tonic-gate }
677c478bd9Sstevel@tonic-gate
687c478bd9Sstevel@tonic-gate /*f
697c478bd9Sstevel@tonic-gate * Apply padding information to a string and write it out.
707c478bd9Sstevel@tonic-gate * Note the '/' option is not supported.
717c478bd9Sstevel@tonic-gate */
727c478bd9Sstevel@tonic-gate int
tputs(string,affcnt,putout)737c478bd9Sstevel@tonic-gate tputs(string, affcnt, putout)
747c478bd9Sstevel@tonic-gate const char *string;
757c478bd9Sstevel@tonic-gate int affcnt;
767c478bd9Sstevel@tonic-gate int (*putout)(int);
777c478bd9Sstevel@tonic-gate {
787c478bd9Sstevel@tonic-gate char *mark;
797c478bd9Sstevel@tonic-gate int i, baud, len, null, number;
807c478bd9Sstevel@tonic-gate
817c478bd9Sstevel@tonic-gate #ifdef M_CURSES_TRACE
827c478bd9Sstevel@tonic-gate __m_trace("tputs(%p = \"%s\", %d, %p)", string, string, affcnt, putout);
837c478bd9Sstevel@tonic-gate #endif
847c478bd9Sstevel@tonic-gate
857c478bd9Sstevel@tonic-gate baud = baudrate();
867c478bd9Sstevel@tonic-gate null = pad_char == (char *) 0 ? '\0' : pad_char[0];
877c478bd9Sstevel@tonic-gate
887c478bd9Sstevel@tonic-gate for (len = 0; *string; ++string){
897c478bd9Sstevel@tonic-gate /* Look for "$<num.????>" */
90*1da57d55SToomas Soome if (*string == '$'
91*1da57d55SToomas Soome && string[1] == '<'
927c478bd9Sstevel@tonic-gate && (isdigit(string[2]) || string[2] == '.')
937c478bd9Sstevel@tonic-gate && (mark = strchr(string, '>'))){
947c478bd9Sstevel@tonic-gate number = atoi(string+2) * 10;
957c478bd9Sstevel@tonic-gate if ((string = strchr(string, '.')) != (char *) 0)
96*1da57d55SToomas Soome number += *++string-'0';
977c478bd9Sstevel@tonic-gate string = mark;
987c478bd9Sstevel@tonic-gate if (*--mark == '*')
997c478bd9Sstevel@tonic-gate number *= affcnt;
100*1da57d55SToomas Soome if (padding_baud_rate && baud >= padding_baud_rate
1017c478bd9Sstevel@tonic-gate && !xon_xoff) {
1027c478bd9Sstevel@tonic-gate number = (baud/10 * number)/1000;
1037c478bd9Sstevel@tonic-gate len += number;
1047c478bd9Sstevel@tonic-gate if (putout != (int (*)(int)) 0) {
1057c478bd9Sstevel@tonic-gate for (i=0; i < number; i++)
1067c478bd9Sstevel@tonic-gate (void) (*putout)(null);
1077c478bd9Sstevel@tonic-gate }
1087c478bd9Sstevel@tonic-gate }
1097c478bd9Sstevel@tonic-gate } else {
1107c478bd9Sstevel@tonic-gate ++len;
1117c478bd9Sstevel@tonic-gate if (putout != (int (*)(int)) 0)
1127c478bd9Sstevel@tonic-gate (void) (*putout)(*string);
1137c478bd9Sstevel@tonic-gate }
1147c478bd9Sstevel@tonic-gate }
1157c478bd9Sstevel@tonic-gate
1167c478bd9Sstevel@tonic-gate return __m_return_int("tputs", len);
1177c478bd9Sstevel@tonic-gate }
1187c478bd9Sstevel@tonic-gate
1197c478bd9Sstevel@tonic-gate
120