/*
Wotonomy: OpenStep design patterns for pure Java applications.
Copyright (C) 2000 Intersect Software Corporation

This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.

This library 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
Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public
License along with this library; if not, see http://www.gnu.org
*/

package net.wotonomy.control;

import java.lang.reflect.Array;
import java.lang.reflect.Method;
import java.util.ArrayList;
import java.util.Collection;
import java.util.HashSet;
import java.util.Iterator;
import java.util.LinkedList;
import java.util.List;
import java.util.TreeSet;

import net.wotonomy.foundation.NSArray;
import net.wotonomy.foundation.NSMutableArray;
import net.wotonomy.foundation.internal.Introspector;
import net.wotonomy.foundation.internal.WotonomyException;

/**
 * A data source that reads and writes to an indexed property of a java object.
 * This class is used by MasterDetailAssociation to retreive objects from the
 * master display group.
 *
 * @author michael@mpowers.net
 * @author $Author: cgruber $
 * @version $Revision: 894 $
 */
public class PropertyDataSource extends OrderedDataSource {
	protected Object source;
	protected String key;
	protected Class lastKnownType; // for best-guessing
	protected EOClassDescription classDesc;
	protected EOEditingContext context;

	/**
	 * Creates a new PropertyDataSource with no editing context and will try to
	 * guess the appropriate class description when trying to create objects.
	 */
	public PropertyDataSource() {
		this(null, (EOClassDescription) null);
	}

	/**
	 * Creates a new PropertyDataSource that uses the specified editing context, but
	 * will try to guess the appropriate class description when trying to create
	 * objects.
	 */
	public PropertyDataSource(EOEditingContext aContext) {
		this(aContext, (EOClassDescription) null);
	}

	/**
	 * Creates a new PropertyDataSource that uses the specified editing context and
	 * vends objects of the specified class.
	 */
	public PropertyDataSource(EOEditingContext aContext, Class aClass) {
		this(aContext, EOClassDescription.classDescriptionForClass(aClass));
	}

	/**
	 * Creates a new PropertyDataSource that uses the specified editing context and
	 * vends objects of the specified class description.
	 */
	public PropertyDataSource(EOEditingContext aContext, EOClassDescription aClassDesc) {
		source = null;
		key = null;
		lastKnownType = null;
		classDesc = aClassDesc;
		context = aContext;
	}

	/**
	 * Provides the master object for detail display groups.
	 */
	public Object source() {
		return source;
	}

	/**
	 * Allows a detail display group to set the master object.
	 */
	public void setSource(Object anObject) {
		source = anObject;
	}

	/**
	 * Provides the detail key for detail display groups.
	 */
	public String key() {
		return key;
	}

	/**
	 * Allows a detail display group to set the detail key.
	 */
	public void setKey(String aKey) {
		key = aKey;
	}

	/**
	 * Inserts the specified object into this data source. Calls insertObjectAtIndex
	 * and appends to the end of the list.
	 */
	public void insertObject(Object anObject) {
		insertObjectAtIndex(anObject, -1); // trick to force to end
	}

	/**
	 * Inserts the specified object into this data source, at the specified index.
	 */
	public void insertObjectAtIndex(Object anObject, int anIndex) {
		if (source == null)
			return;
		List list = readAsList();
		if (anIndex == -1)
			anIndex = list.size(); // force to end
		if (anIndex > list.size())
			anIndex = list.size(); // force to end
		list.add(anIndex, anObject);
		writeAsList(list);
	}

	/**
	 * Deletes the specified object from this data source.
	 */
	public void deleteObject(Object anObject) {
		if (source == null)
			return;
		List list = readAsList();
		list.remove(anObject);
		writeAsList(list);
	}

	public EOEditingContext editingContext() {
		return context;
	}

	/**
	 * Returns a List containing the objects in this data source.
	 */
	public NSArray fetchObjects() {
		if (source == null)
			return NSArray.EmptyArray;
		return readAsList();
	}

	/**
	 * Returns a new instance of this class.
	 */
	public EODataSource dataSourceQualifiedByKey(String aKey) {
		// determine the target class desc if possible
		EOClassDescription keyClassDesc = null;
		if (classDesc != null) {
			keyClassDesc = classDesc.classDescriptionForDestinationKey(aKey);
		}
		return new PropertyDataSource(editingContext(), keyClassDesc);
	}

