workbench/libs/locale/closelocale.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: CloseLocale() - Close a locale structure.
   6     Lang: english
   7 */
   8 #include <exec/types.h>
   9 #include <proto/exec.h>
  10 #include "locale_intern.h"
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <proto/locale.h>
  16
  17         AROS_LH1(void, CloseLocale,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(struct Locale *, locale, A0),
  21
  22 /*  LOCATION */
  23         struct LocaleBase *, LocaleBase, 7, Locale)
  24
  25 /*  FUNCTION
  26         Finish accessing a Locale.
  27
  28     INPUTS
  29         locale  -   An opened locale. Note that NULL is a valid
  30                     parameter here, and will simply be ignored.
  31
  32     RESULT
  33         The locale is released back to the system.
  34
  35     NOTES
  36
  37     EXAMPLE
  38
  39     BUGS
  40
  41     SEE ALSO
  42         OpenLocale()
  43
  44     INTERNALS
  45
  46 *****************************************************************************/
  47 {
  48     AROS_LIBFUNC_INIT
  49
  50     /* Best make sure we actually have something freeable. */
  51     if (locale
  52         && (locale != (struct Locale *)IntLB(LocaleBase)->lb_DefaultLocale))
  53     {
  54         /* Make sure we don't have any race conditions */
  55         ObtainSemaphore(&IntLB(LocaleBase)->lb_LocaleLock);
  56         if (--IntL(locale)->il_Count == 0)
  57         {
  58             /* Free the locale structure if it's not the current locale */
  59             if (locale !=
  60                 (struct Locale *)IntLB(LocaleBase)->lb_CurrentLocale)
  61             {
  62                 /* Close old .language, if any */
  63                 if (IntLB(locale)->lb_CurrentLocale->il_CurrentLanguage)
  64                     CloseLibrary(IntLB(locale)->lb_CurrentLocale->
  65                         il_CurrentLanguage);
  66
  67                 /* Close old dos.catalog */
  68                 CloseCatalog(IntLB(locale)->lb_CurrentLocale->
  69                     il_DosCatalog);
  70
  71                 FreeMem(locale, sizeof(struct IntLocale));
  72             }
  73         }
  74         ReleaseSemaphore(&IntLB(LocaleBase)->lb_LocaleLock);
  75     }
  76
  77     AROS_LIBFUNC_EXIT
  78 }