test/oop2/method.c

   1 /*
   2    (C) 1997-98 AROS - The Amiga Research OS
   3    $Id$
   4
   5    Desc: Demo of new OOP system
   6    Lang: english
   7 */
   8
   9 #include "types.h"
  10 #include "oop.h"
  11
  12 #define CallMethod(cl, o, msg)                          \
  13 {                                                       \
  14     if (!(msg->MethodID >> NUM_METHOD_BITS))            \
  15     {                                                   \
  16         register struct Method *m = &(cl->MTable[msg->MethodID & METHOD_MASK]);\
  17         return ( m->MethodFunc(m->m_Class, o, msg)); \
  18     }   \
  19     return (NULL);\
  20 }
  21
  22 IPTR CoerceMethodA(Class *cl, Object *o, Msg msg)
  23 {
  24     CallMethod(cl, o, msg);
  25 }
  26
  27 IPTR DoMethodA(Object *o, Msg msg)
  28 {
  29     register Class *cl = OCLASS(o);
  30     CallMethod(cl, o, msg);
  31 }
  32
  33 IPTR DoSuperMethodA(Class *cl, Object *o, Msg msg)
  34 {
  35     Class *super = cl->SuperClass;
  36     CallMethod(super, o, msg);
  37 }
  38