rom/boopsi/makeclass.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Initialize a BOOPSI class
   6     Lang: english
   7 */
   8 #include <exec/lists.h>
   9 #include <exec/memory.h>
  10 #include <proto/exec.h>
  11 #include "intern.h"
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16 #include <intuition/classes.h>
  17 #include <proto/boopsi.h>
  18
  19         AROS_LH5(struct IClass *, MakeClass,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(UBYTE         *, classID, A0),
  23         AROS_LHA(UBYTE         *, superClassID, A1),
  24         AROS_LHA(struct IClass *, superClassPtr, A2),
  25         AROS_LHA(ULONG          , instanceSize, D0),
  26         AROS_LHA(ULONG          , flags, D1),
  27
  28 /*  LOCATION */
  29         struct Library *, BOOPSIBase, 10, BOOPSI)
  30
  31 /*  FUNCTION
  32         Only for class implementators.
  33
  34         This function creates a new public BOOPSI class. The SuperClass
  35         should be another BOOPSI class; all BOOPSI classes are subclasses
  36         of the ROOTCLASS.
  37
  38         SuperClasses can by private or public. You can specify a name/ID
  39         for the class if you want it to become a public class. For public
  40         classes, you must call AddClass() afterwards to make it public
  41         accessible.
  42
  43         The return value contains a pointer to the IClass structure of your
  44         class. You must specify your dispatcher in cl_Dispatcher. You can
  45         also store shared data in cl_UserData.
  46
  47         To get rid of the class, you must call FreeClass().
  48
  49     INPUTS
  50         classID - NULL for private classes otherwise the name/ID of the
  51                 public class.
  52         superClassID - Name/ID of a public SuperClass. NULL is you don't
  53                 want to use a public SuperClass or if you have the pointer
  54                 your SuperClass.
  55         superClassPtr - Pointer to the SuperClass. If this is non-NULL,
  56                 then superClassID is ignored.
  57         instanceSize - The amount of memory which your objects need (in
  58                 addition to the memory which is needed by the SuperClass(es))
  59         flags - For future extensions. To maintain comaptibility, use 0
  60                 for now.
  61
  62     RESULT
  63         Pointer to the new class or NULL if
  64         - There wasn't enough memory
  65         - The superclass couldn't be found
  66         - There already is a class with the same name/ID.
  67
  68     NOTES
  69         No copy is made of classID. So make sure the lifetime of the contents
  70         of classID is at least the same as the lifetime of the class itself.
  71
  72     EXAMPLE
  73
  74     BUGS
  75
  76     SEE ALSO
  77
  78     INTERNALS
  79
  80     HISTORY
  81         29-10-95    digulla automatically created from
  82                             intuition_lib.fd and clib/intuition_protos.h
  83
  84 *****************************************************************************/
  85 {
  86     AROS_LIBFUNC_INIT
  87     AROS_LIBBASE_EXT_DECL(struct Library *,BOOPSIBase)
  88     Class * iclass;
  89
  90     /* trust the user ;-) */
  91     if (!superClassID && !superClassPtr)
  92         return (NULL);
  93
  94     /* Does this class already exist ? */
  95     if (FindClass (classID))
  96         return (NULL);
  97
  98     /* Has the user specified a classPtr ? */
  99     if (!superClassPtr)
 100     {
 101         /* Search for the class ... */
 102         superClassPtr = FindClass (superClassID);
 103
 104         if (!superClassPtr)
 105             return (NULL);  /* nothing found */
 106     }
 107
 108     /* Get some memory */
 109     if ((iclass = (Class *) AllocMem (sizeof (Class), MEMF_PUBLIC|MEMF_CLEAR)))
 110     {
 111         /* Felder init */
 112         iclass->cl_Super      = superClassPtr;
 113         iclass->cl_ID         = classID;
 114         iclass->cl_InstOffset = superClassPtr->cl_InstOffset +
 115                                 superClassPtr->cl_InstSize;
 116         iclass->cl_InstSize   = instanceSize;
 117         iclass->cl_Flags      = flags;
 118
 119         /* SuperClass is used one more time now */
 120         superClassPtr->cl_SubclassCount ++;
 121     }
 122
 123     return (iclass);
 124     AROS_LIBFUNC_EXIT
 125 } /* MakeClass */