1 /* display.c -- readline redisplay facility. */
3 /* Copyright (C) 1987-2009 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 */
44 /* System-specific feature definitions and include files. */
48 /* Termcap library stuff. */
51 /* Some standard library routines. */
55 #include "rlprivate.h"
58 #if !defined (strchr) && !defined (__STDC__)
59 extern char *strchr (), *strrchr ();
60 #endif /* !strchr && !__STDC__ */
62 static void update_line
PARAMS((char *, char *, int, int, int, int));
63 static void space_to_eol
PARAMS((int));
64 static void delete_chars
PARAMS((int));
65 static void insert_some_chars
PARAMS((char *, int, int));
66 static void cr
PARAMS((void));
68 /* State of visible and invisible lines. */
74 #if defined (HANDLE_MULTIBYTE)
80 /* The line display buffers. One is the line currently displayed on
81 the screen. The other is the line about to be displayed. */
82 static struct line_state line_state_array
[2];
83 static struct line_state
*line_state_visible
= &line_state_array
[0];
84 static struct line_state
*line_state_invisible
= &line_state_array
[1];
85 static int line_structures_initialized
= 0;
87 /* Backwards-compatible names. */
88 #define inv_lbreaks (line_state_invisible->lbreaks)
89 #define inv_lbsize (line_state_invisible->lbsize)
90 #define vis_lbreaks (line_state_visible->lbreaks)
91 #define vis_lbsize (line_state_visible->lbsize)
93 #define visible_line (line_state_visible->line)
94 #define invisible_line (line_state_invisible->line)
96 #if defined (HANDLE_MULTIBYTE)
97 static int _rl_col_width
PARAMS((const char *, int, int));
99 # define _rl_col_width(l, s, e) (((e) <= (s)) ? 0 : (e) - (s))
102 /* Heuristic used to decide whether it is faster to move from CUR to NEW
103 by backing up or outputting a carriage return and moving forward. CUR
104 and NEW are either both buffer positions or absolute screen positions. */
105 #define CR_FASTER(new, cur) (((new) + 1) < ((cur) - (new)))
107 /* _rl_last_c_pos is an absolute cursor position in multibyte locales and a
108 buffer index in others. This macro is used when deciding whether the
109 current cursor position is in the middle of a prompt string containing
110 invisible characters. XXX - might need to take `modmark' into account. */
111 #define PROMPT_ENDING_INDEX \
112 ((MB_CUR_MAX > 1 && rl_byte_oriented == 0) ? prompt_physical_chars : prompt_last_invisible+1)
115 /* **************************************************************** */
119 /* **************************************************************** */
121 /* This is the stuff that is hard for me. I never seem to write good
122 display routines in C. Let's see how I do this time. */
124 /* (PWP) Well... Good for a simple line updater, but totally ignores
125 the problems of input lines longer than the screen width.
127 update_line and the code that calls it makes a multiple line,
128 automatically wrapping line update. Careful attention needs
129 to be paid to the vertical position variables. */
131 /* Keep two buffers; one which reflects the current contents of the
132 screen, and the other to draw what we think the new contents should
133 be. Then compare the buffers, and make whatever changes to the
134 screen itself that we should. Finally, make the buffer that we
135 just drew into be the one which reflects the current contents of the
136 screen, and place the cursor where it belongs.
138 Commands that want to can fix the display themselves, and then let
139 this function know that the display has been fixed by setting the
140 RL_DISPLAY_FIXED variable. This is good for efficiency. */
142 /* Application-specific redisplay function. */
143 rl_voidfunc_t
*rl_redisplay_function
= rl_redisplay
;
145 /* Global variables declared here. */
146 /* What YOU turn on when you have handled all redisplay yourself. */
147 int rl_display_fixed
= 0;
149 int _rl_suppress_redisplay
= 0;
150 int _rl_want_redisplay
= 0;
152 /* The stuff that gets printed out before the actual text of the line.
153 This is usually pointing to rl_prompt. */
154 char *rl_display_prompt
= (char *)NULL
;
156 /* Pseudo-global variables declared here. */
158 /* The visible cursor position. If you print some text, adjust this. */
159 /* NOTE: _rl_last_c_pos is used as a buffer index when not in a locale
160 supporting multibyte characters, and an absolute cursor position when
161 in such a locale. This is an artifact of the donated multibyte support.
162 Care must be taken when modifying its value. */
163 int _rl_last_c_pos
= 0;
164 int _rl_last_v_pos
= 0;
166 static int cpos_adjusted
;
167 static int cpos_buffer_position
;
168 static int prompt_multibyte_chars
;
170 /* Number of lines currently on screen minus 1. */
171 int _rl_vis_botlin
= 0;
173 /* Variables used only in this file. */
174 /* The last left edge of text that was displayed. This is used when
175 doing horizontal scrolling. It shifts in thirds of a screenwidth. */
176 static int last_lmargin
;
178 /* A buffer for `modeline' messages. */
179 static char msg_buf
[128];
181 /* Non-zero forces the redisplay even if we thought it was unnecessary. */
182 static int forced_display
;
184 /* Default and initial buffer size. Can grow. */
185 static int line_size
= 1024;
187 /* Variables to keep track of the expanded prompt string, which may
188 include invisible characters. */
190 static char *local_prompt
, *local_prompt_prefix
;
191 static int local_prompt_len
;
192 static int prompt_visible_length
, prompt_prefix_length
;
194 /* The number of invisible characters in the line currently being
195 displayed on the screen. */
196 static int visible_wrap_offset
;
198 /* The number of invisible characters in the prompt string. Static so it
199 can be shared between rl_redisplay and update_line */
200 static int wrap_offset
;
202 /* The index of the last invisible character in the prompt string. */
203 static int prompt_last_invisible
;
205 /* The length (buffer offset) of the first line of the last (possibly
206 multi-line) buffer displayed on the screen. */
207 static int visible_first_line_len
;
209 /* Number of invisible characters on the first physical line of the prompt.
210 Only valid when the number of physical characters in the prompt exceeds
211 (or is equal to) _rl_screenwidth. */
212 static int prompt_invis_chars_first_line
;
214 static int prompt_last_screen_line
;
216 static int prompt_physical_chars
;
218 /* set to a non-zero value by rl_redisplay if we are marking modified history
219 lines and the current line is so marked. */
222 /* Variables to save and restore prompt and display information. */
224 /* These are getting numerous enough that it's time to create a struct. */
226 static char *saved_local_prompt
;
227 static char *saved_local_prefix
;
228 static int saved_last_invisible
;
229 static int saved_visible_length
;
230 static int saved_prefix_length
;
231 static int saved_local_length
;
232 static int saved_invis_chars_first_line
;
233 static int saved_physical_chars
;
235 /* Expand the prompt string S and return the number of visible
236 characters in *LP, if LP is not null. This is currently more-or-less
237 a placeholder for expansion. LIP, if non-null is a place to store the
238 index of the last invisible character in the returned string. NIFLP,
239 if non-zero, is a place to store the number of invisible characters in
240 the first prompt line. The previous are used as byte counts -- indexes
241 into a character buffer. */
243 /* Current implementation:
244 \001 (^A) start non-visible characters
245 \002 (^B) end non-visible characters
246 all characters except \001 and \002 (following a \001) are copied to
247 the returned string; all characters except those between \001 and
248 \002 are assumed to be `visible'. */
251 expand_prompt (pmt
, lp
, lip
, niflp
, vlp
)
253 int *lp
, *lip
, *niflp
, *vlp
;
255 char *r
, *ret
, *p
, *igstart
;
256 int l
, rl
, last
, ignoring
, ninvis
, invfl
, invflset
, ind
, pind
, physchars
;
258 /* Short-circuit if we can. */
259 if ((MB_CUR_MAX
<= 1 || rl_byte_oriented
) && strchr (pmt
, RL_PROMPT_START_IGNORE
) == 0)
261 r
= savestring (pmt
);
269 *vlp
= lp
? *lp
: strlen (r
);
274 r
= ret
= (char *)xmalloc (l
+ 1);
276 invfl
= 0; /* invisible chars in first line of prompt */
277 invflset
= 0; /* we only want to set invfl once */
280 for (rl
= ignoring
= last
= ninvis
= physchars
= 0, p
= pmt
; p
&& *p
; p
++)
282 /* This code strips the invisible character string markers
283 RL_PROMPT_START_IGNORE and RL_PROMPT_END_IGNORE */
284 if (ignoring
== 0 && *p
== RL_PROMPT_START_IGNORE
) /* XXX - check ignoring? */
290 else if (ignoring
&& *p
== RL_PROMPT_END_IGNORE
)
293 if (p
!= (igstart
+ 1))
299 #if defined (HANDLE_MULTIBYTE)
300 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
303 ind
= _rl_find_next_mbchar (pmt
, pind
, 1, MB_FIND_NONZERO
);
309 /* rl ends up being assigned to prompt_visible_length,
310 which is the number of characters in the buffer that
311 contribute to characters on the screen, which might
312 not be the same as the number of physical characters
313 on the screen in the presence of multibyte characters */
315 physchars
+= _rl_col_width (pmt
, pind
, ind
);
318 ninvis
+= ind
- pind
;
319 p
--; /* compensate for later increment */
327 rl
++; /* visible length byte counter */
331 ninvis
++; /* invisible chars byte counter */
334 if (invflset
== 0 && rl
>= _rl_screenwidth
)
342 if (rl
< _rl_screenwidth
)
357 /* Just strip out RL_PROMPT_START_IGNORE and RL_PROMPT_END_IGNORE from
358 PMT and return the rest of PMT. */
360 _rl_strip_prompt (pmt
)
365 ret
= expand_prompt (pmt
, (int *)NULL
, (int *)NULL
, (int *)NULL
, (int *)NULL
);
370 * Expand the prompt string into the various display components, if
373 * local_prompt = expanded last line of string in rl_display_prompt
374 * (portion after the final newline)
375 * local_prompt_prefix = portion before last newline of rl_display_prompt,
376 * expanded via expand_prompt
377 * prompt_visible_length = number of visible characters in local_prompt
378 * prompt_prefix_length = number of visible characters in local_prompt_prefix
380 * This function is called once per call to readline(). It may also be
381 * called arbitrarily to expand the primary prompt.
383 * The return value is the number of visible characters on the last line
384 * of the (possibly multi-line) prompt.
387 rl_expand_prompt (prompt
)
393 /* Clear out any saved values. */
395 FREE (local_prompt_prefix
);
397 local_prompt
= local_prompt_prefix
= (char *)0;
398 local_prompt_len
= 0;
399 prompt_last_invisible
= prompt_invis_chars_first_line
= 0;
400 prompt_visible_length
= prompt_physical_chars
= 0;
402 if (prompt
== 0 || *prompt
== 0)
405 p
= strrchr (prompt
, '\n');
408 /* The prompt is only one logical line, though it might wrap. */
409 local_prompt
= expand_prompt (prompt
, &prompt_visible_length
,
410 &prompt_last_invisible
,
411 &prompt_invis_chars_first_line
,
412 &prompt_physical_chars
);
413 local_prompt_prefix
= (char *)0;
414 local_prompt_len
= local_prompt
? strlen (local_prompt
) : 0;
415 return (prompt_visible_length
);
419 /* The prompt spans multiple lines. */
421 local_prompt
= expand_prompt (p
, &prompt_visible_length
,
422 &prompt_last_invisible
,
423 &prompt_invis_chars_first_line
,
424 &prompt_physical_chars
);
426 /* The portion of the prompt string up to and including the
427 final newline is now null-terminated. */
428 local_prompt_prefix
= expand_prompt (prompt
, &prompt_prefix_length
,
433 local_prompt_len
= local_prompt
? strlen (local_prompt
) : 0;
434 return (prompt_prefix_length
);
438 /* Initialize the VISIBLE_LINE and INVISIBLE_LINE arrays, and their associated
439 arrays of line break markers. MINSIZE is the minimum size of VISIBLE_LINE
440 and INVISIBLE_LINE; if it is greater than LINE_SIZE, LINE_SIZE is
441 increased. If the lines have already been allocated, this ensures that
442 they can hold at least MINSIZE characters. */
444 init_line_structures (minsize
)
449 if (invisible_line
== 0) /* initialize it */
451 if (line_size
< minsize
)
453 visible_line
= (char *)xmalloc (line_size
);
454 invisible_line
= (char *)xmalloc (line_size
);
456 else if (line_size
< minsize
) /* ensure it can hold MINSIZE chars */
459 if (line_size
< minsize
)
461 visible_line
= (char *)xrealloc (visible_line
, line_size
);
462 invisible_line
= (char *)xrealloc (invisible_line
, line_size
);
465 for (n
= minsize
; n
< line_size
; n
++)
468 invisible_line
[n
] = 1;
471 if (vis_lbreaks
== 0)
473 /* should be enough. */
474 inv_lbsize
= vis_lbsize
= 256;
476 #if defined (HANDLE_MULTIBYTE)
477 line_state_visible
->wbsize
= vis_lbsize
;
478 line_state_visible
->wrapped_line
= (int *)xmalloc (line_state_visible
->wbsize
* sizeof (int));
480 line_state_invisible
->wbsize
= inv_lbsize
;
481 line_state_invisible
->wrapped_line
= (int *)xmalloc (line_state_invisible
->wbsize
* sizeof (int));
484 inv_lbreaks
= (int *)xmalloc (inv_lbsize
* sizeof (int));
485 vis_lbreaks
= (int *)xmalloc (vis_lbsize
* sizeof (int));
486 inv_lbreaks
[0] = vis_lbreaks
[0] = 0;
489 line_structures_initialized
= 1;
492 /* Basic redisplay algorithm. */
496 register int in
, out
, c
, linenum
, cursor_linenum
;
498 int inv_botlin
, lb_botlin
, lb_linenum
, o_cpos
;
499 int newlines
, lpos
, temp
, n0
, num
, prompt_lines_estimate
;
500 char *prompt_this_line
;
501 #if defined (HANDLE_MULTIBYTE)
506 int _rl_wrapped_multicolumn
= 0;
509 if (_rl_echoing_p
== 0)
512 /* Block keyboard interrupts because this function manipulates global
516 if (!rl_display_prompt
)
517 rl_display_prompt
= "";
519 if (line_structures_initialized
== 0)
521 init_line_structures (0);
525 /* Draw the line into the buffer. */
526 cpos_buffer_position
= -1;
528 prompt_multibyte_chars
= prompt_visible_length
- prompt_physical_chars
;
530 line
= invisible_line
;
531 out
= inv_botlin
= 0;
533 /* Mark the line as modified or not. We only do this for history
536 if (_rl_mark_modified_lines
&& current_history () && rl_undo_list
)
543 /* If someone thought that the redisplay was handled, but the currently
544 visible line has a different modification state than the one about
545 to become visible, then correct the caller's misconception. */
546 if (visible_line
[0] != invisible_line
[0])
547 rl_display_fixed
= 0;
549 /* If the prompt to be displayed is the `primary' readline prompt (the
550 one passed to readline()), use the values we have already expanded.
551 If not, use what's already in rl_display_prompt. WRAP_OFFSET is the
552 number of non-visible characters in the prompt string. */
553 if (rl_display_prompt
== rl_prompt
|| local_prompt
)
555 if (local_prompt_prefix
&& forced_display
)
556 _rl_output_some_chars (local_prompt_prefix
, strlen (local_prompt_prefix
));
558 if (local_prompt_len
> 0)
560 temp
= local_prompt_len
+ out
+ 2;
561 if (temp
>= line_size
)
563 line_size
= (temp
+ 1024) - (temp
% 1024);
564 visible_line
= (char *)xrealloc (visible_line
, line_size
);
565 line
= invisible_line
= (char *)xrealloc (invisible_line
, line_size
);
567 strncpy (line
+ out
, local_prompt
, local_prompt_len
);
568 out
+= local_prompt_len
;
571 wrap_offset
= local_prompt_len
- prompt_visible_length
;
576 prompt_this_line
= strrchr (rl_display_prompt
, '\n');
577 if (!prompt_this_line
)
578 prompt_this_line
= rl_display_prompt
;
582 pmtlen
= prompt_this_line
- rl_display_prompt
; /* temp var */
585 _rl_output_some_chars (rl_display_prompt
, pmtlen
);
586 /* Make sure we are at column zero even after a newline,
587 regardless of the state of terminal output processing. */
588 if (pmtlen
< 2 || prompt_this_line
[-2] != '\r')
593 prompt_physical_chars
= pmtlen
= strlen (prompt_this_line
);
594 temp
= pmtlen
+ out
+ 2;
595 if (temp
>= line_size
)
597 line_size
= (temp
+ 1024) - (temp
% 1024);
598 visible_line
= (char *)xrealloc (visible_line
, line_size
);
599 line
= invisible_line
= (char *)xrealloc (invisible_line
, line_size
);
601 strncpy (line
+ out
, prompt_this_line
, pmtlen
);
604 wrap_offset
= prompt_invis_chars_first_line
= 0;
607 #define CHECK_INV_LBREAKS() \
609 if (newlines >= (inv_lbsize - 2)) \
612 inv_lbreaks = (int *)xrealloc (inv_lbreaks, inv_lbsize * sizeof (int)); \
616 #if defined (HANDLE_MULTIBYTE)
617 #define CHECK_LPOS() \
620 if (lpos >= _rl_screenwidth) \
622 if (newlines >= (inv_lbsize - 2)) \
625 inv_lbreaks = (int *)xrealloc (inv_lbreaks, inv_lbsize * sizeof (int)); \
627 inv_lbreaks[++newlines] = out; \
628 if (newlines >= (line_state_invisible->wbsize - 1)) \
630 line_state_invisible->wbsize *= 2; \
631 line_state_invisible->wrapped_line = (int *)xrealloc (line_state_invisible->wrapped_line, line_state_invisible->wbsize * sizeof(int)); \
633 line_state_invisible->wrapped_line[newlines] = _rl_wrapped_multicolumn; \
638 #define CHECK_LPOS() \
641 if (lpos >= _rl_screenwidth) \
643 if (newlines >= (inv_lbsize - 2)) \
646 inv_lbreaks = (int *)xrealloc (inv_lbreaks, inv_lbsize * sizeof (int)); \
648 inv_lbreaks[++newlines] = out; \
654 /* inv_lbreaks[i] is where line i starts in the buffer. */
655 inv_lbreaks
[newlines
= 0] = 0;
656 lpos
= prompt_physical_chars
+ modmark
;
658 #if defined (HANDLE_MULTIBYTE)
659 memset (line_state_invisible
->wrapped_line
, 0, line_state_invisible
->wbsize
* sizeof (int));
663 /* prompt_invis_chars_first_line is the number of invisible characters in
664 the first physical line of the prompt.
665 wrap_offset - prompt_invis_chars_first_line is the number of invis
666 chars on the second (or, more generally, last) line. */
668 /* This is zero-based, used to set the newlines */
669 prompt_lines_estimate
= lpos
/ _rl_screenwidth
;
671 /* what if lpos is already >= _rl_screenwidth before we start drawing the
672 contents of the command line? */
673 while (lpos
>= _rl_screenwidth
)
676 /* fix from Darin Johnson <darin@acuson.com> for prompt string with
677 invisible characters that is longer than the screen width. The
678 prompt_invis_chars_first_line variable could be made into an array
679 saying how many invisible characters there are per line, but that's
680 probably too much work for the benefit gained. How many people have
681 prompts that exceed two physical lines?
682 Additional logic fix from Edward Catmur <ed@catmur.co.uk> */
683 #if defined (HANDLE_MULTIBYTE)
684 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0 && prompt_multibyte_chars
> 0)
687 temp
= local_prompt_len
;
690 z
= _rl_col_width (local_prompt
, n0
, num
);
691 if (z
> _rl_screenwidth
)
693 num
= _rl_find_prev_mbchar (local_prompt
, num
, MB_FIND_ANY
);
696 else if (z
== _rl_screenwidth
)
703 #endif /* !HANDLE_MULTIBYTE */
704 temp
= ((newlines
+ 1) * _rl_screenwidth
);
706 /* Now account for invisible characters in the current line. */
707 /* XXX - this assumes that the invisible characters may be split, but only
708 between the first and the last lines. */
709 temp
+= ((local_prompt_prefix
== 0) ? ((newlines
== 0) ? prompt_invis_chars_first_line
710 : ((newlines
== prompt_lines_estimate
) ? wrap_offset
: prompt_invis_chars_first_line
))
711 : ((newlines
== 0) ? wrap_offset
: 0));
713 inv_lbreaks
[++newlines
] = temp
;
714 #if defined (HANDLE_MULTIBYTE)
715 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0 && prompt_multibyte_chars
> 0)
716 lpos
-= _rl_col_width (local_prompt
, n0
, num
);
719 lpos
-= _rl_screenwidth
;
722 prompt_last_screen_line
= newlines
;
724 /* Draw the rest of the line (after the prompt) into invisible_line, keeping
725 track of where the cursor is (cpos_buffer_position), the number of the line containing
726 the cursor (lb_linenum), the last line number (lb_botlin and inv_botlin).
727 It maintains an array of line breaks for display (inv_lbreaks).
728 This handles expanding tabs for display and displaying meta characters. */
730 #if defined (HANDLE_MULTIBYTE)
732 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
734 memset (&ps
, 0, sizeof (mbstate_t));
735 wc_bytes
= mbrtowc (&wc
, rl_line_buffer
, rl_end
, &ps
);
741 for (in
= 0; in
< rl_end
; in
++)
744 c
= (unsigned char)rl_line_buffer
[in
];
746 #if defined (HANDLE_MULTIBYTE)
747 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
749 if (MB_INVALIDCH (wc_bytes
))
751 /* Byte sequence is invalid or shortened. Assume that the
752 first byte represents a character. */
754 /* Assume that a character occupies a single column. */
756 memset (&ps
, 0, sizeof (mbstate_t));
758 else if (MB_NULLWCH (wc_bytes
))
759 break; /* Found '\0' */
763 wc_width
= (temp
>= 0) ? temp
: 1;
768 if (out
+ 8 >= line_size
) /* XXX - 8 for \t */
771 visible_line
= (char *)xrealloc (visible_line
, line_size
);
772 invisible_line
= (char *)xrealloc (invisible_line
, line_size
);
773 line
= invisible_line
;
778 cpos_buffer_position
= out
;
779 lb_linenum
= newlines
;
782 #if defined (HANDLE_MULTIBYTE)
783 if (META_CHAR (c
) && _rl_output_meta_chars
== 0) /* XXX - clean up */
788 if (_rl_output_meta_chars
== 0)
790 sprintf (line
+ out
, "\\%o", c
);
792 if (lpos
+ 4 >= _rl_screenwidth
)
794 temp
= _rl_screenwidth
- lpos
;
795 CHECK_INV_LBREAKS ();
796 inv_lbreaks
[++newlines
] = out
+ temp
;
810 #if defined (DISPLAY_TABS)
816 newout
= (out
| (int)7) + 1;
818 newout
= out
+ 8 - lpos
% 8;
821 if (lpos
+ temp
>= _rl_screenwidth
)
824 temp2
= _rl_screenwidth
- lpos
;
825 CHECK_INV_LBREAKS ();
826 inv_lbreaks
[++newlines
] = out
+ temp2
;
839 else if (c
== '\n' && _rl_horizontal_scroll_mode
== 0 && _rl_term_up
&& *_rl_term_up
)
841 line
[out
++] = '\0'; /* XXX - sentinel */
842 CHECK_INV_LBREAKS ();
843 inv_lbreaks
[++newlines
] = out
;
846 else if (CTRL_CHAR (c
) || c
== RUBOUT
)
850 line
[out
++] = CTRL_CHAR (c
) ? UNCTRL (c
) : '?';
855 #if defined (HANDLE_MULTIBYTE)
856 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
860 _rl_wrapped_multicolumn
= 0;
862 if (_rl_screenwidth
< lpos
+ wc_width
)
863 for (i
= lpos
; i
< _rl_screenwidth
; i
++)
865 /* The space will be removed in update_line() */
867 _rl_wrapped_multicolumn
++;
872 cpos_buffer_position
= out
;
873 lb_linenum
= newlines
;
875 for (i
= in
; i
< in
+wc_bytes
; i
++)
876 line
[out
++] = rl_line_buffer
[i
];
877 for (i
= 0; i
< wc_width
; i
++)
891 #if defined (HANDLE_MULTIBYTE)
892 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
895 wc_bytes
= mbrtowc (&wc
, rl_line_buffer
+ in
, rl_end
- in
, &ps
);
903 if (cpos_buffer_position
< 0)
905 cpos_buffer_position
= out
;
906 lb_linenum
= newlines
;
909 inv_botlin
= lb_botlin
= newlines
;
910 CHECK_INV_LBREAKS ();
911 inv_lbreaks
[newlines
+1] = out
;
912 cursor_linenum
= lb_linenum
;
914 /* CPOS_BUFFER_POSITION == position in buffer where cursor should be placed.
915 CURSOR_LINENUM == line number where the cursor should be placed. */
917 /* PWP: now is when things get a bit hairy. The visible and invisible
918 line buffers are really multiple lines, which would wrap every
919 (screenwidth - 1) characters. Go through each in turn, finding
920 the changed region and updating it. The line order is top to bottom. */
922 /* If we can move the cursor up and down, then use multiple lines,
923 otherwise, let long lines display in a single terminal line, and
924 horizontally scroll it. */
926 if (_rl_horizontal_scroll_mode
== 0 && _rl_term_up
&& *_rl_term_up
)
928 int nleft
, pos
, changed_screen_line
, tx
;
930 if (!rl_display_fixed
|| forced_display
)
934 /* If we have more than a screenful of material to display, then
935 only display a screenful. We should display the last screen,
937 if (out
>= _rl_screenchars
)
939 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
940 out
= _rl_find_prev_mbchar (line
, _rl_screenchars
, MB_FIND_ANY
);
942 out
= _rl_screenchars
- 1;
945 /* The first line is at character position 0 in the buffer. The
946 second and subsequent lines start at inv_lbreaks[N], offset by
947 OFFSET (which has already been calculated above). */
949 #define INVIS_FIRST() (prompt_physical_chars > _rl_screenwidth ? prompt_invis_chars_first_line : wrap_offset)
950 #define WRAP_OFFSET(line, offset) ((line == 0) \
951 ? (offset ? INVIS_FIRST() : 0) \
952 : ((line == prompt_last_screen_line) ? wrap_offset-prompt_invis_chars_first_line : 0))
953 #define W_OFFSET(line, offset) ((line) == 0 ? offset : 0)
954 #define VIS_LLEN(l) ((l) > _rl_vis_botlin ? 0 : (vis_lbreaks[l+1] - vis_lbreaks[l]))
955 #define INV_LLEN(l) (inv_lbreaks[l+1] - inv_lbreaks[l])
956 #define VIS_CHARS(line) (visible_line + vis_lbreaks[line])
957 #define VIS_LINE(line) ((line) > _rl_vis_botlin) ? "" : VIS_CHARS(line)
958 #define INV_LINE(line) (invisible_line + inv_lbreaks[line])
960 /* For each line in the buffer, do the updating display. */
961 for (linenum
= 0; linenum
<= inv_botlin
; linenum
++)
963 /* This can lead us astray if we execute a program that changes
964 the locale from a non-multibyte to a multibyte one. */
965 o_cpos
= _rl_last_c_pos
;
967 update_line (VIS_LINE(linenum
), INV_LINE(linenum
), linenum
,
968 VIS_LLEN(linenum
), INV_LLEN(linenum
), inv_botlin
);
970 /* update_line potentially changes _rl_last_c_pos, but doesn't
971 take invisible characters into account, since _rl_last_c_pos
972 is an absolute cursor position in a multibyte locale. See
973 if compensating here is the right thing, or if we have to
974 change update_line itself. There are several cases in which
975 update_line adjusts _rl_last_c_pos itself (so it can pass
976 _rl_move_cursor_relative accurate values); it communicates
977 this back by setting cpos_adjusted. If we assume that
978 _rl_last_c_pos is correct (an absolute cursor position) each
979 time update_line is called, then we can assume in our
980 calculations that o_cpos does not need to be adjusted by
982 if (linenum
== 0 && (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0) &&
983 cpos_adjusted
== 0 &&
984 _rl_last_c_pos
!= o_cpos
&&
985 _rl_last_c_pos
> wrap_offset
&&
986 o_cpos
< prompt_last_invisible
)
987 _rl_last_c_pos
-= prompt_invis_chars_first_line
; /* XXX - was wrap_offset */
988 else if (linenum
== prompt_last_screen_line
&& prompt_physical_chars
> _rl_screenwidth
&&
989 (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0) &&
990 cpos_adjusted
== 0 &&
991 _rl_last_c_pos
!= o_cpos
&&
992 _rl_last_c_pos
> (prompt_last_invisible
- _rl_screenwidth
- prompt_invis_chars_first_line
))
993 _rl_last_c_pos
-= (wrap_offset
-prompt_invis_chars_first_line
);
995 /* If this is the line with the prompt, we might need to
996 compensate for invisible characters in the new line. Do
997 this only if there is not more than one new line (which
998 implies that we completely overwrite the old visible line)
999 and the new line is shorter than the old. Make sure we are
1000 at the end of the new line before clearing. */
1002 inv_botlin
== 0 && _rl_last_c_pos
== out
&&
1003 (wrap_offset
> visible_wrap_offset
) &&
1004 (_rl_last_c_pos
< visible_first_line_len
))
1006 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
1007 nleft
= _rl_screenwidth
- _rl_last_c_pos
;
1009 nleft
= _rl_screenwidth
+ wrap_offset
- _rl_last_c_pos
;
1011 _rl_clear_to_eol (nleft
);
1014 /* This segment is intended to handle the case where the prompt
1015 has invisible characters on the second line and the new line
1016 to be displayed needs to clear the rest of the old characters
1017 out (e.g., when printing the i-search prompt). In general,
1018 the case of the new line being shorter than the old.
1020 else if (linenum
== prompt_last_screen_line
&&
1021 prompt_physical_chars
> _rl_screenwidth
&&
1022 wrap_offset
!= prompt_invis_chars_first_line
&&
1023 _rl_last_c_pos
== out
&&
1027 /* Since the new first line is now visible, save its length. */
1029 visible_first_line_len
= (inv_botlin
> 0) ? inv_lbreaks
[1] : out
- wrap_offset
;
1032 /* We may have deleted some lines. If so, clear the left over
1033 blank ones at the bottom out. */
1034 if (_rl_vis_botlin
> inv_botlin
)
1037 for (; linenum
<= _rl_vis_botlin
; linenum
++)
1039 tt
= VIS_CHARS (linenum
);
1040 _rl_move_vert (linenum
);
1041 _rl_move_cursor_relative (0, tt
);
1043 ((linenum
== _rl_vis_botlin
) ? strlen (tt
) : _rl_screenwidth
);
1046 _rl_vis_botlin
= inv_botlin
;
1048 /* CHANGED_SCREEN_LINE is set to 1 if we have moved to a
1049 different screen line during this redisplay. */
1050 changed_screen_line
= _rl_last_v_pos
!= cursor_linenum
;
1051 if (changed_screen_line
)
1053 _rl_move_vert (cursor_linenum
);
1054 /* If we moved up to the line with the prompt using _rl_term_up,
1055 the physical cursor position on the screen stays the same,
1056 but the buffer position needs to be adjusted to account
1057 for invisible characters. */
1058 if ((MB_CUR_MAX
== 1 || rl_byte_oriented
) && cursor_linenum
== 0 && wrap_offset
)
1059 _rl_last_c_pos
+= wrap_offset
;
1062 /* We have to reprint the prompt if it contains invisible
1063 characters, since it's not generally OK to just reprint
1064 the characters from the current cursor position. But we
1065 only need to reprint it if the cursor is before the last
1066 invisible character in the prompt string. */
1067 nleft
= prompt_visible_length
+ wrap_offset
;
1068 if (cursor_linenum
== 0 && wrap_offset
> 0 && _rl_last_c_pos
> 0 &&
1070 _rl_last_c_pos
<= PROMPT_ENDING_INDEX
&& local_prompt
)
1072 _rl_last_c_pos
< PROMPT_ENDING_INDEX
&& local_prompt
)
1075 #if defined (__MSDOS__)
1076 putc ('\r', rl_outstream
);
1079 tputs (_rl_term_cr
, 1, _rl_output_character_function
);
1082 _rl_output_some_chars ("*", 1);
1084 _rl_output_some_chars (local_prompt
, nleft
);
1085 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
1086 _rl_last_c_pos
= _rl_col_width (local_prompt
, 0, nleft
) - wrap_offset
+ modmark
;
1088 _rl_last_c_pos
= nleft
+ modmark
;
1091 /* Where on that line? And where does that line start
1093 pos
= inv_lbreaks
[cursor_linenum
];
1094 /* nleft == number of characters in the line buffer between the
1095 start of the line and the desired cursor position. */
1096 nleft
= cpos_buffer_position
- pos
;
1098 /* NLEFT is now a number of characters in a buffer. When in a
1099 multibyte locale, however, _rl_last_c_pos is an absolute cursor
1100 position that doesn't take invisible characters in the prompt
1101 into account. We use a fudge factor to compensate. */
1103 /* Since _rl_backspace() doesn't know about invisible characters in the
1104 prompt, and there's no good way to tell it, we compensate for
1105 those characters here and call _rl_backspace() directly. */
1106 if (wrap_offset
&& cursor_linenum
== 0 && nleft
< _rl_last_c_pos
)
1108 /* TX == new physical cursor position in multibyte locale. */
1109 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
1110 tx
= _rl_col_width (&visible_line
[pos
], 0, nleft
) - visible_wrap_offset
;
1113 if (tx
>= 0 && _rl_last_c_pos
> tx
)
1115 _rl_backspace (_rl_last_c_pos
- tx
); /* XXX */
1116 _rl_last_c_pos
= tx
;
1120 /* We need to note that in a multibyte locale we are dealing with
1121 _rl_last_c_pos as an absolute cursor position, but moving to a
1122 point specified by a buffer position (NLEFT) that doesn't take
1123 invisible characters into account. */
1124 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
1125 _rl_move_cursor_relative (nleft
, &invisible_line
[pos
]);
1126 else if (nleft
!= _rl_last_c_pos
)
1127 _rl_move_cursor_relative (nleft
, &invisible_line
[pos
]);
1130 else /* Do horizontal scrolling. */
1132 #define M_OFFSET(margin, offset) ((margin) == 0 ? offset : 0)
1133 int lmargin
, ndisp
, nleft
, phys_c_pos
, t
;
1135 /* Always at top line. */
1138 /* Compute where in the buffer the displayed line should start. This
1141 /* The number of characters that will be displayed before the cursor. */
1142 ndisp
= cpos_buffer_position
- wrap_offset
;
1143 nleft
= prompt_visible_length
+ wrap_offset
;
1144 /* Where the new cursor position will be on the screen. This can be
1145 longer than SCREENWIDTH; if it is, lmargin will be adjusted. */
1146 phys_c_pos
= cpos_buffer_position
- (last_lmargin
? last_lmargin
: wrap_offset
);
1147 t
= _rl_screenwidth
/ 3;
1149 /* If the number of characters had already exceeded the screenwidth,
1150 last_lmargin will be > 0. */
1152 /* If the number of characters to be displayed is more than the screen
1153 width, compute the starting offset so that the cursor is about
1154 two-thirds of the way across the screen. */
1155 if (phys_c_pos
> _rl_screenwidth
- 2)
1157 lmargin
= cpos_buffer_position
- (2 * t
);
1160 /* If the left margin would be in the middle of a prompt with
1161 invisible characters, don't display the prompt at all. */
1162 if (wrap_offset
&& lmargin
> 0 && lmargin
< nleft
)
1165 else if (ndisp
< _rl_screenwidth
- 2) /* XXX - was -1 */
1167 else if (phys_c_pos
< 1)
1169 /* If we are moving back towards the beginning of the line and
1170 the last margin is no longer correct, compute a new one. */
1171 lmargin
= ((cpos_buffer_position
- 1) / t
) * t
; /* XXX */
1172 if (wrap_offset
&& lmargin
> 0 && lmargin
< nleft
)
1176 lmargin
= last_lmargin
;
1178 /* If the first character on the screen isn't the first character
1179 in the display line, indicate this with a special character. */
1181 line
[lmargin
] = '<';
1183 /* If SCREENWIDTH characters starting at LMARGIN do not encompass
1184 the whole line, indicate that with a special character at the
1185 right edge of the screen. If LMARGIN is 0, we need to take the
1186 wrap offset into account. */
1187 t
= lmargin
+ M_OFFSET (lmargin
, wrap_offset
) + _rl_screenwidth
;
1191 if (!rl_display_fixed
|| forced_display
|| lmargin
!= last_lmargin
)
1194 update_line (&visible_line
[last_lmargin
],
1195 &invisible_line
[lmargin
],
1197 _rl_screenwidth
+ visible_wrap_offset
,
1198 _rl_screenwidth
+ (lmargin
? 0 : wrap_offset
),
1201 /* If the visible new line is shorter than the old, but the number
1202 of invisible characters is greater, and we are at the end of
1203 the new line, we need to clear to eol. */
1204 t
= _rl_last_c_pos
- M_OFFSET (lmargin
, wrap_offset
);
1205 if ((M_OFFSET (lmargin
, wrap_offset
) > visible_wrap_offset
) &&
1206 (_rl_last_c_pos
== out
) &&
1207 t
< visible_first_line_len
)
1209 nleft
= _rl_screenwidth
- t
;
1210 _rl_clear_to_eol (nleft
);
1212 visible_first_line_len
= out
- lmargin
- M_OFFSET (lmargin
, wrap_offset
);
1213 if (visible_first_line_len
> _rl_screenwidth
)
1214 visible_first_line_len
= _rl_screenwidth
;
1216 _rl_move_cursor_relative (cpos_buffer_position
- lmargin
, &invisible_line
[lmargin
]);
1217 last_lmargin
= lmargin
;
1220 fflush (rl_outstream
);
1222 /* Swap visible and non-visible lines. */
1224 struct line_state
*vtemp
= line_state_visible
;
1226 line_state_visible
= line_state_invisible
;
1227 line_state_invisible
= vtemp
;
1229 rl_display_fixed
= 0;
1230 /* If we are displaying on a single line, and last_lmargin is > 0, we
1231 are not displaying any invisible characters, so set visible_wrap_offset
1233 if (_rl_horizontal_scroll_mode
&& last_lmargin
)
1234 visible_wrap_offset
= 0;
1236 visible_wrap_offset
= wrap_offset
;
1239 _rl_release_sigint ();
1242 /* PWP: update_line() is based on finding the middle difference of each
1243 line on the screen; vis:
1245 /old first difference
1246 /beginning of line | /old last same /old EOL
1248 old: eddie> Oh, my little gruntle-buggy is to me, as lurgid as
1249 new: eddie> Oh, my little buggy says to me, as lurgid as
1251 \beginning of line | \new last same \new end of line
1252 \new first difference
1254 All are character pointers for the sake of speed. Special cases for
1255 no differences, as well as for end of line additions must be handled.
1257 Could be made even smarter, but this works well enough */
1259 update_line (old
, new, current_line
, omax
, nmax
, inv_botlin
)
1260 register char *old
, *new;
1261 int current_line
, omax
, nmax
, inv_botlin
;
1263 register char *ofd
, *ols
, *oe
, *nfd
, *nls
, *ne
;
1264 int temp
, lendiff
, wsatend
, od
, nd
, twidth
, o_cpos
;
1265 int current_invis_chars
;
1266 int col_lendiff
, col_temp
;
1267 #if defined (HANDLE_MULTIBYTE)
1268 mbstate_t ps_new
, ps_old
;
1269 int new_offset
, old_offset
;
1272 /* If we're at the right edge of a terminal that supports xn, we're
1273 ready to wrap around, so do so. This fixes problems with knowing
1274 the exact cursor position and cut-and-paste with certain terminal
1275 emulators. In this calculation, TEMP is the physical screen
1276 position of the cursor. */
1277 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
1278 temp
= _rl_last_c_pos
;
1280 temp
= _rl_last_c_pos
- WRAP_OFFSET (_rl_last_v_pos
, visible_wrap_offset
);
1281 if (temp
== _rl_screenwidth
&& _rl_term_autowrap
&& !_rl_horizontal_scroll_mode
1282 && _rl_last_v_pos
== current_line
- 1)
1284 #if defined (HANDLE_MULTIBYTE)
1285 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
1289 int tempwidth
, bytes
;
1292 /* This fixes only double-column characters, but if the wrapped
1293 character comsumes more than three columns, spaces will be
1294 inserted in the string buffer. */
1295 if (current_line
< line_state_visible
->wbsize
&& line_state_visible
->wrapped_line
[current_line
] > 0)
1296 _rl_clear_to_eol (line_state_visible
->wrapped_line
[current_line
]);
1298 memset (&ps
, 0, sizeof (mbstate_t));
1299 ret
= mbrtowc (&wc
, new, MB_CUR_MAX
, &ps
);
1300 if (MB_INVALIDCH (ret
))
1305 else if (MB_NULLWCH (ret
))
1308 tempwidth
= wcwidth (wc
);
1314 for (count
= 0; count
< bytes
; count
++)
1315 putc (new[count
], rl_outstream
);
1316 _rl_last_c_pos
= tempwidth
;
1318 memset (&ps
, 0, sizeof (mbstate_t));
1319 ret
= mbrtowc (&wc
, old
, MB_CUR_MAX
, &ps
);
1320 if (ret
!= 0 && bytes
!= 0)
1322 if (MB_INVALIDCH (ret
))
1323 memmove (old
+bytes
, old
+1, strlen (old
+1));
1325 memmove (old
+bytes
, old
+ret
, strlen (old
+ret
));
1326 memcpy (old
, new, bytes
);
1331 putc (' ', rl_outstream
);
1334 if (old
[0] && new[0])
1342 putc (new[0], rl_outstream
);
1344 putc (' ', rl_outstream
);
1347 if (old
[0] && new[0])
1353 /* Find first difference. */
1354 #if defined (HANDLE_MULTIBYTE)
1355 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
1357 /* See if the old line is a subset of the new line, so that the
1358 only change is adding characters. */
1359 temp
= (omax
< nmax
) ? omax
: nmax
;
1360 if (memcmp (old
, new, temp
) == 0) /* adding at the end */
1367 memset (&ps_new
, 0, sizeof(mbstate_t));
1368 memset (&ps_old
, 0, sizeof(mbstate_t));
1370 if (omax
== nmax
&& STREQN (new, old
, omax
))
1377 new_offset
= old_offset
= 0;
1378 for (ofd
= old
, nfd
= new;
1379 (ofd
- old
< omax
) && *ofd
&&
1380 _rl_compare_chars(old
, old_offset
, &ps_old
, new, new_offset
, &ps_new
); )
1382 old_offset
= _rl_find_next_mbchar (old
, old_offset
, 1, MB_FIND_ANY
);
1383 new_offset
= _rl_find_next_mbchar (new, new_offset
, 1, MB_FIND_ANY
);
1384 ofd
= old
+ old_offset
;
1385 nfd
= new + new_offset
;
1392 for (ofd
= old
, nfd
= new;
1393 (ofd
- old
< omax
) && *ofd
&& (*ofd
== *nfd
);
1397 /* Move to the end of the screen line. ND and OD are used to keep track
1398 of the distance between ne and new and oe and old, respectively, to
1399 move a subtraction out of each loop. */
1400 for (od
= ofd
- old
, oe
= ofd
; od
< omax
&& *oe
; oe
++, od
++);
1401 for (nd
= nfd
- new, ne
= nfd
; nd
< nmax
&& *ne
; ne
++, nd
++);
1403 /* If no difference, continue to next line. */
1404 if (ofd
== oe
&& nfd
== ne
)
1407 wsatend
= 1; /* flag for trailing whitespace */
1409 #if defined (HANDLE_MULTIBYTE)
1410 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
1412 ols
= old
+ _rl_find_prev_mbchar (old
, oe
- old
, MB_FIND_ANY
);
1413 nls
= new + _rl_find_prev_mbchar (new, ne
- new, MB_FIND_ANY
);
1414 while ((ols
> ofd
) && (nls
> nfd
))
1416 memset (&ps_old
, 0, sizeof (mbstate_t));
1417 memset (&ps_new
, 0, sizeof (mbstate_t));
1420 /* On advice from jir@yamato.ibm.com */
1421 _rl_adjust_point (old
, ols
- old
, &ps_old
);
1422 _rl_adjust_point (new, nls
- new, &ps_new
);
1425 if (_rl_compare_chars (old
, ols
- old
, &ps_old
, new, nls
- new, &ps_new
) == 0)
1431 ols
= old
+ _rl_find_prev_mbchar (old
, ols
- old
, MB_FIND_ANY
);
1432 nls
= new + _rl_find_prev_mbchar (new, nls
- new, MB_FIND_ANY
);
1437 #endif /* HANDLE_MULTIBYTE */
1438 ols
= oe
- 1; /* find last same */
1440 while ((ols
> ofd
) && (nls
> nfd
) && (*ols
== *nls
))
1447 #if defined (HANDLE_MULTIBYTE)
1456 #if defined (HANDLE_MULTIBYTE)
1457 /* This may not work for stateful encoding, but who cares? To handle
1458 stateful encoding properly, we have to scan each string from the
1459 beginning and compare. */
1460 else if (_rl_compare_chars (ols
, 0, NULL
, nls
, 0, NULL
) == 0)
1462 else if (*ols
!= *nls
)
1465 if (*ols
) /* don't step past the NUL */
1467 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
1468 ols
= old
+ _rl_find_next_mbchar (old
, ols
- old
, 1, MB_FIND_ANY
);
1474 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
1475 nls
= new + _rl_find_next_mbchar (new, nls
- new, 1, MB_FIND_ANY
);
1481 /* count of invisible characters in the current invisible line. */
1482 current_invis_chars
= W_OFFSET (current_line
, wrap_offset
);
1483 if (_rl_last_v_pos
!= current_line
)
1485 _rl_move_vert (current_line
);
1486 if ((MB_CUR_MAX
== 1 || rl_byte_oriented
) && current_line
== 0 && visible_wrap_offset
)
1487 _rl_last_c_pos
+= visible_wrap_offset
;
1490 /* If this is the first line and there are invisible characters in the
1491 prompt string, and the prompt string has not changed, and the current
1492 cursor position is before the last invisible character in the prompt,
1493 and the index of the character to move to is past the end of the prompt
1494 string, then redraw the entire prompt string. We can only do this
1495 reliably if the terminal supports a `cr' capability.
1497 This is not an efficiency hack -- there is a problem with redrawing
1498 portions of the prompt string if they contain terminal escape
1499 sequences (like drawing the `unbold' sequence without a corresponding
1500 `bold') that manifests itself on certain terminals. */
1502 lendiff
= local_prompt_len
;
1503 od
= ofd
- old
; /* index of first difference in visible line */
1504 if (current_line
== 0 && !_rl_horizontal_scroll_mode
&&
1505 _rl_term_cr
&& lendiff
> prompt_visible_length
&& _rl_last_c_pos
> 0 &&
1506 od
>= lendiff
&& _rl_last_c_pos
< PROMPT_ENDING_INDEX
)
1508 #if defined (__MSDOS__)
1509 putc ('\r', rl_outstream
);
1511 tputs (_rl_term_cr
, 1, _rl_output_character_function
);
1514 _rl_output_some_chars ("*", 1);
1515 _rl_output_some_chars (local_prompt
, lendiff
);
1516 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
1518 /* We take wrap_offset into account here so we can pass correct
1519 information to _rl_move_cursor_relative. */
1520 _rl_last_c_pos
= _rl_col_width (local_prompt
, 0, lendiff
) - wrap_offset
+ modmark
;
1524 _rl_last_c_pos
= lendiff
+ modmark
;
1527 o_cpos
= _rl_last_c_pos
;
1529 /* When this function returns, _rl_last_c_pos is correct, and an absolute
1530 cursor postion in multibyte mode, but a buffer index when not in a
1531 multibyte locale. */
1532 _rl_move_cursor_relative (od
, old
);
1534 #if defined (HANDLE_MULTIBYTE)
1535 /* We need to indicate that the cursor position is correct in the presence of
1536 invisible characters in the prompt string. Let's see if setting this when
1537 we make sure we're at the end of the drawn prompt string works. */
1538 if (current_line
== 0 && MB_CUR_MAX
> 1 && rl_byte_oriented
== 0 &&
1539 (_rl_last_c_pos
> 0 || o_cpos
> 0) &&
1540 _rl_last_c_pos
== prompt_physical_chars
)
1545 /* if (len (new) > len (old))
1546 lendiff == difference in buffer
1547 col_lendiff == difference on screen
1548 When not using multibyte characters, these are equal */
1549 lendiff
= (nls
- nfd
) - (ols
- ofd
);
1550 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
1551 col_lendiff
= _rl_col_width (new, nfd
- new, nls
- new) - _rl_col_width (old
, ofd
- old
, ols
- old
);
1553 col_lendiff
= lendiff
;
1555 /* If we are changing the number of invisible characters in a line, and
1556 the spot of first difference is before the end of the invisible chars,
1557 lendiff needs to be adjusted. */
1558 if (current_line
== 0 && !_rl_horizontal_scroll_mode
&&
1559 current_invis_chars
!= visible_wrap_offset
)
1561 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
1563 lendiff
+= visible_wrap_offset
- current_invis_chars
;
1564 col_lendiff
+= visible_wrap_offset
- current_invis_chars
;
1568 lendiff
+= visible_wrap_offset
- current_invis_chars
;
1569 col_lendiff
= lendiff
;
1573 /* Insert (diff (len (old), len (new)) ch. */
1575 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
1576 col_temp
= _rl_col_width (new, nfd
- new, ne
- new);
1580 if (col_lendiff
> 0) /* XXX - was lendiff */
1582 /* Non-zero if we're increasing the number of lines. */
1583 int gl
= current_line
>= _rl_vis_botlin
&& inv_botlin
> _rl_vis_botlin
;
1584 /* If col_lendiff is > 0, implying that the new string takes up more
1585 screen real estate than the old, but lendiff is < 0, meaning that it
1586 takes fewer bytes, we need to just output the characters starting
1587 from the first difference. These will overwrite what is on the
1588 display, so there's no reason to do a smart update. This can really
1589 only happen in a multibyte environment. */
1592 _rl_output_some_chars (nfd
, temp
);
1593 _rl_last_c_pos
+= _rl_col_width (nfd
, 0, temp
);
1594 /* If nfd begins before any invisible characters in the prompt,
1595 adjust _rl_last_c_pos to account for wrap_offset and set
1596 cpos_adjusted to let the caller know. */
1597 if (current_line
== 0 && wrap_offset
&& ((nfd
- new) <= prompt_last_invisible
))
1599 _rl_last_c_pos
-= wrap_offset
;
1604 /* Sometimes it is cheaper to print the characters rather than
1605 use the terminal's capabilities. If we're growing the number
1606 of lines, make sure we actually cause the new line to wrap
1607 around on auto-wrapping terminals. */
1608 else if (_rl_terminal_can_insert
&& ((2 * col_temp
) >= col_lendiff
|| _rl_term_IC
) && (!_rl_term_autowrap
|| !gl
))
1610 /* If lendiff > prompt_visible_length and _rl_last_c_pos == 0 and
1611 _rl_horizontal_scroll_mode == 1, inserting the characters with
1612 _rl_term_IC or _rl_term_ic will screw up the screen because of the
1613 invisible characters. We need to just draw them. */
1614 /* The same thing happens if we're trying to draw before the last
1615 invisible character in the prompt string or we're increasing the
1616 number of invisible characters in the line and we're not drawing
1617 the entire prompt string. */
1618 if (*ols
&& ((_rl_horizontal_scroll_mode
&&
1619 _rl_last_c_pos
== 0 &&
1620 lendiff
> prompt_visible_length
&&
1621 current_invis_chars
> 0) == 0) &&
1622 (((MB_CUR_MAX
> 1 && rl_byte_oriented
== 0) &&
1623 current_line
== 0 && wrap_offset
&&
1624 ((nfd
- new) <= prompt_last_invisible
) &&
1625 (col_lendiff
< prompt_visible_length
)) == 0) &&
1626 (visible_wrap_offset
>= current_invis_chars
))
1628 insert_some_chars (nfd
, lendiff
, col_lendiff
);
1629 _rl_last_c_pos
+= col_lendiff
;
1631 #if 0 /* XXX - for now */
1632 else if ((MB_CUR_MAX
> 1 && rl_byte_oriented
== 0) && _rl_last_c_pos
== 0 && wrap_offset
&& (nfd
-new) <= prompt_last_invisible
&& col_lendiff
< prompt_visible_length
&& visible_wrap_offset
>= current_invis_chars
)
1634 _rl_output_some_chars (nfd
, lendiff
);
1635 _rl_last_c_pos
+= col_lendiff
;
1638 else if ((MB_CUR_MAX
== 1 || rl_byte_oriented
!= 0) && *ols
== 0 && lendiff
> 0)
1640 /* At the end of a line the characters do not have to
1641 be "inserted". They can just be placed on the screen. */
1642 /* However, this screws up the rest of this block, which
1643 assumes you've done the insert because you can. */
1644 _rl_output_some_chars (nfd
, lendiff
);
1645 _rl_last_c_pos
+= col_lendiff
;
1649 _rl_output_some_chars (nfd
, temp
);
1650 _rl_last_c_pos
+= col_temp
;
1651 /* If nfd begins before the last invisible character in the
1652 prompt, adjust _rl_last_c_pos to account for wrap_offset
1653 and set cpos_adjusted to let the caller know. */
1654 if ((MB_CUR_MAX
> 1 && rl_byte_oriented
== 0) && current_line
== 0 && wrap_offset
&& ((nfd
- new) <= prompt_last_invisible
))
1656 _rl_last_c_pos
-= wrap_offset
;
1661 /* Copy (new) chars to screen from first diff to last match. */
1663 if ((temp
- lendiff
) > 0)
1665 _rl_output_some_chars (nfd
+ lendiff
, temp
- lendiff
);
1666 /* XXX -- this bears closer inspection. Fixes a redisplay bug
1667 reported against bash-3.0-alpha by Andreas Schwab involving
1668 multibyte characters and prompt strings with invisible
1669 characters, but was previously disabled. */
1670 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
1671 twidth
= _rl_col_width (nfd
+lendiff
, 0, temp
-col_lendiff
);
1673 twidth
= temp
- lendiff
;
1674 _rl_last_c_pos
+= twidth
;
1675 /* If nfd begins before the last invisible character in the
1676 prompt, adjust _rl_last_c_pos to account for wrap_offset
1677 and set cpos_adjusted to let the caller know. */
1678 if ((MB_CUR_MAX
> 1 && rl_byte_oriented
== 0) && current_line
== 0 && wrap_offset
&& ((nfd
- new) <= prompt_last_invisible
))
1680 _rl_last_c_pos
-= wrap_offset
;
1687 /* cannot insert chars, write to EOL */
1688 _rl_output_some_chars (nfd
, temp
);
1689 _rl_last_c_pos
+= col_temp
;
1690 /* If we're in a multibyte locale and were before the last invisible
1691 char in the current line (which implies we just output some invisible
1692 characters) we need to adjust _rl_last_c_pos, since it represents
1693 a physical character position. */
1694 if ((MB_CUR_MAX
> 1 && rl_byte_oriented
== 0) &&
1695 current_line
== prompt_last_screen_line
&& wrap_offset
&&
1696 wrap_offset
!= prompt_invis_chars_first_line
&&
1697 ((nfd
-new) < (prompt_last_invisible
-(current_line
*_rl_screenwidth
))))
1699 _rl_last_c_pos
-= wrap_offset
- prompt_invis_chars_first_line
;
1704 else /* Delete characters from line. */
1706 /* If possible and inexpensive to use terminal deletion, then do so. */
1707 if (_rl_term_dc
&& (2 * col_temp
) >= -col_lendiff
)
1709 /* If all we're doing is erasing the invisible characters in the
1710 prompt string, don't bother. It screws up the assumptions
1711 about what's on the screen. */
1712 if (_rl_horizontal_scroll_mode
&& _rl_last_c_pos
== 0 &&
1713 -lendiff
== visible_wrap_offset
)
1717 delete_chars (-col_lendiff
); /* delete (diff) characters */
1719 /* Copy (new) chars to screen from first diff to last match */
1723 /* If nfd begins at the prompt, or before the invisible
1724 characters in the prompt, we need to adjust _rl_last_c_pos
1725 in a multibyte locale to account for the wrap offset and
1726 set cpos_adjusted accordingly. */
1727 _rl_output_some_chars (nfd
, temp
);
1728 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
1730 _rl_last_c_pos
+= _rl_col_width (nfd
, 0, temp
);
1731 if (current_line
== 0 && wrap_offset
&& ((nfd
- new) <= prompt_last_invisible
))
1733 _rl_last_c_pos
-= wrap_offset
;
1738 _rl_last_c_pos
+= temp
;
1741 /* Otherwise, print over the existing material. */
1746 /* If nfd begins at the prompt, or before the invisible
1747 characters in the prompt, we need to adjust _rl_last_c_pos
1748 in a multibyte locale to account for the wrap offset and
1749 set cpos_adjusted accordingly. */
1750 _rl_output_some_chars (nfd
, temp
);
1751 _rl_last_c_pos
+= col_temp
; /* XXX */
1752 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
1754 if (current_line
== 0 && wrap_offset
&& ((nfd
- new) <= prompt_last_invisible
))
1756 _rl_last_c_pos
-= wrap_offset
;
1761 lendiff
= (oe
- old
) - (ne
- new);
1762 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
1763 col_lendiff
= _rl_col_width (old
, 0, oe
- old
) - _rl_col_width (new, 0, ne
- new);
1765 col_lendiff
= lendiff
;
1770 /* If we've already printed over the entire width of the screen,
1771 including the old material, then col_lendiff doesn't matter and
1772 space_to_eol will insert too many spaces. XXX - maybe we should
1773 adjust col_lendiff based on the difference between _rl_last_c_pos
1774 and _rl_screenwidth */
1775 if (col_lendiff
&& (_rl_last_c_pos
< _rl_screenwidth
))
1778 if (_rl_term_autowrap
&& current_line
< inv_botlin
)
1779 space_to_eol (col_lendiff
);
1781 _rl_clear_to_eol (col_lendiff
);
1787 /* Tell the update routines that we have moved onto a new (empty) line. */
1792 visible_line
[0] = '\0';
1794 _rl_last_c_pos
= _rl_last_v_pos
= 0;
1795 _rl_vis_botlin
= last_lmargin
= 0;
1797 vis_lbreaks
[0] = vis_lbreaks
[1] = 0;
1798 visible_wrap_offset
= 0;
1802 /* Tell the update routines that we have moved onto a new line with the
1803 prompt already displayed. Code originally from the version of readline
1804 distributed with CLISP. rl_expand_prompt must have already been called
1805 (explicitly or implicitly). This still doesn't work exactly right. */
1807 rl_on_new_line_with_prompt ()
1809 int prompt_size
, i
, l
, real_screenwidth
, newlines
;
1810 char *prompt_last_line
, *lprompt
;
1812 /* Initialize visible_line and invisible_line to ensure that they can hold
1813 the already-displayed prompt. */
1814 prompt_size
= strlen (rl_prompt
) + 1;
1815 init_line_structures (prompt_size
);
1817 /* Make sure the line structures hold the already-displayed prompt for
1819 lprompt
= local_prompt
? local_prompt
: rl_prompt
;
1820 strcpy (visible_line
, lprompt
);
1821 strcpy (invisible_line
, lprompt
);
1823 /* If the prompt contains newlines, take the last tail. */
1824 prompt_last_line
= strrchr (rl_prompt
, '\n');
1825 if (!prompt_last_line
)
1826 prompt_last_line
= rl_prompt
;
1828 l
= strlen (prompt_last_line
);
1829 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
1830 _rl_last_c_pos
= _rl_col_width (prompt_last_line
, 0, l
); /* XXX */
1834 /* Dissect prompt_last_line into screen lines. Note that here we have
1835 to use the real screenwidth. Readline's notion of screenwidth might be
1836 one less, see terminal.c. */
1837 real_screenwidth
= _rl_screenwidth
+ (_rl_term_autowrap
? 0 : 1);
1838 _rl_last_v_pos
= l
/ real_screenwidth
;
1839 /* If the prompt length is a multiple of real_screenwidth, we don't know
1840 whether the cursor is at the end of the last line, or already at the
1841 beginning of the next line. Output a newline just to be safe. */
1842 if (l
> 0 && (l
% real_screenwidth
) == 0)
1843 _rl_output_some_chars ("\n", 1);
1846 newlines
= 0; i
= 0;
1849 _rl_vis_botlin
= newlines
;
1850 vis_lbreaks
[newlines
++] = i
;
1851 i
+= real_screenwidth
;
1853 vis_lbreaks
[newlines
] = l
;
1854 visible_wrap_offset
= 0;
1856 rl_display_prompt
= rl_prompt
; /* XXX - make sure it's set */
1861 /* Actually update the display, period. */
1863 rl_forced_update_display ()
1865 register char *temp
;
1869 temp
= visible_line
;
1875 (*rl_redisplay_function
) ();
1879 /* Move the cursor from _rl_last_c_pos to NEW, which are buffer indices.
1880 (Well, when we don't have multibyte characters, _rl_last_c_pos is a
1882 DATA is the contents of the screen line of interest; i.e., where
1883 the movement is being done. */
1885 _rl_move_cursor_relative (new, data
)
1890 int woff
; /* number of invisible chars on current line */
1891 int cpos
, dpos
; /* current and desired cursor positions */
1893 woff
= WRAP_OFFSET (_rl_last_v_pos
, wrap_offset
);
1894 cpos
= _rl_last_c_pos
;
1895 #if defined (HANDLE_MULTIBYTE)
1896 /* If we have multibyte characters, NEW is indexed by the buffer point in
1897 a multibyte string, but _rl_last_c_pos is the display position. In
1898 this case, NEW's display position is not obvious and must be
1899 calculated. We need to account for invisible characters in this line,
1900 as long as we are past them and they are counted by _rl_col_width. */
1901 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
1903 dpos
= _rl_col_width (data
, 0, new);
1904 /* Use NEW when comparing against the last invisible character in the
1905 prompt string, since they're both buffer indices and DPOS is a
1906 desired display position. */
1907 if ((new > prompt_last_invisible
) || /* XXX - don't use woff here */
1908 (prompt_physical_chars
> _rl_screenwidth
&&
1909 _rl_last_v_pos
== prompt_last_screen_line
&&
1910 wrap_offset
>= woff
&&
1911 new > (prompt_last_invisible
-(_rl_screenwidth
*_rl_last_v_pos
)-wrap_offset
)))
1912 /* XXX last comparison might need to be >= */
1915 /* Since this will be assigned to _rl_last_c_pos at the end (more
1916 precisely, _rl_last_c_pos == dpos when this function returns),
1917 let the caller know. */
1925 /* If we don't have to do anything, then return. */
1929 /* It may be faster to output a CR, and then move forwards instead
1930 of moving backwards. */
1931 /* i == current physical cursor position. */
1932 #if defined (HANDLE_MULTIBYTE)
1933 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
1937 i
= _rl_last_c_pos
- woff
;
1938 if (dpos
== 0 || CR_FASTER (dpos
, _rl_last_c_pos
) ||
1939 (_rl_term_autowrap
&& i
== _rl_screenwidth
))
1941 #if defined (__MSDOS__)
1942 putc ('\r', rl_outstream
);
1944 tputs (_rl_term_cr
, 1, _rl_output_character_function
);
1945 #endif /* !__MSDOS__ */
1946 cpos
= _rl_last_c_pos
= 0;
1951 /* Move the cursor forward. We do it by printing the command
1952 to move the cursor forward if there is one, else print that
1953 portion of the output buffer again. Which is cheaper? */
1955 /* The above comment is left here for posterity. It is faster
1956 to print one character (non-control) than to print a control
1957 sequence telling the terminal to move forward one character.
1958 That kind of control is for people who don't know what the
1959 data is underneath the cursor. */
1961 /* However, we need a handle on where the current display position is
1962 in the buffer for the immediately preceding comment to be true.
1963 In multibyte locales, we don't currently have that info available.
1964 Without it, we don't know where the data we have to display begins
1965 in the buffer and we have to go back to the beginning of the screen
1966 line. In this case, we can use the terminal sequence to move forward
1967 if it's available. */
1968 if (MB_CUR_MAX
> 1 && rl_byte_oriented
== 0)
1970 if (_rl_term_forward_char
)
1972 for (i
= cpos
; i
< dpos
; i
++)
1973 tputs (_rl_term_forward_char
, 1, _rl_output_character_function
);
1977 tputs (_rl_term_cr
, 1, _rl_output_character_function
);
1978 for (i
= 0; i
< new; i
++)
1979 putc (data
[i
], rl_outstream
);
1983 for (i
= cpos
; i
< new; i
++)
1984 putc (data
[i
], rl_outstream
);
1987 #if defined (HANDLE_MULTIBYTE)
1988 /* NEW points to the buffer point, but _rl_last_c_pos is the display point.
1989 The byte length of the string is probably bigger than the column width
1990 of the string, which means that if NEW == _rl_last_c_pos, then NEW's
1991 display point is less than _rl_last_c_pos. */
1993 else if (cpos
> dpos
)
1994 _rl_backspace (cpos
- dpos
);
1996 _rl_last_c_pos
= dpos
;
1999 /* PWP: move the cursor up or down. */
2004 register int delta
, i
;
2006 if (_rl_last_v_pos
== to
|| to
> _rl_screenheight
)
2009 if ((delta
= to
- _rl_last_v_pos
) > 0)
2011 for (i
= 0; i
< delta
; i
++)
2012 putc ('\n', rl_outstream
);
2013 #if defined (__MSDOS__)
2014 putc ('\r', rl_outstream
);
2016 tputs (_rl_term_cr
, 1, _rl_output_character_function
);
2022 if (_rl_term_up
&& *_rl_term_up
)
2023 for (i
= 0; i
< -delta
; i
++)
2024 tputs (_rl_term_up
, 1, _rl_output_character_function
);
2027 _rl_last_v_pos
= to
; /* Now TO is here */
2030 /* Physically print C on rl_outstream. This is for functions which know
2031 how to optimize the display. Return the number of characters output. */
2037 if (META_CHAR (c
) && (_rl_output_meta_chars
== 0))
2039 fprintf (rl_outstream
, "M-");
2044 #if defined (DISPLAY_TABS)
2045 if ((CTRL_CHAR (c
) && c
!= '\t') || c
== RUBOUT
)
2047 if (CTRL_CHAR (c
) || c
== RUBOUT
)
2048 #endif /* !DISPLAY_TABS */
2050 fprintf (rl_outstream
, "C-");
2052 c
= CTRL_CHAR (c
) ? UNCTRL (c
) : '?';
2055 putc (c
, rl_outstream
);
2056 fflush (rl_outstream
);
2061 rl_character_len (c
, pos
)
2062 register int c
, pos
;
2066 uc
= (unsigned char)c
;
2069 return ((_rl_output_meta_chars
== 0) ? 4 : 1);
2073 #if defined (DISPLAY_TABS)
2074 return (((pos
| 7) + 1) - pos
);
2077 #endif /* !DISPLAY_TABS */
2080 if (CTRL_CHAR (c
) || c
== RUBOUT
)
2083 return ((ISPRINT (uc
)) ? 1 : 2);
2085 /* How to print things in the "echo-area". The prompt is treated as a
2087 static int msg_saved_prompt
= 0;
2089 #if defined (USE_VARARGS)
2091 #if defined (PREFER_STDARG)
2092 rl_message (const char *format
, ...)
2094 rl_message (va_alist
)
2099 #if defined (PREFER_VARARGS)
2103 #if defined (PREFER_STDARG)
2104 va_start (args
, format
);
2107 format
= va_arg (args
, char *);
2110 #if defined (HAVE_VSNPRINTF)
2111 vsnprintf (msg_buf
, sizeof (msg_buf
) - 1, format
, args
);
2113 vsprintf (msg_buf
, format
, args
);
2114 msg_buf
[sizeof(msg_buf
) - 1] = '\0'; /* overflow? */
2118 if (saved_local_prompt
== 0)
2121 msg_saved_prompt
= 1;
2123 rl_display_prompt
= msg_buf
;
2124 local_prompt
= expand_prompt (msg_buf
, &prompt_visible_length
,
2125 &prompt_last_invisible
,
2126 &prompt_invis_chars_first_line
,
2127 &prompt_physical_chars
);
2128 local_prompt_prefix
= (char *)NULL
;
2129 local_prompt_len
= local_prompt
? strlen (local_prompt
) : 0;
2130 (*rl_redisplay_function
) ();
2134 #else /* !USE_VARARGS */
2136 rl_message (format
, arg1
, arg2
)
2139 sprintf (msg_buf
, format
, arg1
, arg2
);
2140 msg_buf
[sizeof(msg_buf
) - 1] = '\0'; /* overflow? */
2142 rl_display_prompt
= msg_buf
;
2143 if (saved_local_prompt
== 0)
2146 msg_saved_prompt
= 1;
2148 local_prompt
= expand_prompt (msg_buf
, &prompt_visible_length
,
2149 &prompt_last_invisible
,
2150 &prompt_invis_chars_first_line
,
2151 &prompt_physical_chars
);
2152 local_prompt_prefix
= (char *)NULL
;
2153 local_prompt_len
= local_prompt
? strlen (local_prompt
) : 0;
2154 (*rl_redisplay_function
) ();
2158 #endif /* !USE_VARARGS */
2160 /* How to clear things from the "echo-area". */
2164 rl_display_prompt
= rl_prompt
;
2165 if (msg_saved_prompt
)
2167 rl_restore_prompt ();
2168 msg_saved_prompt
= 0;
2170 (*rl_redisplay_function
) ();
2175 rl_reset_line_state ()
2179 rl_display_prompt
= rl_prompt
? rl_prompt
: "";
2187 saved_local_prompt
= local_prompt
;
2188 saved_local_prefix
= local_prompt_prefix
;
2189 saved_prefix_length
= prompt_prefix_length
;
2190 saved_local_length
= local_prompt_len
;
2191 saved_last_invisible
= prompt_last_invisible
;
2192 saved_visible_length
= prompt_visible_length
;
2193 saved_invis_chars_first_line
= prompt_invis_chars_first_line
;
2194 saved_physical_chars
= prompt_physical_chars
;
2196 local_prompt
= local_prompt_prefix
= (char *)0;
2197 local_prompt_len
= 0;
2198 prompt_last_invisible
= prompt_visible_length
= prompt_prefix_length
= 0;
2199 prompt_invis_chars_first_line
= prompt_physical_chars
= 0;
2203 rl_restore_prompt ()
2205 FREE (local_prompt
);
2206 FREE (local_prompt_prefix
);
2208 local_prompt
= saved_local_prompt
;
2209 local_prompt_prefix
= saved_local_prefix
;
2210 local_prompt_len
= saved_local_length
;
2211 prompt_prefix_length
= saved_prefix_length
;
2212 prompt_last_invisible
= saved_last_invisible
;
2213 prompt_visible_length
= saved_visible_length
;
2214 prompt_invis_chars_first_line
= saved_invis_chars_first_line
;
2215 prompt_physical_chars
= saved_physical_chars
;
2217 /* can test saved_local_prompt to see if prompt info has been saved. */
2218 saved_local_prompt
= saved_local_prefix
= (char *)0;
2219 saved_local_length
= 0;
2220 saved_last_invisible
= saved_visible_length
= saved_prefix_length
= 0;
2221 saved_invis_chars_first_line
= saved_physical_chars
= 0;
2225 _rl_make_prompt_for_search (pchar
)
2233 /* We've saved the prompt, and can do anything with the various prompt
2234 strings we need before they're restored. We want the unexpanded
2235 portion of the prompt string after any final newline. */
2236 p
= rl_prompt
? strrchr (rl_prompt
, '\n') : 0;
2239 len
= (rl_prompt
&& *rl_prompt
) ? strlen (rl_prompt
) : 0;
2240 pmt
= (char *)xmalloc (len
+ 2);
2242 strcpy (pmt
, rl_prompt
);
2250 pmt
= (char *)xmalloc (len
+ 2);
2257 /* will be overwritten by expand_prompt, called from rl_message */
2258 prompt_physical_chars
= saved_physical_chars
+ 1;
2262 /* Quick redisplay hack when erasing characters at the end of the line. */
2264 _rl_erase_at_end_of_line (l
)
2270 for (i
= 0; i
< l
; i
++)
2271 putc (' ', rl_outstream
);
2273 for (i
= 0; i
< l
; i
++)
2274 visible_line
[--_rl_last_c_pos
] = '\0';
2278 /* Clear to the end of the line. COUNT is the minimum
2279 number of character spaces to clear, */
2281 _rl_clear_to_eol (count
)
2284 if (_rl_term_clreol
)
2285 tputs (_rl_term_clreol
, 1, _rl_output_character_function
);
2287 space_to_eol (count
);
2290 /* Clear to the end of the line using spaces. COUNT is the minimum
2291 number of character spaces to clear, */
2293 space_to_eol (count
)
2298 for (i
= 0; i
< count
; i
++)
2299 putc (' ', rl_outstream
);
2301 _rl_last_c_pos
+= count
;
2307 if (_rl_term_clrpag
)
2308 tputs (_rl_term_clrpag
, 1, _rl_output_character_function
);
2313 /* Insert COUNT characters from STRING to the output stream at column COL. */
2315 insert_some_chars (string
, count
, col
)
2319 #if defined (__MSDOS__) || defined (__MINGW32__)
2320 _rl_output_some_chars (string
, count
);
2323 if (MB_CUR_MAX
== 1 || rl_byte_oriented
)
2325 _rl_ttymsg ("debug: insert_some_chars: count (%d) != col (%d)", count
, col
);
2327 /* If IC is defined, then we do not have to "enter" insert mode. */
2332 buffer
= tgoto (_rl_term_IC
, 0, col
);
2333 tputs (buffer
, 1, _rl_output_character_function
);
2334 _rl_output_some_chars (string
, count
);
2340 /* If we have to turn on insert-mode, then do so. */
2341 if (_rl_term_im
&& *_rl_term_im
)
2342 tputs (_rl_term_im
, 1, _rl_output_character_function
);
2344 /* If there is a special command for inserting characters, then
2345 use that first to open up the space. */
2346 if (_rl_term_ic
&& *_rl_term_ic
)
2348 for (i
= col
; i
--; )
2349 tputs (_rl_term_ic
, 1, _rl_output_character_function
);
2352 /* Print the text. */
2353 _rl_output_some_chars (string
, count
);
2355 /* If there is a string to turn off insert mode, we had best use
2357 if (_rl_term_ei
&& *_rl_term_ei
)
2358 tputs (_rl_term_ei
, 1, _rl_output_character_function
);
2360 #endif /* __MSDOS__ || __MINGW32__ */
2363 /* Delete COUNT characters from the display line. */
2365 delete_chars (count
)
2368 if (count
> _rl_screenwidth
) /* XXX */
2371 #if !defined (__MSDOS__) && !defined (__MINGW32__)
2372 if (_rl_term_DC
&& *_rl_term_DC
)
2375 buffer
= tgoto (_rl_term_DC
, count
, count
);
2376 tputs (buffer
, count
, _rl_output_character_function
);
2380 if (_rl_term_dc
&& *_rl_term_dc
)
2382 tputs (_rl_term_dc
, 1, _rl_output_character_function
);
2384 #endif /* !__MSDOS__ && !__MINGW32__ */
2393 /* If the cursor is the only thing on an otherwise-blank last line,
2394 compensate so we don't print an extra CRLF. */
2395 if (_rl_vis_botlin
&& _rl_last_c_pos
== 0 &&
2396 visible_line
[vis_lbreaks
[_rl_vis_botlin
]] == 0)
2401 _rl_move_vert (_rl_vis_botlin
);
2402 /* If we've wrapped lines, remove the final xterm line-wrap flag. */
2403 if (full_lines
&& _rl_term_autowrap
&& (VIS_LLEN(_rl_vis_botlin
) == _rl_screenwidth
))
2407 last_line
= &visible_line
[vis_lbreaks
[_rl_vis_botlin
]];
2408 cpos_buffer_position
= -1; /* don't know where we are in buffer */
2409 _rl_move_cursor_relative (_rl_screenwidth
- 1, last_line
); /* XXX */
2410 _rl_clear_to_eol (0);
2411 putc (last_line
[_rl_screenwidth
- 1], rl_outstream
);
2415 fflush (rl_outstream
);
2419 /* Move to the start of the current line. */
2425 #if defined (__MSDOS__)
2426 putc ('\r', rl_outstream
);
2428 tputs (_rl_term_cr
, 1, _rl_output_character_function
);
2434 /* Redraw the last line of a multi-line prompt that may possibly contain
2435 terminal escape sequences. Called with the cursor at column 0 of the
2436 line to draw the prompt on. */
2443 oldp
= rl_display_prompt
;
2446 rl_display_prompt
= t
;
2447 local_prompt
= expand_prompt (t
, &prompt_visible_length
,
2448 &prompt_last_invisible
,
2449 &prompt_invis_chars_first_line
,
2450 &prompt_physical_chars
);
2451 local_prompt_prefix
= (char *)NULL
;
2452 local_prompt_len
= local_prompt
? strlen (local_prompt
) : 0;
2454 rl_forced_update_display ();
2456 rl_display_prompt
= oldp
;
2457 rl_restore_prompt();
2460 /* Redisplay the current line after a SIGWINCH is received. */
2462 _rl_redisplay_after_sigwinch ()
2466 /* Clear the last line (assuming that the screen size change will result in
2467 either more or fewer characters on that line only) and put the cursor at
2468 column 0. Make sure the right thing happens if we have wrapped to a new
2472 _rl_move_vert (_rl_vis_botlin
);
2474 #if defined (__MSDOS__)
2475 putc ('\r', rl_outstream
);
2477 tputs (_rl_term_cr
, 1, _rl_output_character_function
);
2480 #if defined (__MSDOS__)
2481 space_to_eol (_rl_screenwidth
);
2482 putc ('\r', rl_outstream
);
2484 if (_rl_term_clreol
)
2485 tputs (_rl_term_clreol
, 1, _rl_output_character_function
);
2488 space_to_eol (_rl_screenwidth
);
2489 tputs (_rl_term_cr
, 1, _rl_output_character_function
);
2492 if (_rl_last_v_pos
> 0)
2498 /* Redraw only the last line of a multi-line prompt. */
2499 t
= strrchr (rl_display_prompt
, '\n');
2501 redraw_prompt (++t
);
2503 rl_forced_update_display ();
2507 _rl_clean_up_for_exit ()
2511 _rl_move_vert (_rl_vis_botlin
);
2513 fflush (rl_outstream
);
2514 rl_restart_output (1, 0);
2519 _rl_erase_entire_line ()
2522 _rl_clear_to_eol (0);
2524 fflush (rl_outstream
);
2527 /* return the `current display line' of the cursor -- the number of lines to
2528 move up to get to the first screen line of the current readline line. */
2530 _rl_current_display_line ()
2534 /* Find out whether or not there might be invisible characters in the
2536 if (rl_display_prompt
== rl_prompt
)
2537 nleft
= _rl_last_c_pos
- _rl_screenwidth
- rl_visible_prompt_length
;
2539 nleft
= _rl_last_c_pos
- _rl_screenwidth
;
2542 ret
= 1 + nleft
/ _rl_screenwidth
;
2549 #if defined (HANDLE_MULTIBYTE)
2550 /* Calculate the number of screen columns occupied by STR from START to END.
2551 In the case of multibyte characters with stateful encoding, we have to
2552 scan from the beginning of the string to take the state into account. */
2554 _rl_col_width (str
, start
, end
)
2560 int tmp
, point
, width
, max
;
2564 if (MB_CUR_MAX
== 1 || rl_byte_oriented
)
2566 _rl_ttymsg ("_rl_col_width: called with MB_CUR_MAX == 1");
2567 return (end
- start
);
2570 memset (&ps
, 0, sizeof (mbstate_t));
2575 while (point
< start
)
2577 tmp
= mbrlen (str
+ point
, max
, &ps
);
2578 if (MB_INVALIDCH ((size_t)tmp
))
2580 /* In this case, the bytes are invalid or too short to compose a
2581 multibyte character, so we assume that the first byte represents
2582 a single character. */
2586 /* Clear the state of the byte sequence, because in this case the
2587 effect of mbstate is undefined. */
2588 memset (&ps
, 0, sizeof (mbstate_t));
2590 else if (MB_NULLWCH (tmp
))
2591 break; /* Found '\0' */
2599 /* If START is not a byte that starts a character, then POINT will be
2600 greater than START. In this case, assume that (POINT - START) gives
2601 a byte count that is the number of columns of difference. */
2602 width
= point
- start
;
2606 tmp
= mbrtowc (&wc
, str
+ point
, max
, &ps
);
2607 if (MB_INVALIDCH ((size_t)tmp
))
2609 /* In this case, the bytes are invalid or too short to compose a
2610 multibyte character, so we assume that the first byte represents
2611 a single character. */
2615 /* and assume that the byte occupies a single column. */
2618 /* Clear the state of the byte sequence, because in this case the
2619 effect of mbstate is undefined. */
2620 memset (&ps
, 0, sizeof (mbstate_t));
2622 else if (MB_NULLWCH (tmp
))
2623 break; /* Found '\0' */
2629 width
+= (tmp
>= 0) ? tmp
: 1;
2633 width
+= point
- end
;
2637 #endif /* HANDLE_MULTIBYTE */