Mercurial > hg > octave-nkf
view liboctave/numeric/oct-spparms.h @ 20685:7fa1970a655d
pkg.m: drop check of nargout value, the interpreter already does that.
* scripts/pkg/pkg.m: the interpreter already checks if there was any variable
that got no value assigned, there's no need to make the code more
complicated to cover that. Also, there's no point in calling describe()
with different nargout since it doesn't check nargout.
author | Carnë Draug <carandraug@octave.org> |
---|---|
date | Thu, 03 Sep 2015 16:21:08 +0100 |
parents | 4197fc428c7d |
children |
line wrap: on
line source
/* Copyright (C) 2004-2015 David Bateman Copyright (C) 1998-2004 Andy Adler 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 3 of the License, 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, see <http://www.gnu.org/licenses/>. */ #if !defined (octave_oct_spparms_h) #define octave_oct_spparms_h 1 #include <cassert> #include <cstddef> #include <iosfwd> #include "str-vec.h" #include "dColVector.h" #include "dNDArray.h" #define OCTAVE_SPARSE_CONTROLS_SIZE 13 class OCTAVE_API octave_sparse_params { protected: octave_sparse_params (void) : params (OCTAVE_SPARSE_CONTROLS_SIZE), keys (OCTAVE_SPARSE_CONTROLS_SIZE) { init_keys (); do_defaults (); } public: octave_sparse_params (const octave_sparse_params& a) : params (a.params), keys (a.keys) { } octave_sparse_params& operator = (const octave_sparse_params& a) { if (&a != this) { params = a.params; keys = a.keys; } return *this; } ~octave_sparse_params (void) { } static bool instance_ok (void); static void defaults (void); static void tight (void); static string_vector get_keys (void); static ColumnVector get_vals (void); static bool set_vals (const NDArray& vals); static bool set_key (const std::string& key, const double& val); static double get_key (const std::string& key); static double get_bandden (void); static void print_info (std::ostream& os, const std::string& prefix); private: ColumnVector params; string_vector keys; static octave_sparse_params *instance; static void cleanup_instance (void) { delete instance; instance = 0; } void do_defaults (void); void do_tight (void); string_vector do_get_keys (void) const { return keys; } ColumnVector do_get_vals (void) const { return params; } bool do_set_vals (const NDArray& vals); bool do_set_key (const std::string& key, const double& val); double do_get_key (const std::string& key); double do_get_bandden (void); void do_print_info (std::ostream& os, const std::string& prefix) const; void init_keys (void); }; #endif