[BACK]Return to tputs.c CVS log [TXT][DIR] Up to [cvs.NetBSD.org] / src / lib / libterm

Annotation of src/lib/libterm/tputs.c, Revision 1.2

1.1       cgd         1: /*
                      2:  * Copyright (c) 1980 The Regents of the University of California.
                      3:  * All rights reserved.
                      4:  *
                      5:  * Redistribution and use in source and binary forms, with or without
                      6:  * modification, are permitted provided that the following conditions
                      7:  * are met:
                      8:  * 1. Redistributions of source code must retain the above copyright
                      9:  *    notice, this list of conditions and the following disclaimer.
                     10:  * 2. Redistributions in binary form must reproduce the above copyright
                     11:  *    notice, this list of conditions and the following disclaimer in the
                     12:  *    documentation and/or other materials provided with the distribution.
                     13:  * 3. All advertising materials mentioning features or use of this software
                     14:  *    must display the following acknowledgement:
                     15:  *     This product includes software developed by the University of
                     16:  *     California, Berkeley and its contributors.
                     17:  * 4. Neither the name of the University nor the names of its contributors
                     18:  *    may be used to endorse or promote products derived from this software
                     19:  *    without specific prior written permission.
                     20:  *
                     21:  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
                     22:  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
                     23:  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
                     24:  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
                     25:  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
                     26:  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
                     27:  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
                     28:  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
                     29:  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
                     30:  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
                     31:  * SUCH DAMAGE.
                     32:  */
                     33:
                     34: #ifndef lint
1.2     ! mycroft    35: /*static char sccsid[] = "from: @(#)tputs.c    5.3 (Berkeley) 6/1/90";*/
        !            36: static char rcsid[] = "$Id: $";
1.1       cgd        37: #endif /* not lint */
                     38:
                     39: #include <sgtty.h>
                     40: #include <ctype.h>
                     41:
                     42: /*
                     43:  * The following array gives the number of tens of milliseconds per
                     44:  * character for each speed as returned by gtty.  Thus since 300
                     45:  * baud returns a 7, there are 33.3 milliseconds per char at 300 baud.
                     46:  */
                     47: static
                     48: short  tmspc10[] = {
                     49:        0, 2000, 1333, 909, 743, 666, 500, 333, 166, 83, 55, 41, 20, 10, 5
                     50: };
                     51:
                     52: short  ospeed;
                     53: char   PC;
                     54:
                     55: /*
                     56:  * Put the character string cp out, with padding.
                     57:  * The number of affected lines is affcnt, and the routine
                     58:  * used to output one character is outc.
                     59:  */
                     60: tputs(cp, affcnt, outc)
                     61:        register char *cp;
                     62:        int affcnt;
                     63:        int (*outc)();
                     64: {
                     65:        register int i = 0;
                     66:        register int mspc10;
                     67:
                     68:        if (cp == 0)
                     69:                return;
                     70:
                     71:        /*
                     72:         * Convert the number representing the delay.
                     73:         */
                     74:        if (isdigit(*cp)) {
                     75:                do
                     76:                        i = i * 10 + *cp++ - '0';
                     77:                while (isdigit(*cp));
                     78:        }
                     79:        i *= 10;
                     80:        if (*cp == '.') {
                     81:                cp++;
                     82:                if (isdigit(*cp))
                     83:                        i += *cp - '0';
                     84:                /*
                     85:                 * Only one digit to the right of the decimal point.
                     86:                 */
                     87:                while (isdigit(*cp))
                     88:                        cp++;
                     89:        }
                     90:
                     91:        /*
                     92:         * If the delay is followed by a `*', then
                     93:         * multiply by the affected lines count.
                     94:         */
                     95:        if (*cp == '*')
                     96:                cp++, i *= affcnt;
                     97:
                     98:        /*
                     99:         * The guts of the string.
                    100:         */
                    101:        while (*cp)
                    102:                (*outc)(*cp++);
                    103:
                    104:        /*
                    105:         * If no delay needed, or output speed is
                    106:         * not comprehensible, then don't try to delay.
                    107:         */
                    108:        if (i == 0)
                    109:                return;
                    110:        if (ospeed <= 0 || ospeed >= (sizeof tmspc10 / sizeof tmspc10[0]))
                    111:                return;
                    112:
                    113:        /*
                    114:         * Round up by a half a character frame,
                    115:         * and then do the delay.
                    116:         * Too bad there are no user program accessible programmed delays.
                    117:         * Transmitting pad characters slows many
                    118:         * terminals down and also loads the system.
                    119:         */
                    120:        mspc10 = tmspc10[ospeed];
                    121:        i += mspc10 / 2;
                    122:        for (i /= mspc10; i > 0; i--)
                    123:                (*outc)(PC);
                    124: }

CVSweb <webmaster@jp.NetBSD.org>