workbench/libs/datatypes/lockdatatype.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 #include "datatypes_intern.h"
  10 #include <datatypes/datatypes.h>
  11 #include <proto/exec.h>
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16 #include <proto/datatypes.h>
  17
  18         AROS_LH1(VOID, LockDataType,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(struct DataType *, dt, A0),
  22
  23 /*  LOCATION */
  24         struct Library *, DataTypesBase, 40, DataTypes)
  25
  26 /*  FUNCTION
  27
  28     Lock a DataType structure obtained from ObtainDataTypeA() or a data type
  29     object (DTA_DataType).
  30
  31     INPUTS
  32
  33     dt  --  DataType structure; may be NULL
  34
  35     RESULT
  36
  37     NOTES
  38
  39     Calls to LockDataType() and ObtainDataTypeA() must have a corresponding
  40     ReleaseDataType() call or else problems will arise.
  41
  42     EXAMPLE
  43
  44     BUGS
  45
  46     SEE ALSO
  47
  48     ObtainDataTypeA(), ReleaseDataType()
  49
  50     INTERNALS
  51
  52     HISTORY
  53
  54     2.8.99  SDuvan  implemented
  55
  56 *****************************************************************************/
  57 {
  58     AROS_LIBFUNC_INIT
  59
  60     if(dt == NULL || dt->dtn_Length == 0)
  61         return;
  62
  63     ObtainSemaphoreShared(&(GPB(DataTypesBase)->dtb_DTList)->dtl_Lock);
  64
  65     ((struct CompoundDatatype *)dt)->OpenCount++;
  66
  67     ReleaseSemaphore(&(GPB(DataTypesBase)->dtb_DTList)->dtl_Lock);
  68
  69     AROS_LIBFUNC_EXIT
  70 } /* LockDataType */