sl@0: /*
sl@0: * Copyright (c) 1997-2009 Nokia Corporation and/or its subsidiary(-ies).
sl@0: * All rights reserved.
sl@0: * This component and the accompanying materials are made available
sl@0: * under the terms of "Eclipse Public License v1.0"
sl@0: * which accompanies this distribution, and is available
sl@0: * at the URL "http://www.eclipse.org/legal/epl-v10.html".
sl@0: *
sl@0: * Initial Contributors:
sl@0: * Nokia Corporation - initial contribution.
sl@0: *
sl@0: * Contributors:
sl@0: *
sl@0: * Description: 
sl@0: *
sl@0: */
sl@0: 
sl@0: 
sl@0: #include <e32std.h>
sl@0: #include <e32base.h>
sl@0: 
sl@0: #include <s32strm.h>
sl@0: #include <s32stor.h>
sl@0: 
sl@0: #include "FLDDEF.H"
sl@0: #include "FLDSET.H"
sl@0: #include "FLDARRAY.H"
sl@0: 
sl@0: #include "FLDSTD.H"
sl@0: 
sl@0: 
sl@0: 
sl@0: EXPORT_C TFieldMapExternalizer::TFieldMapExternalizer(const CStoreMap& aMap)
sl@0: 	: iMap(&aMap)
sl@0: 	{}
sl@0: 
sl@0: EXPORT_C void TFieldMapExternalizer::ExternalizeL(const TStreamRef& aRef,RWriteStream& aStream) const
sl@0: // Write the stream id bound to aRef to aStream. If not bound, write KNullStreamId
sl@0: //
sl@0: 	{
sl@0: 	TSwizzleC<TAny> swizzle=aRef;
sl@0: 	aStream<<iMap->At(swizzle);
sl@0: 	}
sl@0: 
sl@0: 
sl@0: EXPORT_C TStreamId CTextFieldSet::StoreL(CStreamStore& aStore)const
sl@0: // Save the fields and the fieldSet in their own streams
sl@0: // Encapsulates the storing of its components.
sl@0: //
sl@0: 	{
sl@0: 	CStoreMap* map=CStoreMap::NewLC(aStore);
sl@0: 	StoreFieldsL(aStore,*map);  // binds id's to swizzles
sl@0: //
sl@0: 	// create custom externalizer over the map
sl@0: 	TFieldMapExternalizer fMap(*map);
sl@0: 	RStoreWriteStream stream(fMap);
sl@0: 	TStreamId id=stream.CreateLC(aStore);
sl@0: 	stream<< *this;
sl@0: 	stream.CommitL();
sl@0: 	CleanupStack::PopAndDestroy();  // stream
sl@0: //
sl@0: 	map->Reset();
sl@0: 	CleanupStack::PopAndDestroy();  // map
sl@0: 	return id;
sl@0: 	}
sl@0: 
sl@0: 
sl@0: EXPORT_C void CTextFieldSet::StoreFieldsL(CStreamStore& aStore,CStoreMap& aMap)const
sl@0: // Stores all fields in the set
sl@0: //
sl@0: 	{StoreFieldsL(aStore,aMap,iFieldArray);}
sl@0: 
sl@0: 
sl@0: void CTextFieldSet::StoreFieldsL(CStreamStore& aStore,CStoreMap& aMap,CArrayFixSeg<TTextFieldEntry>* aArray)const
sl@0: // Stores all fields contained in the set provided
sl@0: //
sl@0: 	{
sl@0: 	__TEST_INVARIANT;
sl@0: 
sl@0: 	for (TInt i=0 ; i<(aArray->Count()-1) ; i++)
sl@0: 		{
sl@0: 		TStreamId id=(*aArray)[i].iFieldHeader.iField->StoreL(aStore);
sl@0: 		if (id!=KNullStreamId)
sl@0: 			aMap.BindL((*aArray)[i].iFieldHeader.iField,id);
sl@0: 		}
sl@0: 	}
sl@0: 
sl@0: 
sl@0: EXPORT_C void CTextFieldSet::ExternalizeL(RWriteStream& aStream)const
sl@0: 	{
sl@0: 	__TEST_INVARIANT;
sl@0: 
sl@0: 	ExternalizeL(aStream,iFieldArray);
sl@0: 	}
sl@0: 
sl@0: 
sl@0: void CTextFieldSet::ExternalizeL(RWriteStream& aStream,CArrayFixSeg<TTextFieldEntry>* aArray)const
sl@0: 	{
sl@0: 	TInt numFieldEntries = aArray->Count();
sl@0: 	aStream.WriteInt32L(numFieldEntries);
sl@0: 	// write out fields
sl@0: 	for (TInt i=0 ; i<numFieldEntries-1 ; i++)
sl@0: 		aStream<< (*aArray)[i];
sl@0: 	// write out last entry in array: the bit after the last field
sl@0: 	aStream.WriteInt32L((*aArray)[numFieldEntries-1].iPreFieldLen);
sl@0: 	}
sl@0: 
sl@0: 
sl@0: EXPORT_C void CTextFieldSet::RestoreL(const CStreamStore& aFieldStore,TStreamId aStreamId)
sl@0: 	{
sl@0: 	// reset the array and stream into it
sl@0: 	Reset();
sl@0: 	DoRestoreL(aFieldStore,aStreamId);
sl@0: 	}
sl@0: 
sl@0: 
sl@0: EXPORT_C void CTextFieldSet::RestoreFieldsL(const CStreamStore& aFieldStore)
sl@0: 	{
sl@0: 	DoRestoreFieldsL(iFieldArray,aFieldStore); // restore the fields individually from their own streams
sl@0: 	}
sl@0: 
sl@0: 
sl@0: void CTextFieldSet::DoRestoreL(const CStreamStore& aFieldStore,TStreamId aStreamId)
sl@0: // Restores a field set and its associated fields from the store provded.
sl@0: // 
sl@0: 	{
sl@0: 	__ASSERT_ALWAYS(iFieldArray->Count()==1,Panic(EArrayNotEmptyOnRestore)); // array must be empty
sl@0: 	__ASSERT_ALWAYS((*iFieldArray)[0].iPreFieldLen==0,Panic(EArrayNotEmptyOnRestore));
sl@0: 
sl@0: 	// retrieve the headstream from the store
sl@0: 	RStoreReadStream stream;
sl@0: 	stream.OpenLC(aFieldStore,aStreamId);
sl@0: 	// restore the set, then the individual fields
sl@0: 	stream>> *this;  // internalize the field set (the headers)
sl@0: 	CleanupStack::PopAndDestroy(); // stream
sl@0: 	DoRestoreFieldsL(iFieldArray,aFieldStore); // restore the fields individually from their own streams
sl@0: 	}
sl@0: 
sl@0: 
sl@0: EXPORT_C void CTextFieldSet::InternalizeL(RReadStream& aStream)
sl@0: 	{
sl@0: 	InternalizeL(iFieldArray,aStream);
sl@0: 
sl@0: 	__TEST_INVARIANT;
sl@0: 	}
sl@0: 
sl@0: 
sl@0: void CTextFieldSet::InternalizeL(CArrayFixSeg<TTextFieldEntry>* aArray,RReadStream& aStream)
sl@0: 	{// assume the array is empty
sl@0: 	TInt numFieldEntries = aStream.ReadInt32L();
sl@0: 	// read in the fields
sl@0: 	TTextFieldEntry entry;
sl@0: 	for (TInt i=0 ; i<numFieldEntries-1 ; i++)
sl@0: 		{
sl@0: 		aStream>> entry;
sl@0: 		InsertEntryL(i,entry,aArray); // insert new entry
sl@0: 		}
sl@0: 	// read in the last entry: the bit after the last field. This will not contain a field
sl@0: 	(*aArray)[numFieldEntries-1].iPreFieldLen = aStream.ReadInt32L();
sl@0: 	}
sl@0: 
sl@0: 
sl@0: void CTextFieldSet::DoRestoreFieldsL(CArrayFixSeg<TTextFieldEntry>* aArray,const CStreamStore& aFieldStore,TInt aStartIndex)
sl@0: // This fn is called after all FieldHeaders have been internalized - the Swizzles hold the stream id's.
sl@0: // One by one the fields are created (with the factory) and then have their settings streamed in from the store.
sl@0: // If no factory exists all fields are converted to text.
sl@0: //
sl@0: 	{
sl@0: 	TInt ii=aArray->Count()-2;  // -2 because we skip the last (empty) entry
sl@0: 	while (ii>=aStartIndex)
sl@0: 		{
sl@0: 		if ((*aArray)[ii].iFieldHeader.iField.IsId()) 
sl@0: 			{// restore the field only if it isn't the very last (dummy) entry
sl@0: 			if (iFieldFactory==NULL)
sl@0: 				// no factory - convert the field to text
sl@0: 				DeleteFieldEntry(aArray,ii);
sl@0: 			else
sl@0: 				{
sl@0: 				TStreamId id = (*aArray)[ii].iFieldHeader.iField.AsId();
sl@0: 				(*aArray)[ii].iFieldHeader.iField = iFieldFactory->NewFieldL((*aArray)[ii].iFieldHeader.iFieldType);
sl@0: 				if ((*aArray)[ii].iFieldHeader.iField!=NULL)
sl@0: 					(*aArray)[ii].iFieldHeader.iField->RestoreL(aFieldStore,id);
sl@0: 				else
sl@0: 					DeleteFieldEntry(aArray,ii); // handle "field type not recognised" by converting field to text
sl@0: 				}
sl@0: 			}
sl@0: 		ii--;
sl@0: 		}
sl@0: 	}
sl@0: 
sl@0: 
sl@0: /***************************************** cut & paste *******************************************/
sl@0: 
sl@0: 
sl@0: EXPORT_C TStreamId CTextFieldSet::CopyToStoreL(CStreamStore& aStore,TInt aPos,TInt aLength)const
sl@0: // Copy any fields in the selected region to the specified store, returning the id of the head-stream.
sl@0: //
sl@0: 	{
sl@0: 	__TEST_INVARIANT;
sl@0: 	__ASSERT_ALWAYS(aPos>=0,Panic(EPosOutOfRange));
sl@0: 	__ASSERT_ALWAYS(aLength>=0,Panic(ENegativeRange));
sl@0: 	__ASSERT_DEBUG((aPos+aLength)<=CharCount(),Panic(EPosOutOfRange));
sl@0: 
sl@0: 	// Create a store map and store the fields themselves
sl@0: 	CStoreMap* map=CStoreMap::NewLC(aStore);
sl@0: 	CopyComponentsL(aStore,*map,aPos,aLength);
sl@0: 
sl@0: 	// Create a head-stream in which to store the field entries and do so
sl@0: 	RStoreWriteStream stream(*map);
sl@0: 	TStreamId id=stream.CreateLC(aStore);
sl@0: 	CopyToStreamL(stream,aPos,aLength);
sl@0: 
sl@0: 	// tidy up
sl@0: 	stream.CommitL();
sl@0: 	map->Reset();
sl@0: 	CleanupStack::PopAndDestroy(2); // map, stream
sl@0: 	return id;
sl@0: 	}
sl@0: 
sl@0: 
sl@0: EXPORT_C void CTextFieldSet::CopyComponentsL(CStreamStore& aStore,CStoreMap& aMap,TInt aPos,TInt aLength)const
sl@0: // Stores all fields in the set
sl@0: //
sl@0: 	{
sl@0: 	__TEST_INVARIANT;
sl@0: 	__ASSERT_ALWAYS(aPos>=0,Panic(EPosOutOfRange));
sl@0: 	__ASSERT_ALWAYS(aLength>=0,Panic(ENegativeRange));
sl@0: 	__ASSERT_DEBUG((aPos+aLength)<=CharCount(),Panic(EPosOutOfRange));
sl@0: 
sl@0: 	// Create an array of the fields to be cut/copied
sl@0: 	CArrayFixSeg<TTextFieldEntry>* tempArray = new(ELeave) CArrayFixSeg<TTextFieldEntry>(KFieldArrayGranularity);
sl@0: 	CleanupStack::PushL(tempArray);
sl@0: 	CopyToArrayL(tempArray,aPos,aLength);
sl@0: 
sl@0: 	// stream the required fields in their own streams
sl@0: 	StoreFieldsL(aStore,aMap,tempArray);
sl@0: 	CleanupStack::PopAndDestroy(); // tempArray
sl@0: 	}
sl@0: 
sl@0: 
sl@0: EXPORT_C void CTextFieldSet::CopyToStreamL(RWriteStream& aStream,TInt aPos,TInt aLength)const
sl@0: // Stores all fields in the set
sl@0: //
sl@0: 	{
sl@0: 	__TEST_INVARIANT;
sl@0: 	__ASSERT_ALWAYS(aPos>=0,Panic(EPosOutOfRange));
sl@0: 	__ASSERT_ALWAYS(aLength>=0,Panic(ENegativeRange));
sl@0: 	__ASSERT_DEBUG((aPos+aLength)<=CharCount(),Panic(EPosOutOfRange));
sl@0: 
sl@0: 	// Create an array of the fields to be cut/copied
sl@0: 	CArrayFixSeg<TTextFieldEntry>* tempArray = new(ELeave) CArrayFixSeg<TTextFieldEntry>(KFieldArrayGranularity);
sl@0: 	CleanupStack::PushL(tempArray);
sl@0: 	CopyToArrayL(tempArray,aPos,aLength);
sl@0: 
sl@0: 	// stream the field entries in the temp array
sl@0: 	ExternalizeL(aStream,tempArray);
sl@0: 	CleanupStack::PopAndDestroy(); // tempArray
sl@0: 	}
sl@0: 
sl@0: 
sl@0: void CTextFieldSet::CopyToArrayL(CArrayFixSeg<TTextFieldEntry>* aArray,TInt aPos,TInt aLength)const
sl@0: 	{
sl@0: 	TInt index; TInt offset;
sl@0: 	if (InField(aPos,index,offset))
sl@0: 		offset += (*iFieldArray)[index].iPreFieldLen; // make offset relative to start of entry
sl@0: 	// split first entry in range
sl@0: 	TTextFieldEntry entry = SplitEntry(index,offset,aLength);
sl@0: 	index++;
sl@0: 	TInt charsCopied=EntryLen(entry);
sl@0: 	// split second if neccessary
sl@0: 	if ((!entry.iFieldHeader.iField)&&(charsCopied<aLength))
sl@0: 		{
sl@0: 		TInt preFieldLen = entry.iPreFieldLen;
sl@0: 		entry = SplitEntry(index,0,aLength-preFieldLen);
sl@0: 		entry.iPreFieldLen += preFieldLen;
sl@0: 		charsCopied = EntryLen(entry);
sl@0: 		index++;
sl@0: 		}
sl@0: 	((CTextFieldSet*)this)->AppendEntryL(entry,aArray); // append the first entry to the storage array
sl@0: 	// write out all whole entries
sl@0: 	while (charsCopied<aLength)
sl@0: 		{
sl@0: 		if ((charsCopied+EntryLen(index))<=aLength)
sl@0: 			((CTextFieldSet*)this)->AppendEntryL((*iFieldArray)[index],aArray); 
sl@0: 		charsCopied += EntryLen(index);
sl@0: 		index++;
sl@0: 		}
sl@0: 	// split last entry if neccessary
sl@0: 	if (charsCopied>aLength)
sl@0: 		{// The last entry needs to be split
sl@0: 		// first get back to the beginning of the entry
sl@0: 		index--;
sl@0: 		charsCopied -= EntryLen(index);
sl@0: 		entry = SplitEntry(index,0,aLength-charsCopied); // split up the last entry as required
sl@0: 		((CTextFieldSet*)this)->AppendEntryL(entry,aArray); // append the last entry to the storage array
sl@0: 		}
sl@0: 	// add an empty last entry if neccessary
sl@0: 	TInt numFieldEntries = aArray->Count();
sl@0: 	if (((*aArray)[numFieldEntries-1].iFieldHeader.iField) || ((*aArray)[numFieldEntries-1].iFieldValueLen!=0))
sl@0: 		{
sl@0: 		entry.iPreFieldLen = 0;
sl@0: 		entry.iFieldValueLen = 0;
sl@0: 		entry.iFieldHeader.iFieldType = KNullUid;
sl@0: 		entry.iFieldHeader.iField = NULL;
sl@0: 		((CTextFieldSet*)this)->AppendEntryL(entry,aArray);
sl@0: 		numFieldEntries++;
sl@0: 		}
sl@0: 	}
sl@0: 
sl@0: 
sl@0: EXPORT_C void CTextFieldSet::PasteFromStoreL(const CStreamStore& aFieldStore,TStreamId aStreamId,TInt aPos,TInt aMaxLen)
sl@0: // Paste from aStore into the document at insert position aPos.
sl@0: // Optionally the pasted text can be clipped to a maximum length aMaxLen.
sl@0: //
sl@0: 	{
sl@0: 	__ASSERT_ALWAYS(aPos>=0,Panic(EPosOutOfRange));
sl@0: 	__ASSERT_DEBUG(aPos<=CharCount(),Panic(EPosOutOfRange));
sl@0: 
sl@0: 	// retrieve the headstream from the store
sl@0: 	RStoreReadStream stream;
sl@0: 	stream.OpenLC(aFieldStore,aStreamId);
sl@0: 
sl@0: 	// restore the set...
sl@0: 	PasteFromStreamL(stream,aPos,aMaxLen); // internalize the field set (the headers)
sl@0: 	CleanupStack::PopAndDestroy(); // stream
sl@0: 
sl@0: 	// ...then the individual fields
sl@0: 	PasteComponentsL(aFieldStore,aPos); // restore the fields individually from their own streams
sl@0: 	}
sl@0: 
sl@0: 
sl@0: EXPORT_C void CTextFieldSet::PasteFromStreamL(RReadStream& aStream,TInt aPos,TInt aMaxLen)
sl@0: // streams the field entries into a temporary array, which is returned. 
sl@0: // PasteComponents() must be called after this to actually carry out the paste...
sl@0: 	{
sl@0: 	// create a temporary array to stream in to, inserting the first entry
sl@0: 	CArrayFixSeg<TTextFieldEntry>* tempFieldArray = new(ELeave) CArrayFixSeg<TTextFieldEntry>(KFieldArrayGranularity);
sl@0: 	CleanupStack::PushL(tempFieldArray);
sl@0: 	AddInitialFieldEntryL(tempFieldArray,0);
sl@0: 
sl@0: 	// internalize the field entries
sl@0: 	InternalizeL(tempFieldArray,aStream);
sl@0: 
sl@0: 	// trim off any entries that lie beyond aMaxLength
sl@0: 	if (aMaxLen!=ENoPasteLimit)
sl@0: 		{// if aMaxLen is not ENoPasteLimit discard the excess fields
sl@0: 		__ASSERT_ALWAYS(aMaxLen>=0,Panic(ELengthOutOfRange));
sl@0: 		//
sl@0: 		TInt length=0;
sl@0: 		TInt i=0;
sl@0: 		for (i=0 ; (length<aMaxLen)&&(i<tempFieldArray->Count()) ; i++)
sl@0: 			length += EntryLen((*tempFieldArray)[i]);
sl@0: 		if (aMaxLen==0)
sl@0: 			{// make first entry zero len, delete all others
sl@0: 			i++;
sl@0: 			(*tempFieldArray)[i-1].iPreFieldLen = 0;
sl@0: 			}
sl@0: 		else if (length>aMaxLen)
sl@0: 			// truncate the last field in range
sl@0: 			(*tempFieldArray)[i-1].iPreFieldLen += (*tempFieldArray)[i-1].iFieldValueLen-(length-aMaxLen);
sl@0: 		else if ((length==aMaxLen) && ((*tempFieldArray)[i-1].iFieldHeader.iField!=NULL))
sl@0: 			{// if the terminating entry has a field add a zero length entry, the mandatory last entry
sl@0: 			i++;
sl@0: 			(*tempFieldArray)[i-1].iPreFieldLen = 0;
sl@0: 			}
sl@0: 		// ensure the last entry is of the correct format
sl@0: 		(*tempFieldArray)[i-1].iFieldValueLen = 0;
sl@0: 		(*tempFieldArray)[i-1].iFieldHeader.iFieldType = KNullUid;
sl@0: 		(*tempFieldArray)[i-1].iFieldHeader.iField = NULL;
sl@0: 		// delete all the fields wholely out of range
sl@0: 		for (TInt index=i ; index<tempFieldArray->Count() ; index++)
sl@0: 			(*tempFieldArray)[index].iFieldHeader.iField = NULL;
sl@0: 		tempFieldArray->Delete(i,tempFieldArray->Count()-i); // pos,count
sl@0: 		}
sl@0: 
sl@0: 	DoPasteL(tempFieldArray,aPos);
sl@0: 	CleanupStack::PopAndDestroy(); // tempFieldArray
sl@0: 	}
sl@0: 
sl@0: 
sl@0: EXPORT_C void CTextFieldSet::PasteComponentsL(const CStreamStore& aFieldStore,TInt aPos)
sl@0: 	{
sl@0: 	// Restore the fields individually from their own streams
sl@0: 	TInt index; TInt offset;
sl@0: 	// We don't need to make any difference between in and not in field situation here
sl@0: 	// all we need is the index
sl@0: 	TBool isInField = InField(aPos,index,offset);
sl@0: 	DoRestoreFieldsL(iFieldArray,aFieldStore,index); 
sl@0: 	}
sl@0: 
sl@0: 
sl@0: void CTextFieldSet::DoPasteL(CArrayFixSeg<TTextFieldEntry>* aSourceArray,TInt aPos)
sl@0: // Insert into this instance, at character position aPos, the entire (field entry) contents of the field array aSourceArray.
sl@0: // All iField objects in aSourceArray are ID's at this time.
sl@0: //
sl@0: 	{
sl@0: 	// are we inserting into a field?
sl@0: 	TInt numFieldEntries = aSourceArray->Count();
sl@0: 	TInt index; TInt offset;
sl@0: 	
sl@0: 	TBool inField = InField(aPos,index,offset);
sl@0: 	// record the rollback info
sl@0: 	RecordRollbackInfoL(index);
sl@0: 	if ((inField)&&(offset!=0))
sl@0: 		{// everything we insert will become text - no chance of leaving
sl@0: 		// insert all but last entry
sl@0: 		TInt i=0;
sl@0: 		for (; i<numFieldEntries-1 ; i++)
sl@0: 			{// copy text (no need to delete field)
sl@0: 			(*iFieldArray)[index].iFieldValueLen += EntryLen((*aSourceArray)[i]);
sl@0: 			}
sl@0: 		// read in the last entry (has no field attached)
sl@0: 		(*iFieldArray)[index].iFieldValueLen += (*aSourceArray)[i].iPreFieldLen;
sl@0: 		}
sl@0: 	else
sl@0: 		{// else split the entry we are going to bisect - this may leave
sl@0: 		if (inField)
sl@0: 			offset = (*iFieldArray)[index].iPreFieldLen; // must be at start of field
sl@0: 		if (numFieldEntries>1)
sl@0: 			{// read 1st field & carry out split.
sl@0: 			InsertEntryL(index,(*aSourceArray)[0]); // if this leaves the model will be intact
sl@0: 			(*iFieldArray)[index].iPreFieldLen += offset;
sl@0: 			(*iFieldArray)[index+1].iPreFieldLen -= offset;
sl@0: 			index++;
sl@0: 			}
sl@0: 		// insert all other fields except last.
sl@0: 		for (TInt i=1 ; i<numFieldEntries-1 ; i++)
sl@0: 			{
sl@0: 			TRAPD(ret,\
sl@0: 				InsertEntryL(index,(*aSourceArray)[i]));
sl@0: 			if (ret!=KErrNone)
sl@0: 				{// do rollback, then propagate leave
sl@0: 				RollbackPaste();
sl@0: 				User::Leave(ret);
sl@0: 				}
sl@0: 			index++;
sl@0: 			}
sl@0: 		// join last field up to successor
sl@0: 		(*iFieldArray)[index].iPreFieldLen += (*aSourceArray)[numFieldEntries-1].iPreFieldLen;
sl@0: 		}
sl@0: 
sl@0: 	__TEST_INVARIANT;
sl@0: 	}
sl@0: 
sl@0: 
sl@0: void CTextFieldSet::RecordRollbackInfoL(TInt aIndex)
sl@0: 	{
sl@0: 	delete iRollbackInfo;
sl@0: 	iRollbackInfo = new(ELeave) TRollbackInfo();
sl@0: 	iRollbackInfo->iEntryNum = aIndex;
sl@0: 	iRollbackInfo->iPreFieldLen = (*iFieldArray)[aIndex].iPreFieldLen;
sl@0: 	iRollbackInfo->iFieldValueLen = (*iFieldArray)[aIndex].iFieldValueLen;
sl@0: 	iRollbackInfo->iTotalEntries = iFieldArray->Count();
sl@0: 	}
sl@0: 
sl@0: 
sl@0: EXPORT_C void CTextFieldSet::RollbackPaste()
sl@0: // Carries out rollback from a paste function
sl@0: // This will only have an effect after a PasteFromStream() has been called
sl@0: // nb it would be distasterous if this were called at random some time after a paste!
sl@0: //
sl@0: 	{
sl@0: 	if (!iRollbackInfo)
sl@0: 		return; // nothing to do
sl@0: 	// remove added entries from array
sl@0: 	TInt entriesToRemove=iFieldArray->Count()-iRollbackInfo->iTotalEntries;
sl@0: 	TInt i=0;
sl@0: 	for (i=iRollbackInfo->iEntryNum ; i<iRollbackInfo->iEntryNum+entriesToRemove ; i++)
sl@0: 		{
sl@0: 		if ((*iFieldArray)[i].iFieldHeader.iField.IsPtr())
sl@0: 			delete (*iFieldArray)[i].iFieldHeader.iField.AsPtr(); // Delete the textField object
sl@0: 		iFieldArray->Delete(i);
sl@0: 		}
sl@0: 	// now right num entries, but wrong length - use backup info to correct length
sl@0: 	(*iFieldArray)[i].iPreFieldLen = iRollbackInfo->iPreFieldLen;
sl@0: 	(*iFieldArray)[i].iFieldValueLen = iRollbackInfo->iFieldValueLen;
sl@0: 
sl@0: 	__ASSERT_DEBUG(iFieldArray->Count()==iRollbackInfo->iTotalEntries,Panic(EDebug));
sl@0: 	delete iRollbackInfo;
sl@0: 	}
sl@0: