--- parser3/src/classes/classes.C	2001/09/26 10:32:25	1.9
+++ parser3/src/classes/classes.C	2009/08/11 10:19:11	1.23
@@ -1,66 +1,65 @@
-/** @file
-	Parser: @b Methoded and Methoded_array classes.
-
-	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
-	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
-
-	$Id: classes.C,v 1.9 2001/09/26 10:32:25 parser Exp $
-*/
-
-#include "classes.h"
-#include "pa_request.h"
-
-// Methoded
-
-void Methoded::register_directly_used(Request& r) {
-	if(used_directly())
-		r.classes().put(name(), this);
-}
-
-// Methoded_array
-
-// global variable
-
-Methoded_array *methoded_array;
-
-// methods
-
-Methoded_array::Methoded_array(Pool& apool) : Array(apool) {
-#	include "classes.inc"
-}
-
-static void configure_admin_one(Array::Item *value, void *info) {
-	Request& r=*static_cast<Request *>(info);
-	Methoded *methoded=static_cast<Methoded *>(value);
-	methoded->configure_admin(r);
-}
-
-void Methoded_array::configure_admin(Request& r) {
-	for_each(configure_admin_one, &r);
-}
-
-static void configure_user_one(Array::Item *value, void *info) {
-	Request& r=*static_cast<Request *>(info);
-	if(Methoded *methoded=static_cast<Methoded *>(value))
-		methoded->configure_user(r);
-}
-
-void Methoded_array::configure_user(Request& r) {
-	for_each(configure_user_one, &r);
-}
-
-static void register_one(Array::Item *value, void *info) {
-	Request& r=*static_cast<Request *>(info);
-	if(Methoded *methoded=static_cast<Methoded *>(value))
-		methoded->register_directly_used(r);
-}
-
-void Methoded_array::register_directly_used(Request& r) {
-	for_each(register_one, &r);
-}
-
-// creator
-
-void init_methoded_array(Pool& pool) {
-	methoded_array=new(pool) Methoded_array(pool);
-}
+/** @file
+	Parser: @b Methoded and Methoded_array classes.
+
+	Copyright (c) 2001-2005 ArtLebedev Group (http://www.artlebedev.com)
+	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
+*/
+
+static const char * const IDENT_CLASSES_C="$Date: 2009/08/11 10:19:11 $";
+
+#include "classes.h"
+#include "pa_request.h"
+
+// Methoded
+
+void Methoded::register_directly_used(Request& r) {
+	if(used_directly()) {
+		r.classes().put(name(), this);
+	}
+
+	// prevent system classes from modification [calling set_method]
+	// ^process[$string:CLASS]{@method} prohibited from now on...
+	this->lock();
+}
+
+// Methoded_array
+
+// global variable
+
+Methoded_array& methoded_array() {
+	static Methoded_array* result=0;
+	if(!result)
+		result=new Methoded_array;
+
+	return *result;
+}
+
+// methods
+
+Methoded_array::Methoded_array() {
+#	include "classes.inc"
+}
+
+static void configure_admin_one(Methoded_array::element_type methoded, Request *r) {
+	if(methoded)
+		methoded->configure_admin(*r);
+}
+void Methoded_array::configure_admin(Request& r) {
+	for_each(configure_admin_one, &r);
+}
+
+static void configure_user_one(Methoded_array::element_type methoded, Request *r) {
+	if(methoded)
+		methoded->configure_user(*r);
+}
+void Methoded_array::configure_user(Request& r) {
+	for_each(configure_user_one, &r);
+}
+
+static void register_one(Methoded_array::element_type methoded, Request *r) {
+	if(methoded)
+		methoded->register_directly_used(*r);
+}
+void Methoded_array::register_directly_used(Request& r) {
+	for_each(register_one, &r);
+}