workbench/libs/commodities/insertcxobj.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_LH3(VOID, InsertCxObj,
  19
  20 /*  SYNOPSIS */
  21
  22         AROS_LHA(CxObj *, headObj, A0),
  23         AROS_LHA(CxObj *, co     , A1),
  24         AROS_LHA(CxObj *, pred   , A2),
  25
  26 /*  LOCATION */
  27
  28         struct Library *, CxBase, 16, Commodities)
  29
  30 /*  FUNCTION
  31
  32     Insert commodity object 'co' into the list of object connected to
  33     'headObj' after the object 'pred'.
  34
  35     INPUTS
  36
  37     headObj  -  poiter to a list of objects to which 'co' shall be inserted
  38     co       -  commodity object to be inserted (may be NULL)
  39     pred     -  the object 'co' shall be inserted after (may be NULL)
  40
  41     RESULT
  42
  43     If 'headObj' is NULL, the object 'co' and all objects connected to it
  44     are deleted. If 'co' is NULL and 'headObj' is a valid object, the
  45     latter's accumulated error will be adjusted to incorporate
  46     COERR_NULLATTACH. If 'pred' is NULL, the object will be inserted first
  47     in the list.
  48
  49     NOTES
  50
  51     EXAMPLE
  52
  53     BUGS
  54
  55     SEE ALSO
  56
  57     CxObjError(), ClearCxObjError()
  58
  59     INTERNALS
  60
  61     HISTORY
  62
  63 ******************************************************************************/
  64
  65 {
  66     AROS_LIBFUNC_INIT
  67
  68     if (headObj == NULL)
  69     {
  70         DeleteCxObjAll(co);
  71
  72         return;
  73     }
  74
  75     if (co == NULL)
  76     {
  77         headObj->co_Error |= COERR_NULLATTACH;
  78
  79         return;
  80     }
  81
  82     ObtainSemaphore(&GPB(CxBase)->cx_SignalSemaphore);
  83
  84     Insert((struct List *)&headObj->co_ObjList, &co->co_Node, &pred->co_Node);
  85     co->co_Flags |= COF_VALID;
  86
  87     ReleaseSemaphore(&GPB(CxBase)->cx_SignalSemaphore);
  88
  89     AROS_LIBFUNC_EXIT
  90 } /* InsertCxObj */