/** 
   EOKeyValueCoding.m <title>EOKeyValueCoding</title>

   Copyright (C) 1996-2002 Free Software Foundation, Inc.

   Author: Mircea Oancea <mircea@jupiter.elcom.pub.ro>
   Date: November 1996

   Author: Mirko Viviani <mirko.viviani@rccr.cremona.it>
   Date: February 2000

   Author: Manuel Guesdon <mguesdon@oxymium.net>
   Date: January 2002

   $Revision$
   $Date$

   <abstract></abstract>

   This file is part of the GNUstep Database Library.

   <license>
   This library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Library General Public
   License as published by the Free Software Foundation; either
   version 2 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
   Library General Public License for more details.

   You should have received a copy of the GNU Library General Public
   License along with this library; see the file COPYING.LIB.
   If not, write to the Free Software Foundation,
   59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
   </license>
**/

static char rcsId[] = "$Id$";

#import <Foundation/NSObject.h>
#import <Foundation/NSArray.h>
#import <Foundation/NSDictionary.h>
#import <Foundation/NSString.h>
#import <Foundation/NSValue.h>
#import <Foundation/NSHashTable.h>
#import <Foundation/NSException.h>
#import <Foundation/NSObjCRuntime.h>
#import <Foundation/NSMapTable.h>
#import <Foundation/NSUtilities.h>
#import <Foundation/NSDecimalNumber.h>
#import <Foundation/NSDebug.h>

#include <Foundation/NSException.h>
#include <objc/objc-api.h>

#import <EOControl/EOControl.h>
#import <EOControl/EOKeyValueCoding.h>
#import <EOControl/EONSAddOns.h>
#import <EOControl/EODebug.h>


/*
 *  EOKeyValueCodingAdditions implementation
 */

@implementation NSObject (EOKVCPAdditions2)

/** if key is a bidirectional rel, use addObject:toBothSidesOfRelationship otherwise call  takeValue:forKey: **/
- (void)smartTakeValue: (id)anObject 
                forKey: (NSString *)aKey
{
  [self takeValue: anObject
        forKey: aKey];
}

- (void)smartTakeValue: (id)anObject 
            forKeyPath: (NSString *)aKeyPath
{
  NSRange r = [aKeyPath rangeOfString: @"."];

  if (r.length == 0)
    {
      [self smartTakeValue: anObject 
            forKey: aKeyPath];
    }
  else
    {
      NSString *key = [aKeyPath substringToIndex: r.location];
      NSString *path = [aKeyPath substringFromIndex: NSMaxRange(r)];

      [[self valueForKey: key] smartTakeValue: anObject 
                               forKeyPath: path];
    }
}

- (void)takeStoredValue: value 
             forKeyPath: (NSString *)key
{
  NSArray *pathArray;
  NSString *path;
  id obj = self;
  int i, count;

  EOFLOGObjectFnStartCond(@"EOKVC");

  pathArray = [key componentsSeparatedByString:@"."];
  count = [pathArray count];

  for (i = 0; i < (count - 1); i++)
    {
      path = [pathArray objectAtIndex: i];
      obj = [obj valueForKey: path];
    }

  path = [pathArray lastObject];
  [obj takeStoredValue: value forKey: path];

  EOFLOGObjectFnStopCond(@"EOKVC");
}

- (id)storedValueForKeyPath: (NSString *)key
{
  NSArray *pathArray = nil;
  NSString *path;
  id obj = self;
  int i, count;
  EOFLOGObjectFnStartCond(@"EOKVC");
  pathArray = [key componentsSeparatedByString:@"."];
  count = [pathArray count];

  for(i=0; i < (count-1); i++)
    {
      path = [pathArray objectAtIndex:i];
      obj = [obj valueForKey:path];
    }

  path = [pathArray lastObject];
  obj=[obj storedValueForKey:path];
  EOFLOGObjectFnStopCond(@"EOKVC");
  return obj;
}

