/*
* Copyright (c) 1998-2009 Nokia Corporation and/or its subsidiary(-ies).
* All rights reserved.
* This component and the accompanying materials are made available
* under the terms of the License "Eclipse Public License v1.0"
* which accompanies this distribution, and is available
* at the URL "http://www.eclipse.org/legal/epl-v10.html".
*
* Initial Contributors:
* Nokia Corporation - initial contribution.
*
* Contributors:
*
* Description: 
*
*/


#include <x500dn.h>
#include <x520ava.h>
#include "X500dec.h"
#include <asn1enc.h>


EXPORT_C CX500DistinguishedName* CX500DistinguishedName::NewL(const CArrayPtr<CX520AttributeTypeAndValue>& aElements)
	{
	CX500DistinguishedName* self = CX500DistinguishedName::NewLC(aElements);
	CleanupStack::Pop();//self
	return self;
	}

EXPORT_C CX500DistinguishedName* CX500DistinguishedName::NewLC(const CArrayPtr<CX520AttributeTypeAndValue>& aElements)
	{
	CX500DistinguishedName* self = new(ELeave) CX500DistinguishedName;
	CleanupStack::PushL(self);
	self->ConstructL(aElements);
	return self;
	}

EXPORT_C CX500DistinguishedName* CX500DistinguishedName::NewL(const CX500DistinguishedName& aName)
	{
	CX500DistinguishedName* self = CX500DistinguishedName::NewLC(aName);
	CleanupStack::Pop();//self
	return self;
	}

EXPORT_C CX500DistinguishedName* CX500DistinguishedName::NewLC(const CX500DistinguishedName& aName)
	{
	CX500DistinguishedName* self = new(ELeave) CX500DistinguishedName;
	CleanupStack::PushL(self);
	self->ConstructL(static_cast<CArrayPtr<CX520AttributeTypeAndValue> &>(*(aName.iElements)));
	return self;
	}	

EXPORT_C CX500DistinguishedName* CX500DistinguishedName::NewL(const TDesC8& aBinaryData)
	{
	TInt pos = 0;
	return CX500DistinguishedName::NewL(aBinaryData, pos);
	}

EXPORT_C CX500DistinguishedName* CX500DistinguishedName::NewLC(const TDesC8& aBinaryData)
	{
	TInt pos = 0;
	return CX500DistinguishedName::NewLC(aBinaryData, pos);
	}

EXPORT_C CX500DistinguishedName* CX500DistinguishedName::NewL(const TDesC8& aBinaryData, TInt& aPos)
	{
	CX500DistinguishedName* self = CX500DistinguishedName::NewLC(aBinaryData, aPos);
	CleanupStack::Pop();
	return self;
	}

EXPORT_C CX500DistinguishedName* CX500DistinguishedName::NewLC(const TDesC8& aBinaryData, TInt& aPos)
	{
	CX500DistinguishedName* self = new(ELeave) CX500DistinguishedName;
	CleanupStack::PushL(self);
	self->ConstructL(aBinaryData, aPos);
	return self;
	}


EXPORT_C CX500DistinguishedName* CX500DistinguishedName::NewL(RReadStream& aStream)
	{
	CX500DistinguishedName* self = CX500DistinguishedName::NewLC(aStream);
	CleanupStack::Pop();//self
	return self;
	}

EXPORT_C CX500DistinguishedName* CX500DistinguishedName::NewLC(RReadStream& aStream)
	{
	CX500DistinguishedName* self = new(ELeave) CX500DistinguishedName;
	CleanupStack::PushL(self);
	self->ConstructL(aStream);
	return self;
	}

CX500DistinguishedName::CX500DistinguishedName()
	{
	}

void CX500DistinguishedName::ConstructL(const CArrayPtr<CX520AttributeTypeAndValue>& aElements)
	{
	iElements = new(ELeave) CArrayPtrFlat<CX520AttributeTypeAndValue>(1);
	TInt count = aElements.Count();
	for (TInt i=0;i < count; i++)
		{
		CX520AttributeTypeAndValue* ava = CX520AttributeTypeAndValue::NewLC(*(aElements[i]));
		iElements->AppendL(ava);
		CleanupStack::Pop();//ava
		}
	}

void CX500DistinguishedName::ConstructL(RReadStream& aStream)
	{
	iElements = new(ELeave) CArrayPtrFlat<CX520AttributeTypeAndValue>(1);
	InternalizeL(aStream);
	}

