libs-base/Examples/textcoding.m
mccallum 55112e3931 Update for new Coder organization.
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@792 72102866-910b-0410-8b05-ffd578937521
1996-01-24 03:24:06 +00:00

73 lines
2 KiB
Objective-C

/* A demonstration of writing and reading GNU Objective C objects to a file,
in human-readable text format.
Look at the file "textcoding.txt" after running this program to see the
text archive format.
*/
#include <objects/Coder.h>
#include <objects/Set.h>
#include <objects/EltNodeCollector.h>
#include <objects/LinkedList.h>
#include <objects/LinkedListEltNode.h>
#include <objects/NSString.h>
int main()
{
id set, ll;
id coder;
id name;
/* Create a Set of int's
and a LinkedList of float's */
set = [[Set alloc] initWithType:@encode(int)];
ll = [[EltNodeCollector alloc] initWithType:@encode(float)
nodeCollector:[[LinkedList alloc] init]
nodeClass:[LinkedListEltNode class]];
/* Populate the Set and display it */
[set addElement:1234567];
[set addElement:2345678];
[set addElement:3456789];
[set addElement:4567891];
[set addElement:5678912];
[set printForDebugger];
/* Populate the LinkedList and display it */
[ll addElement:1.2f];
[ll addElement:(float)3.4];
[ll addElement:(float)5.6];
[ll addElement:(float)7.8];
[ll addElement:(float)9.0];
[ll printForDebugger];
/* Write them to a file */
coder = [Coder coderWritingToFile: @"./textcoding.txt"];
[coder encodeObject:set withName:@"Test Set"];
[coder encodeObject:ll withName:@"Test EltNodeCollector LinkedList"];
/* Release the objects that were coded */
[set release];
[ll release];
/* Read them back in from the file */
/* First init the stream and coder */
coder = [Coder coderReadingFromFile: @"./textcoding.txt"];
/* Read in the Set */
[coder decodeObjectAt:&set withName:&name];
printf("got object named %@\n", name);
/* Read in the LinkedList */
[coder decodeObjectAt:&ll withName:&name];
printf("got object named %@\n", name);
/* Display what we read, to make sure it matches what we wrote */
[set printForDebugger];
[ll printForDebugger];
/* Relase the objects we read */
[set release];
[ll release];
exit(0);
}