- (void)takeStoredValuesFromDictionary: (NSDictionary *)dictionary
{
  NSEnumerator *keyEnum;
  id key;
  id val;
  
  EOFLOGObjectFnStartCond(@"EOKVC");

  keyEnum = [dictionary keyEnumerator];

  while ((key = [keyEnum nextObject]))
    {
      val = [dictionary objectForKey: key];
      
      if ([val isKindOfClass: [[EONull null] class]])
	val = nil;
      
      [self takeStoredValue: val forKey: key];
    }

  EOFLOGObjectFnStopCond(@"EOKVC");
}

- (NSDictionary *)storedValuesForKeyPaths: (NSArray *)keyPaths
{
  NSDictionary *values = nil;
  int i, n;
  NSMutableArray *newKeyPaths = nil;
  NSMutableArray *newVals = nil;
  EONull *null;

  EOFLOGObjectFnStartCond(@"EOKVC");

  n = [keyPaths count];

  newKeyPaths = [[[NSMutableArray alloc] initWithCapacity: n] 
			      autorelease];
  newVals = [[[NSMutableArray alloc] initWithCapacity: n] 
			      autorelease];
  null = (EONull *)[EONull null];

  for (i = 0; i < n; i++)
    {
      id keyPath = [keyPaths objectAtIndex: i];
      id val = nil;

      NS_DURING //DEBUG Only ?
        {
          val = [self storedValueForKeyPath: keyPath];
        }
      NS_HANDLER
        {
          NSLog(@"EXCEPTION %@", localException);
          NSDebugMLog(@"EXCEPTION %@", localException);              
          [localException raise];
        }
      NS_ENDHANDLER;
        
      if (val == nil)
	val = null;
      
      [newKeyPaths addObject: keyPath];
      [newVals addObject: val];
    }
  
  values = [NSDictionary dictionaryWithObjects: newVals
			 forKeys: newKeyPaths];
  EOFLOGObjectFnStopCond(@"EOKVC");

  return values;
}

- (NSDictionary *)valuesForKeyPaths: (NSArray *)keyPaths
{
  NSDictionary *values = nil;
  int i;
  int n;
  NSMutableArray *newKeyPaths;
  NSMutableArray *newVals;
  EONull *null;

  EOFLOGObjectFnStartCond(@"EOKVC");

  n = [keyPaths count];
  newKeyPaths = [[[NSMutableArray alloc] initWithCapacity: n]
		  autorelease];
  newVals = [[[NSMutableArray alloc] initWithCapacity: n]
	      autorelease];
  null = (EONull *)[EONull null];

  for (i = 0; i < n; i++)
    {
      id keyPath = [keyPaths objectAtIndex: i];
      id val = nil;

      NS_DURING //DEBUG Only ?
        {
          val = [self valueForKeyPath: keyPath];
        }
      NS_HANDLER
        {
          NSLog(@"EXCEPTION %@", localException);
          NSDebugMLog(@"EXCEPTION %@",localException);              
          [localException raise];
        }
      NS_ENDHANDLER;

      if (val == nil)
	val = null;

      [newKeyPaths addObject: keyPath];
      [newVals addObject: val];
    }
  
  values = [NSDictionary dictionaryWithObjects: newVals
			 forKeys: newKeyPaths];

  EOFLOGObjectFnStopCond(@"EOKVC");

  return values;
}

@end

@implementation NSArray (EOKeyValueCoding)

