workbench/libs/locale/closelocale.c

   1 /*
   2     Copyright © 1995-2007, 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     HISTORY
  47         27-11-96    digulla automatically created from
  48                             locale_lib.fd and clib/locale_protos.h
  49
  50 *****************************************************************************/
  51 {
  52     AROS_LIBFUNC_INIT
  53
  54     /* Best make sure we actually have something freeable. */
  55     if(locale && (locale != (struct Locale *)IntLB(LocaleBase)->lb_DefaultLocale))
  56     {
  57         /* Make sure we don't have any race conditions */
  58         ObtainSemaphore(&IntLB(LocaleBase)->lb_LocaleLock);
  59         if(--IntL(locale)->il_Count == 0)
  60         {
  61             /* Free the locale structure if it's not the current locale */
  62             if (locale != (struct Locale *)IntLB(LocaleBase)->lb_CurrentLocale)
  63             {
  64               /* Close old .language, if any */
  65               if (IntLB(locale)->lb_CurrentLocale->il_CurrentLanguage)
  66                 CloseLibrary(IntLB(locale)->lb_CurrentLocale->il_CurrentLanguage);
  67
  68               /* Close old dos.catalog */
  69               CloseCatalog(IntLB(locale)->lb_CurrentLocale->il_DosCatalog);
  70
  71               FreeMem(locale, sizeof(struct IntLocale));
  72             }
  73         }
  74         ReleaseSemaphore(&IntLB(LocaleBase)->lb_LocaleLock);
  75     }
  76
  77     AROS_LIBFUNC_EXIT
  78 } /* CloseLocale */