New update! 3.1 is liiiive!

Error handling:
Array now has sufficiently advanced error handling to remove most, if not all, disable_checks.

Extention:
With the metaprogramming techniques, new types can be added easily.

Speed:
With the new changes I've made to Judy, the Array module has far exceeded the speed of any traditional datatype

dlls/arrayx/JudyExtra.cpp

@@ -0,0 +1,225 @@
+#include "JudyExtra.h"
+
+bool JudyClearBinTrie(BinTrie* trie)
+{
+	Word_t trie_iten = 0;
+
+	try { trie_iten = trie->First(); }
+	catch(JudyEx& e) { return false; }
+
+	while( true )
+	{
+		trie->Delete(trie_iten);
+		
+		try { trie_iten = trie->Next(trie_iten); }
+		catch(JudyEx& e) { break; }
+	}
+	return true;
+};
+
+bool JudySaveBinTrie(BinTrie* trie, char* file)
+{
+	Word_t trie_iten = 0;
+
+	try { trie_iten = trie->First(); }
+	catch(JudyEx e) { return false; }
+
+	FILE *trieDB = fopen(file,"wb");
+	if (!trieDB) return false;
+
+	bool value = false;
+
+	while( true )
+	{
+		fwrite(&trie_iten, sizeof(Word_t), 1, trieDB);
+
+		value = (trie->Get(trie_iten) != NULL);
+		fwrite(&value, sizeof(bool), 1, trieDB);
+
+		try { trie_iten = trie->Next(trie_iten); }
+		catch(JudyEx& e) { break; }
+	}
+
+	fclose(trieDB);
+	return true;
+};
+
+bool JudyLoadBinTrie(BinTrie* trie, char* file)
+{
+	FILE *trieDB = fopen(file, "ab+");
+	if (!trieDB) return false;
+
+	Word_t trie_iten = 0;
+
+	bool value = false;
+
+	while(!feof(trieDB))
+	{
+		fread(&trie_iten, sizeof(Word_t), 1, trieDB);
+		if (feof(trieDB) || ferror(trieDB)) break;
+
+		fread(&value, sizeof(bool), 1, trieDB);
+
+		trie->Set(trie_iten,value);
+	}
+
+	fclose(trieDB);
+	return true;
+}
+
+bool JudyClearList(CBaseList* list)
+{
+	Word_t list_iten = 0;
+
+	try { list_iten = list->First(); }
+	catch(JudyEx& e) { return false; }
+
+	while( true )
+	{
+		try { list->Delete(list_iten); }
+		catch(JudyEx& e) { break; }
+		
+		try { list_iten = list->Next(list_iten); }
+		catch(JudyEx& e) { break; }
+	}
+	return true;
+};
+
+bool JudySaveList(CBaseList* list, char* file)
+{
+	Capsule* Storage = NULL;
+	Word_t list_iten = 0;
+	bool no_error = true;
+
+	try { list_iten = list->First(); }
+	catch(JudyEx e) { return false; }
+
+	FILE* listDB = fopen(file,"wb");
+	if (!listDB) return false;
+
+	while( true )
+	{
+		try { Storage = reinterpret_cast<Capsule*>(list->Get(list_iten) ); }
+		catch(JudyEx& e) { no_error = false; break; }
+
+		fwrite(&list_iten, sizeof(Word_t), 1, listDB);
+		try { Storage->Save(listDB); }
+		catch(JudyEx& e) { no_error = false; break; }
+
+		try { list_iten = list->Next(list_iten); }
+		catch(JudyEx& e) { break; }
+	}
+
+	fclose(listDB);
+	return no_error;
+};
+
+bool JudyLoadList(CBaseList* list, char* file)
+{
+	FILE *listDB = fopen(file, "ab+");
+	if (!listDB) return false;
+
+	Capsule* Storage = NULL;
+	Word_t list_iten = 0;
+	bool no_error = true;
+
+	while(!feof(listDB))
+	{
+		fread(&list_iten, sizeof(Word_t), 1, listDB);
+		if (feof(listDB) || ferror(listDB)) break;
+		
+		Storage = new Capsule;
+		try { Storage->Load(listDB); }
+		catch(JudyEx& e) { no_error = false; break; }
+
+		list->Set(list_iten,Storage);
+	}
+
+	fclose(listDB);
+	return no_error;
+}
+
+bool JudyClearMap(CBaseMap* map)
+{
+	char* map_iten = NULL;
+
+	try { map_iten = map->First(); }
+	catch(JudyEx& e) { return false; }
+
+	while( true )
+	{
+		try { map->Delete(map_iten); }
+		catch(JudyEx& e) { return false; }
+		
+		try { map_iten = map->Next(map_iten); }
+		catch(JudyEx& e) { break; }
+	}
+
+	return true;
+};
+
+
+bool JudySaveMap(CBaseMap* map, char* file)
+{
+	Capsule* Storage = NULL;
+	char* map_iten = NULL;
+	size_t key_len = 0;
+	bool no_error = true;
+
+	try { map_iten = map->First(); }
+	catch(JudyEx& e) { return false; }
+
+	FILE *mapDB = fopen(file,"wb");
+	if (!mapDB) return false;
+
+	while( true )
+	{
+		try { Storage = reinterpret_cast<Capsule*>(map->Get(map_iten) ); }
+		catch(JudyEx& e) { return false; }
+
+		key_len = strlen(map_iten);
+
+		fwrite(&key_len, sizeof(size_t), 1, mapDB);
+		fwrite(&map_iten, sizeof(char), strlen(map_iten), mapDB);
+
+		try { Storage->Save(mapDB); }
+		catch(JudyEx& e) { no_error = false; break; }
+
+		try { map_iten = map->Next(map_iten); }
+		catch(JudyEx& e) { break; }
+	}
+
+	fclose(mapDB);
+	return no_error;
+};
+
+bool JudyLoadMap(CBaseMap* map, char* file)
+{
+	FILE *mapDB = fopen(file, "ab+");
+	if (!mapDB) return false;
+
+	Capsule* Storage = NULL;
+	char* map_iten = NULL;
+	size_t key_len = 0;
+	bool no_error = true;
+
+	while(!feof(mapDB))
+	{
+		fread(&key_len,sizeof(size_t),1,mapDB);
+
+		map_iten = new char[key_len+1];
+		fgets(map_iten, key_len+1, mapDB);
+
+		if (feof(mapDB) || ferror(mapDB)) break;
+
+		Storage = new Capsule;
+		try { Storage->Load(mapDB); }
+		catch(JudyEx& e) { no_error = false; break; }
+
+		map->Set(map_iten,Storage);
+		delete map_iten;
+	}
+
+	fclose(mapDB);
+	return no_error;
+}