- (id)valueForKey: (NSString *)key
{
  id result = nil;
  const char *str;

  EOFLOGObjectFnStartCond(@"EOKVC");
  //EOFLOGObjectLevelArgs(@"EOKVC", @"key=%@",
  //                      key);

  str=[key cString];

  if (str && *str == '@')
    {
      if ([key length] > 1)
        {
          if ([key isEqualToString: @"@count"]) //the only known case because we haven't implemented custom operators
            result = [super valueForKey: @"count"];
          else // for unknwon case: call computeXXForKey:nil
            {
              NSMutableString *selString = [NSMutableString stringWithCapacity:10];
              SEL computeSelector;
              char l = str[1];
              
              if (islower(l))
                l = toupper(l);
              
              [selString appendString: @"compute"];
              [selString appendString: [NSString stringWithCString: &l
						 length: 1]];
              [selString appendString: [NSString stringWithCString: &str[2]]];
              [selString appendString: @"ForKey:"];

              computeSelector = NSSelectorFromString(selString);
              result = [self performSelector: computeSelector
			     withObject: nil];
            }
        }
    }
  else if ([key isEqualToString: @"count"]) //Special case: Apple Doc is wrong; here we return -count
    {
      static BOOL warnedCount = NO;
      if (warnedCount == NO)
        {
          warnedCount = YES;
          NSWarnLog(@"use of special 'count' key may works differently with only foundation base");
        }
      result = [super valueForKey: key];
    }
  else
    {
      result = [self resultsOfPerformingSelector: @selector(valueForKey:)
		     withObject: key
		     defaultResult: [EONull null]];
    }

  EOFLOGObjectFnStopCond(@"EOKVC");

  return result;
}

- (id)valueForKeyPath: (NSString *)keyPath
{
  id result = nil;
  const char *str;

  EOFLOGObjectFnStartCond(@"EOKVC");
  //EOFLOGObjectLevelArgs(@"EOKVC", @"keyPath=%@",
  //                      keyPath);

  str = [keyPath cString];

  if (str && *str == '@')
    {
      if ([keyPath length] > 1)
        {
	  NSMutableString *selString = [NSMutableString stringWithCapacity: 10];
          NSArray *pathArray = [keyPath componentsSeparatedByString: @"."];

          if ([pathArray count] == 1)
            {
            }
          else
            {
              NSString* fn= [pathArray objectAtIndex:0];
              NSString* key=nil;
              SEL computeSelector;
              char l;
              str=[fn cString];
              l = str[1];
                            
              if (islower(l))
                l = toupper(l);
              
              [selString appendString: @"compute"];
              [selString appendString: [NSString stringWithCString: &l
						 length: 1]];
              [selString appendString: [NSString stringWithCString: &str[2]]];
              [selString appendString: @"ForKey:"];

              computeSelector = NSSelectorFromString(selString);
              if ([pathArray count] > 1)
                key = [pathArray objectAtIndex: 1];

              result = [self performSelector: computeSelector
			     withObject: key];

              if (result && [pathArray count] > 2)
                {
                  NSArray *rightKeyPathArray
		    = [pathArray subarrayWithRange:
				   NSMakeRange(2, [pathArray count] - 2)];
                  NSString *rightKeyPath
		    = [rightKeyPathArray componentsJoinedByString: @"."];

                  result = [result valueForKeyPath: rightKeyPath];
                }
            }
        }
    }
  else if ([keyPath isEqualToString: @"count"]) //Special case: Apple Doc is wrong; here we return -count
    {
      static BOOL warnedCount = NO;
      if (warnedCount == NO)
        {
          warnedCount = YES;
          NSWarnLog(@"use of special 'count' key may works differently with only foundation base");
        }
      result = [super valueForKeyPath: keyPath];
    }
  else 
    result = [self resultsOfPerformingSelector: @selector(valueForKeyPath:)
		   withObject: keyPath
		   defaultResult: [EONull null]];

  EOFLOGObjectFnStopCond(@"EOKVC");

  return result;
}

- (id)computeSumForKey: (NSString *)key
{
  NSEnumerator *arrayEnum;
  NSDecimalNumber *item, *ret;

  EOFLOGObjectFnStartCond(@"EOKVC");

  arrayEnum = [self objectEnumerator];
  ret = [NSDecimalNumber zero];

  while ((item = [arrayEnum nextObject]))
    [ret decimalNumberByAdding: item];
        
  EOFLOGObjectFnStopCond(@"EOKVC");

  return ret;
}

- (id)computeAvgForKey: (NSString *)key
{
  NSEnumerator *arrayEnum;
  NSDecimalNumber *item, *ret;

  EOFLOGObjectFnStartCond(@"EOKVC");

  arrayEnum = [self objectEnumerator];
  ret = [NSDecimalNumber zero];

  while ((item = [arrayEnum nextObject]))
    [ret decimalNumberByAdding: item];

  ret = [ret decimalNumberByDividingBy:
	       [NSDecimalNumber decimalNumberWithMantissa: [self count]
				exponent: 0
				isNegative:NO]];

  EOFLOGObjectFnStopCond(@"EOKVC");

  return ret;
}

