workbench/libs/commodities/enqueuecxobj.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 <proto/exec.h>
  15 #include <proto/commodities.h>
  16 #include <libraries/commodities.h>
  17
  18     AROS_LH2(VOID, EnqueueCxObj,
  19
  20 /*  SYNOPSIS */
  21
  22         AROS_LHA(CxObj *, headObj, A0),
  23         AROS_LHA(CxObj *, co     , A1),
  24
  25 /*  LOCATION */
  26
  27         struct Library *, CxBase, 15, Commodities)
  28
  29 /*  FUNCTION
  30
  31     Insert commodity object 'co' into the list of objects connected to
  32     'headObj' according to the priority of 'co'. (The priority of an object
  33     can be set by the function SetCxObjPri().)
  34
  35     INPUTS
  36
  37     headObj - the object to which 'co' shall be inserted.
  38     co      - a pointer to a commodity object
  39
  40     RESULT
  41
  42     If 'headObj' is NULL, the object 'co' and all objects connected to it
  43     are deleted. If 'co' is NULL and 'headObj' is a valid object, the
  44     latter's accumulated error will be adjusted to incorporate
  45     COERR_NULLATTACH.
  46
  47     NOTES
  48
  49     For nodes with equal priority, this function inserts object like within
  50     a FIFO queue.
  51
  52     EXAMPLE
  53
  54     BUGS
  55
  56     SEE ALSO
  57
  58     SetCxObjPri(), CxObjError(), ClearCxObjError(),
  59     <libraries/commodities.h>
  60
  61     INTERNALS
  62
  63     HISTORY
  64
  65 *****************************************************************************/
  66
  67 {
  68     AROS_LIBFUNC_INIT
  69
  70     if (headObj == NULL)
  71     {
  72         DeleteCxObjAll(co);
  73
  74         return;
  75     }
  76
  77     if (co == NULL)
  78     {
  79         headObj->co_Error |= COERR_NULLATTACH;
  80
  81         return;
  82     }
  83
  84     ObtainSemaphore(&GPB(CxBase)->cx_SignalSemaphore);
  85
  86     Enqueue((struct List *)&headObj->co_ObjList, &co->co_Node);
  87     co->co_Flags |= COF_VALID;
  88
  89     ReleaseSemaphore(&GPB(CxBase)->cx_SignalSemaphore);
  90
  91     AROS_LIBFUNC_EXIT
  92 } /* EnqueueCxObj */