workbench/libs/commodities/deletecxobjall.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 /*****************************************************************************
  10
  11     NAME */
  12
  13 #include "cxintern.h"
  14 #include <exec/lists.h>
  15 #include <proto/exec.h>
  16 #include <proto/commodities.h>
  17
  18 VOID RecRem(CxObj *, struct Library *CxBase);
  19
  20     AROS_LH1(VOID, DeleteCxObjAll,
  21
  22 /*  SYNOPSIS */
  23
  24         AROS_LHA(CxObj *, co, A0),
  25
  26 /*  LOCATION */
  27
  28         struct Library *, CxBase, 9, Commodities)
  29
  30 /*  FUNCTION
  31
  32     Delete object and and all objects connected to commodity object 'co'.
  33     Handy for instances like when you are shutting down your commodity.
  34     To remove your commodity tree, just DeleteCxObjAll(YourBroker).
  35
  36     INPUTS
  37
  38     co  --  the object in question (may be NULL)
  39
  40     RESULT
  41
  42     NOTES
  43
  44     The handle 'co' is invalid after the operation.
  45
  46     EXAMPLE
  47
  48     BUGS
  49
  50     SEE ALSO
  51
  52     DeleteCxObj()
  53
  54     INTERNALS
  55
  56     HISTORY
  57
  58 ******************************************************************************/
  59
  60 {
  61     AROS_LIBFUNC_INIT
  62
  63     if (co == NULL)
  64     {
  65         return;
  66     }
  67
  68     RemoveCxObj(co);
  69     RecRem((CxObj *)GetHead(&co->co_ObjList), CxBase);
  70     FreeCxStructure(co, CX_OBJECT, CxBase);
  71
  72     AROS_LIBFUNC_EXIT
  73 } /* DeleteCxObjAll */
  74
  75
  76 VOID RecRem(CxObj *obj, struct Library *CxBase)
  77 {
  78     CxObj *next;
  79
  80     while (obj != NULL)
  81     {
  82         RecRem((CxObj *)GetHead(&obj->co_ObjList), CxBase);
  83
  84         next = (CxObj *)GetSucc(obj);
  85         FreeCxStructure(obj, CX_OBJECT, CxBase);
  86         obj = next;
  87
  88     }
  89 }