Mercurial > hg > octave-avbm
diff src/t-builtins.cc @ 499:966db71124dc
[project @ 1994-07-08 02:09:25 by jwe]
author | jwe |
---|---|
date | Fri, 08 Jul 1994 02:11:50 +0000 |
parents | 680426c10c5e |
children |
line wrap: on
line diff
--- a/src/t-builtins.cc +++ b/src/t-builtins.cc @@ -174,10 +174,10 @@ return os; } -tree_constant * +Octave_object builtin_casesen (int argc, char **argv, int nargout) { - tree_constant *retval = NULL_TREE_CONST; + Octave_object retval; if (argc == 1 || (argc > 1 && strcmp (argv[1], "off") == 0)) warning ("casesen: sorry, Octave is always case sensitive"); @@ -192,10 +192,10 @@ /* * Change current working directory. */ -tree_constant * +Octave_object builtin_cd (int argc, char **argv, int nargout) { - tree_constant *retval = NULL_TREE_CONST; + Octave_object retval; if (argc > 1) { @@ -251,10 +251,10 @@ * Wipe out user-defined variables and functions given a list of * globbing patterns. */ -tree_constant * +Octave_object builtin_clear (int argc, char **argv, int nargout) { - tree_constant *retval = NULL_TREE_CONST; + Octave_object retval; // Always clear the local table, but don't clear currently compiled // functions unless we are at the top level. (Allowing that to happen @@ -328,10 +328,10 @@ /* * Associate a cryptic message with a variable name. */ -tree_constant * +Octave_object builtin_document (int argc, char **argv, int nargout) { - tree_constant *retval = NULL_TREE_CONST; + Octave_object retval; if (argc == 3) document_symbol (argv[1], argv[2]); else @@ -342,10 +342,10 @@ /* * Edit commands with your favorite editor. */ -tree_constant * +Octave_object builtin_edit_history (int argc, char **argv, int nargout) { - tree_constant *retval = NULL_TREE_CONST; + Octave_object retval; do_edit_history (argc, argv); return retval; } @@ -353,10 +353,10 @@ /* * Set output format state. */ -tree_constant * +Octave_object builtin_format (int argc, char **argv, int nargout) { - tree_constant *retval = NULL_TREE_CONST; + Octave_object retval; set_format_style (argc, argv); return retval; } @@ -488,10 +488,10 @@ /* * Print cryptic yet witty messages. */ -tree_constant * +Octave_object builtin_help (int argc, char **argv, int nargout) { - tree_constant *retval = NULL_TREE_CONST; + Octave_object retval; if (argc == 1) { @@ -623,10 +623,10 @@ /* * Display, save, or load history. */ -tree_constant * +Octave_object builtin_history (int argc, char **argv, int nargout) { - tree_constant *retval = NULL_TREE_CONST; + Octave_object retval; do_history (argc, argv); @@ -637,10 +637,10 @@ * Change state flag that determines whether lines are added to plots * or drawn on new plots. */ -tree_constant * +Octave_object builtin_hold (int argc, char **argv, int nargout) { - tree_constant *retval = NULL_TREE_CONST; + Octave_object retval; switch (argc) { @@ -809,10 +809,10 @@ * * -- This function is not terribly robust. */ -tree_constant * +Octave_object builtin_load (int argc, char **argv, int nargout) { - tree_constant *retval = NULL_TREE_CONST; + Octave_object retval; argc--; argv++; @@ -895,10 +895,10 @@ /* * Get a directory listing. */ -tree_constant * +Octave_object builtin_ls (int argc, char **argv, int nargout) { - tree_constant *retval = NULL_TREE_CONST; + Octave_object retval; ostrstream ls_buf; @@ -929,10 +929,10 @@ /* * Run previous commands from the history list. */ -tree_constant * +Octave_object builtin_run_history (int argc, char **argv, int nargout) { - tree_constant *retval = NULL_TREE_CONST; + Octave_object retval; do_run_history (argc, argv); return retval; } @@ -979,10 +979,10 @@ /* * Write variables to an output stream. */ -tree_constant * +Octave_object builtin_save (int argc, char **argv, int nargout) { - tree_constant *retval = NULL_TREE_CONST; + Octave_object retval; if (argc < 2) { @@ -1082,10 +1082,10 @@ /* * Set plotting options. */ -tree_constant * +Octave_object builtin_set (int argc, char **argv, int nargout) { - tree_constant *retval = NULL_TREE_CONST; + Octave_object retval; ostrstream plot_buf; @@ -1113,10 +1113,10 @@ /* * Set plotting options. */ -tree_constant * +Octave_object builtin_show (int argc, char **argv, int nargout) { - tree_constant *retval = NULL_TREE_CONST; + Octave_object retval; ostrstream plot_buf; @@ -1205,10 +1205,10 @@ return status; } -tree_constant * +Octave_object builtin_who (int argc, char **argv, int nargout) { - tree_constant *retval = NULL_TREE_CONST; + Octave_object retval; int show_builtins = 0; int show_functions = (curr_sym_tab == top_level_sym_tab);