/* -*- Mode: C++; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*-
 *
 * The contents of this file are subject to the Netscape Public
 * License Version 1.1 (the "License"); you may not use this file
 * except in compliance with the License. You may obtain a copy of
 * the License at http://www.mozilla.org/NPL/
 *
 * Software distributed under the License is distributed on an "AS
 * IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
 * implied. See the License for the specific language governing
 * rights and limitations under the License.
 *
 * The Original Code is Mozilla Communicator client code.
 *
 * The Initial Developer of the Original Code is Netscape Communications
 * Corporation.  Portions created by Netscape are
 * Copyright (C) 1998 Netscape Communications Corporation. All
 * Rights Reserved.
 *
 * Contributor(s): 
 *  Simon Fraser <sfraser@netscape.com>
 */

#include "nsAEUtils.h"
#include "nsAETokens.h"
#include "nsAECoreClass.h"
#include "nsAEApplicationClass.h"

#include "nsAEDocumentClass.h"


/*----------------------------------------------------------------------------
	AEDocumentClass 
	
----------------------------------------------------------------------------*/
AEDocumentClass::AEDocumentClass()
:	AEGenericClass(cDocument, typeNull)
{
}


/*----------------------------------------------------------------------------
	~AEDocumentClass 
	
----------------------------------------------------------------------------*/
AEDocumentClass::~AEDocumentClass()
{
}

#pragma mark -

/*----------------------------------------------------------------------------
	PropertyFromApplicationAccessor 
	
----------------------------------------------------------------------------*/
pascal OSErr AEDocumentClass::PropertyAccessor(		DescType			desiredClass,
											const AEDesc*		containerToken,
											DescType			containerClass,
											DescType			keyForm,
											const AEDesc*		keyData,
											AEDesc*			resultToken,
											long 				refCon)
{
	AEDocumentClass*	docClass = reinterpret_cast<AEDocumentClass *>(refCon);
	if (!docClass) return paramErr;
	
	OSErr		err = noErr;
	
	try
	{
		docClass->GetProperty(desiredClass, containerToken, containerClass, keyForm, keyData, resultToken);
	}
	catch(OSErr catchErr)
	{
		err = catchErr;
	}
	catch(...)
	{
		err = paramErr;
	}
	
	return err;
}

/*----------------------------------------------------------------------------
	GetItemFromContainer 
	
	Not appropriate for the application
----------------------------------------------------------------------------*/
void AEDocumentClass::GetItemFromContainer(		DescType			desiredClass,
										const AEDesc*		containerToken,
										DescType			containerClass, 
										DescType			keyForm,
										const AEDesc*		keyData,
										AEDesc*			resultToken)
{
	ThrowIfOSErr(errAEEventNotHandled);
}

