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