Mercurial > hg > octave-lyh
diff src/DLD-FUNCTIONS/dispatch.cc @ 10154:40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Wed, 20 Jan 2010 17:33:41 -0500 |
parents | 0c785ad961fa |
children | cc3aad9dd3ef |
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/dispatch.cc +++ b/src/DLD-FUNCTIONS/dispatch.cc @@ -57,17 +57,17 @@ const std::string name (args(0).string_value ()); if (! error_state) - { - octave_value fcn = symbol_table::builtin_find (name); + { + octave_value fcn = symbol_table::builtin_find (name); - if (fcn.is_defined ()) - retval = feval (fcn.function_value (), args.splice (0, 1), - nargout); - else - error ("builtin: lookup for symbol `%s' failed", name.c_str ()); - } + if (fcn.is_defined ()) + retval = feval (fcn.function_value (), args.splice (0, 1), + nargout); + else + error ("builtin: lookup for symbol `%s' failed", name.c_str ()); + } else - error ("builtin: expecting function name as first argument"); + error ("builtin: expecting function name as first argument"); } else print_usage (); @@ -101,78 +101,78 @@ if (nargin > 0 && nargin < 4) { if (nargin > 0) - { - f = args(0).string_value (); + { + f = args(0).string_value (); - if (error_state) - { - error ("dispatch: expecting first argument to be function name"); - return retval; - } - } + if (error_state) + { + error ("dispatch: expecting first argument to be function name"); + return retval; + } + } if (nargin > 1) - { - r = args(1).string_value (); + { + r = args(1).string_value (); - if (error_state) - { - error ("dispatch: expecting second argument to be function name"); - return retval; - } - } + if (error_state) + { + error ("dispatch: expecting second argument to be function name"); + return retval; + } + } if (nargin > 2) - { - t = args(2).string_value (); + { + t = args(2).string_value (); - if (error_state) - { - error ("dispatch: expecting third argument to be type name"); - return retval; - } - } + if (error_state) + { + error ("dispatch: expecting third argument to be type name"); + return retval; + } + } if (nargin == 1) - { - if (nargout > 0) - { - symbol_table::fcn_info::dispatch_map_type dm - = symbol_table::get_dispatch (f); + { + if (nargout > 0) + { + symbol_table::fcn_info::dispatch_map_type dm + = symbol_table::get_dispatch (f); - size_t len = dm.size (); + size_t len = dm.size (); - Cell type_field (len, 1); - Cell name_field (len, 1); + Cell type_field (len, 1); + Cell name_field (len, 1); - symbol_table::fcn_info::dispatch_map_type::const_iterator p - = dm.begin (); + symbol_table::fcn_info::dispatch_map_type::const_iterator p + = dm.begin (); - for (size_t i = 0; i < len; i++) - { - type_field(i) = p->first; - name_field(i) = p->second; + for (size_t i = 0; i < len; i++) + { + type_field(i) = p->first; + name_field(i) = p->second; - p++; - } + p++; + } - Octave_map m; + Octave_map m; - m.assign ("type", type_field); - m.assign ("name", name_field); + m.assign ("type", type_field); + m.assign ("name", name_field); - retval = m; - } - else - symbol_table::print_dispatch (octave_stdout, f); - } + retval = m; + } + else + symbol_table::print_dispatch (octave_stdout, f); + } else if (nargin == 2) - { - t = r; - symbol_table::clear_dispatch (f, t); - } + { + t = r; + symbol_table::clear_dispatch (f, t); + } else - symbol_table::add_dispatch (f, t, r); + symbol_table::add_dispatch (f, t, r); } else print_usage ();