C++ (Cpp) ICCItem::Reset Examples

Example #1

File: CodeChain.cpp Project: bmer/Alchemy

ICCItem *CCodeChain::CreateFilledVector(double dScalar, TArray<int> vShape)

//	CreateFilledVector
//
//	Creates a vector filled with the given scalar

{
	int i;
	int iSize = 0;
	CCVector *pVector;
	ICCItem *pError;
	ICCItem *pItem;

	for (i = 0; i < vShape.GetCount(); i++)
	{
		if (i == 0)
			iSize = vShape[0];
		else
			iSize = iSize*vShape[i];
	};

	pItem = m_VectorPool.CreateItem(this);
	if (pItem->IsError())
		return pItem;
	pItem->Reset();
	pVector = dynamic_cast<CCVector *>(pItem);

	pVector->SetContext(this);
	pVector->SetShape(this, vShape);

	pError = pVector->SetDataArraySize(this, iSize);
	if (pError->IsError())
	{
		delete pVector;
		return pError;
	}

	TArray<double> vContentArray = pVector->GetDataArray();
	for (i = 0; i < iSize; i++)
	{
		vContentArray[i] = dScalar;
	};
	pVector->SetArrayData(this, vContentArray);

	
	pError->Discard(this);
	//	Done
	return pVector->Reference();
}

Example #2

File: CodeChain.cpp Project: bmer/Alchemy

ICCItem *CCodeChain::CreateSymbolTable (void)

//	CreateSymbolTable
//
//	Creates an item

	{
	ICCItem *pItem;

	pItem = m_SymbolTablePool.CreateItem(this);
	if (pItem->IsError())
		return pItem;

	pItem->Reset();
	return pItem->Reference();
	}

Example #3

File: CodeChain.cpp Project: bmer/Alchemy

ICCItem *CCodeChain::CreateLinkedList (void)

//	CreateLinkedList
//
//	Creates an item

	{
	ICCItem *pItem;

	pItem = m_ListPool.CreateItem(this);
	if (pItem->IsError())
		return pItem;

	pItem->Reset();
	return pItem->Reference();
	}

Example #4

File: CodeChain.cpp Project: bmer/Alchemy

ICCItem *CCodeChain::CreateVectorGivenContent(TArray<int> vShape, TArray<double> vContentArray)

//	CreateVectorGivenContent (new)
//
//	Creates a vector with given shape and content

{
	int i;
	int iSize = 0;
	CCVector *pVector;
	ICCItem *pError;
	ICCItem *pItem;

	for (i = 0; i < vShape.GetCount(); i++)
	{
		iSize = iSize * vShape[i];
	};

	pItem = m_VectorPool.CreateItem(this);
	if (pItem->IsError())
		return pItem;
	pItem->Reset();
	pVector = dynamic_cast<CCVector *>(pItem);
	pVector->SetContext(this);

	pError = pVector->SetDataArraySize(this, iSize);
	if (pError->IsError())
	{
		delete pVector;
		return pError;
	}

	pVector->SetShape(this, vShape);

	pVector->SetArrayData(this, vContentArray);

	//	Done
	pError->Discard(this);
	return pVector->Reference();
}

Example #5

File: CodeChain.cpp Project: bmer/Alchemy

ICCItem *CCodeChain::CreateVectorGivenContent(TArray<int> vShape, CCLinkedList *pContentList)

//	CreateVectorGivenContent (new)
//
//	Creates a vector with given shape and content

{
	int i;
	CCVector *pVector;
	ICCItem *pItem;

	pItem = m_VectorPool.CreateItem(this);
	if (pItem->IsError())
		return pItem;
	pItem->Reset();

	pVector = dynamic_cast<CCVector *>(pItem);
	pVector->SetContext(this);

	pVector->SetShape(this, vShape);

	pItem = pContentList->GetFlattened(this, NULL);
	if (pItem->IsError())
	{ 
		pVector->Discard(this);
		return pItem;
	};
	CCLinkedList *pFlattenedContentList = dynamic_cast<CCLinkedList *>(pItem);

	TArray<double> vDataArray;
	for (i = 0; i < pFlattenedContentList->GetCount(); i++)
	{
		vDataArray.Insert(pFlattenedContentList->GetElement(i)->GetDoubleValue());
	};
	pVector->SetArrayData(this, vDataArray);

	//	Done
	pFlattenedContentList->Discard(this);
	return pVector->Reference();
}

Example #6

File: CodeChain.cpp Project: bmer/Alchemy

ICCItem *CCodeChain::UnstreamItem (IReadStream *pStream)

//	UnstreamItem
//
//	Load the item from an open stream

	{
	ALERROR error;
	DWORD dwClass;
	ICCItem *pItem;
	ICCItem *pError;

	//	Read the object class

	if (error = pStream->Read((char *)&dwClass, sizeof(dwClass), NULL))
		return CreateSystemError(error);

	//	Instantiation an object of the right class

	if (dwClass == OBJID_CCINTEGER)
		pItem = m_IntegerPool.CreateItem(this);
	else if (dwClass == OBJID_CCDOUBLE)
		pItem = m_DoublePool.CreateItem(this);
	else if (dwClass == OBJID_CCSTRING)
		pItem = m_StringPool.CreateItem(this);
	else if (dwClass == OBJID_CCLINKEDLIST)
		pItem = m_ListPool.CreateItem(this);
	else if (dwClass == OBJID_CCPRIMITIVE)
		pItem = m_PrimitivePool.CreateItem(this);
	else if (dwClass == OBJID_CCNIL)
		pItem = m_pNil;
	else if (dwClass == OBJID_CCTRUE)
		pItem = m_pTrue;
	else if (dwClass == OBJID_CCSYMBOLTABLE)
		pItem = m_SymbolTablePool.CreateItem(this);
	else if (dwClass == OBJID_CCLAMBDA)
		pItem = m_LambdaPool.CreateItem(this);
	else if (dwClass == OBJID_CCATOMTABLE)
		pItem = m_AtomTablePool.CreateItem(this);
	else if (dwClass == OBJID_CCVECTOROLD)
		{
		pItem = new CCVectorOld(this);
		if (pItem == NULL)
			pItem = CreateMemoryError();
		}
	else if (dwClass == OBJID_CCVECTOR)
		pItem = m_VectorPool.CreateItem(this);
	else
		return CreateError(LITERAL("Unknown item type"), NULL);

	//	Check for error

	if (pItem->IsError())
		return pItem;

	//	We need to increment the reference here because the native
	//	create does not.

	pItem->Reset();
	pItem->Reference();

	//	Let the item load the rest

	pError = pItem->Unstream(this, pStream);
	if (pError->IsError())
		{
		pItem->Discard(this);
		return pError;
		}

	pError->Discard(this);

	//	Done

	return pItem;
	}