Mercurial > octave
diff src/input.cc @ 2086:bfb775fb6fe8
[project @ 1996-04-25 05:55:19 by jwe]
author | jwe |
---|---|
date | Thu, 25 Apr 1996 05:55:19 +0000 |
parents | 003570e69c7b |
children | 36903d507b0e |
line wrap: on
line diff
--- a/src/input.cc Thu Apr 25 05:55:19 1996 +0000 +++ b/src/input.cc Thu Apr 25 05:55:19 1996 +0000 @@ -661,9 +661,9 @@ { tree_fvc *tmp_fvc = sr->def (); - tree_constant *def = 0; + octave_value *def = 0; if (tmp_fvc->is_constant ()) - def = (tree_constant *) tmp_fvc; + def = (octave_value *) tmp_fvc; if (def && def->is_map ()) { @@ -671,7 +671,7 @@ if (elts && *elts) { - tree_constant ult = def->lookup_map_element (elts, 0, 1); + octave_value ult = def->lookup_map_element (elts, 0, 1); if (ult.is_map ()) { @@ -756,15 +756,15 @@ { tree_fvc *tmp_fvc = sr->def (); - tree_constant *def = 0; + octave_value *def = 0; if (tmp_fvc->is_constant ()) - def = (tree_constant *) tmp_fvc; + def = (octave_value *) tmp_fvc; if (def && def->is_map ()) { if (elts && *elts) { - tree_constant ult = def->lookup_map_element (elts, 0, 1); + octave_value ult = def->lookup_map_element (elts, 0, 1); if (ult.is_map ()) retval = 1; @@ -1003,10 +1003,10 @@ // If the user simply hits return, this will produce an empty matrix. -static Octave_object -get_user_input (const Octave_object& args, int debug = 0) +static octave_value_list +get_user_input (const octave_value_list& args, int debug = 0) { - tree_constant retval; + octave_value retval; int nargin = args.length (); @@ -1092,7 +1092,7 @@ Prompt user for input. If the second argument is present, return value as a string.") { - Octave_object retval; + octave_value_list retval; int nargin = args.length (); @@ -1109,7 +1109,7 @@ \n\ maybe help in debugging function files") { - Octave_object retval; + octave_value_list retval; int nargin = args.length (); @@ -1132,7 +1132,7 @@ \n\ Without any arguments, toggle the current echo state.") { - Octave_object retval; + octave_value_list retval; int argc = args.length () + 1;