/*----------------------------------------------------------------------------
	GetDocumentFromApp 
	
----------------------------------------------------------------------------*/
void AEDocumentClass::GetDocumentFromApp(		DescType			desiredClass,		// cDocument
										const AEDesc*		containerToken,	// null container
										DescType			containerClass,  	 // cApplication
										DescType			keyForm,
										const AEDesc*		keyData,
										AEDesc*			resultToken)		// specified Document is returned in result
{
	OSErr				err			= noErr;
	DescType				keyDataType 	= keyData->descriptorType;
	long					index;
	long					numItems;
	Boolean				wantsAllItems	= false;
	StAEDesc 				startObject;	// These are used to resolve formRange
	StAEDesc 				stopObject;
	DocumentReference		document;
	Str63				documentName;
	CoreTokenRecord 		token;
	
	numItems = CountDocuments();

	switch (keyForm) 
	{
		case formName:											// Document by name
			{
				if (DescToPString(keyData, documentName, 63) != noErr)
				{
					err = errAECoercionFail;
				}
				else
				{
					document = GetDocumentByName(documentName);
					if (document == nil)
						err = errAENoSuchObject;
				}
			}
			break;
		
		case formAbsolutePosition:									// Document by number
			err = NormalizeAbsoluteIndex(keyData, &index, numItems, &wantsAllItems);
			if ((err == noErr) && (wantsAllItems == false))
			{
				document = GetDocumentByIndex(index);
				if (document == nil)
					err = errAEIllegalIndex;
			}
			break;	
		
		case formRelativePosition:
			ProcessFormRelativePostition(containerToken, keyData, &document);
			break;	
		
		case formRange:
			switch (keyDataType)
			{		
				case typeRangeDescriptor:
					err = ProcessFormRange((AEDesc *)keyData, &startObject, &stopObject);
					if (err == noErr)
					{
						AETokenDesc	startTokenDesc(&startObject);
						AETokenDesc	stopTokenDesc(&startObject);
						
						DescType startType = startTokenDesc.GetDispatchClass();
						DescType stopType  = stopTokenDesc.GetDispatchClass();
	 
						if (startType != cDocument || stopType != cDocument)
							err = errAEWrongDataType;
					}
					break;

				default:
					err = errAEWrongDataType;
					break;	
			}
			break;	

		default:
			err = errAEEventNotHandled;
			break;
	}
	
	// if user asked for all items, and there aren't any,
	// we'll be kind and return an empty list.

	if (wantsAllItems && (err == errAENoSuchObject || err == errAEIllegalIndex))
	{
		err = AECreateList(NULL, 0, false, (AEDescList*)resultToken);
		ThrowIfOSErr(err);
		return;
	}

	ThrowIfOSErr(err);
	
	// fill in the result token

	token.dispatchClass  	= GetClass();
	token.objectClass	= GetClass();
	token.propertyCode 	= typeNull;

	if (wantsAllItems)
	{						
		err = AECreateList(NULL, 0, false, (AEDescList*)resultToken);
		
		if (err == noErr)
		{
			for (index = 1; index <= numItems; index++)
			{
				document = GetDocumentByIndex(index);
				ThrowIfOSErr(errAEEventNotHandled);
				
				token.documentID = GetDocumentID(document);
				
				err = AEPutPtr(resultToken, 0, desiredClass, &token, sizeof(token));
				ThrowIfOSErr(err);
			}
		}
	}
	else if (keyForm == formRange)
	{			
		DocumentReference	beginDocument;
		DocumentReference	endDocument;
		long				beginIndex;
		long				endIndex;
		
		beginDocument = GetDocumentReferenceFromToken(&startObject);
		beginIndex = GetDocumentIndex(beginDocument);

		endDocument = GetDocumentReferenceFromToken(&stopObject);
		endIndex = GetDocumentIndex(endDocument);
								
		err = AECreateList(NULL, 0, false, (AEDescList*)resultToken);
		ThrowIfOSErr(err);
			
		if (beginIndex > endIndex) // swap elements
		{
			DocumentReference temp;
			temp			= beginDocument;
			beginDocument	= endDocument;
			endDocument	= temp;
		}
		
		document = beginDocument;
		while (document != nil)
		{
			token.documentID = GetDocumentID(document);
			
			err = AEPutPtr(resultToken, 0, desiredClass, &token, sizeof(token));
			ThrowIfOSErr(err);

			if (document == endDocument)
				break;
			document = GetNextDocument(document);
		}
	}
	else
	{
		token.documentID = GetDocumentID(document);
		err = AECreateDesc(desiredClass, &token, sizeof(token), resultToken);
	}

	ThrowIfOSErr(err);		
}


/*----------------------------------------------------------------------------
	DocumentAccessor 
	
	Document from null accessor
----------------------------------------------------------------------------*/
pascal OSErr AEDocumentClass::DocumentAccessor(		DescType			desiredClass,		// cDocument
											const AEDesc*		containerToken,	// null container
											DescType			containerClass,  	 // cApplication
											DescType			keyForm,
											const AEDesc*		keyData,
											AEDesc*			resultToken,		// specified Document is returned in result
											long 				refCon)
{
	AEDocumentClass*		docClass = reinterpret_cast<AEDocumentClass *>(refCon);
	if (!docClass) return paramErr;
	
	OSErr		err = noErr;
	
	try
	{
		docClass->GetDocumentFromApp(desiredClass, containerToken, containerClass, keyForm, keyData, resultToken);
	}
	catch(OSErr catchErr)
	{
		err = catchErr;
	}
	catch(...)
	{
		err = paramErr;
	}
	
	return err;
}

											


#pragma mark -

