ncurses 4.2
[ncurses.git] / ncurses / tinfo / lib_tputs.c
1 /****************************************************************************
2  * Copyright (c) 1998 Free Software Foundation, Inc.                        *
3  *                                                                          *
4  * Permission is hereby granted, free of charge, to any person obtaining a  *
5  * copy of this software and associated documentation files (the            *
6  * "Software"), to deal in the Software without restriction, including      *
7  * without limitation the rights to use, copy, modify, merge, publish,      *
8  * distribute, distribute with modifications, sublicense, and/or sell       *
9  * copies of the Software, and to permit persons to whom the Software is    *
10  * furnished to do so, subject to the following conditions:                 *
11  *                                                                          *
12  * The above copyright notice and this permission notice shall be included  *
13  * in all copies or substantial portions of the Software.                   *
14  *                                                                          *
15  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  *
16  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               *
17  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   *
18  * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   *
19  * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    *
20  * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    *
21  * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               *
22  *                                                                          *
23  * Except as contained in this notice, the name(s) of the above copyright   *
24  * holders shall not be used in advertising or otherwise to promote the     *
25  * sale, use or other dealings in this Software without prior written       *
26  * authorization.                                                           *
27  ****************************************************************************/
28
29 /****************************************************************************
30  *  Author: Zeyd M. Ben-Halim <zmbenhal@netcom.com> 1992,1995               *
31  *     and: Eric S. Raymond <esr@snark.thyrsus.com>                         *
32  ****************************************************************************/
33
34
35 /*
36  *      tputs.c
37  *              delay_output()
38  *              _nc_outch()
39  *              tputs()
40  *
41  */
42
43 #include <curses.priv.h>
44 #include <ctype.h>
45 #include <term.h>       /* padding_baud_rate, xon_xoff */
46 #include <termcap.h>    /* ospeed */
47 #include <tic.h>
48
49 MODULE_ID("$Id: lib_tputs.c,v 1.41 1999/10/22 23:31:24 tom Exp $")
50
51 char PC;                /* used by termcap library */
52 speed_t ospeed;         /* used by termcap library */
53
54 int _nc_nulls_sent;     /* used by 'tack' program */
55
56 static int (*my_outch)(int c) = _nc_outch;
57
58 int delay_output(int ms)
59 {
60         T((T_CALLED("delay_output(%d)"), ms));
61
62         if (no_pad_char)
63                 napms(ms);
64         else {
65                 register int    nullcount;
66
67                 nullcount = (ms * _nc_baudrate(ospeed)) / 10000;
68                 for (_nc_nulls_sent += nullcount; nullcount > 0; nullcount--)
69                         my_outch(PC);
70                 if (my_outch == _nc_outch)
71                         _nc_flush();
72         }
73
74         returnCode(OK);
75 }
76
77 int _nc_outch(int ch)
78 {
79 #ifdef TRACE
80         _nc_outchars++;
81 #endif /* TRACE */
82
83         if (SP != 0
84          && SP->_cleanup) {
85                 char tmp = ch;
86                 /*
87                  * POSIX says write() is safe in a signal handler, but the
88                  * buffered I/O is not.
89                  */
90                 write(fileno(NC_OUTPUT), &tmp, 1);
91         } else {
92                 putc(ch, NC_OUTPUT);
93         }
94         return OK;
95 }
96
97 int putp(const char *string)
98 {
99         return tputs(string, 1, _nc_outch);
100 }
101
102 int tputs(const char *string, int affcnt, int (*outc)(int))
103 {
104 bool    always_delay;
105 bool    normal_delay;
106 int     number;
107 #ifdef BSD_TPUTS
108 int     trailpad;
109 #endif /* BSD_TPUTS */
110
111 #ifdef TRACE
112 char    addrbuf[32];
113
114         if (_nc_tracing & TRACE_TPUTS)
115         {
116                 if (outc == _nc_outch)
117                         (void) strcpy(addrbuf, "_nc_outch");
118                 else
119                         (void) sprintf(addrbuf, "%p", outc);
120                 if (_nc_tputs_trace) {
121                         TR(TRACE_MAXIMUM, ("tputs(%s = %s, %d, %s) called", _nc_tputs_trace, _nc_visbuf(string), affcnt, addrbuf));
122                 }
123                 else {
124                         TR(TRACE_MAXIMUM, ("tputs(%s, %d, %s) called", _nc_visbuf(string), affcnt, addrbuf));
125                 }
126                 _nc_tputs_trace = (char *)NULL;
127         }
128 #endif /* TRACE */
129         
130         if (!VALID_STRING(string))
131                 return ERR;
132
133         if (cur_term == 0) {
134                 always_delay = FALSE;
135                 normal_delay = TRUE;
136         } else {
137                 always_delay = (string == bell) || (string == flash_screen);
138                 normal_delay =
139                  !xon_xoff
140                  && padding_baud_rate
141 #ifdef NCURSES_NO_PADDING
142                  && (SP == 0 || !(SP->_no_padding))
143 #endif
144                  && (_nc_baudrate(ospeed) >= padding_baud_rate);
145         }
146
147 #ifdef BSD_TPUTS
148         /*
149          * This ugly kluge deals with the fact that some ancient BSD programs
150          * (like nethack) actually do the likes of tputs("50") to get delays.
151          */
152         trailpad = 0;
153         if (isdigit(*string)) {
154                 while (isdigit(*string)) {
155                         trailpad = trailpad * 10 + (*string - '0');
156                         string++;
157                 }
158                 trailpad *= 10;
159                 if (*string == '.') {
160                         string++;
161                         if (isdigit(*string)) {
162                                 trailpad += (*string - '0');
163                                 string++;
164                         }
165                         while (isdigit(*string))
166                                 string++;
167                 }
168
169                 if (*string == '*') {
170                         trailpad *= affcnt;
171                         string++;
172                 }
173         }
174 #endif /* BSD_TPUTS */
175
176         my_outch = outc;        /* redirect delay_output() */
177         while (*string) {
178                 if (*string != '$')
179                         (*outc)(*string);
180                 else {
181                         string++;
182                         if (*string != '<') {
183                                 (*outc)('$');
184                                 if (*string)
185                                     (*outc)(*string);
186                         } else {
187                                 bool mandatory;
188
189                                 string++;
190                                 if ((!isdigit(*string) && *string != '.') || !strchr(string, '>')) {
191                                         (*outc)('$');
192                                         (*outc)('<');
193                                         continue;
194                                 }
195
196                                 number = 0;
197                                 while (isdigit(*string)) {
198                                         number = number * 10 + (*string - '0');
199                                         string++;
200                                 }
201                                 number *= 10;
202                                 if (*string == '.') {
203                                         string++;
204                                         if (isdigit(*string)) {
205                                                 number += (*string - '0');
206                                                 string++;
207                                         }
208                                         while (isdigit(*string))
209                                                 string++;
210                                 }
211
212                                 mandatory = FALSE;
213                                 while (*string == '*' || *string == '/')
214                                 {
215                                         if (*string == '*') {
216                                                 number *= affcnt;
217                                                 string++;
218                                         }
219                                         else /* if (*string == '/') */ {
220                                                 mandatory = TRUE;
221                                                 string++;
222                                         }
223                                 }
224
225                                 if (number > 0
226                                  && (always_delay
227                                   || normal_delay
228                                   || mandatory))
229                                         delay_output(number/10);
230
231                         } /* endelse (*string == '<') */
232                 } /* endelse (*string == '$') */
233
234                 if (*string == '\0')
235                         break;
236
237                 string++;
238         }
239
240 #ifdef BSD_TPUTS
241         /*
242          * Emit any BSD-style prefix padding that we've accumulated now.
243          */
244         if (trailpad > 0
245          && (always_delay || normal_delay))
246                 delay_output(trailpad/10);
247 #endif /* BSD_TPUTS */
248
249         my_outch = _nc_outch;
250         return OK;
251 }