mirror of
https://github.com/gnustep/libs-base.git
synced 2025-04-25 09:41:15 +00:00
5d10a9e03e
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@3725 72102866-910b-0410-8b05-ffd578937521
100 lines
2.6 KiB
Objective-C
100 lines
2.6 KiB
Objective-C
/* A demonstration of writing and reading GNU Objective C objects to a file. */
|
|
// Fri Oct 23 03:01:09 MET DST 1998 dave@turbocat.de
|
|
|
|
#include <base/Archiver.h>
|
|
#include <base/BinaryCStream.h>
|
|
#include <base/Array.h>
|
|
#include <base/Dictionary.h>
|
|
#include <Foundation/NSString.h>
|
|
#include <Foundation/NSAutoreleasePool.h>
|
|
#include <Foundation/NSValue.h>
|
|
|
|
int main(int argc, char *argv[])
|
|
{
|
|
id array, dictionary;
|
|
id archiver;
|
|
id name;
|
|
id arp;
|
|
int i;
|
|
Class cstream_class;
|
|
|
|
if (argc > 1)
|
|
cstream_class = objc_get_class (argv[1]);
|
|
else
|
|
cstream_class = [BinaryCStream class];
|
|
|
|
[NSObject enableDoubleReleaseCheck: YES];
|
|
arp = [[NSAutoreleasePool alloc] init];
|
|
|
|
/* Create an Array and Dictionary */
|
|
array = [Array new];
|
|
dictionary = [Dictionary new];
|
|
|
|
for (i = 0; i < 6; i++)
|
|
{
|
|
[array addObject: [NSNumber numberWithInt: i]];
|
|
[dictionary putObject: [NSNumber numberWithInt: i]
|
|
atKey: [NSNumber numberWithInt: i*i]];
|
|
}
|
|
[array printForDebugger];
|
|
[dictionary printForDebugger];
|
|
|
|
/* Write them to a file */
|
|
|
|
/* Create an instances of the Archiver class, specify that we
|
|
want human-readable "Text"-style, instead of "Binary"-style
|
|
coding. */
|
|
archiver = [[Archiver alloc] initForWritingToFile: @"./coder.dat"
|
|
withCStreamClass: cstream_class];
|
|
[archiver encodeObject: array
|
|
withName: @"Test Array"];
|
|
[archiver encodeObject: dictionary
|
|
withName: @"Test Dictionary"];
|
|
|
|
/* Release the objects that were coded */
|
|
[array release];
|
|
[dictionary release];
|
|
|
|
/* Close the archiver, (and thus flush the stream); then release it.
|
|
We must separate the idea of "closing" a stream and
|
|
"deallocating" a stream because of delays in deallocation due to
|
|
-autorelease. */
|
|
[archiver close];
|
|
[archiver release];
|
|
|
|
|
|
/* Read them back in from the file */
|
|
|
|
/* First create the unarchiver */
|
|
archiver = [Unarchiver newReadingFromFile: @"./coder.dat"];
|
|
|
|
/* Read in the Array */
|
|
[archiver decodeObjectAt: &array withName: &name];
|
|
if (name)
|
|
printf ("got object named %s\n", [name cString]);
|
|
else
|
|
printf ("got object named (unnamed)\n");
|
|
|
|
/* Read in the Dictionary */
|
|
[archiver decodeObjectAt: &dictionary withName: &name];
|
|
if (name)
|
|
printf ("got object named %s\n", [name cString]);
|
|
else
|
|
printf ("got object named (unnamed)\n");
|
|
|
|
/* Display what we read, to make sure it matches what we wrote */
|
|
[array printForDebugger];
|
|
[dictionary printForDebugger];
|
|
|
|
/* Relase the objects we read */
|
|
[array release];
|
|
[dictionary release];
|
|
|
|
/* Release the unarchiver. */
|
|
[archiver release];
|
|
|
|
/* Do the autorelease. */
|
|
[arp release];
|
|
|
|
exit(0);
|
|
}
|