Commit | Line | Data |
---|---|---|
15637ed4 RG |
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 | |
35 | static char sccsid[] = "@(#)tputs.c 5.3 (Berkeley) 6/1/90"; | |
36 | #endif /* not lint */ | |
37 | ||
38 | #include <sgtty.h> | |
39 | #include <ctype.h> | |
40 | ||
41 | /* | |
42 | * The following array gives the number of tens of milliseconds per | |
43 | * character for each speed as returned by gtty. Thus since 300 | |
44 | * baud returns a 7, there are 33.3 milliseconds per char at 300 baud. | |
45 | */ | |
46 | static | |
47 | short tmspc10[] = { | |
48 | 0, 2000, 1333, 909, 743, 666, 500, 333, 166, 83, 55, 41, 20, 10, 5 | |
49 | }; | |
50 | ||
51 | short ospeed; | |
52 | char PC; | |
53 | ||
54 | /* | |
55 | * Put the character string cp out, with padding. | |
56 | * The number of affected lines is affcnt, and the routine | |
57 | * used to output one character is outc. | |
58 | */ | |
59 | tputs(cp, affcnt, outc) | |
60 | register char *cp; | |
61 | int affcnt; | |
62 | int (*outc)(); | |
63 | { | |
64 | register int i = 0; | |
65 | register int mspc10; | |
66 | ||
67 | if (cp == 0) | |
68 | return; | |
69 | ||
70 | /* | |
71 | * Convert the number representing the delay. | |
72 | */ | |
73 | if (isdigit(*cp)) { | |
74 | do | |
75 | i = i * 10 + *cp++ - '0'; | |
76 | while (isdigit(*cp)); | |
77 | } | |
78 | i *= 10; | |
79 | if (*cp == '.') { | |
80 | cp++; | |
81 | if (isdigit(*cp)) | |
82 | i += *cp - '0'; | |
83 | /* | |
84 | * Only one digit to the right of the decimal point. | |
85 | */ | |
86 | while (isdigit(*cp)) | |
87 | cp++; | |
88 | } | |
89 | ||
90 | /* | |
91 | * If the delay is followed by a `*', then | |
92 | * multiply by the affected lines count. | |
93 | */ | |
94 | if (*cp == '*') | |
95 | cp++, i *= affcnt; | |
96 | ||
97 | /* | |
98 | * The guts of the string. | |
99 | */ | |
100 | while (*cp) | |
101 | (*outc)(*cp++); | |
102 | ||
103 | /* | |
104 | * If no delay needed, or output speed is | |
105 | * not comprehensible, then don't try to delay. | |
106 | */ | |
107 | if (i == 0) | |
108 | return; | |
109 | if (ospeed <= 0 || ospeed >= (sizeof tmspc10 / sizeof tmspc10[0])) | |
110 | return; | |
111 | ||
112 | /* | |
113 | * Round up by a half a character frame, | |
114 | * and then do the delay. | |
115 | * Too bad there are no user program accessible programmed delays. | |
116 | * Transmitting pad characters slows many | |
117 | * terminals down and also loads the system. | |
118 | */ | |
119 | mspc10 = tmspc10[ospeed]; | |
120 | i += mspc10 / 2; | |
121 | for (i /= mspc10; i > 0; i--) | |
122 | (*outc)(PC); | |
123 | } |