Mercurial > octave-nkf

changeset 359:f99cd19d183e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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	Fri Feb 11 04:41:02 1994 +0000
+++ b/src/g-builtins.cc	Fri Feb 11 06:03:32 1994 +0000
@@ -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");