void CX500DistinguishedName::ConstructL(const TDesC8& aBinaryData, TInt& aPos)
	{
	TASN1DecGeneric dec(aBinaryData.Right(aBinaryData.Length() - aPos));
	dec.InitL();
	TInt end = aPos + dec.LengthDER();
	aPos += dec.LengthDERHeader();

	iElements = new(ELeave) CArrayPtrFlat<CX520AttributeTypeAndValue> (1);
	if (dec.Tag() != EASN1Sequence)
		{
		User::Leave(KErrArgument);
		}
	while (aPos < end)
		{
		TASN1DecGeneric rdn(aBinaryData.Right(aBinaryData.Length() - aPos));
		rdn.InitL();
		if (rdn.Tag() != EASN1Set)
			{
			User::Leave(KErrArgument);
			}
		TInt rdnEnd = rdn.LengthDER();
		TInt rdnPos = rdn.LengthDERHeader();//add on header
		while (rdnPos < rdnEnd)
			{
			CX520AttributeTypeAndValue* ava = CX520AttributeTypeAndValue::NewLC(rdn.Encoding(), rdnPos);
			iElements->AppendL(ava);
			CleanupStack::Pop();//ava
			}
		aPos += rdnEnd;
		}
	if (aPos != end)
		{
		User::Leave(KErrArgument);
		}
	}


EXPORT_C CX500DistinguishedName::~CX500DistinguishedName()
	{
	if (iElements != NULL)
		{
		iElements->ResetAndDestroy();
		delete iElements;
		}
	}

EXPORT_C TBool CX500DistinguishedName::ExactMatchL(const CX500DistinguishedName& aName) const
	{
	if (iElements->Count()!=aName.Count())
		return EFalse;
	return IsWithinSubtreeL(aName);
	}

EXPORT_C HBufC* CX500DistinguishedName::ExtractFieldL(const TDesC& aFieldName) const
	{
	TInt count = Count();
	for (TInt i = 0; i < count; i++)
		{
		const CX520AttributeTypeAndValue& ava = Element(i);
		if (ava.Type() == aFieldName)
			{
			return ava.ValueL();
			}
		}
	return NULL;
	}

EXPORT_C HBufC* CX500DistinguishedName::DisplayNameL() const
	{
	HBufC* res = ExtractFieldL(KX520CommonName);
	if (res == NULL)
		{
		res = ExtractFieldL(KX520OrganizationName);
		if (res == NULL)
			{
			res = HBufC::NewL(0);
			*res = KNullDesC;
			}
		}
	return res;		
	}

EXPORT_C TBool CX500DistinguishedName::IsWithinSubtreeL(const CX500DistinguishedName& aName) const
	{
	TInt elementsCount = aName.Count();
	for (TInt i = 0; i < elementsCount; ++i)
		{
		if (!MatchElementL(*(aName.iElements->At(i))))
			return EFalse;	
		}
	return ETrue;
	}

EXPORT_C TBool CX500DistinguishedName::MatchElementL(const CX520AttributeTypeAndValue& aElement) const
	{
	TInt count = iElements->Count();
	for (TInt i = 0; i < count; i++)
		{
		if (aElement.ExactMatchL(*iElements->At(i)))
			return ETrue;
		}
	return EFalse;
	}

EXPORT_C TInt CX500DistinguishedName::Count() const
	{
	return iElements->Count();
	}

EXPORT_C const CX520AttributeTypeAndValue& CX500DistinguishedName::Element(TInt aIndex) const
	{
	return *(iElements->At(aIndex));
	}

EXPORT_C void CX500DistinguishedName::ExternalizeL(RWriteStream& aStream) const
	{
	TInt count = iElements->Count();
	aStream.WriteInt32L(count);
	for (TInt i = 0; i < count; i++)
		{
		CX520AttributeTypeAndValue* ava = iElements->At(i);
		ava->ExternalizeL(aStream);
		}
	}

void CX500DistinguishedName::InternalizeL(RReadStream& aStream)
	{
	TInt count = aStream.ReadInt32L();
	for (TInt i = 0; i < count; i++)
		{
		CX520AttributeTypeAndValue* ava = CX520AttributeTypeAndValue::NewLC(aStream);
		iElements->AppendL(ava);
		CleanupStack::Pop();
		}
	}

EXPORT_C CASN1EncSequence* CX500DistinguishedName::EncodeASN1LC() const
	{
	CASN1EncSequence* nameSeq = CASN1EncSequence::NewLC();
	TInt numEntries = Count();
	for(TInt i = 0; i < numEntries; i++)
		{
		// Each attribute pair has to be enclosed in a SET-OF 
		// and SEQUENCE-OF
		CASN1EncSequence* set = CASN1EncSequence::NewLC();
		// This conversion of a sequence into a set presumably 
		// works if the set is going to contain just one child 
		// item, because otherwise order of child items in a 
		// SET-OF becomes important.
		set->SetTag(EASN1Set, EUniversal);
		CASN1EncSequence* attr = Element(i).EncodeASN1LC();
		set->AddAndPopChildL(attr);
		nameSeq->AddAndPopChildL(set);
		}
	return nameSeq;
	}

EXPORT_C CASN1EncSequence* CX500DistinguishedName::EncodeASN1L() const
	{
	CASN1EncSequence* nameSeq = EncodeASN1LC();
	CleanupStack::Pop(nameSeq);
	return nameSeq;
	}