added concrete implementations of putc(), getc(), getchar() and gets()
[tangerine.git] / workbench / libs / muimaster / mui_freeclass.c
blob0cebffd9dd80f57c72284cdab83499769778b32f
1 /*
2 Copyright © 2002-2007, The AROS Development Team. All rights reserved.
3 $Id$
4 */
6 #include <string.h>
8 #include <proto/muimaster.h>
9 #include <proto/intuition.h>
10 #include <proto/exec.h>
12 #include "muimaster_intern.h"
13 #include "support_classes.h"
14 #include "debug.h"
16 /*****************************************************************************
18 NAME */
19 AROS_LH1(VOID, MUI_FreeClass,
21 /* SYNOPSIS */
22 AROS_LHA(Class *, cl, A0),
24 /* LOCATION */
25 struct Library *, MUIMasterBase, 14, MUIMaster)
27 /* FUNCTION
28 Frees a class returned by MUI_GetClass().
30 INPUTS
31 cl - The pointer to the class.
33 RESULT
34 VOID - The function always succeed: if the class can't be
36 NOTES
37 This function is obsolete, DO NOT use it.
39 EXAMPLE
41 BUGS
43 SEE ALSO
44 MUI_GetClass(), MUI_CreateCustomClass(), MUI_DeleteCustomClass()
46 INTERNALS
48 HISTORY
50 *****************************************************************************/
52 AROS_LIBFUNC_INIT
54 ObtainSemaphore(&MUIMB(MUIMasterBase)->ZuneSemaphore);
56 /* CLF_INLIST tells us that this class is a builtin class */
57 if (cl->cl_Flags & CLF_INLIST)
59 Class *super = cl->cl_Super;
61 if (--cl->cl_Dispatcher.h_Data == 0)
63 ZUNE_RemoveBuiltinClass(cl, MUIMasterBase);
65 if (FreeClass(cl))
67 CloseLibrary(MUIMasterBase);
68 if (strcmp(super->cl_ID, ROOTCLASS) != 0)
69 MUI_FreeClass(super);
71 else
73 /* Re-add the class to the list since freeing it failed */
74 ZUNE_AddBuiltinClass(cl, MUIMasterBase);
76 /* And also increase the reference counter again */
77 cl->cl_Dispatcher.h_Data++;
81 ReleaseSemaphore(&MUIMB(MUIMasterBase)->ZuneSemaphore);
83 else
85 ReleaseSemaphore(&MUIMB(MUIMasterBase)->ZuneSemaphore);
87 CloseLibrary((struct Library *)cl->cl_Dispatcher.h_Data);
90 AROS_LIBFUNC_EXIT
92 } /* MUIA_FreeClass */