--- parser3/src/main/Attic/core.C	2001/03/10 11:44:42	1.50
+++ parser3/src/main/Attic/core.C	2001/03/11 07:52:42	1.55
@@ -1,24 +1,47 @@
 /*
-$Id: core.C,v 1.50 2001/03/10 11:44:42 paf Exp $
+	Parser
+	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
+	Author: Alexander Petrosyan <paf@design.ru>
+
+	$Id: core.C,v 1.55 2001/03/11 07:52:42 paf Exp $
 */
 
 #include "core.h"
-#include "classes/_string.h"
-#include "classes/_double.h"
-#include "classes/_int.h"
+#include "_string.h"
+#include "_double.h"
+#include "_int.h"
 #include "pa_request.h"
 
 String *unnamed_name;
 String *empty_string;
 
+String *auto_method_name;
+String *main_method_name;
+
+String *run_class_name;
+String *root_class_name;
+String *env_class_name;
+
 void core() {
 	Pool pool;
+	
+	// names
 	unnamed_name=new(pool) String(pool); unnamed_name->APPEND_CONST("unnamed");
 	empty_string=new(pool) String(pool); 
 
+	auto_method_name=new(pool) String(pool);  auto_method_name->APPEND_CONST(AUTO_METHOD_NAME);
+	main_method_name=new(pool) String(pool);  main_method_name->APPEND_CONST(MAIN_METHOD_NAME);
+	
+	run_class_name=new(pool) String(pool);  run_class_name->APPEND_CONST(RUN_CLASS_NAME);
+	root_class_name=new(pool) String(pool);  root_class_name->APPEND_CONST(ROOT_CLASS_NAME);
+	env_class_name=new(pool) String(pool);  env_class_name->APPEND_CONST(ENV_CLASS_NAME);	
+
+	// classes
 	initialize_string_class(pool, *(string_class=new(pool) VClass(pool)));
 	initialize_double_class(pool, *(double_class=new(pool) VClass(pool)));
 	initialize_int_class(pool, *(int_class=new(pool) VClass(pool)));
+
+	// request
 	Request request(pool);
 	request.core();
 }