home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / misc / emu / AROSdev.lha / AROS / compiler / alib / coercemethod.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-01-27  |  1002 b   |  56 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: coercemethod.c,v 1.3 1997/01/27 00:16:35 ldp Exp $
  4.  
  5.     Desc: amiga.lib function CoerceMethod()
  6.     Lang: english
  7. */
  8. #include <intuition/classes.h>
  9. #include <stdarg.h>
  10. #include "alib_intern.h"
  11.  
  12. /******************************************************************************
  13.  
  14.     NAME */
  15. #include <proto/alib.h>
  16.  
  17.     IPTR CoerceMethodA (
  18.  
  19. /*  SYNOPSIS */
  20.     Class  * cl,
  21.     Object * obj,
  22.     Msg     message)
  23.  
  24. /*  FUNCTION
  25.  
  26.     INPUTS
  27.  
  28.     RESULT
  29.  
  30.     NOTES
  31.  
  32.     EXAMPLE
  33.  
  34.     BUGS
  35.  
  36.     SEE ALSO
  37.  
  38.     HISTORY
  39.     28.11.96    ada created
  40.  
  41. ******************************************************************************/
  42. {
  43.     return CallHookPkt ((struct Hook *)cl, obj, message);
  44. } /* CoerceMethodA */
  45.  
  46. ULONG CoerceMethod (Class * cl, Object * obj, ULONG MethodID, ...)
  47. {
  48.     AROS_SLOWSTACKMETHODS_PRE(MethodID)
  49.     retval = CallHookPkt ((struct Hook *)cl
  50.     , obj
  51.     , AROS_SLOWSTACKMETHODS_ARG(MethodID)
  52.     );
  53.     AROS_SLOWSTACKMETHODS_POST
  54. } /* CoerceMethod */
  55.  
  56.