1 files changed, 362 insertions, 0 deletions
diff --git a/sal/rtl/source/locale.c b/sal/rtl/source/locale.c
new file mode 100644
index 000000000000..89a8568f8478
--- /dev/null
+++ b/sal/rtl/source/locale.c
@@ -0,0 +1,362 @@
+/*************************************************************************
+ *
+ * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+ *
+ * Copyright 2000, 2010 Oracle and/or its affiliates.
+ *
+ * OpenOffice.org - a multi-platform office productivity suite
+ *
+ * This file is part of OpenOffice.org.
+ *
+ * OpenOffice.org is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU Lesser General Public License version 3
+ * only, as published by the Free Software Foundation.
+ *
+ * OpenOffice.org 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 Lesser General Public License version 3 for more details
+ * (a copy is included in the LICENSE file that accompanied this code).
+ *
+ * You should have received a copy of the GNU Lesser General Public License
+ * version 3 along with OpenOffice.org.  If not, see
+ * <http://www.openoffice.org/license.html>
+ * for a copy of the LGPLv3 License.
+ *
+ ************************************************************************/
+
+#include "rtl/locale.h"
+
+#include "osl/diagnose.h"
+#include "rtl/alloc.h"
+
+#include "internal/once.h"
+
+static sal_Int32 RTL_HASHTABLE_SIZE[] =
+{
+    7, 31, 127, 251, 509, 1021, 2039, 4093
+};
+
+typedef struct rtl_hashentry RTL_HASHENTRY;
+
+struct rtl_hashentry
+{
+    rtl_Locale* Entry;
+    RTL_HASHENTRY* Next;
+};
+
+typedef struct rtl_hashtable
+{
+    sal_Int8        iSize;
+    sal_Int32       Size;
+    sal_Int32       Elements;
+    RTL_HASHENTRY** Table;
+} RTL_HASHTABLE;
+
+static RTL_HASHTABLE* g_pLocaleTable = NULL;
+
+static rtl_Locale* g_pDefaultLocale = NULL;
+
+static int rtl_locale_init (void);
+
+/*************************************************************************
+ */
+void rtl_hashentry_destroy(RTL_HASHENTRY* entry)
+{
+    rtl_uString_release(entry->Entry->Language);
+    rtl_uString_release(entry->Entry->Country);
+    rtl_uString_release(entry->Entry->Variant);
+    if (entry->Next)
+        rtl_hashentry_destroy(entry->Next);
+
+    rtl_freeMemory(entry->Entry);
+    rtl_freeMemory(entry);
+}
+
+void rtl_hashtable_destroy(RTL_HASHTABLE* table)
+{
+    sal_Int32 size = 0;
+
+    if (!table)
+        return;
+
+    size = table->Size;
+
+    while (size)
+    {
+        if (table->Table[size - 1])
+            rtl_hashentry_destroy(table->Table[size - 1]);
+        size--;
+    }
+
+    rtl_freeMemory(table->Table);
+    rtl_freeMemory(table);
+}
+
+void rtl_hashtable_init(RTL_HASHTABLE** table, sal_Int8 sizeIndex)
+{
+    sal_Int32 nSize = RTL_HASHTABLE_SIZE[sizeIndex];
+
+    if (*table)
+        rtl_hashtable_destroy(*table);
+
+    *table = (RTL_HASHTABLE*)rtl_allocateMemory( sizeof(RTL_HASHTABLE) );
+
+    (*table)->iSize = sizeIndex;
+    (*table)->Size = nSize;
+    (*table)->Elements = 0;
+    (*table)->Table = (RTL_HASHENTRY**)rtl_allocateMemory( (*table)->Size * sizeof(RTL_HASHENTRY*) );
+
+    while (nSize)
+    {
+        (*table)->Table[nSize - 1] = NULL;
+        nSize--;
+    }
+}
+
+sal_Int32 rtl_hashfunc(RTL_HASHTABLE* table, sal_Int32 key)
+{
+    return ( (sal_uInt32) key % table->Size);
+}
+
+sal_Bool rtl_hashtable_grow(RTL_HASHTABLE** table);
+
+rtl_Locale* rtl_hashtable_add(RTL_HASHTABLE** table, rtl_Locale* value)
+{
+    sal_Int32 key = 0;
+
+    if (!(*table))
+        return NULL;
+
+    if ((*table)->Elements > ((*table)->Size / 2))
+        rtl_hashtable_grow(table);
+
+    key = rtl_hashfunc(*table, value->HashCode);
+
+    if (!(*table)->Table[key])
+    {
+        RTL_HASHENTRY *newEntry = (RTL_HASHENTRY*)rtl_allocateMemory( sizeof(RTL_HASHENTRY) );
+        newEntry->Entry = value;
+        newEntry->Next = NULL;
+        (*table)->Table[key] = newEntry;
+        (*table)->Elements++;
+        return NULL;
+    } else
+    {
+        RTL_HASHENTRY *pEntry = (*table)->Table[key];
+        RTL_HASHENTRY *newEntry = NULL;
+
+        while (pEntry)
+        {
+            if (value->HashCode == pEntry->Entry->HashCode)
+                return pEntry->Entry;
+
+            if (!pEntry->Next)
+                break;
+
+            pEntry = pEntry->Next;
+        }
+
+        newEntry = (RTL_HASHENTRY*)rtl_allocateMemory( sizeof(RTL_HASHENTRY) );
+        newEntry->Entry = value;
+        newEntry->Next = NULL;
+        pEntry->Next = newEntry;
+        (*table)->Elements++;
+        return NULL;
+    }
+}
+
+sal_Bool rtl_hashtable_grow(RTL_HASHTABLE** table)
+{
+    RTL_HASHTABLE* pNewTable = NULL;
+    sal_Int32 i = 0;
+
+    rtl_hashtable_init(&pNewTable, (sal_Int8)((*table)->iSize + 1));
+
+    while (i < (*table)->Size)
+    {
+        if ((*table)->Table[i])
+        {
+            RTL_HASHENTRY *pNext;
+            RTL_HASHENTRY *pEntry = (*table)->Table[i];
+
+            rtl_hashtable_add(&pNewTable, pEntry->Entry);
+
+            while (pEntry->Next)
+            {
+                rtl_hashtable_add(&pNewTable, pEntry->Next->Entry);
+                pNext = pEntry->Next;
+                rtl_freeMemory(pEntry);
+                pEntry = pNext;
+            }
+
+            rtl_freeMemory(pEntry);
+        }
+        i++;
+    }
+
+    rtl_freeMemory((*table)->Table);
+    rtl_freeMemory((*table));
+    (*table) = pNewTable;
+
+    return sal_True;
+}
+
+sal_Bool rtl_hashtable_find(RTL_HASHTABLE * table, sal_Int32 key, sal_Int32 hashCode, rtl_Locale** pValue)
+{
+    if (!table)
+        return sal_False;
+
+    if (table->Table[key])
+    {
+        RTL_HASHENTRY *pEntry = table->Table[key];
+
+        while (pEntry && hashCode != pEntry->Entry->HashCode)
+            pEntry = pEntry->Next;
+
+        if (pEntry)
+            *pValue = pEntry->Entry;
+        else
+            return sal_False;
+    } else
+        return sal_False;
+
+    return sal_True;
+}
+
+/*************************************************************************
+ *  rtl_locale_init
+ */
+static void rtl_locale_once_init (void)
+{
+  OSL_ASSERT(g_pLocaleTable == 0);
+  rtl_hashtable_init(&g_pLocaleTable, 1);
+}
+
+static int rtl_locale_init (void)
+{
+  static sal_once_type g_once = SAL_ONCE_INIT;
+  SAL_ONCE(&g_once, rtl_locale_once_init);
+  return (g_pLocaleTable != 0);
+}
+
+/*************************************************************************
+ *  rtl_locale_fini
+ */
+#if defined(__GNUC__)
+static void rtl_locale_fini (void) __attribute__((destructor));
+#elif defined(__SUNPRO_C) || defined(__SUNPRO_CC)
+#pragma fini(rtl_locale_fini)
+static void rtl_locale_fini (void);
+#endif /* __GNUC__ || __SUNPRO_C */
+
+void rtl_locale_fini (void)
+{
+  if (g_pLocaleTable != 0)
+  {
+    rtl_hashtable_destroy (g_pLocaleTable);
+    g_pLocaleTable = 0;
+  }
+}
+
+/*************************************************************************
+ *  rtl_locale_register
+ */
+rtl_Locale * SAL_CALL rtl_locale_register( const sal_Unicode * language, const sal_Unicode * country, const sal_Unicode * variant )
+{
+    sal_Unicode c = 0;
+    rtl_uString* sLanguage = NULL;
+    rtl_uString* sCountry = NULL;
+    rtl_uString* sVariant = NULL;
+    rtl_Locale *newLocale = NULL;
+    sal_Int32 hashCode = -1;
+    sal_Int32 key = 0;
+
+    if ( !country )
+        country = &c;
+    if ( !variant )
+        variant = &c;
+
+    if (!rtl_locale_init())
+      return NULL;
+
+    hashCode = rtl_ustr_hashCode(language) ^ rtl_ustr_hashCode(country) ^ rtl_ustr_hashCode(variant);
+    key = rtl_hashfunc(g_pLocaleTable, hashCode);
+
+    if (rtl_hashtable_find(g_pLocaleTable, key, hashCode, &newLocale))
+        return newLocale;
+
+    rtl_uString_newFromStr(&sLanguage, language);
+    rtl_uString_newFromStr(&sCountry, country);
+    rtl_uString_newFromStr(&sVariant, variant);
+
+    newLocale = (rtl_Locale*)rtl_allocateMemory( sizeof(rtl_Locale) );
+
+    newLocale->Language = sLanguage;
+    newLocale->Country = sCountry;
+    newLocale->Variant = sVariant;
+    newLocale->HashCode = hashCode;
+
+    rtl_hashtable_add(&g_pLocaleTable, newLocale);
+
+    return newLocale;
+}
+
+/*************************************************************************
+ *  rtl_locale_getDefault
+ */
+rtl_Locale * SAL_CALL rtl_locale_getDefault()
+{
+    return g_pDefaultLocale;
+}
+
+/*************************************************************************
+ *  rtl_locale_setDefault
+ */
+void SAL_CALL rtl_locale_setDefault( const sal_Unicode * language, const sal_Unicode * country, const sal_Unicode * variant )
+{
+    g_pDefaultLocale = rtl_locale_register(language, country, variant);
+}
+
+/*************************************************************************
+ *  rtl_locale_getLanguage
+ */
+rtl_uString * SAL_CALL rtl_locale_getLanguage( rtl_Locale * This )
+{
+    rtl_uString_acquire(This->Language);
+    return This->Language;
+}
+
+/*************************************************************************
+ *  rtl_locale_getCountry
+ */
+rtl_uString * SAL_CALL rtl_locale_getCountry( rtl_Locale * This )
+{
+    rtl_uString_acquire(This->Country);
+    return This->Country;
+}
+
+/*************************************************************************
+ *  rtl_locale_getVariant
+ */
+rtl_uString * SAL_CALL rtl_locale_getVariant( rtl_Locale * This )
+{
+    rtl_uString_acquire(This->Variant);
+    return This->Variant;
+}
+
+/*************************************************************************
+ *  rtl_locale_hashCode
+ */
+sal_Int32 SAL_CALL rtl_locale_hashCode( rtl_Locale * This )
+{
+    return This->HashCode;
+}
+
+/*************************************************************************
+ *  rtl_locale_equals
+ */
+sal_Int32 SAL_CALL rtl_locale_equals( rtl_Locale * This, rtl_Locale * obj  )
+{
+    return This == obj;
+}