00001 /* 00002 00003 Copyright (C) 2002-2012 John W. Eaton 00004 00005 This file is part of Octave. 00006 00007 Octave is free software; you can redistribute it and/or modify it 00008 under the terms of the GNU General Public License as published by the 00009 Free Software Foundation; either version 3 of the License, or (at your 00010 option) any later version. 00011 00012 Octave is distributed in the hope that it will be useful, but WITHOUT 00013 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 00014 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License 00015 for more details. 00016 00017 You should have received a copy of the GNU General Public License 00018 along with Octave; see the file COPYING. If not, see 00019 <http://www.gnu.org/licenses/>. 00020 00021 */ 00022 00023 #ifdef HAVE_CONFIG_H 00024 #include <config.h> 00025 #endif 00026 00027 #include <iostream> 00028 #include <sstream> 00029 00030 #include "lo-utils.h" 00031 00032 #include "defun.h" 00033 #include "error.h" 00034 #include "gripes.h" 00035 #include "ov-cs-list.h" 00036 #include "unwind-prot.h" 00037 00038 DEFINE_OCTAVE_ALLOCATOR (octave_cs_list); 00039 00040 DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_cs_list, "cs-list", "cs-list"); 00041 00042 octave_cs_list::octave_cs_list (const Cell& c) 00043 : octave_base_value (), lst (c) 00044 { 00045 } 00046 00047 octave_value 00048 octave_cs_list::subsref (const std::string&, 00049 const std::list<octave_value_list>&) 00050 { 00051 gripe_indexed_cs_list (); 00052 return octave_value (); 00053 } 00054 00055 octave_value_list 00056 octave_cs_list::subsref (const std::string&, 00057 const std::list<octave_value_list>&, int) 00058 { 00059 gripe_indexed_cs_list (); 00060 return octave_value_list (); 00061 } 00062