libs-base/Examples/textcoding.m

/* 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);
}