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