rom/oop/getattrbase.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: OOP function OOP_GetAttrBase
   6     Lang: english
   7 */
   8
   9 #include "intern.h"
  10 #include "hash.h"
  11 /*****************************************************************************
  12
  13     NAME */
  14 #include <proto/exec.h>
  15 #include <exec/memory.h>
  16 #include <aros/libcall.h>
  17
  18 #include <aros/debug.h>
  19
  20         AROS_LH1(OOP_AttrBase, OOP_GetAttrBase,
  21
  22 /*  SYNOPSIS */
  23         AROS_LHA(STRPTR         , interfaceID, A0),
  24
  25 /*  LOCATION */
  26         struct Library *, OOPBase, 15, OOP)
  27
  28 /*  FUNCTION
  29         Maps a globally unique string interface ID into
  30         a numeric AttrBase ID that is unique on
  31         pr. machine basis. IMPORTANT: You MUST
  32         be sure that at least one class implementing
  33         specified interface is initialized at the time calling
  34         this function. This function is especially useful
  35         for a class to get AttrBases of the interfaces
  36         it implements.
  37
  38     INPUTS
  39         interfaceID     - globally unique interface identifier.
  40
  41     RESULT
  42         Numeric AttrBase that is unique for this machine.
  43         There are NO error conditions.
  44
  45     NOTES
  46
  47     EXAMPLE
  48
  49     BUGS
  50
  51     SEE ALSO
  52
  53     INTERNALS
  54
  55     HISTORY
  56
  57 ******************************************************************************/
  58 {
  59     AROS_LIBFUNC_INIT
  60     AROS_LIBBASE_EXT_DECL(struct Library*,OOPBase)
  61
  62     /* Look up ID */
  63     struct iid_bucket *idb;
  64     struct HashTable *iidtable = GetOBase(OOPBase)->ob_IIDTable;
  65     ULONG base = -1UL;
  66
  67     EnterFunc(bug("OOP_GetAttrBase(interfaceID=%s)\n", interfaceID));
  68
  69     ObtainSemaphore(&GetOBase(OOPBase)->ob_IIDTableLock);
  70
  71
  72     /* Has ID allready been mapped to a numeric ID ? */
  73     idb = (struct iid_bucket *)iidtable->Lookup(iidtable, (IPTR)interfaceID, GetOBase(OOPBase));
  74     if (idb)
  75     {
  76
  77         /* If so, it has been stored in the hashtable, and we have
  78         ** to return the same numeric ID now.
  79         */
  80         if (idb->attrbase == -1UL)
  81         {
  82             /* The AttrBase has not yet been inited with ObtainAttrBase.
  83                I COULD init the attrbase now with the line below,
  84                but GetAttrBase() is only meant to work when
  85                attrbase has been previously initialized, so I won't
  86                support this.
  87
  88             idb->attrbase = GetOBase(OOPBase)->ob_CurrentAttrBase ++;
  89             */
  90
  91             base = 0;
  92         }
  93
  94         base = idb->attrbase;
  95         base <<= NUM_METHOD_BITS;
  96
  97         D(bug("Bucket found: id=%ld\n", base));
  98     }
  99     else
 100     {
 101         base = 0;
 102         D(bug("No existing bucket\n"));
 103
 104     }
 105
 106     if (base == 0)
 107     {
 108         /* Throw exception here */
 109     }
 110     ReleaseSemaphore(&GetOBase(OOPBase)->ob_IIDTableLock);
 111
 112     ReturnInt ("OOP_GetAttrBase", ULONG, base);
 113
 114     AROS_LIBFUNC_EXIT
 115
 116 } /* OOP_GetAttrBase  */
 117