/*----------------------------------------------------------------------------
	ProcessFormRelativePostition 
	
----------------------------------------------------------------------------*/
void AEDocumentClass::ProcessFormRelativePostition(const AEDesc* anchorToken, const AEDesc *keyData, DocumentReference *document)
{
	AETokenDesc		tokenDesc(anchorToken);
	OSErr			err = noErr;
	DescType 			positionEnum;
	DocumentReference	anchorDocument;
	DocumentReference	relativeDocument = nil;
	
	*document = nil;
	
	anchorDocument = GetDocumentReferenceFromToken(anchorToken);

	if (err == noErr)
	{
	
		switch (keyData->descriptorType)
		{
		   case typeEnumerated:
				if (DescToDescType((AEDesc*)keyData, &positionEnum) != noErr)
				{
					err = errAECoercionFail;
				}
				else
				{
					switch (positionEnum)
					{
						case kAENext:						// get the document behind the anchor
							*document = GetPreviousDocument(anchorDocument);
							if (*document == nil)
								err = errAENoSuchObject;
							break;
							
						case kAEPrevious:					// get the document in front of the anchor
							*document = GetNextDocument(anchorDocument);
							if (*document == nil)
								err = errAENoSuchObject;
							break;
							
						default:
							err = errAEEventNotHandled;
							break;
					}
				}
				break;
				
			default:
				err = errAECoercionFail;
				break;
		}
	}
	
	ThrowIfOSErr(err);
}

#pragma mark -

/*----------------------------------------------------------------------------
	CanGetProperty 
	
----------------------------------------------------------------------------*/
Boolean AEDocumentClass::CanGetProperty(DescType property)
{
	Boolean	result = false;
	
	switch (property)
	{
		// Properties we can get:
		
		case pBestType:
		case pClass:
		case pDefaultType:
		case pObjectType:
		
		case pName:
		case pProperties:
		case pIsModified:
			result = true;
			break;
			
		// Properties we can't get:
		default:
			result = Inherited::CanGetProperty(property);
			break;
	}

	return result;
}


/*----------------------------------------------------------------------------
	CanSetProperty 
	
----------------------------------------------------------------------------*/
Boolean AEDocumentClass::CanSetProperty(DescType property)
{
	Boolean	result = false;
	
	switch (property)
	{
		// Properties we can set:
		
		case pName:
			result = true;
			break;
			
		// Properties we can't set:

		case pBestType:
		case pClass:
		case pDefaultType:
		case pObjectType:
		
		case pProperties:
		case pIsModified:
			result = false;
			break;
			
		default:
			result = Inherited::CanSetProperty(property);
			break;
	}

	return result;
}


#pragma mark -


/*----------------------------------------------------------------------------
	GetDataFromObject 
	
----------------------------------------------------------------------------*/
void AEDocumentClass::GetDataFromObject(const AEDesc *token, AEDesc *desiredTypes, AEDesc *data)
{
	OSErr			err				= noErr;
	Boolean			usePropertyCode	= false;	
	DocumentReference	document 			= nil;
	AETokenDesc		tokenDesc(token);
	DescType			aType			= cDocument;
	Str63 			documentName;
	Boolean 			isModified;
	
	// ugh
	document = GetDocumentReferenceFromToken(token);
	ThrowIfOSErr(err);
	if (document == nil)
		ThrowIfOSErr(paramErr);

	GetDocumentName(document, documentName);						
	isModified = DocumentIsModified(document);						

	usePropertyCode = tokenDesc.UsePropertyCode();
	
	DescType propertyCode = tokenDesc.GetPropertyCode();
	
	switch (propertyCode)
	{
		case pProperties:
			err = AECreateList(NULL, 0L, true, data);
			ThrowIfOSErr(err);

			err = AEPutKeyPtr(data, pObjectType,	typeType, 	&aType, 		 	sizeof(DescType));
			err = AEPutKeyPtr(data, pName, 		typeChar, 	&documentName[1], 	documentName[0]);
			err = AEPutKeyPtr(data, pIsModified, 	typeBoolean, 	&isModified, 		sizeof(Boolean));
			break;
			
		case pBestType:
		case pClass:
		case pDefaultType:
		case pObjectType:
			err = AECreateDesc(typeType, &aType, sizeof(DescType), data);
			break;
			
		case pName:
			err = AECreateDesc(typeChar, &documentName[1], documentName[0], data);
			break;
			
		case pIsModified:
			err = AECreateDesc(typeBoolean, &isModified, sizeof(Boolean), data);
			break;
			
		default:
			Inherited::GetDataFromObject(token, desiredTypes, data);
			break;
	}
	
	ThrowIfOSErr(err);
}

