Mercurial > hg > octave-terminal
changeset 3278:9c9f0c035309
[project @ 1999-10-12 06:03:49 by jwe]
author | jwe |
---|---|
date | Tue, 12 Oct 1999 06:07:01 +0000 |
parents | 9a1ac83591c0 |
children | 6dd06d525de6 |
files | libcruft/slatec-fn/xdgamit.f src/ov-base-scalar.h test/octave.test/arith/exp-5.m |
diffstat | 3 files changed, 107 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/libcruft/slatec-fn/xdgamit.f @@ -0,0 +1,5 @@ + subroutine xdgamit (a, x, result) + double precision a, x, result, dgamit + result = dgamit (a, x) + return + end
new file mode 100644 --- /dev/null +++ b/src/ov-base-scalar.h @@ -0,0 +1,101 @@ +/* + +Copyright (C) 1996, 1997 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 (octave_base_scalar_h) +#define octave_base_scalar_h 1 + +#if defined (__GNUG__) +#pragma interface +#endif + +#include <cstdlib> + +#include <string> + +class ostream; + +#include "lo-mappers.h" +#include "lo-utils.h" +#include "oct-alloc.h" +#include "str-vec.h" + +#include "ov-base.h" +#include "ov-typeinfo.h" + +// Real scalar values. + +template <class ST> +class +octave_base_scalar : public octave_base_value +{ +public: + + octave_base_scalar (void) + : octave_base_value () { } + + octave_base_scalar (ST s) + : octave_base_value (), scalar (s) { } + + octave_base_scalar (const octave_base_scalar& s) + : octave_base_value (), scalar (s.scalar) { } + + ~octave_base_scalar (void) { } + + int rows (void) const { return 1; } + + int columns (void) const { return 1; } + + int length (void) const { return 1; } + + bool is_constant (void) const { return true; } + + bool is_defined (void) const { return true; } + + octave_value all (void) const { return (scalar != 0.0); } + + octave_value any (void) const { return (scalar != 0.0); } + + bool is_scalar_type (void) const { return true; } + + bool is_numeric_type (void) const { return true; } + + bool is_true (void) const { return (scalar != 0.0); } + + void print (ostream& os, bool pr_as_read_syntax = false) const; + + void print_raw (ostream& os, bool pr_as_read_syntax = false) const; + + bool print_name_tag (ostream& os, const string& name) const; + +protected: + + // The value of this scalar. + ST scalar; +}; + +#endif + +/* +;;; Local Variables: *** +;;; mode: C++ *** +;;; End: *** +*/