- (id)computeCountForKey: (NSString *)key
{
  id ret;

  EOFLOGObjectFnStartCond(@"EOKVC");

  ret = [NSNumber numberWithInt: [self count]];

  EOFLOGObjectFnStopCond(@"EOKVC");

  return ret;
}

- (id)computeMaxForKey: (NSString *)key
{
  NSEnumerator *arrayEnum;
  NSDecimalNumber *item, *max;

  EOFLOGObjectFnStartCond(@"EOKVC");

  arrayEnum = [self objectEnumerator];

  max = item = [arrayEnum nextObject];

  if (max != nil)
    {
      while ((item = [arrayEnum nextObject]))
	{
	  if ([max compare: item] == NSOrderedAscending)
	    max = item;
	}
    }

  EOFLOGObjectFnStopCond(@"EOKVC");

  return max;
}

- (id)computeMinForKey: (NSString *)key
{
  NSEnumerator *arrayEnum;
  NSDecimalNumber *item, *min;

  EOFLOGObjectFnStartCond(@"EOKVC");

  arrayEnum = [self objectEnumerator];
  min = item = [arrayEnum nextObject];

  if (min != nil)
    {
      while ((item = [arrayEnum nextObject]))
	{
	  if ([min compare: item] == NSOrderedDescending)
	    min = item;
	}
    }

  EOFLOGObjectFnStopCond(@"EOKVC");

  return min;
}

@end


@implementation NSDictionary (EOKeyValueCoding)

- (id)valueForKey:(NSString *)key
{
  id value;

  EOFLOGObjectFnStartCond(@"EOKVC");
  EOFLOGObjectLevelArgs(@"EOKVC", @"key=%@",
                        key);

  value = [self objectForKey: key];

  if (!value)
    {
      if ([key isEqualToString: @"allValues"])
        {
          static BOOL warnedAllValues = NO;
          if (warnedAllValues == NO)
            {
              warnedAllValues = YES;
              NSWarnLog(@"use of special 'allValues' key works differently with only foundation base");
            }

          value = [self allValues];
        }
      else if ([key isEqualToString: @"allKeys"])
        {
          static BOOL warnedAllKeys = NO;
          if (warnedAllKeys == NO)
            {
              warnedAllKeys = YES;
              NSWarnLog(@"use of special 'allKeys' key works differently with only foundation base");
            }

          value = [self allKeys];
        }
      else if ([key isEqualToString: @"count"])
        {
          static BOOL warnedCount = NO;
          if (warnedCount == NO)
            {
              warnedCount = YES;
              NSWarnLog(@"use of special 'count' key works differently with only foundation base");
            }

          value = [NSNumber numberWithInt: [self count]];
        }
    }

  //EOFLOGObjectLevelArgs(@"EOKVC", @"key=%@ value: %p (class %@)",
  //                      key, value, [value class]);
  EOFLOGObjectFnStopCond(@"EOKVC");

  return value;
}

- (id)storedValueForKey: (NSString *)key
{
  id value;

  EOFLOGObjectFnStartCond(@"EOKVC");
  //EOFLOGObjectLevelArgs(@"EOKVC", @"key=%@",
  //                      key);

  value = [self objectForKey: key];

  if (!value)
    {
      if ([key isEqualToString: @"allValues"])
        value = [self allValues];
      else if ([key isEqualToString: @"allKeys"])
        value = [self allKeys];
      else if ([key isEqualToString: @"count"])
        value = [NSNumber numberWithInt: [self count]];
    }

  //EOFLOGObjectLevelArgs(@"EOKVC", @"key=%@ value: %p (class=%@)",
  //                      key, value, [value class]);
  EOFLOGObjectFnStopCond(@"EOKVC");

  return value;
}

