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, by Sun Microsystems, Inc. 24 * All rights reserved. 25 */ 26 27 #pragma ident "%Z%%M% %I% %E% SMI" 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[] = "$Header: /rd/src/libc/xcurses/rcs/tputs.c 1.4 1995/07/19 12:44:45 ant Exp $"; 41 #endif 42 #endif 43 44 #include <private.h> 45 #include <ctype.h> 46 #include <string.h> 47 #include <stdlib.h> 48 49 int 50 __m_putchar(byte) 51 int byte; 52 { 53 return putchar(byte); 54 } 55 56 int 57 (putp)(const char *s) 58 { 59 int code; 60 61 #ifdef M_CURSES_TRACE 62 __m_trace("putp(%p = \"%s\")", s, s); 63 #endif 64 65 code = tputs(s, 1, __m_putchar); 66 67 return __m_return_code("putp", code); 68 } 69 70 /*f 71 * Apply padding information to a string and write it out. 72 * Note the '/' option is not supported. 73 */ 74 int 75 tputs(string, affcnt, putout) 76 const char *string; 77 int affcnt; 78 int (*putout)(int); 79 { 80 char *mark; 81 int i, baud, len, null, number; 82 83 #ifdef M_CURSES_TRACE 84 __m_trace("tputs(%p = \"%s\", %d, %p)", string, string, affcnt, putout); 85 #endif 86 87 baud = baudrate(); 88 null = pad_char == (char *) 0 ? '\0' : pad_char[0]; 89 90 for (len = 0; *string; ++string){ 91 /* Look for "$<num.????>" */ 92 if (*string == '$' 93 && string[1] == '<' 94 && (isdigit(string[2]) || string[2] == '.') 95 && (mark = strchr(string, '>'))){ 96 number = atoi(string+2) * 10; 97 if ((string = strchr(string, '.')) != (char *) 0) 98 number += *++string-'0'; 99 string = mark; 100 if (*--mark == '*') 101 number *= affcnt; 102 if (padding_baud_rate && baud >= padding_baud_rate 103 && !xon_xoff) { 104 number = (baud/10 * number)/1000; 105 len += number; 106 if (putout != (int (*)(int)) 0) { 107 for (i=0; i < number; i++) 108 (void) (*putout)(null); 109 } 110 } 111 } else { 112 ++len; 113 if (putout != (int (*)(int)) 0) 114 (void) (*putout)(*string); 115 } 116 } 117 118 return __m_return_int("tputs", len); 119 } 120 121 122