Mercurial > hg > octave-lojdl
changeset 359:f99cd19d183e
[project @ 1994-02-11 06:03:32 by jwe]
author | jwe |
---|---|
date | Fri, 11 Feb 1994 06:03:32 +0000 |
parents | f52ab689669a |
children | 273f0b941c51 |
files | src/g-builtins.cc |
diffstat | 1 files changed, 17 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/g-builtins.cc +++ b/src/g-builtins.cc @@ -92,6 +92,9 @@ extern "C" { #include <readline/readline.h> + +extern char *term_clrpag; +extern void _rl_output_character_function (); } #ifndef MAXPATHLEN @@ -203,7 +206,18 @@ { rl_beg_of_line (); rl_kill_line (1); - rl_clear_screen (); + +#if ! defined (_GO32_) + if (term_clrpag) + tputs (term_clrpag, 1, _rl_output_character_function); + else + crlf (); +#else + crlf (); +#endif + + fflush (rl_outstream); + return NULL_TREE_CONST; } @@ -1763,7 +1777,7 @@ if (curr_function->takes_varargs ()) { retval = new tree_constant [2]; - retval[0] = curr_function->va_arg (); + retval[0] = curr_function->octave_va_arg (); } else { @@ -1789,7 +1803,7 @@ if (curr_function != (tree_function *) NULL) { if (curr_function->takes_varargs ()) - curr_function->va_start (); + curr_function->octave_va_start (); else { error ("va_start only valid within function taking variable");