- (id)valueForKeyPath: (NSString*)keyPath
{
  id value = nil;

  EOFLOGObjectFnStartCond(@"EOKVC");
  //EOFLOGObjectLevelArgs(@"EOKVC", @"keyPath=\"%@\"",
  //                      keyPath);

  if ([keyPath hasPrefix: @"'"]) //user defined composed key 
    {
      NSMutableArray *keyPathArray = [[[[keyPath stringByDeletingPrefix: @"'"]
					 componentsSeparatedByString: @"."]
					mutableCopy] autorelease];
      NSMutableString *key = [NSMutableString string];

      //EOFLOGObjectLevelArgs(@"EOKVC", @"keyPathArray=%@", keyPathArray);

      while ([keyPathArray count] > 0)
        {
          id tmpKey;

          //EOFLOGObjectLevelArgs(@"EOKVC", @"keyPathArray=%@", keyPathArray);

          tmpKey = [keyPathArray objectAtIndex: 0];
          //EOFLOGObjectLevelArgs(@"EOKVC", @"tmpKey=%@", tmpKey);

          [keyPathArray removeObjectAtIndex: 0];

          if ([key length] > 0)
            [key appendString: @"."];
          if ([tmpKey hasSuffix: @"'"])
            {
              tmpKey = [tmpKey stringByDeletingSuffix: @"'"];
              [key appendString: tmpKey];
              break;
            }
          else
	    [key appendString: tmpKey];

          //EOFLOGObjectLevelArgs(@"EOKVC", @"key=%@", key);
        }

      //EOFLOGObjectLevelArgs(@"EOKVC", @"key=%@", key);

      value = [self valueForKey: key];

      //EOFLOGObjectLevelArgs(@"EOKVC",@"key=%@ tmpValue: %p (class=%@)",
      //             key,value,[value class]);

      if (value && [keyPathArray count] > 0)
        {
          NSString *rightKeyPath = [keyPathArray
				     componentsJoinedByString: @"."];

          //EOFLOGObjectLevelArgs(@"EOKVC", @"rightKeyPath=%@",
          //                      rightKeyPath);

          value = [value valueForKeyPath: rightKeyPath];
        }
    }
  else
    {
      //return super valueForKeyPath:keyPath only if there's no object for entire key keyPath
      value = [self objectForKey: keyPath];

      EOFLOGObjectLevelArgs(@"EOKVC",@"keyPath=%@ tmpValue: %p (class=%@)",
                   keyPath,value,[value class]);

      /*  if([value isEqual:[EONull null]] == YES) //???
          value=nil;
          else */

      if (!value)
        value = [super valueForKeyPath: keyPath];
    }

  //EOFLOGObjectLevelArgs(@"EOKVC",@"keyPath=%@ value: %p (class=%@)",
  //             keyPath,value,[value class]);
  EOFLOGObjectFnStopCond(@"EOKVC");

  return value;
}