	/**
	 * Restricts this data source to vend those objects that are associated with the
	 * specified key on the specified object.
	 */
	public void qualifyWithRelationshipKey(String aKey, Object anObject) {
		source = anObject;
		key = aKey;
	}

	/**
	 * Returns the class description passed to the constructor, if any. If no class
	 * description and if the bound property is an indexed property, the type of the
	 * array is returned, otherwise this method returns null. This method is called
	 * by createObject().
	 */
	public EOClassDescription classDescriptionForObjects() {
		// just return the class description if we have one
		if (classDesc != null)
			return classDesc;

		// otherwise, try to do some guesswork
		EOClassDescription result = null;

		// lastKnownType is not updated here
		Class type = lastKnownType;

		// if no last known type
		if (type == null) {
			// if source and key were specified
			if ((source != null) && (key != null)) {
				// try to get an array type
				Method m = Introspector.getPropertyReadMethod(source.getClass(), key, new Class[0]);
				if (m != null) {
					Class returnType = m.getReturnType();
					if (returnType.isArray()) {
						type = returnType.getComponentType();
					}
				} else {
					throw new WotonomyException("Key does not exist for object: " + key + " : " + source);
				}
			}

			// does not update lastKnownType because
			// we prefer to get that info from a fetch.
		}

		// if type has been determined
		if (type != null) {
			result = EOClassDescription.classDescriptionForClass(type);
		}

		return result;
	}

	/**
	 * Calls getValue() and returns the result as a List. Sets lastKnownType to the
	 * retrieved type.
	 */
	protected NSMutableArray readAsList() {
		Object value = getValue();
		if (value == null) {
			return new NSMutableArray();
		}

		Object o;
		NSMutableArray result = new NSMutableArray();
		boolean hasReadType = false;
		lastKnownType = null;

		// if instance of array, convert to list
		if (value.getClass().isArray()) {
			int count = Array.getLength(value);
			for (int i = 0; i < count; i++) {
				o = Array.get(value, i);
				if (o != null) {
					// we've already found a type
					if (hasReadType) {
						// check that this matches the last known type
						if (o.getClass() != lastKnownType) {
							// not all of the same type: set to null
							lastKnownType = null;
						}
					} else // this is the first type we've found
					{
						// remember it
						hasReadType = true;
						lastKnownType = o.getClass();
					}
				}
				result.add(o);
			}
		} else if (value instanceof Collection) {
			// convert to list so we handle sets, etc.
			Iterator i = ((Collection) value).iterator();
			while (i.hasNext()) {
				o = i.next();
				if (o != null) {
					// we've already found a type
					if (hasReadType) {
						// check that this matches the last known type
						if (o.getClass() != lastKnownType) {
							// not all of the same type: set to null
							lastKnownType = null;
						}
					} else // this is the first type we've found
					{
						// remember it
						hasReadType = true;
						lastKnownType = o.getClass();
					}
				}
				result.add(o);
			}
		} else {
			lastKnownType = null;
			throw new WotonomyException("PropertyDataSource: " + "bound property was not an indexed property: " + key);
		}

		return result;
	}

	/**
	 * Converts the specified List to lastKnownType and calls setValue().
	 */
	protected void writeAsList(List anObjectList) {
		if (source == null) {
			throw new WotonomyException("PropertyDataSource: " + "no source object: " + key);
		}

		Class c = source.getClass();
		Method m = Introspector.getPropertyReadMethod(c, key, new Class[0]);
		if (m == null) {
			throw new WotonomyException("Could not read property for object: " + key + " : " + source + " (" + c + ")");
		}

		Class returnType = m.getReturnType();

		int count = anObjectList.size();
		Object result = null;

		if (returnType.isArray()) {
			Class type = returnType.getComponentType();
			result = Array.newInstance(type, count);
			for (int i = 0; i < count; i++) {
				Array.set(result, i, anObjectList.get(i));
			}
		} else {
			Collection collection = null;

			if (!returnType.isInterface()) {
				try {
					collection = (Collection) returnType.newInstance();
				} catch (Exception exc) {
					// no default constructor, leave null
				}
			}

			// try to find an acceptable collections type
			if (collection == null) {
				if (returnType.isAssignableFrom(NSMutableArray.class)) {
					collection = new NSMutableArray();
				} else if (returnType.isAssignableFrom(LinkedList.class)) {
					collection = new LinkedList();
				} else if (returnType.isAssignableFrom(ArrayList.class)) {
					collection = new ArrayList();
				} else if (returnType.isAssignableFrom(HashSet.class)) {
					collection = new HashSet();
				} else if (returnType.isAssignableFrom(TreeSet.class)) {
					collection = new TreeSet();
				}
			}

			if (collection == null) {
				throw new WotonomyException("Could not create a collection of type: " + returnType);
			}

			collection.addAll(anObjectList);
			result = collection;
		}

		setValue(result);
	}

