libs-base/Source/GSLocale.m

/* GSLocale - various functions for localization
    
   Copyright (C) 2000 Free Software Foundation, Inc.

   Written by:  Adam Fedor <fedor@gnu.org>
   Created: Oct 2000

   This file is part of the GNUstep Base Library.

   This library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Library General Public
   License as published by the Free Software Foundation; either
   version 2 of the License, or (at your option) any later version.
   
   This library is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   Library General Public License for more details.

   You should have received a copy of the GNU Library General Public
   License along with this library; if not, write to the Free
   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 USA.
*/
#include <config.h>
#include <base/GSLocale.h>
#include <Foundation/NSDictionary.h>
#include <Foundation/NSArray.h>

#ifdef HAVE_LOCALE_H

#include <locale.h>
#include <langinfo.h>
#include <Foundation/NSUserDefaults.h>
#include <Foundation/NSBundle.h>

/* Set the locale for libc functions from the supplied string or from
   the environment if not specified. This function should be called
   as soon as possible after the start of the program. Passing
   @"" will set the locale from the environment varialbes LC_ALL or LANG (or
   whatever is specified by setlocale) Passing nil will just return the
   current locale. */
NSString *
GSSetLocale(NSString *locale)
{
  const char *clocale;

  clocale = NULL;
  if (locale)
    clocale = [locale cString];
  clocale = setlocale(LC_ALL, clocale);

  if (clocale == NULL || strcmp(clocale, "C") == 0 
      || strcmp(clocale, "POSIX") == 0) 
    clocale = NULL;

  locale = nil;
  if (clocale)
    locale = [NSString stringWithCString: clocale];
  return locale;
}

#define GSLanginfo(value) [NSString stringWithCString: nl_langinfo (value)]

/* Creates a locale dictionary from information provided by i18n functions.
   Many, but not all, of the keys are filled in or inferred from the
   available information */
NSDictionary *
GSDomainFromDefaultLocale(void)
{
#ifdef HAVE_LANGINFO_H
  int i;
  struct lconv *lconv;
  NSMutableDictionary *dict;
  NSMutableArray *arr;
  NSString *str1, *str2;

  dict = [NSMutableDictionary dictionary];

  /* Time/Date Information */
  arr = [NSMutableArray arrayWithCapacity: 7];
  for (i = 0; i < 7; i++)
    [arr addObject: GSLanginfo(DAY_1+i)];
  [dict setObject: arr forKey: NSWeekDayNameArray];

  arr = [NSMutableArray arrayWithCapacity: 7];
  for (i = 0; i < 7; i++)
    [arr addObject: GSLanginfo(ABDAY_1+i)];
  [dict setObject: arr forKey: NSShortWeekDayNameArray];

  arr = [NSMutableArray arrayWithCapacity: 12];
  for (i = 0; i < 12; i++)
    [arr addObject: GSLanginfo(MON_1+i)];
  [dict setObject: arr forKey: NSMonthNameArray];

  arr = [NSMutableArray arrayWithCapacity: 12];
  for (i = 0; i < 12; i++)
    [arr addObject: GSLanginfo(ABMON_1+i)];
  [dict setObject: arr forKey: NSShortMonthNameArray];

  str1 = GSLanginfo(AM_STR);
  str2 = GSLanginfo(PM_STR);
  if (str1 && str2)
    [dict setObject: [NSArray arrayWithObjects: str1, str2, nil]
	  forKey: NSAMPMDesignation];

  [dict setObject: GSLanginfo(D_T_FMT) forKey: NSTimeDateFormatString];
  [dict setObject: GSLanginfo(D_FMT)   forKey: NSShortDateFormatString];
  [dict setObject: GSLanginfo(T_FMT)   forKey: NSTimeFormatString];

  lconv = localeconv();

  /* Currency Information */
  if (lconv->currency_symbol)
    [dict setObject: [NSString stringWithCString: lconv->currency_symbol ]
	  forKey: NSCurrencySymbol];
  if (lconv->int_curr_symbol)
    [dict setObject:  [NSString stringWithCString: lconv->int_curr_symbol]
	  forKey: NSInternationalCurrencyString ];
  if (lconv->mon_decimal_point)
    [dict setObject:  [NSString stringWithCString: lconv->mon_decimal_point]
	  forKey: NSInternationalCurrencyString ];
  if (lconv->mon_thousands_sep)
    [dict setObject:  [NSString stringWithCString: lconv->mon_thousands_sep]
	  forKey: NSInternationalCurrencyString ];
  /* FIXME: Get currency format from localeconv */


  /* Miscellaneous */
  if (nl_langinfo(YESSTR))
    [dict setObject: GSLanginfo(YESSTR)   forKey: @"NSYesStr"];
  if (nl_langinfo(NOSTR))
    [dict setObject: GSLanginfo(NOSTR)   forKey: @"NSNoStr"];

  str1 = [NSString stringWithCString: setlocale(LC_ALL, NULL)];
  [dict setObject: str1	forKey: NSLocale];
  str2 = GSLanguageFromLocale(str1);
  if (str2)
    [dict setObject: str2 forKey: NSLanguageName];

  return dict;
#else /* HAVE_LANGINFO_H */
  return nil;
#endif
}

NSString *
GSLanguageFromLocale(NSString *locale)
{
  NSString *language = nil;
  NSString *aliases = nil;

  if (locale == nil || [locale isEqual: @"C"] || [locale isEqual: @"POSIX"])
    return @"English";

  aliases = [NSBundle pathForGNUstepResource: @"Locale"
		                      ofType: @"aliases"
		                 inDirectory: @"Resources/Languages"];  
  if (aliases)
    {
      NSDictionary *dict;
      dict = [NSDictionary dictionaryWithContentsOfFile: aliases];
      language = [dict objectForKey: locale];
      if (language == nil && [locale pathExtension])
	{
	  locale = [locale stringByDeletingPathExtension];
	  language = [dict objectForKey: locale];
	}
      if (language == nil)
	{
	  locale = [locale substringFromRange: NSMakeRange(0, 2)];
	  language = [dict objectForKey: locale];
	}
    }
      
  return language;
}

#else /* HAVE_LOCALE_H */
NSString *
GSSetLocale(NSString *locale)
{
  return nil;
}

NSDictionary *
GSDomainFromDefaultLocale(void)
{
  return nil;
}

NSString *
GSLanguageFromLocale(NSString *locale)
{
  return nil;
}

#endif /* !HAVE_LOCALE_H */