1 files changed, 131 insertions, 0 deletions
diff --git a/raslib/marraytype.cc b/raslib/marraytype.cc
new file mode 100644
index 0000000..ace70aa
--- /dev/null
+++ b/raslib/marraytype.cc
@@ -0,0 +1,131 @@
+/*
+* This file is part of rasdaman community.
+*
+* Rasdaman community 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.
+*
+* Rasdaman community 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 rasdaman community.  If not, see <http://www.gnu.org/licenses/>.
+*
+* Copyright 2003, 2004, 2005, 2006, 2007, 2008, 2009 Peter Baumann /
+rasdaman GmbH.
+*
+* For more information please see <http://www.rasdaman.org>
+* or contact Peter Baumann via <baumann@rasdaman.com>.
+*/
+
+static const char rcsid[] = "@(#)raslib, r_Marray_Type: $Header: /home/rasdev/CVS-repository/rasdaman/raslib/marraytype.cc,v 1.7 2003/12/27 23:01:21 rasdev Exp $";
+
+#include "raslib/marraytype.hh"
+#include "raslib/basetype.hh"
+#include "raslib/error.hh"
+#include "raslib/rminit.hh"
+
+r_Marray_Type::r_Marray_Type()
+	:	r_Type(),
+		baseType(NULL)
+	{
+	}
+
+r_Marray_Type::r_Marray_Type(const r_Base_Type& newBaseType)
+	:	r_Type(),
+		baseType((r_Base_Type*)newBaseType.clone())
+	{
+	}
+
+r_Marray_Type::r_Marray_Type(const r_Marray_Type& oldObj) throw (r_Error)
+	:	r_Type(oldObj)
+	{ 
+	if (oldObj.baseType) 
+		baseType =  (r_Base_Type*)oldObj.baseType->clone();           
+	else	{
+		RMInit::logOut << "r_Marray_Type::r_Marray_Type( oldObj ) the element type is NULL." << endl;
+		throw r_Error(MARRAYTYPEHASNOELEMENTTYPE);
+		}
+	}
+
+const r_Marray_Type& 
+r_Marray_Type::operator=(const r_Marray_Type& oldObj) throw (r_Error)
+	{
+	// Gracefully handle self assignment
+	if (this == &oldObj)
+		return *this;
+
+	r_Type::operator=(oldObj);
+	if (baseType) 
+		{
+		 delete baseType;
+		 baseType = 0;
+		}
+
+	if (oldObj.baseType)
+		 baseType = (r_Base_Type*)oldObj.baseType->clone();
+	else	{
+		RMInit::logOut << "r_Marray_Type::operator=( oldObj ) the element type is NULL." << endl;
+		throw r_Error(MARRAYTYPEHASNOELEMENTTYPE);
+		}
+
+	return *this;
+	}
+
+bool
+r_Marray_Type::isMarrayType() const
+	{
+	return true;
+	}
+
+const r_Base_Type&
+r_Marray_Type::base_type() const
+	{
+	return *baseType;
+	}
+
+r_Type*
+r_Marray_Type::clone() const
+	{
+	return new r_Marray_Type(*this); 
+	}
+
+r_Type::r_Type_Id 
+r_Marray_Type::type_id() const
+	{
+	return MARRAYTYPE;
+	}
+
+void
+r_Marray_Type::convertToLittleEndian(char* cells, r_Area noCells) const
+	{
+	}
+
+void
+r_Marray_Type::convertToBigEndian(char* cells, r_Area noCells) const
+	{
+	}
+
+void 
+r_Marray_Type::print_status(std::ostream& s) const
+	{
+	s << "marray< "; 
+	baseType->print_status(s);
+	s << " >";
+	} 
+
+r_Marray_Type::~r_Marray_Type()
+	{
+	if (baseType) 
+		 delete baseType;
+	}
+
+std::ostream &operator<<( std::ostream &str, const r_Marray_Type &type )
+{
+  type.print_status(str);
+  return str;
+}
+    
+\ No newline at end of file