#3 FINALY !!! objects-wiki.c compiles (with -Wall) and runs !

[svn/Cll1h/.git] / demos / objects / objects-wiki.c

#include "cll1.h"

/* This is C<<1 rewrite of object polymorphism from
   http://en.wikipedia.org/wiki/Polymorphism_in_object-oriented_programming
   
   Of course there are easier ways to do the same thing... :-) 
   (G)2008 xChas */

def_mem(Actions)
{
 str method(talk) (anonymous self);
};

def_mem(Animal)
{
 interface(Actions);
 char *name;
};

construct(Animal) (Animal self, str name)
{
 self->name = name;
 return self;
}

str cat_talk(anonymous self)
{
 return "Meow!";
}

str dog_talk(anonymous self)
{
 return "Arf! Arf!";
}

Actions cat_actions(void)
{
 Get_mem(this,Actions);

 this->talk = cat_talk;
 return this;
}

Actions dog_actions(void)
{
 Get_mem(this,Actions);

 this->talk = dog_talk;
 return this;
}

program
{
 int i;
 Animal animal[3];
 Actions cat = cat_actions();
 Actions dog = dog_actions();

 animal[0] = get_obj(Animal,cat,"Missy");
 animal[1] = get_obj(Animal,cat,"Mr. Bojangles");
 animal[2] = get_obj(Animal,dog,"Lassie");

 for_range(i, 0, 2)
 {
  print(animal[i]->name,":",_(talk,animal[i]));
 }
}