workbench/libs/desktop/amiga_lib_functions.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #define NO_INLINE_STDARG   /* turn off inline def */
   7
   8 #include <aros/asmcall.h>
   9
  10 #include <intuition/classusr.h>
  11 #include <intuition/classes.h>
  12
  13
  14 #include <proto/exec.h>
  15 #include <proto/intuition.h>
  16 #include <proto/muimaster.h>
  17
  18 #include <stdarg.h>
  19 #include "alib_intern.h"
  20 #include "desktop_intern.h"
  21
  22 #include <clib/alib_protos.h>
  23
  24 #define DEBUG 1
  25 #include <aros/debug.h>
  26
  27 /*
  28     All of the functions here have been copied from amiga.lib. This means we
  29     can convenient things like DoMethod() in desktop.library.
  30 */
  31
  32 static ULONG dbgDoMethodCount     = 0;
  33 static ULONG dbgDoMethodNULLCount = 0;
  34
  35 IPTR DoMethodA(Object * obj, Msg message)
  36 {
  37     dbgDoMethodCount++;
  38     D(bug("*** DoMethod count: %d\n", dbgDoMethodCount));
  39     ASSERT_VALID_PTR(obj);
  40     if (!obj)
  41     {
  42         dbgDoMethodNULLCount++;
  43         D(bug("*** DoMethodNULL count: %d\n", dbgDoMethodNULLCount));
  44         return 0L;
  45     }
  46     ASSERT_VALID_PTR(OCLASS(obj));
  47     ASSERT_VALID_PTR(message);
  48
  49     return (CallHookPkt((struct Hook *) OCLASS(obj), obj, message));
  50 } /* DoMethodA */
  51
  52 ULONG DoMethod(Object * obj, ULONG MethodID, ...)
  53 {
  54     AROS_SLOWSTACKMETHODS_PRE(MethodID)
  55
  56     dbgDoMethodCount++;
  57     D(bug("*** DoMethod count: %d\n", dbgDoMethodCount));
  58
  59     ASSERT_VALID_PTR(obj);
  60
  61     if (!obj)
  62     {
  63         dbgDoMethodNULLCount++;
  64         D(bug("*** DoMethodNULL count: %d\n", dbgDoMethodNULLCount));
  65         retval = 0L;
  66     }
  67     else
  68     {
  69         ASSERT_VALID_PTR(OCLASS(obj));
  70         retval = CallHookPkt
  71         (
  72             (struct Hook *) OCLASS(obj), obj,
  73             AROS_SLOWSTACKMETHODS_ARG(MethodID)
  74         );
  75     }
  76
  77     AROS_SLOWSTACKMETHODS_POST
  78 } /* DoMethod */
  79
  80 IPTR DoSuperMethodA(Class * cl, Object * obj, Msg message)
  81 {
  82     if ((!obj) || (!cl))
  83         return 0L;
  84     return CallHookPkt((struct Hook *) cl->cl_Super, obj, message);
  85 } /* DoSuperMethodA */
  86
  87 ULONG DoSuperMethod(Class * cl, Object * obj, ULONG MethodID, ...)
  88 {
  89     AROS_SLOWSTACKMETHODS_PRE(MethodID)
  90
  91     if ((!obj) || (!cl))
  92         retval = 0L;
  93     else
  94         retval = CallHookPkt
  95         (
  96             (struct Hook *) cl->cl_Super, obj,
  97             AROS_SLOWSTACKMETHODS_ARG(MethodID)
  98         );
  99
 100     AROS_SLOWSTACKMETHODS_POST
 101 } /* DoSuperMethod */
 102
 103 /* Putchar procedure needed by RawDoFmt() */
 104 AROS_UFH2(void, __putChr,
 105     AROS_UFHA(UBYTE, chr, D0),
 106     AROS_UFHA(STRPTR *, p, A3)
 107 )
 108 {
 109     AROS_USERFUNC_INIT
 110
 111     *(*p)++ = chr;
 112
 113     AROS_USERFUNC_EXIT
 114 }
 115
 116 VOID __sprintf(UBYTE * buffer, UBYTE * format, ...)
 117 {
 118     RawDoFmt(format, &format + 1, (VOID_FUNC) __putChr, &buffer);
 119 } /* sprintf */