Added encodeDataObject: and decodeDataObject

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

Source/NSArchiver.m

@@ -674,6 +674,28 @@ static SEL eValSel = @selector(encodeValueOfObjCType:at:);
     }
 }
 
+- (void) encodeDataObject: (NSData*)anObject
+{
+  unsigned	l = [anObject length];
+
+  (*eValImp)(self, eValSel, @encode(unsigned int), &l);
+  if (l)
+    {
+      const void	*b = [anObject bytes];
+      unsigned char	c = 0;			/* Type tag	*/
+
+      /*
+       * The type tag 'c' is used to specify an encoding scheme for the
+       * actual data - at present we have '0' meaning raw data.  In the
+       * future we might want zipped data for instance.
+       */
+      (*eValImp)(self, eValSel, @encode(unsigned char), &c);
+      [self encodeArrayOfObjCType: @encode(unsigned char)
+			    count: l
+			       at: b];
+    }
+}
+
 - (void) encodeObject: (id)anObject
 {
   if (anObject == nil)

Source/NSUnarchiver.m

@@ -950,6 +950,39 @@ mapClassName(NSUnarchiverObjectInfo *info)
     }
 }
 
+- (NSData*) decodeDataObject
+{
+  unsigned	l;
+
+  (*dValImp)(self, dValSel, @encode(unsigned int), &l);
+  if (l)
+    {
+      unsigned char	c;
+
+      (*dValImp)(self, dValSel, @encode(unsigned char), &c);
+      if (c == 0)
+	{
+	  void		*b;
+	  NSData	*d;
+
+	  b = NSZoneMalloc(zone, l);
+	  d = [[NSData allocWithZone: zone] initWithBytesNoCopy: b
+							 length: l
+						       fromZone: zone];
+	  [d autorelease];
+	  [self decodeArrayOfObjCType: @encode(unsigned char)
+				count: l
+				   at: b];
+	  return d;
+	}
+      else
+	[NSException raise: NSInternalInconsistencyException
+		    format: @"Decoding data object with unknown type"];
+    }
+  else
+    return [NSData data];
+}
+
 /*
  *	The [-decodeObject] method is implemented purely for performance -
  *	It duplicates the code for handling objects in the