--- parser3/src/main/pa_pool.C	2003/02/21 10:55:44	1.59.2.5
+++ parser3/src/main/pa_pool.C	2024/11/04 03:53:25	1.68
@@ -1,17 +1,57 @@
 /** @file
-	Parser: pool class implementation.
+	Parser: pool class.
 
-	Copyright (c) 2001-2003 ArtLebedev Group (http://www.artlebedev.com)
-	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
+	Copyright (c) 2000-2024 Art. Lebedev Studio (http://www.artlebedev.com)
+	Authors: Konstantin Morshnev <moko@design.ru>, Alexandr Petrosian <paf@design.ru>
 */
 
-static const char* IDENT_POOL_C="$Date: 2003/02/21 10:55:44 $";
-
 #include "pa_pool.h"
-#include "pa_types.h"
+#include "pa_exception.h"
 #include "pa_common.h"
+#include "pa_sapi.h"
+#include "pa_charset.h"
+
+volatile const char * IDENT_PA_POOL_C="$Id: pa_pool.C,v 1.68 2024/11/04 03:53:25 moko Exp $" IDENT_PA_POOL_H;
+
+// Pool
+
+Pool::Pool(){}
+
+static void cleanup(Pool::Cleanup item, int) {
+	if(item.cleanup)
+		item.cleanup(item.data);
+}
+Pool::~Pool() {
+	//__asm__("int3");
+	//_asm int 3;
+	//fprintf(stderr, "cleanups: %d\n", cleanups.size());
+	// cleanups first, because they use some object's memory pointers
+	cleanups.for_each(cleanup, 0);
+}
+
+void Pool::register_cleanup(void (*cleanup) (void *), void *data) {
+	cleanups+=Cleanup(cleanup, data);
+}
+
+static void unregister_cleanup(Pool::Cleanup& item, void* cleanup_data) {
+	if(item.data==cleanup_data)
+		item.cleanup=0;
+}
+void Pool::unregister_cleanup(void *cleanup_data) {
+	cleanups.for_each_ref(::unregister_cleanup, cleanup_data);
+}
+
+// Pooled
+
+static void cleanup(void *data) {
+	static_cast<Pooled*>(data)->~Pooled();
+}
+
+Pooled::Pooled(Pool& apool): fpool(apool) {
+	fpool.register_cleanup(cleanup, this);
+}
 
-char* Pool::format_integer(int value) {
-	char local[MAX_NUMBER];
-	return copy(local, snprintf(local, MAX_NUMBER, "%d", value)+1/*for terminating 0*/);
-};
+/// Sole: this got called automatically from Pool::~Pool()
+Pooled::~Pooled() {
+	fpool.unregister_cleanup(this);
+}