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 }