2 * Copyright (C) 1984-2011 Mark Nudelman
4 * You may distribute under the terms of either the GNU General Public
5 * License or the Less License, as specified in the README file.
7 * For more information about less, or for information on how to
8 * contact the author, see the README file.
13 * High level routines dealing with the output to the screen.
17 #if MSDOS_COMPILER==WIN32C
21 public int errmsgs; /* Count of messages displayed by error() */
23 public int final_attr;
28 extern int so_s_width, so_e_width;
29 extern int screen_trashed;
30 extern int any_display;
34 #if MSDOS_COMPILER==WIN32C || MSDOS_COMPILER==BORLANDC || MSDOS_COMPILER==DJGPPC
36 extern int nm_fg_color, nm_bg_color;
37 extern int bo_fg_color, bo_bg_color;
38 extern int ul_fg_color, ul_bg_color;
39 extern int so_fg_color, so_bg_color;
40 extern int bl_fg_color, bl_bg_color;
44 * Display the line which is in the line buffer.
56 * Don't output if a signal is pending.
62 final_attr = AT_NORMAL;
64 for (i = 0; (c = gline(i, &a)) != '\0'; i++)
77 static char obuf[OUTBUF_SIZE];
78 static char *ob = obuf;
81 * Flush buffered output.
83 * If we haven't displayed any file data yet,
84 * output messages on error output (file descriptor 2),
85 * otherwise output on standard output (file descriptor 1).
87 * This has the desirable effect of producing all
88 * error messages on error output if standard output
89 * is directed to a file. It also does the same if
90 * we never produce any real output; for example, if
91 * the input file(s) cannot be opened. If we do
92 * eventually produce output, code in edit() makes
93 * sure these messages can be seen before they are
94 * overwritten or scrolled away.
106 #if MSDOS_COMPILER==MSOFTC
107 if (is_tty && any_display)
115 #if MSDOS_COMPILER==WIN32C || MSDOS_COMPILER==BORLANDC || MSDOS_COMPILER==DJGPPC
116 if (is_tty && any_display)
119 if (ctldisp != OPT_ONPLUS)
120 WIN32textout(obuf, ob - obuf);
124 * Look for SGR escape sequences, and convert them
125 * to color commands. Replace bold, underline,
126 * and italic escapes into colors specified via
127 * the -D command-line option.
129 char *anchor, *p, *p_next;
130 unsigned char fg, bg;
131 static unsigned char at;
132 #if MSDOS_COMPILER==WIN32C
133 /* Screen colors used by 3x and 4x SGR commands. */
134 static unsigned char screen_color[] = {
138 FOREGROUND_RED|FOREGROUND_GREEN,
140 FOREGROUND_BLUE|FOREGROUND_RED,
141 FOREGROUND_BLUE|FOREGROUND_GREEN,
142 FOREGROUND_BLUE|FOREGROUND_GREEN|FOREGROUND_RED
145 static enum COLORS screen_color[] = {
146 BLACK, RED, GREEN, BROWN,
147 BLUE, MAGENTA, CYAN, LIGHTGRAY
151 for (anchor = p_next = obuf;
152 (p_next = memchr(p_next, ESC, ob - p_next)) != NULL; )
155 if (p[1] == '[') /* "ESC-[" sequence */
160 * If some chars seen since
161 * the last escape sequence,
162 * write them out to the screen.
164 WIN32textout(anchor, p-anchor);
167 p += 2; /* Skip the "ESC-[" */
171 * Handle null escape sequence
172 * "ESC[m", which restores
177 WIN32setcolors(nm_fg_color, nm_bg_color);
183 * Select foreground/background colors
184 * based on the escape sequence.
188 while (!is_ansi_end(*p))
191 long code = strtol(p, &q, 10);
196 * Incomplete sequence.
197 * Leave it unprocessed
200 int slop = q - anchor;
201 /* {{ strcpy args overlap! }} */
202 strcpy(obuf, anchor);
208 code > 49 || code < 0 ||
209 (!is_ansi_end(*q) && *q != ';'))
220 /* case 0: all attrs off */
225 case 1: /* bold on */
228 case 3: /* italic on */
229 case 7: /* inverse on */
232 case 4: /* underline on */
235 case 5: /* slow blink on */
236 case 6: /* fast blink on */
239 case 8: /* concealed on */
242 case 22: /* bold off */
245 case 23: /* italic off */
246 case 27: /* inverse off */
249 case 24: /* underline off */
252 case 30: case 31: case 32:
253 case 33: case 34: case 35:
255 fg = (fg & 8) | (screen_color[code - 30]);
257 case 39: /* default fg */
260 case 40: case 41: case 42:
261 case 43: case 44: case 45:
263 bg = (bg & 8) | (screen_color[code - 40]);
265 case 49: /* default fg */
271 if (!is_ansi_end(*p) || p == p_next)
292 WIN32setcolors(fg, bg);
293 p_next = anchor = p + 1;
298 /* Output what's left in the buffer. */
299 WIN32textout(anchor, ob - anchor);
306 fd = (any_display) ? 1 : 2;
307 if (write(fd, obuf, n) != n)
313 * Output a character.
319 #if 0 /* fake UTF-8 output for testing */
323 static char ubuf[MAX_UTF_CHAR_LEN];
324 static int ubuf_len = 0;
325 static int ubuf_index = 0;
328 ubuf_len = utf_len(c);
331 ubuf[ubuf_index++] = c;
332 if (ubuf_index < ubuf_len)
334 c = get_wchar(ubuf) & 0xFF;
344 if (c == '\n' && is_tty)
351 if (c == '\n' && is_tty) /* In OS-9, '\n' == 0x0D */
356 * Some versions of flush() write to *ob, so we must flush
357 * when we are still one char from the end of obuf.
359 if (ob >= &obuf[sizeof(obuf)-1])
379 * Convert an integral type to a string.
381 #define TYPE_TO_A_FUNC(funcname, type) \
382 void funcname(num, buf) \
386 int neg = (num < 0); \
387 char tbuf[INT_STRLEN_BOUND(num)+2]; \
388 register char *s = tbuf + sizeof(tbuf); \
389 if (neg) num = -num; \
392 *--s = (num % 10) + '0'; \
393 } while ((num /= 10) != 0); \
394 if (neg) *--s = '-'; \
398 TYPE_TO_A_FUNC(postoa, POSITION)
399 TYPE_TO_A_FUNC(linenumtoa, LINENUM)
400 TYPE_TO_A_FUNC(inttoa, int)
403 * Output an integer in a given radix.
409 char buf[INT_STRLEN_BOUND(num)];
413 return (strlen(buf));
417 * Output a line number in a given radix.
423 char buf[INT_STRLEN_BOUND(num)];
425 linenumtoa(num, buf);
427 return (strlen(buf));
431 * This function implements printf-like functionality
432 * using a more portable argument list mechanism than printf's.
435 less_printf(fmt, parg)
464 col += iprint_int(parg->p_int);
468 col += iprint_linenum(parg->p_linenum);
479 * If some other non-trivial char is pressed, unget it, so it will
480 * become the next command.
488 while ((c = getchr()) != '\n' && c != '\r')
492 if (c != '\n' && c != '\r' && c != ' ' && c != READ_INTR)
498 * Output a message in the lower left corner of the screen
499 * and wait for carriage return.
507 static char return_to_continue[] = " (press RETURN)";
511 if (any_display && is_tty)
517 at_enter(AT_STANDOUT);
521 col += less_printf(fmt, parg);
523 if (!(any_display && is_tty))
529 putstr(return_to_continue);
531 col += sizeof(return_to_continue) + so_e_width;
539 * Printing the message has probably scrolled the screen.
540 * {{ Unless the terminal doesn't have auto margins,
541 * in which case we just hammered on the right margin. }}
548 static char intr_to_abort[] = "... (interrupt to abort)";
551 * Output a message in the lower left corner of the screen
552 * and don't wait for carriage return.
553 * Usually used to warn that we are beginning a potentially
554 * time-consuming operation.
563 at_enter(AT_STANDOUT);
564 (void) less_printf(fmt, parg);
565 putstr(intr_to_abort);
572 * Output a message in the lower left corner of the screen
573 * and return a single-character response.
583 if (any_display && is_tty)
586 (void) less_printf(fmt, parg);
589 if (!(any_display && is_tty))