--- parser3/src/main/pa_charsets.C	2001/12/17 18:44:51	1.2
+++ parser3/src/main/pa_charsets.C	2009/05/14 11:27:23	1.18
@@ -1,37 +1,43 @@
 /** @file
 	Parser: sql driver manager implementation.
 
-	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
-	Author: Alexander Petrosyan <paf@design.ru> (http://paf.design.ru)
-
-	$Id: pa_charsets.C,v 1.2 2001/12/17 18:44:51 paf Exp $
+	Copyright (c) 2001-2009 ArtLebedev Group (http://www.artlebedev.com)
+	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 */
 
+static const char * const IDENT_CHARSETS_C="$Date: 2009/05/14 11:27:23 $";
+
 #include "pa_charsets.h"
-#include "pa_charset.h"
 
-// globals
+// defines for globals
 
-Charsets *charsets;
+#define CHARSET_UTF8_NAME "UTF-8"
 
-//
+// globals
 
-Charsets::Charsets(Pool& apool) : Hash(apool) {
-}
+Charset UTF8_charset(0, *new String(CHARSET_UTF8_NAME), 0/*no file=system*/);
 
-static void destroy_charset(const Hash::Key& key, Hash::Val *& value, void *) {
-	static_cast<Charset *>(value)->~Charset();	
-}
+Charsets charsets;
+
+// methods
 
-Charsets::~Charsets() {
-	for_each(destroy_charset);
+Charsets::Charsets() {
+	put(UTF8_charset.NAME(), &UTF8_charset);
 }
 
-Charset& Charsets::get_charset(const String& name) {
-	if(Charset *result=(Charset *)get(name))
+Charset& Charsets::get(const String::Body ANAME) {
+	if(Charset* result=HashString<value_type>::get(ANAME))
 		return *result;
 	else
-		throw Exception(0, 0,
-			&name,
+		throw Exception(PARSER_RUNTIME,
+			new String(ANAME, String::L_TAINTED),
 			"unknown charset");
 }
+
+void Charsets::load_charset(Request_charsets& charsets, const String::Body ANAME, const String& afile_spec) {
+	//we know that charset?
+	if(HashString<value_type>::get(ANAME))
+		return; // don't load it then
+
+	put(ANAME, new Charset(&charsets, ANAME, &afile_spec));
+}