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 53 __m_putchar(int byte) 54 { 55 return (putchar(byte)); 56 } 57 58 #undef putp 59 60 int 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 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 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