Mercurial > octave-nkf
view src/ov-oncleanup.h @ 14163:55d41048ea68 stable
update FCN_FILES list in test/Makefile.am
* test/Makefile.am (FCN_FILES): Rename test_contin.m to
test_line_contine.m in the list.
Include test_index.m and test_logical_index.m in the list.
Remove test_index-wfi-f.m, test_index-wfi-t.m, test_logical-wfi-f.m,
test_logical-wfi-t.m from the list.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Fri, 06 Jan 2012 13:46:56 -0500 |
parents | 72c96de7a403 |
children |
line wrap: on
line source
/* Copyright (C) 2010-2012 VZLU Prague 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/>. */ #ifdef HAVE_CONFIG_H #include <config.h> #endif #include <iosfwd> #include "ov-base.h" #include "ov-struct.h" #include "ov.h" static void gripe_internal (void) { error ("onCleanup: internal error: cloning nonempty object"); } class octave_oncleanup : public octave_base_value { public: octave_oncleanup (void) : fcn () { } octave_oncleanup (const octave_value& fcn); octave_base_value *clone (void) const { if (fcn.is_defined ()) gripe_internal (); return empty_clone (); } octave_base_value *empty_clone (void) const { return new octave_oncleanup (); } ~octave_oncleanup (void); bool is_defined (void) const { return true; } bool is_object (void) const { return true; } // do we want this? octave_map map_value (void) const { return scalar_map_value (); } octave_scalar_map scalar_map_value (void) const; dim_vector dims (void) const { static dim_vector dv (1, 1); return dv; } bool save_ascii (std::ostream& os); bool load_ascii (std::istream& is); bool save_binary (std::ostream& os, bool& save_as_floats); bool load_binary (std::istream& is, bool swap, oct_mach_info::float_format fmt); #if defined (HAVE_HDF5) bool save_hdf5 (hid_t loc_id, const char *name, bool save_as_floats); bool load_hdf5 (hid_t loc_id, const char *name); #endif void print (std::ostream& os, bool pr_as_read_syntax = false) const; void print_raw (std::ostream& os, bool pr_as_read_syntax = false) const; private: DECLARE_OV_TYPEID_FUNCTIONS_AND_DATA protected: octave_value fcn; };