- (id)storedValueForKeyPath: (NSString*)keyPath
{
  id value = nil;

  EOFLOGObjectFnStartCond(@"EOKVC");
  //EOFLOGObjectLevelArgs(@"EOKVC",@"keyPath=\"%@\"",
  //                      keyPath);

  if ([keyPath hasPrefix: @"'"]) //user defined composed key 
    {
      NSMutableArray *keyPathArray = [[[[keyPath stringByDeletingPrefix: @"'"]
					 componentsSeparatedByString: @"."]
					mutableCopy] autorelease];
      NSMutableString *key = [NSMutableString string];

      //EOFLOGObjectLevelArgs(@"EOKVC", @"keyPathArray=%@", keyPathArray);

      while ([keyPathArray count] > 0)
        {
          id tmpKey;

          //EOFLOGObjectLevelArgs(@"EOKVC", @"keyPathArray=%@", keyPathArray);

          tmpKey = [keyPathArray objectAtIndex: 0];
          //EOFLOGObjectLevelArgs(@"EOKVC", @"tmpKey=%@", tmpKey);

          [keyPathArray removeObjectAtIndex: 0];

          if ([key length] > 0)
            [key appendString: @"."];
          if ([tmpKey hasSuffix: @"'"])
            {
              tmpKey = [tmpKey stringByDeletingSuffix: @"'"];
              [key appendString: tmpKey];
              break;
            }
          else
	    [key appendString: tmpKey];

          //EOFLOGObjectLevelArgs(@"EOKVC", @"key=%@", key);
        }

      //EOFLOGObjectLevelArgs(@"EOKVC", @"key=%@", key);

      value = [self storedValueForKey: key];

      //EOFLOGObjectLevelArgs(@"EOKVC",@"key=%@ tmpValue: %p (class=%@)",
      //             key,value,[value class]);

      if (value && [keyPathArray count] > 0)
        {
          NSString *rightKeyPath = [keyPathArray
				     componentsJoinedByString: @"."];

          EOFLOGObjectLevelArgs(@"EOKVC", @"rightKeyPath=%@",
				rightKeyPath);

          value = [value storedValueForKeyPath: rightKeyPath];
        }
    }
  else
    {
      //return super valueForKeyPath:keyPath only if there's no object for entire key keyPath
      value = [self objectForKey: keyPath];

      //EOFLOGObjectLevelArgs(@"EOKVC",@"keyPath=%@ tmpValue: %p (class=%@)",
      //             keyPath,value,[value class]);

      /*  if([value isEqual:[EONull null]] == YES) //???
          value=nil;
          else */

      if (!value)
        value = [super storedValueForKeyPath: keyPath];
    }

  //EOFLOGObjectLevelArgs(@"EOKVC",@"keyPath=%@ value: %p (class=%@)",
  //             keyPath,value,[value class]);
  EOFLOGObjectFnStopCond(@"EOKVC");

  return value;
}

@end


@implementation NSMutableDictionary (EOKeyValueCoding)

- (void)takeValue: (id)value 
           forKey: (NSString *)key
{
  EOFLOGObjectFnStartCond(@"EOKVC");

  if (value)
    [self setObject: value 
          forKey: key];
  else
    [self removeObjectForKey: key];

  EOFLOGObjectFnStopCond(@"EOKVC");
}

- (void)takeStoredValue: (id)value 
                 forKey: (NSString *)key
{
  EOFLOGObjectFnStartCond(@"EOKVC");

  if (value)
    [self setObject: value 
          forKey: key];
  else
    [self removeObjectForKey: key];

  EOFLOGObjectFnStopCond(@"EOKVC");
}

- (void)smartTakeValue: (id)value 
            forKeyPath: (NSString*)keyPath
{
  [self takeValue:value
        forKeyPath:keyPath
        isSmart:YES];
}

- (void)takeValue: (id)value
       forKeyPath: (NSString *)keyPath
{
  [self takeValue:value
        forKeyPath:keyPath
        isSmart:NO];
}

