rom/oop/getmethodid.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: OOP function OOP_GetMethodID
   6     Lang: english
   7 */
   8 #include "intern.h"
   9 /*****************************************************************************
  10
  11     NAME */
  12 #include <proto/exec.h>
  13 #include <proto/oop.h>
  14 #include <exec/memory.h>
  15 #include <aros/libcall.h>
  16
  17 #include <aros/debug.h>
  18 #include "hash.h"
  19
  20         AROS_LH2(OOP_MethodID, OOP_GetMethodID,
  21
  22 /*  SYNOPSIS */
  23         AROS_LHA(STRPTR         , interfaceID, A0),
  24         AROS_LHA(ULONG          , methodOffset, D0),
  25
  26 /*  LOCATION */
  27         struct Library *, OOPBase, 7, OOP)
  28
  29 /*  FUNCTION
  30         Maps a globally unique full method ID
  31         (Interface ID + method offset) into
  32         a numeric method ID.
  33
  34     INPUTS
  35         interfaceID     - globally unique interface identifier.
  36         methodOffset    - offset to the method in this interface.
  37
  38
  39     RESULT
  40         Numeric method identifier that is unique for this machine.
  41
  42     NOTES
  43
  44     EXAMPLE
  45
  46     BUGS
  47
  48     SEE ALSO
  49
  50     INTERNALS
  51
  52     HISTORY
  53
  54 ******************************************************************************/
  55 {
  56     AROS_LIBFUNC_INIT
  57     AROS_LIBBASE_EXT_DECL(struct Library*,OOPBase)
  58
  59     /* Look up ID */
  60     ULONG mid = 0UL;
  61     struct iid_bucket *idb;
  62     struct HashTable *iidtable = GetOBase(OOPBase)->ob_IIDTable;
  63
  64     EnterFunc(bug("OOP_GetMethodID(interfaceID=%s, methodOffset=%ld)\n",
  65         interfaceID, methodOffset));
  66
  67 /* #warning doesn't handle failures. (Should throw exception of some kind)
  68 */
  69     idb = (struct iid_bucket *)iidtable->Lookup(iidtable, (IPTR)interfaceID, GetOBase(OOPBase));
  70     if (idb)
  71     {
  72         D(bug("Got mid %ld\n", mid));
  73         /* Should throw eception here if metodbase == -1UL */
  74         mid = idb->methodbase + methodOffset;
  75
  76         ReturnInt ("OOP_GetMethodID", ULONG, mid);
  77     }
  78
  79     /* Should throw exception here */
  80
  81     /* The ID must be left-shifted to make place for method offsets */
  82     ReturnInt ("OOP_GetMethodID", ULONG, -1UL);
  83
  84     AROS_LIBFUNC_EXIT
  85
  86 } /* OOP_GetMethodID  */
  87