1/* $NetBSD: tputs.c,v 1.1 2010/02/03 15:16:32 roy Exp $ */ 2 3/* 4 * Copyright (c) 2009 The NetBSD Foundation, Inc. 5 * 6 * This code is derived from software contributed to The NetBSD Foundation 7 * by Roy Marples. 8 * 9 * Redistribution and use in source and binary forms, with or without 10 * modification, are permitted provided that the following conditions 11 * are met: 12 * 1. Redistributions of source code must retain the above copyright 13 * notice, this list of conditions and the following disclaimer. 14 * 2. Redistributions in binary form must reproduce the above copyright 15 * notice, this list of conditions and the following disclaimer in the 16 * documentation and/or other materials provided with the distribution. 17 * 18 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR 19 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 20 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 21 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, 22 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 23 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 24 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 25 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 26 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF 27 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 28 */ 29 30#include <sys/cdefs.h> 31__RCSID("$NetBSD: tputs.c,v 1.1 2010/02/03 15:16:32 roy Exp $"); 32 33#include <assert.h> 34#include <ctype.h> 35#include <stdio.h> 36#include <string.h> 37#include <term_private.h> 38#include <term.h> 39 40/* 41 * The following array gives the number of tens of milliseconds per 42 * character for each speed as returned by gtty. Thus since 300 43 * baud returns a 7, there are 33.3 milliseconds per char at 300 baud. 44 */ 45static const short tmspc10[] = { 46 0, 2000, 1333, 909, 743, 666, 500, 333, 166, 83, 55, 41, 20, 10, 5 47}; 48 49short ospeed; 50char PC; 51 52static int 53_ti_calcdelay(const char **str, int affcnt, int *mand) 54{ 55 int i; 56 57 i = 0; 58 /* Convert the delay */ 59 while (isdigit(*(const unsigned char *)*str)) 60 i = i * 10 + *(*str)++ - '0'; 61 i *= 10; 62 if (*(*str) == '.') { 63 (*str)++; 64 if (isdigit(*(const unsigned char *)*str)) 65 i += *(*str) - '0'; 66 while (isdigit(*(const unsigned char *)*str)) 67 (*str)++; 68 } 69 if (*(*str) == '*') { 70 (*str)++; 71 i *= affcnt; 72 } else if (*(*str) == '/') { 73 (*str)++; 74 if (mand != NULL) 75 *mand = 1; 76 } 77 return i; 78} 79 80static void 81_ti_outputdelay(int delay, short os, char pc, 82 int (*outc)(int, void *), void *args) 83{ 84 int mspc10; 85 86 if (delay < 1 || os < 1 || (size_t)os >= __arraycount(tmspc10)) 87 return; 88 89 mspc10 = tmspc10[os]; 90 delay += mspc10 / 2; 91 for (delay /= mspc10; delay > 0; delay--) 92 outc(pc, args); 93} 94 95static int 96_ti_puts(int dodelay, int os, int pc, 97 const char *str, int affcnt, int (*outc)(int, void *), void *args) 98{ 99 int taildelay, delay, mand; 100 101 if (str == NULL) 102 return OK; 103 104 taildelay = _ti_calcdelay(&str, affcnt, NULL); 105 106 /* Output the string with embedded delays */ 107 for (; *str != '\0'; str++) { 108 if (str[0] != '$' || 109 str[1] != '<' || 110 !(isdigit((const unsigned char)str[2]) || str[2] == '.') || 111 strchr(str + 3, '>') == NULL) 112 { 113 outc(*str, args); 114 } else { 115 str += 2; 116 mand = 0; 117 delay = _ti_calcdelay(&str, affcnt, &mand); 118 if (dodelay != 0 || mand != 0) 119 _ti_outputdelay(delay, os, pc, outc, args); 120 } 121 } 122 123 /* Delay if needed */ 124 if (dodelay) 125 _ti_outputdelay(taildelay, os, pc, outc, args); 126 127 return OK; 128} 129 130int 131ti_puts(const TERMINAL *term, const char *str, int affcnt, 132 int (*outc)(int, void *), void *args) 133{ 134 int dodelay; 135 char pc; 136 137 _DIAGASSERT(term != NULL); 138 _DIAGASSERT(str != NULL); 139 _DIAGASSERT(outc != NULL); 140 141 dodelay = (str == t_bell(term) || 142 str == t_flash_screen(term) || 143 (t_xon_xoff(term) == 0 && t_padding_baud_rate(term) != 0)); 144 145 if (t_pad_char(term) == NULL) 146 pc = '\0'; 147 else 148 pc = *t_pad_char(term); 149 return _ti_puts(dodelay, term->_ospeed, pc, 150 str, affcnt, outc, args); 151} 152 153int 154ti_putp(const TERMINAL *term, const char *str) 155{ 156 157 _DIAGASSERT(term != NULL); 158 _DIAGASSERT(str != NULL); 159 return ti_puts(term, str, 1, (int (*)(int, void *))putchar, NULL); 160} 161 162int 163tputs(const char *str, int affcnt, int (*outc)(int)) 164{ 165 166 _DIAGASSERT(str != NULL); 167 _DIAGASSERT(outc != NULL); 168 return _ti_puts(1, ospeed, PC, str, affcnt, 169 (int (*)(int, void *))outc, NULL); 170} 171 172int 173putp(const char *str) 174{ 175 176 _DIAGASSERT(str != NULL); 177 return tputs(str, 1, putchar); 178} 179