workbench/libs/locale/closecatalog.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Close a message catalog.
   6     Lang: english
   7 */
   8 #include <exec/types.h>
   9 #include <proto/exec.h>
  10 #include "locale_intern.h"
  11
  12 #define DEBUG_CLOSECATALOG(x)   ;
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <proto/locale.h>
  18
  19         AROS_LH1(void, CloseCatalog,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(struct Catalog *, catalog, A0),
  23
  24 /*  LOCATION */
  25         struct LocaleBase *, LocaleBase, 6, Locale)
  26
  27 /*  FUNCTION
  28         Conclude access to a message catalog, and decrement the use count.
  29         If this use count is 0, the catalog can be expunged when the
  30         system memory is running low.
  31
  32     INPUTS
  33         catalog -       the message catalog to close, note that NULL is
  34                         a valid catalog.
  35
  36     RESULT
  37         The catalog is closed, and should no longer be used by the
  38         application.
  39
  40     NOTES
  41
  42     EXAMPLE
  43
  44     BUGS
  45
  46     SEE ALSO
  47         GetCatalogStr(), OpenCatalogA()
  48
  49     INTERNALS
  50
  51     HISTORY
  52         27-11-96    digulla automatically created from
  53                             locale_lib.fd and clib/locale_protos.h
  54
  55 *****************************************************************************/
  56 {
  57     AROS_LIBFUNC_INIT
  58
  59     DEBUG_CLOSECATALOG(dprintf("CloseCatalog: catalog 0x%lx\n",catalog));
  60
  61     if(catalog != NULL)
  62     {
  63         ObtainSemaphore (&IntLB(LocaleBase)->lb_CatalogLock);
  64
  65         /* Decrement the use counter. */
  66         IntCat(catalog)->ic_UseCount--;
  67
  68         if (0 == IntCat(catalog)->ic_UseCount)
  69         {
  70             Remove(&catalog->cat_Link);
  71
  72             dispose_catalog((struct IntCatalog *)catalog, LocaleBase);
  73             FreeVec(catalog);
  74         }
  75
  76         ReleaseSemaphore(&IntLB(LocaleBase)->lb_CatalogLock);
  77
  78     }
  79
  80     DEBUG_CLOSECATALOG(dprintf("CloseCatalog: done\n"));
  81     AROS_LIBFUNC_EXIT
  82
  83 } /* CloseCatalog */