/*----------------------------------------------------------------------------
	SetDataForObject 
	
----------------------------------------------------------------------------*/
void AEDocumentClass::SetDataForObject(const AEDesc *token, AEDesc *data)
{
	OSErr				err = noErr;		
	Boolean				usePropertyCode;
	DescType				propertyCode;
	DocumentReference 		document = nil;
	AETokenDesc			tokenDesc(token);
	StAEDesc 				propertyRecord;

	usePropertyCode = tokenDesc.UsePropertyCode();
	document = GetDocumentReferenceFromToken(token);
		
	if (usePropertyCode == false)
	{
		err = errAEWriteDenied;
	}
	else
	{
		propertyCode = tokenDesc.GetPropertyCode();
		
		if (data->descriptorType == typeAERecord)
		{		
			SetDocumentProperties(document, data);
		}
		else	// Build a record with one property
		{
			err = AECreateList(NULL, 0L, true, &propertyRecord);
			ThrowIfOSErr(err);
			
			err = AEPutKeyDesc(&propertyRecord, propertyCode, data);
			ThrowIfOSErr(err);
		
			SetDocumentProperties(document, &propertyRecord);
		}
	}

	ThrowIfOSErr(err);
}


/*----------------------------------------------------------------------------
	SetDocumentProperties 
	
----------------------------------------------------------------------------*/
void	AEDocumentClass::SetDocumentProperties(DocumentReference document, AEDesc *propertyRecord)
{

}


/*----------------------------------------------------------------------------
	CountDocuments 
	
----------------------------------------------------------------------------*/
long AEDocumentClass::CountDocuments()
{
	return 0;
}


/*----------------------------------------------------------------------------
	GetDocumentByName 
	
----------------------------------------------------------------------------*/
DocumentReference  AEDocumentClass::GetDocumentByName(ConstStr255Param docName)
{
	return nil;
}

/*----------------------------------------------------------------------------
	GetDocumentByIndex 
	
----------------------------------------------------------------------------*/
DocumentReference  AEDocumentClass::GetDocumentByIndex(long index)
{
	return nil;
}

/*----------------------------------------------------------------------------
	GetDocumentByID 
	
----------------------------------------------------------------------------*/
DocumentReference AEDocumentClass::GetDocumentByID(long docID)
{
	return nil;
}

/*----------------------------------------------------------------------------
	GetNextDocument 
	
----------------------------------------------------------------------------*/
DocumentReference AEDocumentClass::GetNextDocument(DocumentReference docRef)
{
	return nil;
}


/*----------------------------------------------------------------------------
	GetPreviousDocument 
	
----------------------------------------------------------------------------*/
DocumentReference AEDocumentClass::GetPreviousDocument(DocumentReference docRef)
{
	return nil;
}


/*----------------------------------------------------------------------------
	GetDocumentReferenceFromToken 
	
----------------------------------------------------------------------------*/
DocumentReference AEDocumentClass::GetDocumentReferenceFromToken(const AEDesc *token)
{
	AETokenDesc	tokenDesc(token);
	long			docID = tokenDesc.GetDocumentID();
	
	return GetDocumentByID(docID);
}

/*----------------------------------------------------------------------------
	CloseWindowSaving 
	
----------------------------------------------------------------------------*/
void AEDocumentClass::CloseWindowSaving(AEDesc *token, const AEDesc *saving, AEDesc *savingIn)
{
	OSErr			err			= noErr;
	DocumentReference	document;

	document = GetDocumentReferenceFromToken(token);
	
	if (document != nil)
	{
		// DestroyDocument(document);
	}
	else
		err = errAEEventNotHandled;
	
	ThrowIfOSErr(err);
}

#pragma mark -

/*----------------------------------------------------------------------------
	CreateSelfSpecifier 

----------------------------------------------------------------------------*/
void AEDocumentClass::CreateSelfSpecifier(const AEDesc *token, AEDesc *outSpecifier)
{
	ThrowIfOSErr(errAENoSuchObject);
}

#pragma mark -

/*----------------------------------------------------------------------------
	GetDocumentID 
	
----------------------------------------------------------------------------*/
long GetDocumentID(DocumentReference docRef)
{
	return 0;
}

	
/*----------------------------------------------------------------------------
	GetDocumentIndex 
	
----------------------------------------------------------------------------*/
long GetDocumentIndex(DocumentReference docRef)
{
	return 0;
}

/*----------------------------------------------------------------------------
	GetDocumentIndex 
	
----------------------------------------------------------------------------*/
void	GetDocumentName(DocumentReference docRef, Str63 docName)
{
	docName[0] = 0;
}


/*----------------------------------------------------------------------------
	GetDocumentIndex 
	
----------------------------------------------------------------------------*/
Boolean DocumentIsModified(DocumentReference docRef)
{
	return false;
}

