lib/libterminfo/tputs.c

   1 /* $NetBSD: tputs.c,v 1.2 2010/02/12 10:36:07 martin 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.2 2010/02/12 10:36:07 martin 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  */
  45 static const short tmspc10[] = {
  46         0, 2000, 1333, 909, 743, 666, 500, 333, 166, 83, 55, 41, 20, 10, 5
  47 };
  48
  49 short ospeed;
  50 char PC;
  51
  52 static 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
  80 static 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
  95 static 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
 130 int
 131 ti_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
 153 int
 154 ti_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
 162 int
 163 tputs(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
 172 int
 173 putp(const char *str)
 174 {
 175
 176         _DIAGASSERT(str != NULL);
 177         return tputs(str, 1, putchar);
 178 }