compiler/alib/dosupermethod.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #define INTUITION_NO_INLINE_STDARG
   7
   8 #include <intuition/classes.h>
   9 #include <stdarg.h>
  10 #include <proto/alib.h>
  11 #include "alib_intern.h"
  12
  13 /******************************************************************************
  14
  15     NAME */
  16 #include <intuition/classusr.h>
  17 #include <proto/intuition.h>
  18
  19         IPTR DoSuperMethodA (
  20
  21 /*  SYNOPSIS */
  22         Class  * cl,
  23         Object * obj,
  24         Msg      message)
  25
  26 /*  FUNCTION
  27         Invokes a method on a BOOPSI object, as if this was a object, inherited
  28         from the superclass of the class passed in. Ie the dispatcher of the
  29         superclass is called instead of the objects classes dispatcher.
  30
  31     INPUTS
  32         cl - Class, which superclasses dispatcher is to be called.
  33         obj - The object, on which the method is to be performed on.
  34         message - The message. The first field is the same for all methods and
  35                   specifies which method is to be invokes (see
  36                   <intuition/classusr.h>).
  37
  38     RESULT
  39         Class and method depending. See the class documentation. A value of 0
  40         can mean a valid return code but can also mean that a method was not
  41         supported.
  42
  43     NOTES
  44
  45     EXAMPLE
  46
  47     BUGS
  48
  49     SEE ALSO
  50         boopsi.library/NewObjectA(), boopsi.library/SetAttrsA(),
  51         boopsi.library/GetAttr(), boopsi.library/DisposeObject(), DoMethodA(),
  52         CoerceMethodA(), <intuition/classes.h>
  53
  54 ******************************************************************************/
  55 {
  56     if ((!obj) || (!cl))
  57         return 0L;
  58     return CALLHOOKPKT((struct Hook *)cl->cl_Super, obj, message);
  59 } /* DoSuperMethodA() */
  60
  61
  62 IPTR DoSuperMethod (Class * cl, Object * obj, STACKULONG MethodID, ...)
  63 {
  64     if ((!obj) || (!cl))
  65         return 0L;
  66     AROS_SLOWSTACKMETHODS_PRE(MethodID)
  67     retval = CALLHOOKPKT((struct Hook *)cl->cl_Super, obj, AROS_SLOWSTACKMETHODS_ARG(MethodID));
  68     AROS_SLOWSTACKMETHODS_POST
  69 } /* DoSuperMethod()*/