Mercurial > hg > octave-nkf
diff src/toplev.cc @ 2973:ef3379196bcf
[project @ 1997-05-15 19:27:38 by jwe]
author | jwe |
---|---|
date | Thu, 15 May 1997 19:30:57 +0000 |
parents | 026f342c2019 |
children | 20f5cec4f11c |
line wrap: on
line diff
--- a/src/toplev.cc +++ b/src/toplev.cc @@ -62,7 +62,6 @@ #include "oct-hist.h" #include "oct-map.h" #include "oct-obj.h" -#include "oct-sym.h" #include "pager.h" #include "parse.h" #include "pathsearch.h" @@ -95,9 +94,6 @@ // Nonzero means we printed messages about reading startup files. int reading_startup_message_printed = 0; -// Command number, counting from the beginning of this session. -int current_command_number = 1; - // Nonzero means we are exiting via the builtin exit or quit functions. int quitting_gracefully = 0; @@ -289,7 +285,7 @@ if (octave_completion_matches_called) octave_completion_matches_called = false; else - current_command_number++; + command_editor::increment_current_command_number (); } } } @@ -472,7 +468,7 @@ { octave_value_list retval; - octave_symbol *fcn = is_valid_function (args(0), "feval", 1); + octave_function *fcn = is_valid_function (args(0), "feval", 1); if (fcn) { @@ -492,7 +488,7 @@ tmp_args.stash_name_tags (tmp_arg_names); - retval = fcn->eval (nargout, tmp_args); + retval = fcn->do_index_op (nargout, tmp_args); } return retval;