1 /* display.c -- readline redisplay facility. */
3 /* Copyright (C) 1987-2013 Free Software Foundation, Inc.
5 This file is part of the GNU Readline Library (Readline), a library
6 for reading lines of text with interactive input and history editing.
8 Readline is free software: you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation, either version 3 of the License, or
11 (at your option) any later version.
13 Readline is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with Readline. If not, see <http://www.gnu.org/licenses/>.
22 #define READLINE_LIBRARY
24 #if defined (HAVE_CONFIG_H)
28 #include <sys/types.h>
30 #if defined (HAVE_UNISTD_H)
32 #endif /* HAVE_UNISTD_H */
34 #include "posixstat.h"
36 #if defined (HAVE_STDLIB_H)
39 # include "ansi_stdlib.h"
40 #endif /* HAVE_STDLIB_H */
48 /* System-specific feature definitions and include files. */
52 /* Termcap library stuff. */
55 /* Some standard library routines. */
59 #include "rlprivate.h"
62 #if !defined (strchr) && !defined (__STDC__)
63 extern char *strchr (), *strrchr ();
64 #endif /* !strchr && !__STDC__ */
66 static void update_line PARAMS((char *, char *, int, int, int, int));
67 static void space_to_eol PARAMS((int));
68 static void delete_chars PARAMS((int));
69 static void insert_some_chars PARAMS((char *, int, int));
70 static void open_some_spaces PARAMS((int));
71 static void cr PARAMS((void));
73 /* State of visible and invisible lines. */
79 #if defined (HANDLE_MULTIBYTE)
85 /* The line display buffers. One is the line currently displayed on
86 the screen. The other is the line about to be displayed. */
87 static struct line_state line_state_array[2];
88 static struct line_state *line_state_visible = &line_state_array[0];
89 static struct line_state *line_state_invisible = &line_state_array[1];
90 static int line_structures_initialized = 0;
92 /* Backwards-compatible names. */
93 #define inv_lbreaks (line_state_invisible->lbreaks)
94 #define inv_lbsize (line_state_invisible->lbsize)
95 #define vis_lbreaks (line_state_visible->lbreaks)
96 #define vis_lbsize (line_state_visible->lbsize)
98 #define visible_line (line_state_visible->line)
99 #define invisible_line (line_state_invisible->line)
101 #if defined (HANDLE_MULTIBYTE)
102 static int _rl_col_width PARAMS((const char *, int, int, int));
104 # define _rl_col_width(l, s, e, f) (((e) <= (s)) ? 0 : (e) - (s))
107 /* Heuristic used to decide whether it is faster to move from CUR to NEW
108 by backing up or outputting a carriage return and moving forward. CUR
109 and NEW are either both buffer positions or absolute screen positions. */
110 #define CR_FASTER(new, cur) (((new) + 1) < ((cur) - (new)))
112 /* _rl_last_c_pos is an absolute cursor position in multibyte locales and a
113 buffer index in others. This macro is used when deciding whether the
114 current cursor position is in the middle of a prompt string containing
115 invisible characters. XXX - might need to take `modmark' into account. */
116 #define PROMPT_ENDING_INDEX \
117 ((MB_CUR_MAX > 1 && rl_byte_oriented == 0) ? prompt_physical_chars : prompt_last_invisible+1)
120 /* **************************************************************** */
124 /* **************************************************************** */
126 /* This is the stuff that is hard for me. I never seem to write good
127 display routines in C. Let's see how I do this time. */
129 /* (PWP) Well... Good for a simple line updater, but totally ignores
130 the problems of input lines longer than the screen width.
132 update_line and the code that calls it makes a multiple line,
133 automatically wrapping line update. Careful attention needs
134 to be paid to the vertical position variables. */
136 /* Keep two buffers; one which reflects the current contents of the
137 screen, and the other to draw what we think the new contents should
138 be. Then compare the buffers, and make whatever changes to the
139 screen itself that we should. Finally, make the buffer that we
140 just drew into be the one which reflects the current contents of the
141 screen, and place the cursor where it belongs.
143 Commands that want to can fix the display themselves, and then let
144 this function know that the display has been fixed by setting the
145 RL_DISPLAY_FIXED variable. This is good for efficiency. */
147 /* Application-specific redisplay function. */
148 rl_voidfunc_t *rl_redisplay_function = rl_redisplay;
150 /* Global variables declared here. */
151 /* What YOU turn on when you have handled all redisplay yourself. */
152 int rl_display_fixed = 0;
154 int _rl_suppress_redisplay = 0;
155 int _rl_want_redisplay = 0;
157 /* The stuff that gets printed out before the actual text of the line.
158 This is usually pointing to rl_prompt. */
159 char *rl_display_prompt = (char *)NULL;
161 /* Pseudo-global variables declared here. */
163 /* The visible cursor position. If you print some text, adjust this. */
164 /* NOTE: _rl_last_c_pos is used as a buffer index when not in a locale
165 supporting multibyte characters, and an absolute cursor position when
166 in such a locale. This is an artifact of the donated multibyte support.
167 Care must be taken when modifying its value. */
168 int _rl_last_c_pos = 0;
169 int _rl_last_v_pos = 0;
171 static int cpos_adjusted;
172 static int cpos_buffer_position;
173 static int displaying_prompt_first_line;
174 static int prompt_multibyte_chars;
176 /* Number of lines currently on screen minus 1. */
177 int _rl_vis_botlin = 0;
179 /* Variables used only in this file. */
180 /* The last left edge of text that was displayed. This is used when
181 doing horizontal scrolling. It shifts in thirds of a screenwidth. */
182 static int last_lmargin;
184 /* A buffer for `modeline' messages. */
185 static char *msg_buf = 0;
186 static int msg_bufsiz = 0;
188 /* Non-zero forces the redisplay even if we thought it was unnecessary. */
189 static int forced_display;
191 /* Default and initial buffer size. Can grow. */
192 static int line_size = 1024;
194 /* Variables to keep track of the expanded prompt string, which may
195 include invisible characters. */
197 static char *local_prompt, *local_prompt_prefix;
198 static int local_prompt_len;
199 static int prompt_visible_length, prompt_prefix_length;
201 /* The number of invisible characters in the line currently being
202 displayed on the screen. */
203 static int visible_wrap_offset;
205 /* The number of invisible characters in the prompt string. Static so it
206 can be shared between rl_redisplay and update_line */
207 static int wrap_offset;
209 /* The index of the last invisible character in the prompt string. */
210 static int prompt_last_invisible;
212 /* The length (buffer offset) of the first line of the last (possibly
213 multi-line) buffer displayed on the screen. */
214 static int visible_first_line_len;
216 /* Number of invisible characters on the first physical line of the prompt.
217 Only valid when the number of physical characters in the prompt exceeds
218 (or is equal to) _rl_screenwidth. */
219 static int prompt_invis_chars_first_line;
221 static int prompt_last_screen_line;
223 static int prompt_physical_chars;
225 /* set to a non-zero value by rl_redisplay if we are marking modified history
226 lines and the current line is so marked. */
229 /* Variables to save and restore prompt and display information. */
231 /* These are getting numerous enough that it's time to create a struct. */
233 static char *saved_local_prompt;
234 static char *saved_local_prefix;
235 static int saved_last_invisible;
236 static int saved_visible_length;
237 static int saved_prefix_length;
238 static int saved_local_length;
239 static int saved_invis_chars_first_line;
240 static int saved_physical_chars;
242 /* Return a character indicating the editing mode, for use in the prompt. */
246 if (rl_editing_mode == emacs_mode)
248 else if (_rl_keymap == vi_insertion_keymap)
249 return '+'; /* vi insert mode */
251 return ':'; /* vi command mode */
254 /* Expand the prompt string S and return the number of visible
255 characters in *LP, if LP is not null. This is currently more-or-less
256 a placeholder for expansion. LIP, if non-null is a place to store the
257 index of the last invisible character in the returned string. NIFLP,
258 if non-zero, is a place to store the number of invisible characters in
259 the first prompt line. The previous are used as byte counts -- indexes
260 into a character buffer. */
262 /* Current implementation:
263 \001 (^A) start non-visible characters
264 \002 (^B) end non-visible characters
265 all characters except \001 and \002 (following a \001) are copied to
266 the returned string; all characters except those between \001 and
267 \002 are assumed to be `visible'. */
270 expand_prompt (pmt, lp, lip, niflp, vlp)
272 int *lp, *lip, *niflp, *vlp;
274 char *r, *ret, *p, *igstart;
275 int l, rl, last, ignoring, ninvis, invfl, invflset, ind, pind, physchars;
277 /* Short-circuit if we can. */
278 if ((MB_CUR_MAX <= 1 || rl_byte_oriented) && strchr (pmt, RL_PROMPT_START_IGNORE) == 0)
280 if (pmt == rl_prompt && _rl_show_mode_in_prompt)
283 r = (char *)xmalloc (l + 2);
284 r[0] = prompt_modechar ();
288 r = savestring (pmt);
297 *vlp = lp ? *lp : strlen (r);
302 r = ret = (char *)xmalloc (l + 2);
304 rl = physchars = 0; /* move up here so mode show can set them */
305 if (pmt == rl_prompt && _rl_show_mode_in_prompt)
307 *r++ = prompt_modechar ();
311 invfl = 0; /* invisible chars in first line of prompt */
312 invflset = 0; /* we only want to set invfl once */
315 for (ignoring = last = ninvis = 0, p = pmt; p && *p; p++)
317 /* This code strips the invisible character string markers
318 RL_PROMPT_START_IGNORE and RL_PROMPT_END_IGNORE */
319 if (ignoring == 0 && *p == RL_PROMPT_START_IGNORE) /* XXX - check ignoring? */
325 else if (ignoring && *p == RL_PROMPT_END_IGNORE)
328 if (p != (igstart + 1))
334 #if defined (HANDLE_MULTIBYTE)
335 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
338 ind = _rl_find_next_mbchar (pmt, pind, 1, MB_FIND_NONZERO);
344 /* rl ends up being assigned to prompt_visible_length,
345 which is the number of characters in the buffer that
346 contribute to characters on the screen, which might
347 not be the same as the number of physical characters
348 on the screen in the presence of multibyte characters */
350 physchars += _rl_col_width (pmt, pind, ind, 0);
353 ninvis += ind - pind;
354 p--; /* compensate for later increment */
362 rl++; /* visible length byte counter */
366 ninvis++; /* invisible chars byte counter */
369 if (invflset == 0 && rl >= _rl_screenwidth)
377 if (rl < _rl_screenwidth)
392 /* Just strip out RL_PROMPT_START_IGNORE and RL_PROMPT_END_IGNORE from
393 PMT and return the rest of PMT. */
395 _rl_strip_prompt (pmt)
400 ret = expand_prompt (pmt, (int *)NULL, (int *)NULL, (int *)NULL, (int *)NULL);
407 rl_visible_prompt_length = rl_expand_prompt (rl_prompt);
411 * Expand the prompt string into the various display components, if
414 * local_prompt = expanded last line of string in rl_display_prompt
415 * (portion after the final newline)
416 * local_prompt_prefix = portion before last newline of rl_display_prompt,
417 * expanded via expand_prompt
418 * prompt_visible_length = number of visible characters in local_prompt
419 * prompt_prefix_length = number of visible characters in local_prompt_prefix
421 * This function is called once per call to readline(). It may also be
422 * called arbitrarily to expand the primary prompt.
424 * The return value is the number of visible characters on the last line
425 * of the (possibly multi-line) prompt.
428 rl_expand_prompt (prompt)
434 /* Clear out any saved values. */
436 FREE (local_prompt_prefix);
438 local_prompt = local_prompt_prefix = (char *)0;
439 local_prompt_len = 0;
440 prompt_last_invisible = prompt_invis_chars_first_line = 0;
441 prompt_visible_length = prompt_physical_chars = 0;
443 if (prompt == 0 || *prompt == 0)
446 p = strrchr (prompt, '\n');
449 /* The prompt is only one logical line, though it might wrap. */
450 local_prompt = expand_prompt (prompt, &prompt_visible_length,
451 &prompt_last_invisible,
452 &prompt_invis_chars_first_line,
453 &prompt_physical_chars);
454 local_prompt_prefix = (char *)0;
455 local_prompt_len = local_prompt ? strlen (local_prompt) : 0;
456 return (prompt_visible_length);
460 /* The prompt spans multiple lines. */
462 local_prompt = expand_prompt (p, &prompt_visible_length,
463 &prompt_last_invisible,
464 &prompt_invis_chars_first_line,
465 &prompt_physical_chars);
467 /* The portion of the prompt string up to and including the
468 final newline is now null-terminated. */
469 local_prompt_prefix = expand_prompt (prompt, &prompt_prefix_length,
474 local_prompt_len = local_prompt ? strlen (local_prompt) : 0;
475 return (prompt_prefix_length);
479 /* Initialize the VISIBLE_LINE and INVISIBLE_LINE arrays, and their associated
480 arrays of line break markers. MINSIZE is the minimum size of VISIBLE_LINE
481 and INVISIBLE_LINE; if it is greater than LINE_SIZE, LINE_SIZE is
482 increased. If the lines have already been allocated, this ensures that
483 they can hold at least MINSIZE characters. */
485 init_line_structures (minsize)
490 if (invisible_line == 0) /* initialize it */
492 if (line_size < minsize)
494 visible_line = (char *)xmalloc (line_size);
495 invisible_line = (char *)xmalloc (line_size);
497 else if (line_size < minsize) /* ensure it can hold MINSIZE chars */
500 if (line_size < minsize)
502 visible_line = (char *)xrealloc (visible_line, line_size);
503 invisible_line = (char *)xrealloc (invisible_line, line_size);
506 for (n = minsize; n < line_size; n++)
509 invisible_line[n] = 1;
512 if (vis_lbreaks == 0)
514 /* should be enough. */
515 inv_lbsize = vis_lbsize = 256;
517 #if defined (HANDLE_MULTIBYTE)
518 line_state_visible->wbsize = vis_lbsize;
519 line_state_visible->wrapped_line = (int *)xmalloc (line_state_visible->wbsize * sizeof (int));
521 line_state_invisible->wbsize = inv_lbsize;
522 line_state_invisible->wrapped_line = (int *)xmalloc (line_state_invisible->wbsize * sizeof (int));
525 inv_lbreaks = (int *)xmalloc (inv_lbsize * sizeof (int));
526 vis_lbreaks = (int *)xmalloc (vis_lbsize * sizeof (int));
527 inv_lbreaks[0] = vis_lbreaks[0] = 0;
530 line_structures_initialized = 1;
533 /* Basic redisplay algorithm. */
537 register int in, out, c, linenum, cursor_linenum;
539 int inv_botlin, lb_botlin, lb_linenum, o_cpos;
540 int newlines, lpos, temp, n0, num, prompt_lines_estimate;
541 char *prompt_this_line;
542 #if defined (HANDLE_MULTIBYTE)
547 int _rl_wrapped_multicolumn = 0;
550 if (_rl_echoing_p == 0)
553 /* Block keyboard interrupts because this function manipulates global
556 RL_SETSTATE (RL_STATE_REDISPLAYING);
558 if (!rl_display_prompt)
559 rl_display_prompt = "";
561 if (line_structures_initialized == 0)
563 init_line_structures (0);
567 /* Draw the line into the buffer. */
568 cpos_buffer_position = -1;
570 prompt_multibyte_chars = prompt_visible_length - prompt_physical_chars;
572 line = invisible_line;
573 out = inv_botlin = 0;
575 /* Mark the line as modified or not. We only do this for history
578 if (_rl_mark_modified_lines && current_history () && rl_undo_list)
585 /* If someone thought that the redisplay was handled, but the currently
586 visible line has a different modification state than the one about
587 to become visible, then correct the caller's misconception. */
588 if (visible_line[0] != invisible_line[0])
589 rl_display_fixed = 0;
591 /* If the prompt to be displayed is the `primary' readline prompt (the
592 one passed to readline()), use the values we have already expanded.
593 If not, use what's already in rl_display_prompt. WRAP_OFFSET is the
594 number of non-visible characters in the prompt string. */
595 if (rl_display_prompt == rl_prompt || local_prompt)
597 if (local_prompt_prefix && forced_display)
598 _rl_output_some_chars (local_prompt_prefix, strlen (local_prompt_prefix));
600 if (local_prompt_len > 0)
602 temp = local_prompt_len + out + 2;
603 if (temp >= line_size)
605 line_size = (temp + 1024) - (temp % 1024);
606 visible_line = (char *)xrealloc (visible_line, line_size);
607 line = invisible_line = (char *)xrealloc (invisible_line, line_size);
609 strncpy (line + out, local_prompt, local_prompt_len);
610 out += local_prompt_len;
613 wrap_offset = local_prompt_len - prompt_visible_length;
618 prompt_this_line = strrchr (rl_display_prompt, '\n');
619 if (!prompt_this_line)
620 prompt_this_line = rl_display_prompt;
624 pmtlen = prompt_this_line - rl_display_prompt; /* temp var */
627 _rl_output_some_chars (rl_display_prompt, pmtlen);
628 /* Make sure we are at column zero even after a newline,
629 regardless of the state of terminal output processing. */
630 if (pmtlen < 2 || prompt_this_line[-2] != '\r')
635 prompt_physical_chars = pmtlen = strlen (prompt_this_line);
636 temp = pmtlen + out + 2;
637 if (temp >= line_size)
639 line_size = (temp + 1024) - (temp % 1024);
640 visible_line = (char *)xrealloc (visible_line, line_size);
641 line = invisible_line = (char *)xrealloc (invisible_line, line_size);
643 strncpy (line + out, prompt_this_line, pmtlen);
646 wrap_offset = prompt_invis_chars_first_line = 0;
649 #define CHECK_INV_LBREAKS() \
651 if (newlines >= (inv_lbsize - 2)) \
654 inv_lbreaks = (int *)xrealloc (inv_lbreaks, inv_lbsize * sizeof (int)); \
658 #if defined (HANDLE_MULTIBYTE)
659 #define CHECK_LPOS() \
662 if (lpos >= _rl_screenwidth) \
664 if (newlines >= (inv_lbsize - 2)) \
667 inv_lbreaks = (int *)xrealloc (inv_lbreaks, inv_lbsize * sizeof (int)); \
669 inv_lbreaks[++newlines] = out; \
670 if (newlines >= (line_state_invisible->wbsize - 1)) \
672 line_state_invisible->wbsize *= 2; \
673 line_state_invisible->wrapped_line = (int *)xrealloc (line_state_invisible->wrapped_line, line_state_invisible->wbsize * sizeof(int)); \
675 line_state_invisible->wrapped_line[newlines] = _rl_wrapped_multicolumn; \
680 #define CHECK_LPOS() \
683 if (lpos >= _rl_screenwidth) \
685 if (newlines >= (inv_lbsize - 2)) \
688 inv_lbreaks = (int *)xrealloc (inv_lbreaks, inv_lbsize * sizeof (int)); \
690 inv_lbreaks[++newlines] = out; \
696 /* inv_lbreaks[i] is where line i starts in the buffer. */
697 inv_lbreaks[newlines = 0] = 0;
698 lpos = prompt_physical_chars + modmark;
700 #if defined (HANDLE_MULTIBYTE)
701 memset (line_state_invisible->wrapped_line, 0, line_state_invisible->wbsize * sizeof (int));
705 /* prompt_invis_chars_first_line is the number of invisible characters in
706 the first physical line of the prompt.
707 wrap_offset - prompt_invis_chars_first_line is the number of invis
708 chars on the second (or, more generally, last) line. */
710 /* This is zero-based, used to set the newlines */
711 prompt_lines_estimate = lpos / _rl_screenwidth;
713 /* what if lpos is already >= _rl_screenwidth before we start drawing the
714 contents of the command line? */
715 while (lpos >= _rl_screenwidth)
718 /* fix from Darin Johnson <darin@acuson.com> for prompt string with
719 invisible characters that is longer than the screen width. The
720 prompt_invis_chars_first_line variable could be made into an array
721 saying how many invisible characters there are per line, but that's
722 probably too much work for the benefit gained. How many people have
723 prompts that exceed two physical lines?
724 Additional logic fix from Edward Catmur <ed@catmur.co.uk> */
725 #if defined (HANDLE_MULTIBYTE)
726 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0 && prompt_multibyte_chars > 0)
729 temp = local_prompt_len;
732 z = _rl_col_width (local_prompt, n0, num, 1);
733 if (z > _rl_screenwidth)
735 num = _rl_find_prev_mbchar (local_prompt, num, MB_FIND_ANY);
738 else if (z == _rl_screenwidth)
745 #endif /* !HANDLE_MULTIBYTE */
746 temp = ((newlines + 1) * _rl_screenwidth);
748 /* Now account for invisible characters in the current line. */
749 /* XXX - this assumes that the invisible characters may be split, but only
750 between the first and the last lines. */
751 temp += (newlines == 0) ? prompt_invis_chars_first_line
752 : ((newlines == prompt_lines_estimate) ? wrap_offset : prompt_invis_chars_first_line);
754 inv_lbreaks[++newlines] = temp;
755 #if defined (HANDLE_MULTIBYTE)
756 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0 && prompt_multibyte_chars > 0)
757 lpos -= _rl_col_width (local_prompt, n0, num, 1);
760 lpos -= _rl_screenwidth;
763 prompt_last_screen_line = newlines;
765 /* Draw the rest of the line (after the prompt) into invisible_line, keeping
766 track of where the cursor is (cpos_buffer_position), the number of the line containing
767 the cursor (lb_linenum), the last line number (lb_botlin and inv_botlin).
768 It maintains an array of line breaks for display (inv_lbreaks).
769 This handles expanding tabs for display and displaying meta characters. */
771 #if defined (HANDLE_MULTIBYTE)
773 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
775 memset (&ps, 0, sizeof (mbstate_t));
776 /* XXX - what if wc_bytes ends up <= 0? check for MB_INVALIDCH */
777 wc_bytes = mbrtowc (&wc, rl_line_buffer, rl_end, &ps);
783 for (in = 0; in < rl_end; in++)
786 c = (unsigned char)rl_line_buffer[in];
788 #if defined (HANDLE_MULTIBYTE)
789 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
791 if (MB_INVALIDCH (wc_bytes))
793 /* Byte sequence is invalid or shortened. Assume that the
794 first byte represents a character. */
796 /* Assume that a character occupies a single column. */
798 memset (&ps, 0, sizeof (mbstate_t));
800 else if (MB_NULLWCH (wc_bytes))
801 break; /* Found '\0' */
805 wc_width = (temp >= 0) ? temp : 1;
810 if (out + 8 >= line_size) /* XXX - 8 for \t */
813 visible_line = (char *)xrealloc (visible_line, line_size);
814 invisible_line = (char *)xrealloc (invisible_line, line_size);
815 line = invisible_line;
820 cpos_buffer_position = out;
821 lb_linenum = newlines;
824 #if defined (HANDLE_MULTIBYTE)
825 if (META_CHAR (c) && _rl_output_meta_chars == 0) /* XXX - clean up */
830 if (_rl_output_meta_chars == 0)
832 sprintf (line + out, "\\%o", c);
834 if (lpos + 4 >= _rl_screenwidth)
836 temp = _rl_screenwidth - lpos;
837 CHECK_INV_LBREAKS ();
838 inv_lbreaks[++newlines] = out + temp;
852 #if defined (DISPLAY_TABS)
858 newout = (out | (int)7) + 1;
860 newout = out + 8 - lpos % 8;
863 if (lpos + temp >= _rl_screenwidth)
866 temp2 = _rl_screenwidth - lpos;
867 CHECK_INV_LBREAKS ();
868 inv_lbreaks[++newlines] = out + temp2;
881 else if (c == '\n' && _rl_horizontal_scroll_mode == 0 && _rl_term_up && *_rl_term_up)
883 line[out++] = '\0'; /* XXX - sentinel */
884 CHECK_INV_LBREAKS ();
885 inv_lbreaks[++newlines] = out;
888 else if (CTRL_CHAR (c) || c == RUBOUT)
892 line[out++] = CTRL_CHAR (c) ? UNCTRL (c) : '?';
897 #if defined (HANDLE_MULTIBYTE)
898 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
902 _rl_wrapped_multicolumn = 0;
904 if (_rl_screenwidth < lpos + wc_width)
905 for (i = lpos; i < _rl_screenwidth; i++)
907 /* The space will be removed in update_line() */
909 _rl_wrapped_multicolumn++;
914 cpos_buffer_position = out;
915 lb_linenum = newlines;
917 for (i = in; i < in+wc_bytes; i++)
918 line[out++] = rl_line_buffer[i];
919 for (i = 0; i < wc_width; i++)
933 #if defined (HANDLE_MULTIBYTE)
934 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
937 /* XXX - what if wc_bytes ends up <= 0? check for MB_INVALIDCH */
938 wc_bytes = mbrtowc (&wc, rl_line_buffer + in, rl_end - in, &ps);
946 if (cpos_buffer_position < 0)
948 cpos_buffer_position = out;
949 lb_linenum = newlines;
952 inv_botlin = lb_botlin = newlines;
953 CHECK_INV_LBREAKS ();
954 inv_lbreaks[newlines+1] = out;
955 cursor_linenum = lb_linenum;
957 /* CPOS_BUFFER_POSITION == position in buffer where cursor should be placed.
958 CURSOR_LINENUM == line number where the cursor should be placed. */
960 /* PWP: now is when things get a bit hairy. The visible and invisible
961 line buffers are really multiple lines, which would wrap every
962 (screenwidth - 1) characters. Go through each in turn, finding
963 the changed region and updating it. The line order is top to bottom. */
965 /* If we can move the cursor up and down, then use multiple lines,
966 otherwise, let long lines display in a single terminal line, and
967 horizontally scroll it. */
968 displaying_prompt_first_line = 1;
969 if (_rl_horizontal_scroll_mode == 0 && _rl_term_up && *_rl_term_up)
971 int nleft, pos, changed_screen_line, tx;
973 if (!rl_display_fixed || forced_display)
977 /* If we have more than a screenful of material to display, then
978 only display a screenful. We should display the last screen,
980 if (out >= _rl_screenchars)
982 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
983 out = _rl_find_prev_mbchar (line, _rl_screenchars, MB_FIND_ANY);
985 out = _rl_screenchars - 1;
988 /* The first line is at character position 0 in the buffer. The
989 second and subsequent lines start at inv_lbreaks[N], offset by
990 OFFSET (which has already been calculated above). */
992 #define INVIS_FIRST() (prompt_physical_chars > _rl_screenwidth ? prompt_invis_chars_first_line : wrap_offset)
993 #define WRAP_OFFSET(line, offset) ((line == 0) \
994 ? (offset ? INVIS_FIRST() : 0) \
995 : ((line == prompt_last_screen_line) ? wrap_offset-prompt_invis_chars_first_line : 0))
996 #define W_OFFSET(line, offset) ((line) == 0 ? offset : 0)
997 #define VIS_LLEN(l) ((l) > _rl_vis_botlin ? 0 : (vis_lbreaks[l+1] - vis_lbreaks[l]))
998 #define INV_LLEN(l) (inv_lbreaks[l+1] - inv_lbreaks[l])
999 #define VIS_CHARS(line) (visible_line + vis_lbreaks[line])
1000 #define VIS_LINE(line) ((line) > _rl_vis_botlin) ? "" : VIS_CHARS(line)
1001 #define INV_LINE(line) (invisible_line + inv_lbreaks[line])
1003 #define OLD_CPOS_IN_PROMPT() (cpos_adjusted == 0 && \
1004 _rl_last_c_pos != o_cpos && \
1005 _rl_last_c_pos > wrap_offset && \
1006 o_cpos < prompt_last_invisible)
1008 /* For each line in the buffer, do the updating display. */
1009 for (linenum = 0; linenum <= inv_botlin; linenum++)
1011 /* This can lead us astray if we execute a program that changes
1012 the locale from a non-multibyte to a multibyte one. */
1013 o_cpos = _rl_last_c_pos;
1015 update_line (VIS_LINE(linenum), INV_LINE(linenum), linenum,
1016 VIS_LLEN(linenum), INV_LLEN(linenum), inv_botlin);
1018 /* update_line potentially changes _rl_last_c_pos, but doesn't
1019 take invisible characters into account, since _rl_last_c_pos
1020 is an absolute cursor position in a multibyte locale. See
1021 if compensating here is the right thing, or if we have to
1022 change update_line itself. There are several cases in which
1023 update_line adjusts _rl_last_c_pos itself (so it can pass
1024 _rl_move_cursor_relative accurate values); it communicates
1025 this back by setting cpos_adjusted. If we assume that
1026 _rl_last_c_pos is correct (an absolute cursor position) each
1027 time update_line is called, then we can assume in our
1028 calculations that o_cpos does not need to be adjusted by
1030 if (linenum == 0 && (MB_CUR_MAX > 1 && rl_byte_oriented == 0) && OLD_CPOS_IN_PROMPT())
1031 _rl_last_c_pos -= prompt_invis_chars_first_line; /* XXX - was wrap_offset */
1032 else if (linenum == prompt_last_screen_line && prompt_physical_chars > _rl_screenwidth &&
1033 (MB_CUR_MAX > 1 && rl_byte_oriented == 0) &&
1034 cpos_adjusted == 0 &&
1035 _rl_last_c_pos != o_cpos &&
1036 _rl_last_c_pos > (prompt_last_invisible - _rl_screenwidth - prompt_invis_chars_first_line))
1037 _rl_last_c_pos -= (wrap_offset-prompt_invis_chars_first_line);
1039 /* If this is the line with the prompt, we might need to
1040 compensate for invisible characters in the new line. Do
1041 this only if there is not more than one new line (which
1042 implies that we completely overwrite the old visible line)
1043 and the new line is shorter than the old. Make sure we are
1044 at the end of the new line before clearing. */
1046 inv_botlin == 0 && _rl_last_c_pos == out &&
1047 (wrap_offset > visible_wrap_offset) &&
1048 (_rl_last_c_pos < visible_first_line_len))
1050 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
1051 nleft = _rl_screenwidth - _rl_last_c_pos;
1053 nleft = _rl_screenwidth + wrap_offset - _rl_last_c_pos;
1055 _rl_clear_to_eol (nleft);
1058 /* This segment is intended to handle the case where the prompt
1059 has invisible characters on the second line and the new line
1060 to be displayed needs to clear the rest of the old characters
1061 out (e.g., when printing the i-search prompt). In general,
1062 the case of the new line being shorter than the old.
1064 else if (linenum == prompt_last_screen_line &&
1065 prompt_physical_chars > _rl_screenwidth &&
1066 wrap_offset != prompt_invis_chars_first_line &&
1067 _rl_last_c_pos == out &&
1071 /* Since the new first line is now visible, save its length. */
1073 visible_first_line_len = (inv_botlin > 0) ? inv_lbreaks[1] : out - wrap_offset;
1076 /* We may have deleted some lines. If so, clear the left over
1077 blank ones at the bottom out. */
1078 if (_rl_vis_botlin > inv_botlin)
1081 for (; linenum <= _rl_vis_botlin; linenum++)
1083 tt = VIS_CHARS (linenum);
1084 _rl_move_vert (linenum);
1085 _rl_move_cursor_relative (0, tt);
1087 ((linenum == _rl_vis_botlin) ? strlen (tt) : _rl_screenwidth);
1090 _rl_vis_botlin = inv_botlin;
1092 /* CHANGED_SCREEN_LINE is set to 1 if we have moved to a
1093 different screen line during this redisplay. */
1094 changed_screen_line = _rl_last_v_pos != cursor_linenum;
1095 if (changed_screen_line)
1097 _rl_move_vert (cursor_linenum);
1098 /* If we moved up to the line with the prompt using _rl_term_up,
1099 the physical cursor position on the screen stays the same,
1100 but the buffer position needs to be adjusted to account
1101 for invisible characters. */
1102 if ((MB_CUR_MAX == 1 || rl_byte_oriented) && cursor_linenum == 0 && wrap_offset)
1103 _rl_last_c_pos += wrap_offset;
1106 /* We have to reprint the prompt if it contains invisible
1107 characters, since it's not generally OK to just reprint
1108 the characters from the current cursor position. But we
1109 only need to reprint it if the cursor is before the last
1110 invisible character in the prompt string. */
1111 nleft = prompt_visible_length + wrap_offset;
1112 if (cursor_linenum == 0 && wrap_offset > 0 && _rl_last_c_pos > 0 &&
1114 _rl_last_c_pos <= PROMPT_ENDING_INDEX && local_prompt)
1116 _rl_last_c_pos < PROMPT_ENDING_INDEX && local_prompt)
1119 #if defined (__MSDOS__)
1120 putc ('\r', rl_outstream);
1123 tputs (_rl_term_cr, 1, _rl_output_character_function);
1126 _rl_output_some_chars ("*", 1);
1128 _rl_output_some_chars (local_prompt, nleft);
1129 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
1130 _rl_last_c_pos = _rl_col_width (local_prompt, 0, nleft, 1) - wrap_offset + modmark;
1132 _rl_last_c_pos = nleft + modmark;
1135 /* Where on that line? And where does that line start
1137 pos = inv_lbreaks[cursor_linenum];
1138 /* nleft == number of characters in the line buffer between the
1139 start of the line and the desired cursor position. */
1140 nleft = cpos_buffer_position - pos;
1142 /* NLEFT is now a number of characters in a buffer. When in a
1143 multibyte locale, however, _rl_last_c_pos is an absolute cursor
1144 position that doesn't take invisible characters in the prompt
1145 into account. We use a fudge factor to compensate. */
1147 /* Since _rl_backspace() doesn't know about invisible characters in the
1148 prompt, and there's no good way to tell it, we compensate for
1149 those characters here and call _rl_backspace() directly. */
1150 if (wrap_offset && cursor_linenum == 0 && nleft < _rl_last_c_pos)
1152 /* TX == new physical cursor position in multibyte locale. */
1153 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
1154 tx = _rl_col_width (&visible_line[pos], 0, nleft, 1) - visible_wrap_offset;
1157 if (tx >= 0 && _rl_last_c_pos > tx)
1159 _rl_backspace (_rl_last_c_pos - tx); /* XXX */
1160 _rl_last_c_pos = tx;
1164 /* We need to note that in a multibyte locale we are dealing with
1165 _rl_last_c_pos as an absolute cursor position, but moving to a
1166 point specified by a buffer position (NLEFT) that doesn't take
1167 invisible characters into account. */
1168 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
1169 _rl_move_cursor_relative (nleft, &invisible_line[pos]);
1170 else if (nleft != _rl_last_c_pos)
1171 _rl_move_cursor_relative (nleft, &invisible_line[pos]);
1174 else /* Do horizontal scrolling. */
1176 #define M_OFFSET(margin, offset) ((margin) == 0 ? offset : 0)
1177 int lmargin, ndisp, nleft, phys_c_pos, t;
1179 /* Always at top line. */
1182 /* Compute where in the buffer the displayed line should start. This
1185 /* The number of characters that will be displayed before the cursor. */
1186 ndisp = cpos_buffer_position - wrap_offset;
1187 nleft = prompt_visible_length + wrap_offset;
1188 /* Where the new cursor position will be on the screen. This can be
1189 longer than SCREENWIDTH; if it is, lmargin will be adjusted. */
1190 phys_c_pos = cpos_buffer_position - (last_lmargin ? last_lmargin : wrap_offset);
1191 t = _rl_screenwidth / 3;
1193 /* If the number of characters had already exceeded the screenwidth,
1194 last_lmargin will be > 0. */
1196 /* If the number of characters to be displayed is more than the screen
1197 width, compute the starting offset so that the cursor is about
1198 two-thirds of the way across the screen. */
1199 if (phys_c_pos > _rl_screenwidth - 2)
1201 lmargin = cpos_buffer_position - (2 * t);
1204 /* If the left margin would be in the middle of a prompt with
1205 invisible characters, don't display the prompt at all. */
1206 if (wrap_offset && lmargin > 0 && lmargin < nleft)
1209 else if (ndisp < _rl_screenwidth - 2) /* XXX - was -1 */
1211 else if (phys_c_pos < 1)
1213 /* If we are moving back towards the beginning of the line and
1214 the last margin is no longer correct, compute a new one. */
1215 lmargin = ((cpos_buffer_position - 1) / t) * t; /* XXX */
1216 if (wrap_offset && lmargin > 0 && lmargin < nleft)
1220 lmargin = last_lmargin;
1222 displaying_prompt_first_line = lmargin < nleft;
1224 /* If the first character on the screen isn't the first character
1225 in the display line, indicate this with a special character. */
1227 line[lmargin] = '<';
1229 /* If SCREENWIDTH characters starting at LMARGIN do not encompass
1230 the whole line, indicate that with a special character at the
1231 right edge of the screen. If LMARGIN is 0, we need to take the
1232 wrap offset into account. */
1233 t = lmargin + M_OFFSET (lmargin, wrap_offset) + _rl_screenwidth;
1237 if (rl_display_fixed == 0 || forced_display || lmargin != last_lmargin)
1240 o_cpos = _rl_last_c_pos;
1242 update_line (&visible_line[last_lmargin],
1243 &invisible_line[lmargin],
1245 _rl_screenwidth + visible_wrap_offset,
1246 _rl_screenwidth + (lmargin ? 0 : wrap_offset),
1249 if ((MB_CUR_MAX > 1 && rl_byte_oriented == 0) &&
1250 displaying_prompt_first_line && OLD_CPOS_IN_PROMPT())
1251 _rl_last_c_pos -= prompt_invis_chars_first_line; /* XXX - was wrap_offset */
1253 /* If the visible new line is shorter than the old, but the number
1254 of invisible characters is greater, and we are at the end of
1255 the new line, we need to clear to eol. */
1256 t = _rl_last_c_pos - M_OFFSET (lmargin, wrap_offset);
1257 if ((M_OFFSET (lmargin, wrap_offset) > visible_wrap_offset) &&
1258 (_rl_last_c_pos == out) && displaying_prompt_first_line &&
1259 t < visible_first_line_len)
1261 nleft = _rl_screenwidth - t;
1262 _rl_clear_to_eol (nleft);
1264 visible_first_line_len = out - lmargin - M_OFFSET (lmargin, wrap_offset);
1265 if (visible_first_line_len > _rl_screenwidth)
1266 visible_first_line_len = _rl_screenwidth;
1268 _rl_move_cursor_relative (cpos_buffer_position - lmargin, &invisible_line[lmargin]);
1269 last_lmargin = lmargin;
1272 fflush (rl_outstream);
1274 /* Swap visible and non-visible lines. */
1276 struct line_state *vtemp = line_state_visible;
1278 line_state_visible = line_state_invisible;
1279 line_state_invisible = vtemp;
1281 rl_display_fixed = 0;
1282 /* If we are displaying on a single line, and last_lmargin is > 0, we
1283 are not displaying any invisible characters, so set visible_wrap_offset
1285 if (_rl_horizontal_scroll_mode && last_lmargin)
1286 visible_wrap_offset = 0;
1288 visible_wrap_offset = wrap_offset;
1291 RL_UNSETSTATE (RL_STATE_REDISPLAYING);
1292 _rl_release_sigint ();
1295 /* PWP: update_line() is based on finding the middle difference of each
1296 line on the screen; vis:
1298 /old first difference
1299 /beginning of line | /old last same /old EOL
1301 old: eddie> Oh, my little gruntle-buggy is to me, as lurgid as
1302 new: eddie> Oh, my little buggy says to me, as lurgid as
1304 \beginning of line | \new last same \new end of line
1305 \new first difference
1307 All are character pointers for the sake of speed. Special cases for
1308 no differences, as well as for end of line additions must be handled.
1310 Could be made even smarter, but this works well enough */
1312 update_line (old, new, current_line, omax, nmax, inv_botlin)
1313 register char *old, *new;
1314 int current_line, omax, nmax, inv_botlin;
1316 register char *ofd, *ols, *oe, *nfd, *nls, *ne;
1317 int temp, lendiff, wsatend, od, nd, twidth, o_cpos;
1318 int current_invis_chars;
1319 int col_lendiff, col_temp;
1320 int bytes_to_insert;
1321 #if defined (HANDLE_MULTIBYTE)
1322 mbstate_t ps_new, ps_old;
1323 int new_offset, old_offset;
1326 /* If we're at the right edge of a terminal that supports xn, we're
1327 ready to wrap around, so do so. This fixes problems with knowing
1328 the exact cursor position and cut-and-paste with certain terminal
1329 emulators. In this calculation, TEMP is the physical screen
1330 position of the cursor. */
1331 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
1332 temp = _rl_last_c_pos;
1334 temp = _rl_last_c_pos - WRAP_OFFSET (_rl_last_v_pos, visible_wrap_offset);
1335 if (temp == _rl_screenwidth && _rl_term_autowrap && !_rl_horizontal_scroll_mode
1336 && _rl_last_v_pos == current_line - 1)
1338 #if defined (HANDLE_MULTIBYTE)
1339 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
1343 int tempwidth, bytes;
1346 /* This fixes only double-column characters, but if the wrapped
1347 character consumes more than three columns, spaces will be
1348 inserted in the string buffer. */
1349 if (current_line < line_state_visible->wbsize && line_state_visible->wrapped_line[current_line] > 0)
1350 _rl_clear_to_eol (line_state_visible->wrapped_line[current_line]);
1352 memset (&ps, 0, sizeof (mbstate_t));
1353 ret = mbrtowc (&wc, new, MB_CUR_MAX, &ps);
1354 if (MB_INVALIDCH (ret))
1359 else if (MB_NULLWCH (ret))
1362 tempwidth = WCWIDTH (wc);
1368 for (count = 0; count < bytes; count++)
1369 putc (new[count], rl_outstream);
1370 _rl_last_c_pos = tempwidth;
1372 memset (&ps, 0, sizeof (mbstate_t));
1373 ret = mbrtowc (&wc, old, MB_CUR_MAX, &ps);
1374 if (ret != 0 && bytes != 0)
1376 if (MB_INVALIDCH (ret))
1378 memmove (old+bytes, old+ret, strlen (old+ret));
1379 memcpy (old, new, bytes);
1380 /* Fix up indices if we copy data from one line to another */
1381 omax += bytes - ret;
1382 for (i = current_line+1; i <= inv_botlin+1; i++)
1383 vis_lbreaks[i] += bytes - ret;
1388 putc (' ', rl_outstream);
1391 if (old[0] && new[0])
1399 putc (new[0], rl_outstream);
1401 putc (' ', rl_outstream);
1404 if (old[0] && new[0])
1410 /* Find first difference. */
1411 #if defined (HANDLE_MULTIBYTE)
1412 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
1414 /* See if the old line is a subset of the new line, so that the
1415 only change is adding characters. */
1416 temp = (omax < nmax) ? omax : nmax;
1417 if (memcmp (old, new, temp) == 0) /* adding at the end */
1419 new_offset = old_offset = temp;
1425 memset (&ps_new, 0, sizeof(mbstate_t));
1426 memset (&ps_old, 0, sizeof(mbstate_t));
1428 if (omax == nmax && STREQN (new, old, omax))
1437 new_offset = old_offset = 0;
1438 for (ofd = old, nfd = new;
1439 (ofd - old < omax) && *ofd &&
1440 _rl_compare_chars(old, old_offset, &ps_old, new, new_offset, &ps_new); )
1442 old_offset = _rl_find_next_mbchar (old, old_offset, 1, MB_FIND_ANY);
1443 new_offset = _rl_find_next_mbchar (new, new_offset, 1, MB_FIND_ANY);
1445 ofd = old + old_offset;
1446 nfd = new + new_offset;
1453 for (ofd = old, nfd = new;
1454 (ofd - old < omax) && *ofd && (*ofd == *nfd);
1458 /* Move to the end of the screen line. ND and OD are used to keep track
1459 of the distance between ne and new and oe and old, respectively, to
1460 move a subtraction out of each loop. */
1461 for (od = ofd - old, oe = ofd; od < omax && *oe; oe++, od++);
1462 for (nd = nfd - new, ne = nfd; nd < nmax && *ne; ne++, nd++);
1464 /* If no difference, continue to next line. */
1465 if (ofd == oe && nfd == ne)
1468 #if defined (HANDLE_MULTIBYTE)
1469 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0 && _rl_utf8locale)
1472 mbstate_t ps = { 0 };
1475 /* If the first character in the difference is a zero-width character,
1476 assume it's a combining character and back one up so the two base
1477 characters no longer compare equivalently. */
1478 t = mbrtowc (&wc, ofd, MB_CUR_MAX, &ps);
1479 if (t > 0 && UNICODE_COMBINING_CHAR (wc) && WCWIDTH (wc) == 0)
1481 old_offset = _rl_find_prev_mbchar (old, ofd - old, MB_FIND_ANY);
1482 new_offset = _rl_find_prev_mbchar (new, nfd - new, MB_FIND_ANY);
1483 ofd = old + old_offset; /* equal by definition */
1484 nfd = new + new_offset;
1489 wsatend = 1; /* flag for trailing whitespace */
1491 #if defined (HANDLE_MULTIBYTE)
1492 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
1494 ols = old + _rl_find_prev_mbchar (old, oe - old, MB_FIND_ANY);
1495 nls = new + _rl_find_prev_mbchar (new, ne - new, MB_FIND_ANY);
1497 while ((ols > ofd) && (nls > nfd))
1499 memset (&ps_old, 0, sizeof (mbstate_t));
1500 memset (&ps_new, 0, sizeof (mbstate_t));
1503 /* On advice from jir@yamato.ibm.com */
1504 _rl_adjust_point (old, ols - old, &ps_old);
1505 _rl_adjust_point (new, nls - new, &ps_new);
1508 if (_rl_compare_chars (old, ols - old, &ps_old, new, nls - new, &ps_new) == 0)
1514 ols = old + _rl_find_prev_mbchar (old, ols - old, MB_FIND_ANY);
1515 nls = new + _rl_find_prev_mbchar (new, nls - new, MB_FIND_ANY);
1520 #endif /* HANDLE_MULTIBYTE */
1521 ols = oe - 1; /* find last same */
1523 while ((ols > ofd) && (nls > nfd) && (*ols == *nls))
1530 #if defined (HANDLE_MULTIBYTE)
1539 #if defined (HANDLE_MULTIBYTE)
1540 /* This may not work for stateful encoding, but who cares? To handle
1541 stateful encoding properly, we have to scan each string from the
1542 beginning and compare. */
1543 else if (_rl_compare_chars (ols, 0, NULL, nls, 0, NULL) == 0)
1545 else if (*ols != *nls)
1548 if (*ols) /* don't step past the NUL */
1550 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
1551 ols = old + _rl_find_next_mbchar (old, ols - old, 1, MB_FIND_ANY);
1557 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
1558 nls = new + _rl_find_next_mbchar (new, nls - new, 1, MB_FIND_ANY);
1564 /* count of invisible characters in the current invisible line. */
1565 current_invis_chars = W_OFFSET (current_line, wrap_offset);
1566 if (_rl_last_v_pos != current_line)
1568 _rl_move_vert (current_line);
1569 if ((MB_CUR_MAX == 1 || rl_byte_oriented) && current_line == 0 && visible_wrap_offset)
1570 _rl_last_c_pos += visible_wrap_offset;
1573 /* If this is the first line and there are invisible characters in the
1574 prompt string, and the prompt string has not changed, and the current
1575 cursor position is before the last invisible character in the prompt,
1576 and the index of the character to move to is past the end of the prompt
1577 string, then redraw the entire prompt string. We can only do this
1578 reliably if the terminal supports a `cr' capability.
1580 This is not an efficiency hack -- there is a problem with redrawing
1581 portions of the prompt string if they contain terminal escape
1582 sequences (like drawing the `unbold' sequence without a corresponding
1583 `bold') that manifests itself on certain terminals. */
1585 lendiff = local_prompt_len;
1586 od = ofd - old; /* index of first difference in visible line */
1587 if (current_line == 0 && !_rl_horizontal_scroll_mode &&
1588 _rl_term_cr && lendiff > prompt_visible_length && _rl_last_c_pos > 0 &&
1589 od >= lendiff && _rl_last_c_pos < PROMPT_ENDING_INDEX)
1591 #if defined (__MSDOS__)
1592 putc ('\r', rl_outstream);
1594 tputs (_rl_term_cr, 1, _rl_output_character_function);
1597 _rl_output_some_chars ("*", 1);
1598 _rl_output_some_chars (local_prompt, lendiff);
1599 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
1601 /* We take wrap_offset into account here so we can pass correct
1602 information to _rl_move_cursor_relative. */
1603 _rl_last_c_pos = _rl_col_width (local_prompt, 0, lendiff, 1) - wrap_offset + modmark;
1607 _rl_last_c_pos = lendiff + modmark;
1610 o_cpos = _rl_last_c_pos;
1612 /* When this function returns, _rl_last_c_pos is correct, and an absolute
1613 cursor position in multibyte mode, but a buffer index when not in a
1614 multibyte locale. */
1615 _rl_move_cursor_relative (od, old);
1617 #if defined (HANDLE_MULTIBYTE)
1618 /* We need to indicate that the cursor position is correct in the presence of
1619 invisible characters in the prompt string. Let's see if setting this when
1620 we make sure we're at the end of the drawn prompt string works. */
1621 if (current_line == 0 && MB_CUR_MAX > 1 && rl_byte_oriented == 0 &&
1622 (_rl_last_c_pos > 0 || o_cpos > 0) &&
1623 _rl_last_c_pos == prompt_physical_chars)
1627 /* if (len (new) > len (old))
1628 lendiff == difference in buffer (bytes)
1629 col_lendiff == difference on screen (columns)
1630 When not using multibyte characters, these are equal */
1631 lendiff = (nls - nfd) - (ols - ofd);
1632 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
1633 col_lendiff = _rl_col_width (new, nfd - new, nls - new, 1) - _rl_col_width (old, ofd - old, ols - old, 1);
1635 col_lendiff = lendiff;
1637 /* If we are changing the number of invisible characters in a line, and
1638 the spot of first difference is before the end of the invisible chars,
1639 lendiff needs to be adjusted. */
1640 if (current_line == 0 && /* !_rl_horizontal_scroll_mode && */
1641 current_invis_chars != visible_wrap_offset)
1643 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
1645 lendiff += visible_wrap_offset - current_invis_chars;
1646 col_lendiff += visible_wrap_offset - current_invis_chars;
1650 lendiff += visible_wrap_offset - current_invis_chars;
1651 col_lendiff = lendiff;
1655 /* We use temp as a count of the number of bytes from the first difference
1656 to the end of the new line. col_temp is the corresponding number of
1657 screen columns. A `dumb' update moves to the spot of first difference
1658 and writes TEMP bytes. */
1659 /* Insert (diff (len (old), len (new)) ch. */
1661 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
1662 col_temp = _rl_col_width (new, nfd - new, ne - new, 1);
1666 /* how many bytes from the new line buffer to write to the display */
1667 bytes_to_insert = nls - nfd;
1669 /* col_lendiff > 0 if we are adding characters to the line */
1670 if (col_lendiff > 0) /* XXX - was lendiff */
1672 /* Non-zero if we're increasing the number of lines. */
1673 int gl = current_line >= _rl_vis_botlin && inv_botlin > _rl_vis_botlin;
1674 /* If col_lendiff is > 0, implying that the new string takes up more
1675 screen real estate than the old, but lendiff is < 0, meaning that it
1676 takes fewer bytes, we need to just output the characters starting
1677 from the first difference. These will overwrite what is on the
1678 display, so there's no reason to do a smart update. This can really
1679 only happen in a multibyte environment. */
1682 _rl_output_some_chars (nfd, temp);
1683 _rl_last_c_pos += col_temp; /* XXX - was _rl_col_width (nfd, 0, temp, 1); */
1684 /* If nfd begins before any invisible characters in the prompt,
1685 adjust _rl_last_c_pos to account for wrap_offset and set
1686 cpos_adjusted to let the caller know. */
1687 if (current_line == 0 && displaying_prompt_first_line && wrap_offset && ((nfd - new) <= prompt_last_invisible))
1689 _rl_last_c_pos -= wrap_offset;
1694 /* Sometimes it is cheaper to print the characters rather than
1695 use the terminal's capabilities. If we're growing the number
1696 of lines, make sure we actually cause the new line to wrap
1697 around on auto-wrapping terminals. */
1698 else if (_rl_terminal_can_insert && ((2 * col_temp) >= col_lendiff || _rl_term_IC) && (!_rl_term_autowrap || !gl))
1700 /* If lendiff > prompt_visible_length and _rl_last_c_pos == 0 and
1701 _rl_horizontal_scroll_mode == 1, inserting the characters with
1702 _rl_term_IC or _rl_term_ic will screw up the screen because of the
1703 invisible characters. We need to just draw them. */
1704 /* The same thing happens if we're trying to draw before the last
1705 invisible character in the prompt string or we're increasing the
1706 number of invisible characters in the line and we're not drawing
1707 the entire prompt string. */
1708 if (*ols && ((_rl_horizontal_scroll_mode &&
1709 _rl_last_c_pos == 0 &&
1710 lendiff > prompt_visible_length &&
1711 current_invis_chars > 0) == 0) &&
1712 (((MB_CUR_MAX > 1 && rl_byte_oriented == 0) &&
1713 current_line == 0 && wrap_offset &&
1714 ((nfd - new) <= prompt_last_invisible) &&
1715 (col_lendiff < prompt_visible_length)) == 0) &&
1716 (visible_wrap_offset >= current_invis_chars))
1718 open_some_spaces (col_lendiff);
1719 _rl_output_some_chars (nfd, bytes_to_insert);
1720 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
1721 _rl_last_c_pos += _rl_col_width (nfd, 0, bytes_to_insert, 1);
1723 _rl_last_c_pos += bytes_to_insert;
1725 else if ((MB_CUR_MAX == 1 || rl_byte_oriented != 0) && *ols == 0 && lendiff > 0)
1727 /* At the end of a line the characters do not have to
1728 be "inserted". They can just be placed on the screen. */
1729 _rl_output_some_chars (nfd, temp);
1730 _rl_last_c_pos += col_temp;
1733 else /* just write from first difference to end of new line */
1735 _rl_output_some_chars (nfd, temp);
1736 _rl_last_c_pos += col_temp;
1737 /* If nfd begins before the last invisible character in the
1738 prompt, adjust _rl_last_c_pos to account for wrap_offset
1739 and set cpos_adjusted to let the caller know. */
1740 if ((MB_CUR_MAX > 1 && rl_byte_oriented == 0) && current_line == 0 && displaying_prompt_first_line && wrap_offset && ((nfd - new) <= prompt_last_invisible))
1742 _rl_last_c_pos -= wrap_offset;
1748 if (bytes_to_insert > lendiff)
1750 /* If nfd begins before the last invisible character in the
1751 prompt, adjust _rl_last_c_pos to account for wrap_offset
1752 and set cpos_adjusted to let the caller know. */
1753 if ((MB_CUR_MAX > 1 && rl_byte_oriented == 0) && current_line == 0 && displaying_prompt_first_line && wrap_offset && ((nfd - new) <= prompt_last_invisible))
1755 _rl_last_c_pos -= wrap_offset;
1762 /* cannot insert chars, write to EOL */
1763 _rl_output_some_chars (nfd, temp);
1764 _rl_last_c_pos += col_temp;
1765 /* If we're in a multibyte locale and were before the last invisible
1766 char in the current line (which implies we just output some invisible
1767 characters) we need to adjust _rl_last_c_pos, since it represents
1768 a physical character position. */
1769 if ((MB_CUR_MAX > 1 && rl_byte_oriented == 0) &&
1770 current_line == prompt_last_screen_line && wrap_offset &&
1771 displaying_prompt_first_line &&
1772 wrap_offset != prompt_invis_chars_first_line &&
1773 ((nfd-new) < (prompt_last_invisible-(current_line*_rl_screenwidth))))
1775 _rl_last_c_pos -= wrap_offset - prompt_invis_chars_first_line;
1780 else /* Delete characters from line. */
1782 /* If possible and inexpensive to use terminal deletion, then do so. */
1783 if (_rl_term_dc && (2 * col_temp) >= -col_lendiff)
1785 /* If all we're doing is erasing the invisible characters in the
1786 prompt string, don't bother. It screws up the assumptions
1787 about what's on the screen. */
1788 if (_rl_horizontal_scroll_mode && _rl_last_c_pos == 0 &&
1789 displaying_prompt_first_line &&
1790 -lendiff == visible_wrap_offset)
1793 /* If we have moved lmargin and we're shrinking the line, we've
1794 already moved the cursor to the first character of the new line,
1795 so deleting -col_lendiff characters will mess up the cursor
1796 position calculation */
1797 if (_rl_horizontal_scroll_mode && displaying_prompt_first_line == 0 &&
1798 col_lendiff && _rl_last_c_pos < -col_lendiff)
1802 delete_chars (-col_lendiff); /* delete (diff) characters */
1804 /* Copy (new) chars to screen from first diff to last match,
1805 overwriting what is there. */
1806 if (bytes_to_insert > 0)
1808 /* If nfd begins at the prompt, or before the invisible
1809 characters in the prompt, we need to adjust _rl_last_c_pos
1810 in a multibyte locale to account for the wrap offset and
1811 set cpos_adjusted accordingly. */
1812 _rl_output_some_chars (nfd, bytes_to_insert);
1813 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
1815 _rl_last_c_pos += _rl_col_width (nfd, 0, bytes_to_insert, 1);
1816 if (current_line == 0 && wrap_offset &&
1817 displaying_prompt_first_line &&
1818 _rl_last_c_pos > wrap_offset &&
1819 ((nfd - new) <= prompt_last_invisible))
1821 _rl_last_c_pos -= wrap_offset;
1826 _rl_last_c_pos += bytes_to_insert;
1828 /* XXX - we only want to do this if we are at the end of the line
1829 so we move there with _rl_move_cursor_relative */
1830 if (_rl_horizontal_scroll_mode && ((oe-old) > (ne-new)))
1832 _rl_move_cursor_relative (ne-new, new);
1833 goto clear_rest_of_line;
1837 /* Otherwise, print over the existing material. */
1842 /* If nfd begins at the prompt, or before the invisible
1843 characters in the prompt, we need to adjust _rl_last_c_pos
1844 in a multibyte locale to account for the wrap offset and
1845 set cpos_adjusted accordingly. */
1846 _rl_output_some_chars (nfd, temp);
1847 _rl_last_c_pos += col_temp; /* XXX */
1848 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
1850 if (current_line == 0 && wrap_offset &&
1851 displaying_prompt_first_line &&
1852 _rl_last_c_pos > wrap_offset &&
1853 ((nfd - new) <= prompt_last_invisible))
1855 _rl_last_c_pos -= wrap_offset;
1861 lendiff = (oe - old) - (ne - new);
1862 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
1863 col_lendiff = _rl_col_width (old, 0, oe - old, 1) - _rl_col_width (new, 0, ne - new, 1);
1865 col_lendiff = lendiff;
1867 /* If we've already printed over the entire width of the screen,
1868 including the old material, then col_lendiff doesn't matter and
1869 space_to_eol will insert too many spaces. XXX - maybe we should
1870 adjust col_lendiff based on the difference between _rl_last_c_pos
1871 and _rl_screenwidth */
1872 if (col_lendiff && ((MB_CUR_MAX == 1 || rl_byte_oriented) || (_rl_last_c_pos < _rl_screenwidth)))
1874 if (_rl_term_autowrap && current_line < inv_botlin)
1875 space_to_eol (col_lendiff);
1877 _rl_clear_to_eol (col_lendiff);
1883 /* Tell the update routines that we have moved onto a new (empty) line. */
1888 visible_line[0] = '\0';
1890 _rl_last_c_pos = _rl_last_v_pos = 0;
1891 _rl_vis_botlin = last_lmargin = 0;
1893 vis_lbreaks[0] = vis_lbreaks[1] = 0;
1894 visible_wrap_offset = 0;
1898 /* Tell the update routines that we have moved onto a new line with the
1899 prompt already displayed. Code originally from the version of readline
1900 distributed with CLISP. rl_expand_prompt must have already been called
1901 (explicitly or implicitly). This still doesn't work exactly right. */
1903 rl_on_new_line_with_prompt ()
1905 int prompt_size, i, l, real_screenwidth, newlines;
1906 char *prompt_last_line, *lprompt;
1908 /* Initialize visible_line and invisible_line to ensure that they can hold
1909 the already-displayed prompt. */
1910 prompt_size = strlen (rl_prompt) + 1;
1911 init_line_structures (prompt_size);
1913 /* Make sure the line structures hold the already-displayed prompt for
1915 lprompt = local_prompt ? local_prompt : rl_prompt;
1916 strcpy (visible_line, lprompt);
1917 strcpy (invisible_line, lprompt);
1919 /* If the prompt contains newlines, take the last tail. */
1920 prompt_last_line = strrchr (rl_prompt, '\n');
1921 if (!prompt_last_line)
1922 prompt_last_line = rl_prompt;
1924 l = strlen (prompt_last_line);
1925 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
1926 _rl_last_c_pos = _rl_col_width (prompt_last_line, 0, l, 1); /* XXX */
1930 /* Dissect prompt_last_line into screen lines. Note that here we have
1931 to use the real screenwidth. Readline's notion of screenwidth might be
1932 one less, see terminal.c. */
1933 real_screenwidth = _rl_screenwidth + (_rl_term_autowrap ? 0 : 1);
1934 _rl_last_v_pos = l / real_screenwidth;
1935 /* If the prompt length is a multiple of real_screenwidth, we don't know
1936 whether the cursor is at the end of the last line, or already at the
1937 beginning of the next line. Output a newline just to be safe. */
1938 if (l > 0 && (l % real_screenwidth) == 0)
1939 _rl_output_some_chars ("\n", 1);
1942 newlines = 0; i = 0;
1945 _rl_vis_botlin = newlines;
1946 vis_lbreaks[newlines++] = i;
1947 i += real_screenwidth;
1949 vis_lbreaks[newlines] = l;
1950 visible_wrap_offset = 0;
1952 rl_display_prompt = rl_prompt; /* XXX - make sure it's set */
1957 /* Actually update the display, period. */
1959 rl_forced_update_display ()
1961 register char *temp;
1965 temp = visible_line;
1971 (*rl_redisplay_function) ();
1975 /* Move the cursor from _rl_last_c_pos to NEW, which are buffer indices.
1976 (Well, when we don't have multibyte characters, _rl_last_c_pos is a
1978 DATA is the contents of the screen line of interest; i.e., where
1979 the movement is being done. */
1981 _rl_move_cursor_relative (new, data)
1986 int woff; /* number of invisible chars on current line */
1987 int cpos, dpos; /* current and desired cursor positions */
1990 woff = WRAP_OFFSET (_rl_last_v_pos, wrap_offset);
1991 cpos = _rl_last_c_pos;
1993 if (cpos == 0 && cpos == new)
1996 #if defined (HANDLE_MULTIBYTE)
1997 /* If we have multibyte characters, NEW is indexed by the buffer point in
1998 a multibyte string, but _rl_last_c_pos is the display position. In
1999 this case, NEW's display position is not obvious and must be
2000 calculated. We need to account for invisible characters in this line,
2001 as long as we are past them and they are counted by _rl_col_width. */
2002 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
2005 /* Try to short-circuit common cases and eliminate a bunch of multibyte
2006 character function calls. */
2007 /* 1. prompt string */
2008 if (new == local_prompt_len && memcmp (data, local_prompt, new) == 0)
2010 dpos = prompt_physical_chars;
2014 /* 2. prompt_string + line contents */
2015 else if (new > local_prompt_len && local_prompt && memcmp (data, local_prompt, local_prompt_len) == 0)
2017 dpos = prompt_physical_chars + _rl_col_width (data, local_prompt_len, new, 1);
2022 dpos = _rl_col_width (data, 0, new, 1);
2024 if (displaying_prompt_first_line == 0)
2027 /* Use NEW when comparing against the last invisible character in the
2028 prompt string, since they're both buffer indices and DPOS is a
2029 desired display position. */
2030 if (adjust && ((new > prompt_last_invisible) || /* XXX - don't use woff here */
2031 (prompt_physical_chars >= _rl_screenwidth &&
2032 _rl_last_v_pos == prompt_last_screen_line &&
2033 wrap_offset >= woff && dpos >= woff &&
2034 new > (prompt_last_invisible-(_rl_screenwidth*_rl_last_v_pos)-wrap_offset))))
2035 /* XXX last comparison might need to be >= */
2038 /* Since this will be assigned to _rl_last_c_pos at the end (more
2039 precisely, _rl_last_c_pos == dpos when this function returns),
2040 let the caller know. */
2048 /* If we don't have to do anything, then return. */
2052 /* It may be faster to output a CR, and then move forwards instead
2053 of moving backwards. */
2054 /* i == current physical cursor position. */
2055 #if defined (HANDLE_MULTIBYTE)
2056 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
2060 i = _rl_last_c_pos - woff;
2061 if (dpos == 0 || CR_FASTER (dpos, _rl_last_c_pos) ||
2062 (_rl_term_autowrap && i == _rl_screenwidth))
2064 #if defined (__MSDOS__)
2065 putc ('\r', rl_outstream);
2067 tputs (_rl_term_cr, 1, _rl_output_character_function);
2068 #endif /* !__MSDOS__ */
2069 cpos = _rl_last_c_pos = 0;
2074 /* Move the cursor forward. We do it by printing the command
2075 to move the cursor forward if there is one, else print that
2076 portion of the output buffer again. Which is cheaper? */
2078 /* The above comment is left here for posterity. It is faster
2079 to print one character (non-control) than to print a control
2080 sequence telling the terminal to move forward one character.
2081 That kind of control is for people who don't know what the
2082 data is underneath the cursor. */
2084 /* However, we need a handle on where the current display position is
2085 in the buffer for the immediately preceding comment to be true.
2086 In multibyte locales, we don't currently have that info available.
2087 Without it, we don't know where the data we have to display begins
2088 in the buffer and we have to go back to the beginning of the screen
2089 line. In this case, we can use the terminal sequence to move forward
2090 if it's available. */
2091 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
2093 if (_rl_term_forward_char)
2095 for (i = cpos; i < dpos; i++)
2096 tputs (_rl_term_forward_char, 1, _rl_output_character_function);
2100 tputs (_rl_term_cr, 1, _rl_output_character_function);
2101 for (i = 0; i < new; i++)
2102 putc (data[i], rl_outstream);
2106 for (i = cpos; i < new; i++)
2107 putc (data[i], rl_outstream);
2110 #if defined (HANDLE_MULTIBYTE)
2111 /* NEW points to the buffer point, but _rl_last_c_pos is the display point.
2112 The byte length of the string is probably bigger than the column width
2113 of the string, which means that if NEW == _rl_last_c_pos, then NEW's
2114 display point is less than _rl_last_c_pos. */
2116 else if (cpos > dpos)
2117 _rl_backspace (cpos - dpos);
2119 _rl_last_c_pos = dpos;
2122 /* PWP: move the cursor up or down. */
2127 register int delta, i;
2129 if (_rl_last_v_pos == to || to > _rl_screenheight)
2132 if ((delta = to - _rl_last_v_pos) > 0)
2134 for (i = 0; i < delta; i++)
2135 putc ('\n', rl_outstream);
2136 #if defined (__MSDOS__)
2137 putc ('\r', rl_outstream);
2139 tputs (_rl_term_cr, 1, _rl_output_character_function);
2148 fflush (rl_outstream);
2149 ScreenGetCursor (&row, &col);
2150 ScreenSetCursor (row + delta, col);
2153 if (_rl_term_up && *_rl_term_up)
2154 for (i = 0; i < -delta; i++)
2155 tputs (_rl_term_up, 1, _rl_output_character_function);
2156 #endif /* !__DJGPP__ */
2159 _rl_last_v_pos = to; /* Now TO is here */
2162 /* Physically print C on rl_outstream. This is for functions which know
2163 how to optimize the display. Return the number of characters output. */
2169 if (META_CHAR (c) && (_rl_output_meta_chars == 0))
2171 fprintf (rl_outstream, "M-");
2176 #if defined (DISPLAY_TABS)
2177 if ((CTRL_CHAR (c) && c != '\t') || c == RUBOUT)
2179 if (CTRL_CHAR (c) || c == RUBOUT)
2180 #endif /* !DISPLAY_TABS */
2182 fprintf (rl_outstream, "C-");
2184 c = CTRL_CHAR (c) ? UNCTRL (c) : '?';
2187 putc (c, rl_outstream);
2188 fflush (rl_outstream);
2193 rl_character_len (c, pos)
2194 register int c, pos;
2198 uc = (unsigned char)c;
2201 return ((_rl_output_meta_chars == 0) ? 4 : 1);
2205 #if defined (DISPLAY_TABS)
2206 return (((pos | 7) + 1) - pos);
2209 #endif /* !DISPLAY_TABS */
2212 if (CTRL_CHAR (c) || c == RUBOUT)
2215 return ((ISPRINT (uc)) ? 1 : 2);
2217 /* How to print things in the "echo-area". The prompt is treated as a
2219 static int msg_saved_prompt = 0;
2221 #if defined (USE_VARARGS)
2223 #if defined (PREFER_STDARG)
2224 rl_message (const char *format, ...)
2226 rl_message (va_alist)
2231 #if defined (PREFER_VARARGS)
2234 #if defined (HAVE_VSNPRINTF)
2238 #if defined (PREFER_STDARG)
2239 va_start (args, format);
2242 format = va_arg (args, char *);
2246 msg_buf = xmalloc (msg_bufsiz = 128);
2248 #if defined (HAVE_VSNPRINTF)
2249 bneed = vsnprintf (msg_buf, msg_bufsiz - 1, format, args);
2250 if (bneed >= msg_bufsiz - 1)
2252 msg_bufsiz = bneed + 1;
2253 msg_buf = xrealloc (msg_buf, msg_bufsiz);
2256 #if defined (PREFER_STDARG)
2257 va_start (args, format);
2260 format = va_arg (args, char *);
2262 vsnprintf (msg_buf, msg_bufsiz - 1, format, args);
2265 vsprintf (msg_buf, format, args);
2266 msg_buf[msg_bufsiz - 1] = '\0'; /* overflow? */
2270 if (saved_local_prompt == 0)
2273 msg_saved_prompt = 1;
2275 else if (local_prompt != saved_local_prompt)
2277 FREE (local_prompt);
2278 FREE (local_prompt_prefix);
2279 local_prompt = (char *)NULL;
2281 rl_display_prompt = msg_buf;
2282 local_prompt = expand_prompt (msg_buf, &prompt_visible_length,
2283 &prompt_last_invisible,
2284 &prompt_invis_chars_first_line,
2285 &prompt_physical_chars);
2286 local_prompt_prefix = (char *)NULL;
2287 local_prompt_len = local_prompt ? strlen (local_prompt) : 0;
2288 (*rl_redisplay_function) ();
2292 #else /* !USE_VARARGS */
2294 rl_message (format, arg1, arg2)
2298 msg_buf = xmalloc (msg_bufsiz = 128);
2300 sprintf (msg_buf, format, arg1, arg2);
2301 msg_buf[msg_bufsiz - 1] = '\0'; /* overflow? */
2303 rl_display_prompt = msg_buf;
2304 if (saved_local_prompt == 0)
2307 msg_saved_prompt = 1;
2309 else if (local_prompt != saved_local_prompt)
2311 FREE (local_prompt);
2312 FREE (local_prompt_prefix);
2313 local_prompt = (char *)NULL;
2315 local_prompt = expand_prompt (msg_buf, &prompt_visible_length,
2316 &prompt_last_invisible,
2317 &prompt_invis_chars_first_line,
2318 &prompt_physical_chars);
2319 local_prompt_prefix = (char *)NULL;
2320 local_prompt_len = local_prompt ? strlen (local_prompt) : 0;
2321 (*rl_redisplay_function) ();
2325 #endif /* !USE_VARARGS */
2327 /* How to clear things from the "echo-area". */
2331 rl_display_prompt = rl_prompt;
2332 if (msg_saved_prompt)
2334 rl_restore_prompt ();
2335 msg_saved_prompt = 0;
2337 (*rl_redisplay_function) ();
2342 rl_reset_line_state ()
2346 rl_display_prompt = rl_prompt ? rl_prompt : "";
2354 saved_local_prompt = local_prompt;
2355 saved_local_prefix = local_prompt_prefix;
2356 saved_prefix_length = prompt_prefix_length;
2357 saved_local_length = local_prompt_len;
2358 saved_last_invisible = prompt_last_invisible;
2359 saved_visible_length = prompt_visible_length;
2360 saved_invis_chars_first_line = prompt_invis_chars_first_line;
2361 saved_physical_chars = prompt_physical_chars;
2363 local_prompt = local_prompt_prefix = (char *)0;
2364 local_prompt_len = 0;
2365 prompt_last_invisible = prompt_visible_length = prompt_prefix_length = 0;
2366 prompt_invis_chars_first_line = prompt_physical_chars = 0;
2370 rl_restore_prompt ()
2372 FREE (local_prompt);
2373 FREE (local_prompt_prefix);
2375 local_prompt = saved_local_prompt;
2376 local_prompt_prefix = saved_local_prefix;
2377 local_prompt_len = saved_local_length;
2378 prompt_prefix_length = saved_prefix_length;
2379 prompt_last_invisible = saved_last_invisible;
2380 prompt_visible_length = saved_visible_length;
2381 prompt_invis_chars_first_line = saved_invis_chars_first_line;
2382 prompt_physical_chars = saved_physical_chars;
2384 /* can test saved_local_prompt to see if prompt info has been saved. */
2385 saved_local_prompt = saved_local_prefix = (char *)0;
2386 saved_local_length = 0;
2387 saved_last_invisible = saved_visible_length = saved_prefix_length = 0;
2388 saved_invis_chars_first_line = saved_physical_chars = 0;
2392 _rl_make_prompt_for_search (pchar)
2400 /* We've saved the prompt, and can do anything with the various prompt
2401 strings we need before they're restored. We want the unexpanded
2402 portion of the prompt string after any final newline. */
2403 p = rl_prompt ? strrchr (rl_prompt, '\n') : 0;
2406 len = (rl_prompt && *rl_prompt) ? strlen (rl_prompt) : 0;
2407 pmt = (char *)xmalloc (len + 2);
2409 strcpy (pmt, rl_prompt);
2417 pmt = (char *)xmalloc (len + 2);
2424 /* will be overwritten by expand_prompt, called from rl_message */
2425 prompt_physical_chars = saved_physical_chars + 1;
2429 /* Quick redisplay hack when erasing characters at the end of the line. */
2431 _rl_erase_at_end_of_line (l)
2437 for (i = 0; i < l; i++)
2438 putc (' ', rl_outstream);
2440 for (i = 0; i < l; i++)
2441 visible_line[--_rl_last_c_pos] = '\0';
2445 /* Clear to the end of the line. COUNT is the minimum
2446 number of character spaces to clear, */
2448 _rl_clear_to_eol (count)
2452 if (_rl_term_clreol)
2453 tputs (_rl_term_clreol, 1, _rl_output_character_function);
2457 space_to_eol (count);
2460 /* Clear to the end of the line using spaces. COUNT is the minimum
2461 number of character spaces to clear, */
2463 space_to_eol (count)
2468 for (i = 0; i < count; i++)
2469 putc (' ', rl_outstream);
2471 _rl_last_c_pos += count;
2478 if (_rl_term_clrpag)
2479 tputs (_rl_term_clrpag, 1, _rl_output_character_function);
2484 ScreenSetCursor (0, 0);
2485 #endif /* __DJGPP__ */
2488 /* Insert COUNT characters from STRING to the output stream at column COL. */
2490 insert_some_chars (string, count, col)
2494 open_some_spaces (col);
2495 _rl_output_some_chars (string, count);
2498 /* Insert COL spaces, keeping the cursor at the same position. We follow the
2499 ncurses documentation and use either im/ei with explicit spaces, or IC/ic
2500 by itself. We assume there will either be ei or we don't need to use it. */
2502 open_some_spaces (col)
2505 #if !defined (__MSDOS__) && !defined (__MINGW32__)
2509 /* If IC is defined, then we do not have to "enter" insert mode. */
2512 buffer = tgoto (_rl_term_IC, 0, col);
2513 tputs (buffer, 1, _rl_output_character_function);
2515 else if (_rl_term_im && *_rl_term_im)
2517 tputs (_rl_term_im, 1, _rl_output_character_function);
2518 /* just output the desired number of spaces */
2519 for (i = col; i--; )
2520 _rl_output_character_function (' ');
2521 /* If there is a string to turn off insert mode, use it now. */
2522 if (_rl_term_ei && *_rl_term_ei)
2523 tputs (_rl_term_ei, 1, _rl_output_character_function);
2524 /* and move back the right number of spaces */
2525 _rl_backspace (col);
2527 else if (_rl_term_ic && *_rl_term_ic)
2529 /* If there is a special command for inserting characters, then
2530 use that first to open up the space. */
2531 for (i = col; i--; )
2532 tputs (_rl_term_ic, 1, _rl_output_character_function);
2534 #endif /* !__MSDOS__ && !__MINGW32__ */
2537 /* Delete COUNT characters from the display line. */
2539 delete_chars (count)
2542 if (count > _rl_screenwidth) /* XXX */
2545 #if !defined (__MSDOS__) && !defined (__MINGW32__)
2546 if (_rl_term_DC && *_rl_term_DC)
2549 buffer = tgoto (_rl_term_DC, count, count);
2550 tputs (buffer, count, _rl_output_character_function);
2554 if (_rl_term_dc && *_rl_term_dc)
2556 tputs (_rl_term_dc, 1, _rl_output_character_function);
2558 #endif /* !__MSDOS__ && !__MINGW32__ */
2567 /* If the cursor is the only thing on an otherwise-blank last line,
2568 compensate so we don't print an extra CRLF. */
2569 if (_rl_vis_botlin && _rl_last_c_pos == 0 &&
2570 visible_line[vis_lbreaks[_rl_vis_botlin]] == 0)
2575 _rl_move_vert (_rl_vis_botlin);
2576 /* If we've wrapped lines, remove the final xterm line-wrap flag. */
2577 if (full_lines && _rl_term_autowrap && (VIS_LLEN(_rl_vis_botlin) == _rl_screenwidth))
2581 last_line = &visible_line[vis_lbreaks[_rl_vis_botlin]];
2582 cpos_buffer_position = -1; /* don't know where we are in buffer */
2583 _rl_move_cursor_relative (_rl_screenwidth - 1, last_line); /* XXX */
2584 _rl_clear_to_eol (0);
2585 putc (last_line[_rl_screenwidth - 1], rl_outstream);
2589 fflush (rl_outstream);
2593 /* Move to the start of the current line. */
2599 #if defined (__MSDOS__)
2600 putc ('\r', rl_outstream);
2602 tputs (_rl_term_cr, 1, _rl_output_character_function);
2608 /* Redraw the last line of a multi-line prompt that may possibly contain
2609 terminal escape sequences. Called with the cursor at column 0 of the
2610 line to draw the prompt on. */
2617 oldp = rl_display_prompt;
2620 rl_display_prompt = t;
2621 local_prompt = expand_prompt (t, &prompt_visible_length,
2622 &prompt_last_invisible,
2623 &prompt_invis_chars_first_line,
2624 &prompt_physical_chars);
2625 local_prompt_prefix = (char *)NULL;
2626 local_prompt_len = local_prompt ? strlen (local_prompt) : 0;
2628 rl_forced_update_display ();
2630 rl_display_prompt = oldp;
2631 rl_restore_prompt();
2634 /* Redisplay the current line after a SIGWINCH is received. */
2636 _rl_redisplay_after_sigwinch ()
2640 /* Clear the last line (assuming that the screen size change will result in
2641 either more or fewer characters on that line only) and put the cursor at
2642 column 0. Make sure the right thing happens if we have wrapped to a new
2646 _rl_move_vert (_rl_vis_botlin);
2648 #if defined (__MSDOS__)
2649 putc ('\r', rl_outstream);
2651 tputs (_rl_term_cr, 1, _rl_output_character_function);
2654 #if defined (__MSDOS__)
2655 space_to_eol (_rl_screenwidth);
2656 putc ('\r', rl_outstream);
2658 if (_rl_term_clreol)
2659 tputs (_rl_term_clreol, 1, _rl_output_character_function);
2662 space_to_eol (_rl_screenwidth);
2663 tputs (_rl_term_cr, 1, _rl_output_character_function);
2666 if (_rl_last_v_pos > 0)
2672 /* Redraw only the last line of a multi-line prompt. */
2673 t = strrchr (rl_display_prompt, '\n');
2675 redraw_prompt (++t);
2677 rl_forced_update_display ();
2681 _rl_clean_up_for_exit ()
2685 if (_rl_vis_botlin > 0) /* minor optimization plus bug fix */
2686 _rl_move_vert (_rl_vis_botlin);
2688 fflush (rl_outstream);
2689 rl_restart_output (1, 0);
2694 _rl_erase_entire_line ()
2697 _rl_clear_to_eol (0);
2699 fflush (rl_outstream);
2702 /* return the `current display line' of the cursor -- the number of lines to
2703 move up to get to the first screen line of the current readline line. */
2705 _rl_current_display_line ()
2709 /* Find out whether or not there might be invisible characters in the
2711 if (rl_display_prompt == rl_prompt)
2712 nleft = _rl_last_c_pos - _rl_screenwidth - rl_visible_prompt_length;
2714 nleft = _rl_last_c_pos - _rl_screenwidth;
2717 ret = 1 + nleft / _rl_screenwidth;
2724 #if defined (HANDLE_MULTIBYTE)
2725 /* Calculate the number of screen columns occupied by STR from START to END.
2726 In the case of multibyte characters with stateful encoding, we have to
2727 scan from the beginning of the string to take the state into account. */
2729 _rl_col_width (str, start, end, flags)
2731 int start, end, flags;
2735 int tmp, point, width, max;
2739 if (MB_CUR_MAX == 1 || rl_byte_oriented)
2740 /* this can happen in some cases where it's inconvenient to check */
2741 return (end - start);
2743 memset (&ps, 0, sizeof (mbstate_t));
2748 /* Try to short-circuit common cases. The adjustment to remove wrap_offset
2749 is done by the caller. */
2750 /* 1. prompt string */
2751 if (flags && start == 0 && end == local_prompt_len && memcmp (str, local_prompt, local_prompt_len) == 0)
2752 return (prompt_physical_chars + wrap_offset);
2753 /* 2. prompt string + line contents */
2754 else if (flags && start == 0 && local_prompt_len > 0 && end > local_prompt_len && local_prompt && memcmp (str, local_prompt, local_prompt_len) == 0)
2756 tmp = prompt_physical_chars + wrap_offset;
2757 /* XXX - try to call ourselves recursively with non-prompt portion */
2758 tmp += _rl_col_width (str, local_prompt_len, end, flags);
2762 while (point < start)
2764 tmp = mbrlen (str + point, max, &ps);
2765 if (MB_INVALIDCH ((size_t)tmp))
2767 /* In this case, the bytes are invalid or too short to compose a
2768 multibyte character, so we assume that the first byte represents
2769 a single character. */
2773 /* Clear the state of the byte sequence, because in this case the
2774 effect of mbstate is undefined. */
2775 memset (&ps, 0, sizeof (mbstate_t));
2777 else if (MB_NULLWCH (tmp))
2778 break; /* Found '\0' */
2786 /* If START is not a byte that starts a character, then POINT will be
2787 greater than START. In this case, assume that (POINT - START) gives
2788 a byte count that is the number of columns of difference. */
2789 width = point - start;
2793 tmp = mbrtowc (&wc, str + point, max, &ps);
2794 if (MB_INVALIDCH ((size_t)tmp))
2796 /* In this case, the bytes are invalid or too short to compose a
2797 multibyte character, so we assume that the first byte represents
2798 a single character. */
2802 /* and assume that the byte occupies a single column. */
2805 /* Clear the state of the byte sequence, because in this case the
2806 effect of mbstate is undefined. */
2807 memset (&ps, 0, sizeof (mbstate_t));
2809 else if (MB_NULLWCH (tmp))
2810 break; /* Found '\0' */
2816 width += (tmp >= 0) ? tmp : 1;
2820 width += point - end;
2824 #endif /* HANDLE_MULTIBYTE */