usr/src/ucblib/libtermcap/tputs.c

   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 1997 Sun Microsystems, Inc.  All rights reserved.
  24  * Use is subject to license terms.
  25  */
  26
  27 /*      Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989 AT&T     */
  28 /*        All Rights Reserved   */
  29
  30 /* Copyright (c) 1979 Regents of the University of California */
  31
  32 #pragma ident   "%Z%%M% %I%     %E% SMI"
  33
  34 /*LINTLIBRARY*/
  35
  36 #if 0
  37 static char
  38 sccsid[] = "@(#)tputs.c 1.5 88/02/08 SMI"; /* from UCB 4.1 6/27/83 */
  39 #endif
  40
  41 #include <sys/types.h>
  42 #include <sgtty.h>
  43 #include <ctype.h>
  44
  45 /*
  46  * The following array gives the number of tens of milliseconds per
  47  * character for each speed as returned by gtty.  Thus since 300
  48  * baud returns a 7, there are 33.3 milliseconds per char at 300 baud.
  49  */
  50 static
  51 short   tmspc10[] = {
  52         0, 2000, 1333, 909, 743, 666, 500, 333, 166, 83, 55, 41, 20, 10, 5
  53 };
  54
  55 short   ospeed;
  56 char    PC;
  57
  58 /*
  59  * Put the character string cp out, with padding.
  60  * The number of affected lines is affcnt, and the routine
  61  * used to output one character is outc.
  62  *
  63  * Note:
  64  * Return value is provided only because prototype is defined as such;
  65  * no real meaning.
  66  */
  67
  68 int
  69 tputs(char *cp, int affcnt, int (*outc)(char))
  70 {
  71         int i = 0;
  72         int mspc10;
  73
  74         if (cp == 0)
  75                 return (0);
  76
  77         /*
  78          * Convert the number representing the delay.
  79          */
  80         if (isdigit(*cp)) {
  81                 do
  82                         i = i * 10 + *cp++ - '0';
  83                 while (isdigit(*cp));
  84         }
  85         i *= 10;
  86         if (*cp == '.') {
  87                 cp++;
  88                 if (isdigit(*cp))
  89                         i += *cp - '0';
  90                 /*
  91                  * Only one digit to the right of the decimal point.
  92                  */
  93                 while (isdigit(*cp))
  94                         cp++;
  95         }
  96
  97         /*
  98          * If the delay is followed by a `*', then
  99          * multiply by the affected lines count.
 100          */
 101         if (*cp == '*')
 102                 cp++, i *= affcnt;
 103
 104         /*
 105          * The guts of the string.
 106          */
 107         while (*cp)
 108                 (*outc)(*cp++);
 109
 110         /*
 111          * If no delay needed, or output speed is
 112          * not comprehensible, then don't try to delay.
 113          */
 114         if (i == 0)
 115                 return (0);
 116         if (ospeed <= 0 || ospeed >= (sizeof (tmspc10) / sizeof (tmspc10[0])))
 117                 return (0);
 118
 119         /*
 120          * Round up by a half a character frame,
 121          * and then do the delay.
 122          * Too bad there are no user program accessible programmed delays.
 123          * Transmitting pad characters slows many
 124          * terminals down and also loads the system.
 125          */
 126         mspc10 = tmspc10[ospeed];
 127         i += mspc10 / 2;
 128         for (i /= mspc10; i > 0; i--)
 129                 (*outc)(PC);
 130         return (0);
 131 }