workbench/libs/datatypes/classfuncs.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <proto/intuition.h>
   7 #include <intuition/classusr.h>
   8 #include "datatypes_intern.h"
   9
  10 AROS_UFP3(IPTR, Dispatcher,
  11           AROS_UFHA(Class *, class, A0),
  12           AROS_UFHA(Object *, object, A2),
  13           AROS_UFHA(Msg, msg, A1));
  14
  15 BOOL InstallClass(struct Library *DataTypesBase)
  16 {
  17     BOOL Success = FALSE;
  18
  19     if((GPB(DataTypesBase)->dtb_DataTypesClass = MakeClass(DATATYPESCLASS,
  20                                                     GADGETCLASS, NULL,
  21                                                     sizeof(struct DTObject),
  22                                                     0)))
  23     {
  24         GPB(DataTypesBase)->dtb_DataTypesClass->cl_Dispatcher.h_Entry = (HOOKFUNC)AROS_ASMSYMNAME(Dispatcher);
  25         GPB(DataTypesBase)->dtb_DataTypesClass->cl_UserData = (IPTR)DataTypesBase;
  26
  27         AddClass(GPB(DataTypesBase)->dtb_DataTypesClass);
  28
  29         Success = TRUE;
  30     }
  31
  32     if(!Success)
  33         TryRemoveClass(DataTypesBase);
  34
  35     return Success;
  36 }
  37
  38
  39 BOOL TryRemoveClass(struct Library *DataTypesBase)
  40 {
  41    if(GPB(DataTypesBase)->dtb_DataTypesClass != NULL)
  42    {
  43        if(FreeClass(GPB(DataTypesBase)->dtb_DataTypesClass))
  44            GPB(DataTypesBase)->dtb_DataTypesClass = NULL;
  45    }
  46
  47    return GPB(DataTypesBase)->dtb_DataTypesClass == NULL;
  48 }