* EOControl/EOEditingContext.m/.h:

o added -setLevelsOfUndo: (for GNustepWeb)
	* EOControl/EOFetchSpecification.m/.h:
	  o implemented -encodeWithKeyValueArchiver:
	* EOControl/EOKeyValueArchiver.m:
	  o cleaned


git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/gdl2/trunk@18228 72102866-910b-0410-8b05-ffd578937521

ChangeLog

@@ -91,6 +91,12 @@
 		  instead of building itself it's dictionary so we can
 		  always use the same EOMKKDInitializer to save	(lots of)
 		  memory.
+	* EOControl/EOEditingContext.m/.h:
+		o added -setLevelsOfUndo: (for GNustepWeb)
+	* EOControl/EOFetchSpecification.m/.h:
+		o implemented -encodeWithKeyValueArchiver:
+	* EOControl/EOKeyValueArchiver.m:
+		o cleaned
 	
 2003-10-24  David Ayers  <d.ayers@inode.at>
 

EOControl/EOEditingContext.h

@@ -102,8 +102,6 @@
 
 - initWithParentObjectStore:(EOObjectStore *)parentObjectStore;
 
-- init;
-
 - (NSArray *)objectsWithFetchSpecification: (EOFetchSpecification *)fetchSpecification;
 
 - (void)insertObject: (id)object;
@@ -112,6 +110,8 @@
 - (void)_insertObject: (id)object
          withGlobalID: (EOGlobalID *)gid;
 
+-(void)setLevelsOfUndo:(int)levels;
+
 - (void)deleteObject: (id)object;
 
 - (void)lockObject: (id)object;

EOControl/EOEditingContext.m

@@ -1742,6 +1742,11 @@ validateTable:(NSHashTable*)table
   _flags.registeredUndoTransactionID = NO;
 }
 
+-(void)setLevelsOfUndo:(int)levels
+{
+  //TODO
+};
+
 - (void) _registerClearStateWithUndoManager
 {
 //pas appellé dans le cas d'un delete ?

EOControl/EOFetchSpecification.h

@@ -101,7 +101,7 @@
 - copyWithZone:(NSZone *)zone;
 
 - (id) initWithKeyValueUnarchiver: (EOKeyValueUnarchiver*)unarchiver;
-- (void) encodeWithKeyValueArchiver: (EOKeyValueUnarchiver*)archiver;
+- (void) encodeWithKeyValueArchiver: (EOKeyValueArchiver*)archiver;
 
 - (void)setEntityName: (NSString *)entityName;
 - (NSString *)entityName;

EOControl/EOFetchSpecification.m

@@ -283,9 +283,38 @@ setRequiresAllQualifierBindingVariables:requiresAllQualifierBindingVariables
   return self;
 }
 
-- (void) encodeWithKeyValueArchiver: (EOKeyValueUnarchiver*)archiver
+- (void) encodeWithKeyValueArchiver: (EOKeyValueArchiver*)archiver
 {
-  [self notImplemented: _cmd];
+  [archiver encodeObject:_hints
+            forKey:@"hints"];
+  [archiver encodeObject:_qualifier
+            forKey:@"qualifier"];
+  [archiver encodeObject:_sortOrderings
+            forKey:@"sortOrderings"];
+  [archiver encodeObject:_entityName
+            forKey:@"entityName"];
+  [archiver encodeObject:_sortOrderings
+            forKey:@"sortOrderings"];
+  [archiver encodeObject:_prefetchingRelationshipKeys
+            forKey:@"prefetchingRelationshipKeyPaths"];
+  [archiver encodeInt:_fetchLimit
+            forKey:@"fetchLimit"];
+  [archiver encodeBool:_flags.usesDistinct
+            forKey:@"usesDistinct"];
+  [archiver encodeBool:_flags.isDeep
+            forKey:@"isDeep"];
+  [archiver encodeBool:_flags.locksObjects
+            forKey:@"locksObjects"];
+  [archiver encodeBool:_flags.refreshesRefetchedObjects
+            forKey:@"refreshesRefetchedObjects"];
+  [archiver encodeBool:_flags.promptsAfterFetchLimit
+            forKey:@"promptsAfterFetchLimit"];
+  [archiver encodeBool:_flags.refreshesRefetchedObjects
+            forKey:@"refreshesRefetchedObjects"];
+  [archiver encodeBool:_flags.promptsAfterFetchLimit
+            forKey:@"promptsAfterFetchLimit"];
+  [archiver encodeBool:_flags.allVariablesRequiredFromBindings
+            forKey:@"requiresAllQualifierBindingVariables"];
 }
 
 - (NSString*)description

EOControl/EOKeyValueArchiver.m

