Mercurial > octave
view src/ov-cell.cc @ 3928:e8627dc4bdf2
[project @ 2002-05-03 19:56:01 by jwe]
author | jwe |
---|---|
date | Fri, 03 May 2002 19:56:02 +0000 |
parents | 0ff7323dab8b |
children | f9ea3dcf58ee |
line wrap: on
line source
/* Copyright (C) 1999 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 <iostream> #include <strstream> #include "lo-utils.h" #include "defun.h" #include "error.h" #include "ov-cell.h" #include "oct-obj.h" #include "unwind-prot.h" #include "utils.h" #include "ov-base-mat.h" #include "ov-base-mat.cc" #include "ov-re-mat.h" #include "ov-scalar.h" template class octave_base_matrix<Cell>; DEFINE_OCTAVE_ALLOCATOR (octave_cell); DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_cell, "cell"); void octave_cell::assign (const octave_value_list& idx, const octave_value& rhs) { if (rhs.is_cell ()) octave_base_matrix<Cell>::assign (idx, rhs.cell_value ()); else octave_base_matrix<Cell>::assign (idx, Cell (rhs)); } DEFUN (iscell, args, , "-*- texinfo -*-\n\ @deftypefn {Built-in Function} {} iscell (@var{x})\n\ Return true if @var{x} is a cell array object. Otherwise, return\n\ false.\n\ @end deftypefn") { octave_value retval; if (args.length () == 1) retval = args(0).is_cell (); else print_usage ("iscell"); return retval; } DEFUN (cell, args, , "-*- texinfo -*-\n\ @deftypefn {Built-in Function} {} cell (@var{x})\n\ @deftypefnx {Built-in Function} {} cell (@var{n}, @var{m})\n\ Create a new cell array object. If invoked with a single scalar\n\ argument, @code{cell} returns a square cell array with the dimension\n\ specified. If you supply two scalar arguments, @code{cell} takes\n\ them to be the number of rows and columns. If given a vector with two\n\ elements, @code{cell} uses the values of the elements as the number of\n\ rows and columns, respectively.\n\ @end deftypefn") { octave_value retval; int nargin = args.length (); switch (nargin) { case 1: { int nr, nc; get_dimensions (args(0), "cell", nr, nc); if (! error_state) retval = Cell (nr, nc, Matrix ()); } break; case 2: { int nr, nc; get_dimensions (args(0), args(1), "cell", nr, nc); if (! error_state) retval = Cell (nr, nc, Matrix ()); } break; default: print_usage ("cell"); break; } return retval; } /* ;;; Local Variables: *** ;;; mode: C++ *** ;;; End: *** */