1 files changed, 99 insertions, 0 deletions
diff --git a/raslib/property.cc b/raslib/property.cc
new file mode 100644
index 0000000..ddd75c2
--- /dev/null
+++ b/raslib/property.cc
@@ -0,0 +1,99 @@
+/*
+* 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_Meta_Object: $Header: /home/rasdev/CVS-repository/rasdaman/raslib/property.cc,v 1.7 2003/12/27 23:01:21 rasdev Exp $";
+
+#include "raslib/property.hh"
+#include "raslib/basetype.hh"
+#include "raslib/rminit.hh"
+#include "raslib/error.hh"
+
+
+#include <malloc.h>
+#include <string.h>
+
+r_Property::r_Property()
+	:	r_Meta_Object(),
+		myType(NULL)
+	{
+	}
+
+r_Property::r_Property(const char* newTypeName, const r_Base_Type& newType) 
+	:	r_Meta_Object(newTypeName),
+		myType((r_Base_Type*)newType.clone())
+	{
+	}
+
+r_Property::r_Property(const r_Property& oldObj)
+	:	r_Meta_Object(oldObj)
+	{
+	if (oldObj.myType)
+		myType = (r_Base_Type*)oldObj.myType->clone();
+	else	{
+		RMInit::logOut << "r_Property::r_Property(oldObj) property does not have a base type" << endl;
+		throw r_Error(PROPERTYTYPEHASNOELEMENTTYPE);
+		}
+	}
+
+const r_Property& 
+r_Property::operator=(const r_Property& oldObj)
+	{
+	// Gracefully handle self assignment
+	if (this != &oldObj)
+		{
+		r_Meta_Object::operator=(oldObj);
+		if (myType) 
+			{
+			delete myType;
+			myType = 0;
+			}
+
+		if (oldObj.myType)
+			myType = (r_Base_Type*)oldObj.myType->clone();
+		else	{
+			RMInit::logOut << "r_Property::operator=(oldObj) property does not have a base type" << endl;
+			throw r_Error(PROPERTYTYPEHASNOELEMENTTYPE);
+			}
+		}
+
+	return *this;
+	}
+
+r_Property::~r_Property()
+	{
+	if (myType)
+		delete myType;
+	}
+
+const r_Base_Type&
+r_Property::type_of() const
+	{
+	if (!myType)
+		{
+		RMInit::logOut << "r_Property::type_of() property does not have a base type" << endl;
+		throw r_Error(PROPERTYTYPEHASNOELEMENTTYPE);
+		}
+
+	return *myType;
+	}
+