- (void)takeValue: (id)value
       forKeyPath: (NSString *)keyPath
          isSmart: (BOOL)smartFlag
{
  EOFLOGObjectFnStartCond(@"EOKVC");
  //EOFLOGObjectLevelArgs(@"EOKVC", @"keyPath=\"%@\"",
  //                      keyPath);

  if ([keyPath hasPrefix: @"'"]) //user defined composed key 
    {
      NSMutableArray *keyPathArray = [[[[keyPath stringByDeletingPrefix: @"'"]
					 componentsSeparatedByString: @"."]
					mutableCopy] autorelease];
      NSMutableString *key = [NSMutableString string];

      //EOFLOGObjectLevelArgs(@"EOKVC", @"keyPathArray=%@", keyPathArray);

      while ([keyPathArray count] > 0)
        {
          id tmpKey;

          //EOFLOGObjectLevelArgs(@"EOKVC", @"keyPathArray=%@", keyPathArray);

          tmpKey = [keyPathArray objectAtIndex: 0];
          //EOFLOGObjectLevelArgs(@"EOKVC", @"tmpKey=%@", tmpKey);

          [keyPathArray removeObjectAtIndex: 0];

          if ([key length] > 0)
            [key appendString: @"."];
          if ([tmpKey hasSuffix: @"'"])
            {
              tmpKey = [tmpKey stringByDeletingSuffix: @"'"];
              [key appendString: tmpKey];
              break;
            }
          else
	    [key appendString: tmpKey];

          //EOFLOGObjectLevelArgs(@"EOKVC", @"key=%@", key);
        }

      //EOFLOGObjectLevelArgs(@"EOKVC",@"key=%@",key);
      //EOFLOGObjectLevelArgs(@"EOKVC",@"left keyPathArray=\"%@\"",
      //             keyPathArray);

      if ([keyPathArray count] > 0)
        {
          id obj = [self objectForKey: key];

          if (obj)
            {
              NSString *rightKeyPath = [keyPathArray
					 componentsJoinedByString: @"."];

              //EOFLOGObjectLevelArgs(@"EOKVC",@"rightKeyPath=\"%@\"",
              //             rightKeyPath);

              if (smartFlag)
                [obj smartTakeValue: value
		     forKeyPath: rightKeyPath];
              else
                [obj takeValue: value
		     forKeyPath: rightKeyPath];
            }
        }
      else
        {
          if (value)
            [self setObject: value 
                  forKey: key];
          else
            [self removeObjectForKey: key];
        }
    }
  else
    {
      if (value)
        [self setObject: value 
              forKey: keyPath];
      else
        [self removeObjectForKey: keyPath];
    }

  EOFLOGObjectFnStopCond(@"EOKVC");
}

- (void)takeStoredValue: (id)value 
             forKeyPath: (NSString *)keyPath
{
  EOFLOGObjectFnStartCond(@"EOKVC");
  //EOFLOGObjectLevelArgs(@"EOKVC",@"keyPath=\"%@\"",
  //             keyPath);

  if ([keyPath hasPrefix: @"'"]) //user defined composed key 
    {
      NSMutableArray *keyPathArray = [[[[keyPath stringByDeletingPrefix: @"'"]
					 componentsSeparatedByString: @"."]
					mutableCopy] autorelease];
      NSMutableString *key = [NSMutableString string];

      //EOFLOGObjectLevelArgs(@"EOKVC", @"keyPathArray=%@", keyPathArray);

      while ([keyPathArray count] > 0)
        {
          id tmpKey;

          //EOFLOGObjectLevelArgs(@"EOKVC", @"keyPathArray=%@", keyPathArray);

          tmpKey = [keyPathArray objectAtIndex: 0];
          //EOFLOGObjectLevelArgs(@"EOKVC", @"tmpKey=%@", tmpKey);

          [keyPathArray removeObjectAtIndex: 0];

          if ([key length] > 0)
            [key appendString: @"."];

          if ([tmpKey hasSuffix: @"'"])
            {
              tmpKey = [tmpKey stringByDeletingSuffix: @"'"];
              [key appendString: tmpKey];
              break;
            }
          else
	    [key appendString: tmpKey];

          //EOFLOGObjectLevelArgs(@"EOKVC", @"key=%@", key);
        }

      //EOFLOGObjectLevelArgs(@"EOKVC", @"key=%@", key);
      //EOFLOGObjectLevelArgs(@"EOKVC",@"left keyPathArray=\"%@\"",
      //             keyPathArray);

      if ([keyPathArray count] > 0)
        {
          id obj = [self objectForKey: key];

          if (obj)
            {
              NSString *rightKeyPath = [keyPathArray
					 componentsJoinedByString: @"."];

              //EOFLOGObjectLevelArgs(@"EOKVC",@"rightKeyPath=\"%@\"",
              //             rightKeyPath);

              [obj  takeStoredValue: value
                    forKeyPath: rightKeyPath];
            }
        }
      else
        {
          if (value)
            [self setObject: value 
                  forKey: key];
          else
            [self removeObjectForKey: key];
        }
    }
  else
    {
      if (value)
        [self setObject: value 
              forKey: keyPath];
      else
        [self removeObjectForKey: keyPath];
    }

  EOFLOGObjectFnStopCond(@"EOKVC");
}

@end