Mercurial > octave-nkf
diff src/ov-complex.cc @ 2376:2142216bf85a
[project @ 1996-10-12 01:39:07 by jwe]
author | jwe |
---|---|
date | Sat, 12 Oct 1996 01:39:21 +0000 |
parents | |
children | 367485171742 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/src/ov-complex.cc Sat Oct 12 01:39:21 1996 +0000 @@ -0,0 +1,142 @@ +/* + +Copyright (C) 1996 John W. Eaton + +This file is part of Octave. + +Octave is free software; you can redistribute it and/or modify it +under the terms of the GNU General Public License as published by the +Free Software Foundation; either version 2, or (at your option) any +later version. + +Octave is distributed in the hope that it will be useful, but WITHOUT +ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +for more details. + +You should have received a copy of the GNU General Public License +along with Octave; see the file COPYING. If not, write to the Free +Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + +*/ + +#if defined (__GNUG__) +#pragma implementation +#endif + +#ifdef HAVE_CONFIG_H +#include <config.h> +#endif + +#include "lo-ieee.h" + +#include "oct-obj.h" +#include "ov-complex.h" +#include "gripes.h" +#include "pr-output.h" + +int octave_complex::t_id = -1; + +const string octave_complex::t_name ("complex scalar"); + +static inline bool +valid_scalar_indices (const octave_value_list& args) +{ + int nargin = args.length (); + + for (int i = 0; i < nargin; i++) + if (! args(i).valid_as_scalar_index ()) + return false; + + return true; +} + +octave_value +octave_complex::index (const octave_value_list& idx) const +{ + octave_value retval; + + if (valid_scalar_indices (idx)) + retval = scalar; + else + { + // XXX FIXME XXX -- this doesn't solve the problem of + // + // a = i; a([1,1], [1,1], [1,1]) + // + // and similar constructions. Hmm... + + octave_value tmp (complex_matrix_value ()); + + retval = tmp.index (idx); + } + + return retval; +} + +double +octave_complex::double_value (bool force_conversion) const +{ + double retval = octave_NaN; + + int flag = force_conversion; + + if (! flag) + flag = Vok_to_lose_imaginary_part; + + if (flag < 0) + gripe_implicit_conversion ("complex scalar", "real scalar"); + + if (flag) + retval = ::real (scalar); + else + gripe_invalid_conversion ("complex scalar", "real scalar"); + + return retval; +} + +Matrix +octave_complex::matrix_value (bool force_conversion) const +{ + Matrix retval; + + int flag = force_conversion; + + if (! flag) + flag = Vok_to_lose_imaginary_part; + + if (flag < 0) + gripe_implicit_conversion ("complex scalar", "real matrix"); + + if (flag) + retval = Matrix (1, 1, ::real (scalar)); + else + gripe_invalid_conversion ("complex scalar", "real matrix"); + + return retval; +} + +Complex +octave_complex::complex_value (bool) const +{ + return scalar; +} + + +ComplexMatrix +octave_complex::complex_matrix_value (bool) const +{ + return ComplexMatrix (1, 1, scalar); +} + +void +octave_complex::print (ostream& os) +{ + octave_print_internal (os, scalar, false); +} + +/* +;;; Local Variables: *** +;;; mode: C++ *** +;;; End: *** +*/