/home/ntakagi/work/STLport-5.1.5/src/locale_catalog.cpp Go to the documentation of this file. /* * Copyright (c) 1999 * Silicon Graphics Computer Systems, Inc. * * Copyright (c) 1999 * Boris Fomitchev * * This material is provided "as is", with absolutely no warranty expressed * or implied. Any use is at your own risk. * * Permission to use or copy this software for any purpose is hereby granted * without fee, provided the above notices are retained on all copies. * Permission to modify the code and to distribute modified code is granted, * provided the above notices are retained, and a notice that the code was * modified is included with the above copyright notice. * */ #include "stlport_prefix.h" #include <hash_map> #include <string> #include <locale> #include <istream> #include "c_locale.h" #include "locale_impl.h" #include "acquire_release.h" _STLP_BEGIN_NAMESPACE _STLP_MOVE_TO_PRIV_NAMESPACE // those wrappers are needed to avoid extern "C" static void* _Loc_ctype_create(const char * s, _Locale_name_hint* hint) { return _Locale_ctype_create(s, hint); } static void* _Loc_numeric_create(const char * s, _Locale_name_hint* hint) { return _Locale_numeric_create(s, hint); } static void* _Loc_time_create(const char * s, _Locale_name_hint* hint) { return _Locale_time_create(s, hint); } static void* _Loc_collate_create(const char * s, _Locale_name_hint* hint) { return _Locale_collate_create(s, hint); } static void* _Loc_monetary_create(const char * s, _Locale_name_hint* hint) { return _Locale_monetary_create(s, hint); } static void* _Loc_messages_create(const char * s, _Locale_name_hint* hint) { return _Locale_messages_create(s, hint); } static char const* _Loc_ctype_name(const void* l, char* s) { return _Locale_ctype_name(l, s); } static char const* _Loc_numeric_name(const void* l, char* s) { return _Locale_numeric_name(l, s); } static char const* _Loc_time_name(const void* l, char* s) { return _Locale_time_name(l,s); } static char const* _Loc_collate_name( const void* l, char* s) { return _Locale_collate_name(l,s); } static char const* _Loc_monetary_name(const void* l, char* s) { return _Locale_monetary_name(l,s); } static char const* _Loc_messages_name(const void* l, char* s) { return _Locale_messages_name(l,s); } static const char* _Loc_ctype_default(char* p) { return _Locale_ctype_default(p); } static const char* _Loc_numeric_default(char * p) { return _Locale_numeric_default(p); } static const char* _Loc_time_default(char* p) { return _Locale_time_default(p); } static const char* _Loc_collate_default(char* p) { return _Locale_collate_default(p); } static const char* _Loc_monetary_default(char* p) { return _Locale_monetary_default(p); } static const char* _Loc_messages_default(char* p) { return _Locale_messages_default(p); } static void _Loc_ctype_destroy(void* p) {_Locale_ctype_destroy(p); } static void _Loc_numeric_destroy(void* p) {_Locale_numeric_destroy(p); } static void _Loc_time_destroy(void* p) {_Locale_time_destroy(p);} static void _Loc_collate_destroy(void* p) {_Locale_collate_destroy(p);} static void _Loc_monetary_destroy(void* p) {_Locale_monetary_destroy(p);} static void _Loc_messages_destroy(void* p) {_Locale_messages_destroy(p);} typedef void* (*loc_create_func_t)(const char *, _Locale_name_hint*); typedef char const* (*loc_name_func_t)(const void* l, char* s); typedef void (*loc_destroy_func_t)(void* l); typedef const char* (*loc_default_name_func_t)(char* s); typedef char const* (*loc_extract_name_func_t)(const char*, char*, _Locale_name_hint*); //---------------------------------------------------------------------- // Acquire and release low-level category objects. The whole point of // this is so that we don't allocate (say) four different _Locale_ctype // objects for a single locale. // Global hash tables for category objects. typedef hash_map<string, pair<void*, size_t>, hash<string>, equal_to<string> > Category_Map; // Look up a category by name static Category_Map** ctype_hash() { static Category_Map *_S_ctype_hash = 0; return &_S_ctype_hash; } static Category_Map** numeric_hash() { static Category_Map *_S_numeric_hash = 0; return &_S_numeric_hash; } static Category_Map** time_hash() { static Category_Map *_S_time_hash = 0; return &_S_time_hash; } static Category_Map** collate_hash() { static Category_Map *_S_collate_hash = 0; return &_S_collate_hash; } static Category_Map** monetary_hash() { static Category_Map *_S_monetary_hash = 0; return &_S_monetary_hash; } static Category_Map** messages_hash() { static Category_Map *_S_messages_hash; return &_S_messages_hash; } // We have a single lock for all of the hash tables. We may wish to // replace it with six different locks. /* REFERENCED */ static _STLP_STATIC_MUTEX __category_hash_lock _STLP_MUTEX_INITIALIZER; static void* __acquire_category(const char* name, _Locale_name_hint* hint, loc_extract_name_func_t extract_name, loc_create_func_t create_obj, loc_default_name_func_t default_obj, Category_Map ** M) { #if !defined (__BORLANDC__) || (__BORLANDC__ >= 0x564) typedef Category_Map::iterator Category_iterator; pair<Category_iterator, bool> result; #else pair<Category_Map::iterator, bool> result; #endif // Find what name to look for. Be careful if user requests the default. const char *cname; char buf[_Locale_MAX_SIMPLE_NAME]; if (name == 0 || name[0] == 0) { cname = default_obj(buf); if (cname == 0 || cname[0] == 0) cname = "C"; } else { cname = extract_name(name, buf, hint); if (cname == 0) { return 0; } } Category_Map::value_type __e(cname, pair<void*,size_t>((void*)0,size_t(0))); _STLP_auto_lock sentry(__category_hash_lock); if (!*M) *M = new Category_Map(); #if defined(__SC__) //*TY 06/01/2000 - added workaround for SCpp if(!*M) delete *M; //*TY 06/01/2000 - it forgets to generate dtor for Category_Map class. This fake code forces to generate one. #endif //*TY 06/01/2000 - // Look for an existing entry with that name. result = (*M)->insert_noresize(__e); // There was no entry in the map already. Create the category. if (result.second) (*result.first).second.first = create_obj(cname, hint); // Increment the reference count. ++((*result.first).second.second); return (*result.first).second.first; } static void __release_category(void* cat, loc_destroy_func_t destroy_fun, loc_name_func_t get_name, Category_Map** M) { Category_Map *pM = *M; if (cat && pM) { // Find the name of the category object. char buf[_Locale_MAX_SIMPLE_NAME + 1]; char const* name = get_name(cat, buf); if (name != 0) { _STLP_auto_lock sentry(__category_hash_lock); Category_Map::iterator it = pM->find(name); if (it != pM->end()) { // Decrement the ref count. If it goes to zero, delete this category // from the map. if (--((*it).second.second) == 0) { void* cat1 = (*it).second.first; destroy_fun(cat1); pM->erase(it); #if defined (_STLP_LEAKS_PEDANTIC) if (pM->empty()) { delete pM; *M = 0; } #endif /* _STLP_LEAKS_PEDANTIC */ } } } } } _Locale_ctype* _STLP_CALL __acquire_ctype(const char* name, _Locale_name_hint* hint) { return __REINTERPRET_CAST(_Locale_ctype*, __acquire_category(name, hint, _Locale_extract_ctype_name, _Loc_ctype_create, _Loc_ctype_default, ctype_hash())); } _Locale_numeric* _STLP_CALL __acquire_numeric(const char* name, _Locale_name_hint* hint) { return __REINTERPRET_CAST(_Locale_numeric*, __acquire_category(name, hint, _Locale_extract_numeric_name, _Loc_numeric_create, _Loc_numeric_default, numeric_hash())); } _Locale_time* _STLP_CALL __acquire_time(const char* name, _Locale_name_hint* hint) { return __REINTERPRET_CAST(_Locale_time*, __acquire_category(name, hint, _Locale_extract_time_name, _Loc_time_create, _Loc_time_default, time_hash())); } _Locale_collate* _STLP_CALL __acquire_collate(const char* name, _Locale_name_hint* hint) { return __REINTERPRET_CAST(_Locale_collate*, __acquire_category(name, hint, _Locale_extract_collate_name, _Loc_collate_create, _Loc_collate_default, collate_hash())); } _Locale_monetary* _STLP_CALL __acquire_monetary(const char* name, _Locale_name_hint* hint) { return __REINTERPRET_CAST(_Locale_monetary*, __acquire_category(name, hint, _Locale_extract_monetary_name, _Loc_monetary_create, _Loc_monetary_default, monetary_hash())); } _Locale_messages* _STLP_CALL __acquire_messages(const char* name, _Locale_name_hint* hint) { return __REINTERPRET_CAST(_Locale_messages*, __acquire_category(name, hint, _Locale_extract_messages_name, _Loc_messages_create, _Loc_messages_default, messages_hash())); } void _STLP_CALL __release_ctype(_Locale_ctype* cat) { __release_category(cat, _Loc_ctype_destroy, _Loc_ctype_name, ctype_hash()); } void _STLP_CALL __release_numeric(_Locale_numeric* cat) { __release_category(cat, _Loc_numeric_destroy, _Loc_numeric_name, numeric_hash()); } void _STLP_CALL __release_time(_Locale_time* cat) { __release_category(cat, _Loc_time_destroy, _Loc_time_name, time_hash()); } void _STLP_CALL __release_collate(_Locale_collate* cat) { __release_category(cat, _Loc_collate_destroy, _Loc_collate_name, collate_hash()); } void _STLP_CALL __release_monetary(_Locale_monetary* cat) { __release_category(cat, _Loc_monetary_destroy, _Loc_monetary_name, monetary_hash()); } void _STLP_CALL __release_messages(_Locale_messages* cat) { __release_category(cat, _Loc_messages_destroy, _Loc_messages_name, messages_hash()); } _STLP_MOVE_TO_STD_NAMESPACE _STLP_END_NAMESPACE

• ソフトウェア開発
• ホームページ制作
• Doxygen Source Document
• Tcl Source Document