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
  45     SEE ALSO
  46
  47     INTERNALS
  48
  49 *****************************************************************************/
  50 {
  51     AROS_LIBFUNC_INIT
  52
  53     struct MUI_CustomClass *mcc;
  54     struct IClass        *cl, *super;
  55     ClassID                 id = NULL;
  56
  57     if ((supername == NULL) && (supermcc == NULL))
  58         return NULL;
  59
  60     if (!supermcc)
  61     {
  62         super = MUI_GetClass(supername);
  63         if (!super) return NULL;
  64     }
  65     else super = supermcc->mcc_Class;
  66
  67     if (!(mcc = mui_alloc_struct(struct MUI_CustomClass)))
  68         return NULL;
  69
  70     if (base)
  71         id = FilePart(((struct Node *)base)->ln_Name);
  72
  73     if (!(cl = MakeClass(id, NULL, super, datasize, 0)))
  74     {
  75         mui_free(mcc);
  76         return NULL;
  77     }
  78
  79     mcc->mcc_UtilityBase   = (struct Library *)UtilityBase;
  80     mcc->mcc_DOSBase       = (struct Library *)DOSBase;
  81     mcc->mcc_GfxBase       = (struct Library *)GfxBase;
  82     mcc->mcc_IntuitionBase = (struct Library *)IntuitionBase;
  83
  84     mcc->mcc_Class  = cl;
  85     mcc->mcc_Super  = super;
  86     mcc->mcc_Module = NULL; /* _zune_class_load() will set this */
  87
  88 #if defined(__MAXON__) || defined(__amigaos4__)
  89     cl->cl_Dispatcher.h_Entry    = (HOOKFUNC)dispatcher;
  90 #else
  91     cl->cl_Dispatcher.h_Entry    = (HOOKFUNC)metaDispatcher;
  92     cl->cl_Dispatcher.h_SubEntry = (HOOKFUNC)dispatcher;
  93 #endif
  94     cl->cl_Dispatcher.h_Data     = base;
  95
  96     return mcc;
  97
  98     AROS_LIBFUNC_EXIT
  99 } /* MUIA_CreateCustomClass */