@@ -382,123 +382,6 @@ referenceToEncodeForObject: (id)object
   NSDebugMLLog(@"gsdb", @"retVal:%@", retVal);
 
   return retVal;
-  /*
-    {
-    batchSize = {AutoInitialized = 1; TypeName = Object; }; 
-    checkOutLength = {AutoInitialized = 1; TypeName = Object; }; 
-    cost = {AutoInitialized = 1; TypeName = Object; }; 
-    currentItem = {TypeName = Object; }; 
-    dateAcquired = {AutoInitialized = 1; TypeName = Object; }; 
-    discInsert = {TypeName = Object; }; 
-    errorString = {AutoInitialized = 1; TypeName = Object; }; 
-    media = {AutoInitialized = 1; TypeName = Object; }; 
-    movieMedia = {TypeName = MovieMedia; }; 
-    movieMediaDataSource = {TypeName = Object; }; 
-    moviemedias = {
-    AutoInitialized = 1; 
-    TypeName = MovieMedias; 
-    initialValue = {
-    class = WODisplayGroup; 
-    dataSource = {
-    class = EODatabaseDataSource; 
-    editingContext = session.defaultEditingContext; 
-    fetchSpecification = {class = EOFetchSpecification; entityName = MovieMedia; isDeep = YES; }; 
-    }; 
-    formatForLikeQualifier = "%@*"; 
-    numberOfObjectsPerBatch = 10; 
-    selectsFirstObjectAfterFetch = YES; 
-    }; 
-    }; 
-    objectArray = {TypeName = Object; }; 
-    ordering = {AutoInitialized = 1; TypeName = Object; }; 
-    orderingsArray = {AutoInitialized = 1; TypeName = Object; }; 
-    rentalType = {AutoInitialized = 1; TypeName = Object; }; 
-    selectedOrderings = {AutoInitialized = 1; TypeName = Object; }; 
-    tapeInsert = {TypeName = Object; }; 
-    yes = {TypeName = Object; }; 
-    }
-    [self _dictionaryForPropertyList:param0];
-
-    //2
-    {TypeName = Object; }
-    _dictionaryForPropertyList:{TypeName = Object; }
-
-
-
-    //4
-    Object 
-    return Object
-
-    //5 [2]
-    return {TypeName = Object; }
-
-
-
-
-    // A1
-    Description: {
-    AutoInitialized = 1; 
-    TypeName = MovieMedias; 
-    initialValue = {
-    class = WODisplayGroup; 
-    dataSource = {
-    class = EODatabaseDataSource; 
-    editingContext = session.defaultEditingContext; 
-    fetchSpecification = {class = EOFetchSpecification; entityName = MovieMedia; isDeep = YES; }; 
-    }; 
-    formatForLikeQualifier = "%@*"; 
-    numberOfObjectsPerBatch = 10; 
-    selectsFirstObjectAfterFetch = YES; 
-    }; 
-    }
-    _dictionaryForPropertyList:
-
-    //A 4
-    _objectForPropertyList:
-    Description: {
-    class = WODisplayGroup; 
-    dataSource = {
-    class = EODatabaseDataSource; 
-    editingContext = session.defaultEditingContext; 
-    fetchSpecification = {class = EOFetchSpecification; entityName = MovieMedia; isDeep = YES; }; 
-    }; 
-    formatForLikeQualifier = "%@*"; 
-    numberOfObjectsPerBatch = 10; 
-    selectsFirstObjectAfterFetch = YES; 
-    }
-
-
-
-    //B1
-    Description: {
-    class = EODatabaseDataSource; 
-    editingContext = session.defaultEditingContext; 
-    fetchSpecification = {class = EOFetchSpecification; entityName = MovieMedia; isDeep = YES; }; 
-    }
-
-    _objectForPropertyList:object
-    Description: {
-    class = EODatabaseDataSource; 
-    editingContext = session.defaultEditingContext; 
-    fetchSpecification = {class = EOFetchSpecification; entityName = MovieMedia; isDeep = YES; }; 
-    }
-
-
-    return _objectForPropertyList:obj;  EOFetchSpecification
-
-
-    _objectForPropertyList:{
-    class = WODisplayGroup; 
-    dataSource = {
-    class = EODatabaseDataSource; 
-    editingContext = session.defaultEditingContext; 
-    fetchSpecification = {class = EOFetchSpecification; entityName = MovieMedia; isDeep = YES; }; 
-    }; 
-    formatForLikeQualifier = "%@*"; 
-    numberOfObjectsPerBatch = 10; 
-    selectsFirstObjectAfterFetch = YES; 
-    }
-  */
 }
 
 - (id) _dictionaryForPropertyList: (NSDictionary*)propList