workbench/libs/commodities/attachcxobj.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 <libraries/commodities.h>
  15 #include <proto/exec.h>
  16 #include <proto/commodities.h>
  17
  18     AROS_LH2(VOID, AttachCxObj,
  19
  20 /*  SYNOPSIS */
  21
  22         AROS_LHA(CxObj *, headObj, A0),
  23         AROS_LHA(CxObj *, co,      A1),
  24
  25 /*  LOCATION */
  26
  27         struct Library *, CxBase, 14, Commodities)
  28
  29 /*  FUNCTION
  30
  31     Add commodity object 'co' last in the list of objects of object
  32     'headObj'.
  33
  34     INPUTS
  35
  36     headObj - pointer to a list of commodity objects
  37     co      - the object to add to the list
  38
  39
  40     RESULT
  41
  42     If 'headObj' is NULL the entire tree of objects pointed to by 'co'
  43     is deleted. If 'co' is NULL, this is recorded in the error field of
  44     'headObj'.
  45
  46     NOTES
  47
  48     EXAMPLE
  49
  50     BUGS
  51
  52     SEE ALSO
  53
  54     CxObjError(), ClearCxObjError()
  55
  56     INTERNALS
  57
  58     HISTORY
  59
  60 ******************************************************************************/
  61
  62 {
  63     AROS_LIBFUNC_INIT
  64
  65     if (headObj == NULL)
  66     {
  67         DeleteCxObjAll(co);
  68
  69         return;
  70     }
  71
  72     if (co == NULL)
  73     {
  74         headObj->co_Error |= COERR_NULLATTACH;
  75
  76         return;
  77     }
  78
  79     ObtainSemaphore(&GPB(CxBase)->cx_SignalSemaphore);
  80
  81     AddTail((struct List *)&headObj->co_ObjList, &co->co_Node);
  82     co->co_Flags |= COF_VALID;
  83
  84     ReleaseSemaphore(&GPB(CxBase)->cx_SignalSemaphore);
  85
  86     AROS_LIBFUNC_EXIT
  87 } /* AttachCxObject */