workbench/libs/muimaster/mui_createcustomclass.c

   1 /*
   2     Copyright © 2002-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <proto/exec.h>
   7 #include <proto/intuition.h>
   8 #include <proto/graphics.h>
   9 #include <proto/dos.h>
  10 #include <proto/muimaster.h>
  11 #include <proto/utility.h>
  12
  13 #include "mui.h"
  14 #include "muimaster_intern.h"
  15 #include "support.h"
  16 #include "support_classes.h"
  17
  18 /*****************************************************************************
  19
  20     NAME */
  21         AROS_LH5(struct MUI_CustomClass *, MUI_CreateCustomClass,
  22
  23 /*  SYNOPSIS */
  24         AROS_LHA(struct Library *,         base,       A0),
  25         AROS_LHA(ClassID,                  supername,  A1),
  26         AROS_LHA(struct MUI_CustomClass *, supermcc,   A2),
  27         AROS_LHA(ULONG,                    datasize,   D0),
  28         AROS_LHA(APTR,                     dispatcher, A3),
  29
  30 /*  LOCATION */
  31         struct Library *, MUIMasterBase, 18, MUIMaster)
  32
  33 /*  FUNCTION
  34
  35     INPUTS
  36
  37     RESULT
  38
  39     NOTES
  40
  41     EXAMPLE
  42
  43     BUGS
  44         The function itself is a bug ;-) Remove it!
  45
  46     SEE ALSO
  47
  48     INTERNALS
  49
  50     HISTORY
  51
  52 *****************************************************************************/
  53 {
  54     AROS_LIBFUNC_INIT
  55
  56     struct MUI_CustomClass *mcc;
  57     struct IClass       *cl, *super;
  58     ClassID              id = NULL;
  59
  60     if ((supername == NULL) && (supermcc == NULL))
  61         return NULL;
  62
  63     if (!supermcc)
  64     {
  65         super = MUI_GetClass(supername);
  66         if (!super) return NULL;
  67     }
  68     else super = supermcc->mcc_Class;
  69
  70     if (!(mcc = mui_alloc_struct(struct MUI_CustomClass)))
  71         return NULL;
  72
  73     if (base)
  74         id = FilePart(((struct Node *)base)->ln_Name);
  75
  76     if (!(cl = MakeClass(id, NULL, super, datasize, 0)))
  77     {
  78         mui_free(mcc);
  79         return NULL;
  80     }
  81
  82     mcc->mcc_UtilityBase   = (struct Library *)UtilityBase;
  83     mcc->mcc_DOSBase       = (struct Library *)DOSBase;
  84     mcc->mcc_GfxBase       = (struct Library *)GfxBase;
  85     mcc->mcc_IntuitionBase = (struct Library *)IntuitionBase;
  86
  87     mcc->mcc_Class  = cl;
  88     mcc->mcc_Super  = super;
  89     mcc->mcc_Module = NULL; /* _zune_class_load() will set this */
  90
  91 #if defined(__MAXON__) || defined(__amigaos4__)
  92     cl->cl_Dispatcher.h_Entry    = (HOOKFUNC)dispatcher;
  93 #else
  94     cl->cl_Dispatcher.h_Entry    = (HOOKFUNC)metaDispatcher;
  95     cl->cl_Dispatcher.h_SubEntry = (HOOKFUNC)dispatcher;
  96 #endif
  97     cl->cl_Dispatcher.h_Data     = base;
  98
  99     return mcc;
 100
 101     AROS_LIBFUNC_EXIT
 102 } /* MUIA_CreateCustomClass */