	/**
	 * Returns the value of the indexed property specified by
	 * qualifyWithRelationshipKey.
	 */
	protected Object getValue() {
		if (source instanceof EOKeyValueCoding) {
			return ((EOKeyValueCoding) source).valueForKey(key);
		}
		return EOKeyValueCodingSupport.valueForKey(source, key);
	}

	/**
	 * Sets the value of the indexed property specified by
	 * qualifyWithRelationshipKey. The argument is assumed to be of appropriate type
	 * for the property. EOObserverCenter is notified that the object will change.
	 */
	protected void setValue(Object aValue) {
		EOClassDescription sourceDesc = EOClassDescription.classDescriptionForClass(source.getClass());

		// if we're not editing a relationship (?)
//        if ( ! sourceDesc.toManyRelationshipKeys().containsObject( key ) )
		{
			// mark the parent as changed
			EOObserverCenter.notifyObserversObjectWillChange(source);
		}

		if (source instanceof EOKeyValueCoding) {
			((EOKeyValueCoding) source).takeValueForKey(aValue, key);
		} else {
			EOKeyValueCodingSupport.takeValueForKey(source, aValue, key);
		}
	}

}

/*
 * $Log$ Revision 1.2 2006/02/16 16:47:14 cgruber Move some classes in to
 * "internal" packages and re-work imports, etc.
 *
 * Also use UnsupportedOperationExceptions where appropriate, instead of
 * WotonomyExceptions.
 *
 * Revision 1.1 2006/02/16 13:19:57 cgruber Check in all sources in
 * eclipse-friendly maven-enabled packages.
 *
 * Revision 1.14 2003/01/18 23:30:42 mpowers WODisplayGroup now compiles.
 *
 * Revision 1.13 2002/10/24 21:15:36 mpowers New implementations of NSArray and
 * subclasses.
 *
 * Revision 1.12 2002/10/24 18:18:12 mpowers NSArray's are now considered
 * read-only, so we can return our internal representation to reduce unnecessary
 * object allocation.
 *
 * Revision 1.11 2002/04/15 21:55:33 mpowers Catching a condition where the get
 * may not return the value passed to set.
 *
 * Revision 1.10 2002/03/08 23:20:37 mpowers insertObject now calls
 * insertObjectAtIndex.
 *
 * Revision 1.9 2001/06/05 19:10:41 mpowers Better handling of null properties.
 *
 * Revision 1.8 2001/05/21 14:03:35 mpowers Added a convenience constructor for
 * java classes.
 *
 * Revision 1.7 2001/04/30 13:15:24 mpowers Child contexts re-initializing
 * objects invalidated in parent now propery transpose relationships.
 *
 * Revision 1.6 2001/04/29 02:29:31 mpowers Debugging relationship faulting.
 *
 * Revision 1.5 2001/04/28 22:17:51 mpowers Revised PropertyDataSource to be
 * EOClassDescription-aware.
 *
 * Revision 1.4 2001/04/27 23:37:20 mpowers Now using EOClassDescription in the
 * EODataSource class, as we should.
 *
 * Revision 1.3 2001/03/29 03:29:49 mpowers Now using KeyValueCoding and Support
 * instead of Introspector.
 *
 * Revision 1.2 2001/01/24 14:10:53 mpowers Contributing OrderedDataSource, and
 * PropertyDataSource extends it.
 *
 * Revision 1.1.1.1 2000/12/21 15:46:50 mpowers Contributing wotonomy.
 *
 * Revision 1.3 2000/12/20 16:25:35 michael Added log to all files.
 *
 *
 */