--- parser3/src/main/compile_tools.h	2004/04/06 07:53:57	1.74
+++ parser3/src/main/compile_tools.h	2008/08/15 15:26:14	1.80
@@ -1,14 +1,14 @@
 /** @file
 	Parser: compiler support helper functions decls.
 
-	Copyright (c) 2001-2004 ArtLebedev Group (http://www.artlebedev.com)
+	Copyright (c) 2001-2005 ArtLebedev Group (http://www.artlebedev.com)
 	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 */
 
 #ifndef COMPILE_TOOLS
 #define COMPILE_TOOLS
 
-static const char * const IDENT_COMPILE_TOOLS_H="$Date: 2004/04/06 07:53:57 $";
+static const char * const IDENT_COMPILE_TOOLS_H="$Date: 2008/08/15 15:26:14 $";
 
 #include "pa_opcode.h"
 #include "pa_types.h"
@@ -62,6 +62,8 @@ public:
 	/// @name input
 	Request& request;
 	VStateless_class* cclass;
+	VStateless_class* cclass_new;
+	ArrayClass* cclasses;
 	const char* source;
 	uint file_no;
 	Pos pos;
@@ -81,6 +83,7 @@ public:
 
 	bool in_call_value;
 	bool explicit_result;
+	bool append;
 	//@}
 	
 	/// output: filled input 'methods' and 'error' if any
@@ -98,6 +101,8 @@ public:
 
 		// we were told the class to compile to?
 		cclass(aclass), // until changed with @CLASS would consider operators loading
+		cclass_new(0), 
+		cclasses(new ArrayClass(1)),
 		source(asource), 
 		file_no(afile_no),
 		pos(line_no_offset, 0),
@@ -108,14 +113,53 @@ public:
 		ls(LS_USER),
 		ls_sp(0),
 		in_call_value(false),
-		explicit_result(false) {}
+		explicit_result(false),
+		append(false) {
+
+		*cclasses+=aclass;
+	}
+
+	void class_add(){
+		if(cclass_new){
+			cclass=cclass_new;
+			// append to request's classes
+			request.classes().put(cclass->name(), cclass);
+			*cclasses+=cclass;
+			cclass_new=0;
+			append=false;
+		}
+	}
+
+	bool class_reuse(){
+		if(cclass_new){
+			if(Value* class_value=request.classes().get(cclass_new->name())){
+				if(VStateless_class* existed_class=class_value->get_class()) {
+					cclass=existed_class;
+					cclass_new=0;
+					append=true;
+					return true;
+				} else {
+					return false;
+				}
+			}
+		}
+		return false;
+	}
+
+	void set_all_vars_local(){
+		if(cclass_new){
+			cclass_new->all_vars_local();
+		} else {
+			cclass->all_vars_local();
+		}
+	}
 
 	void pos_next_line() {
 		pos.line++;
 		last_line_end_col=pos.col;
 		pos.col=0;
 	}
-	void pos_next_c(char c) {
+	void pos_next_c(int c) {
 		if(c=='\t')
 			pos.col=(pos.col+TAB_SIZE)&~(TAB_SIZE-1);
 		else
@@ -140,7 +184,7 @@ inline ArrayOperation* N() {
 }
 
 /// Assembler instruction // append ordinary instruction to ops
-inline void O(ArrayOperation& result, OPCODE code) {
+inline void O(ArrayOperation& result, OP::OPCODE code) {
 	result+=Operation(code);
 }
 
@@ -154,7 +198,7 @@ inline void P(ArrayOperation& result, Ar
 }
 
 /// append cOde Array
-inline void OA(ArrayOperation& result, OPCODE code, ArrayOperation* code_array) {
+inline void OA(ArrayOperation& result, OP::OPCODE code, ArrayOperation* code_array) {
 	result+=Operation(code); // append OP_CODE
 	result+=Operation(code_array); // append 'code_array'
 }
@@ -170,7 +214,7 @@ inline ArrayOperation* VL(Value* value,
 	ArrayOperation& result=*N();
 
 	// append 'value' to 'result'
-	result+=Operation(OP_VALUE);
+	result+=Operation(OP::OP_VALUE);
 	result+=Operation(file_no, line, col); // append origin
 	result+=Operation(value); // append 'value'
 
@@ -187,16 +231,16 @@ inline const String* LA2S(ArrayOperation
 }
 
 inline void change_string_literal_to_write_string_literal(ArrayOperation& literal_string_array) {
-	literal_string_array.put(0, OP_STRING__WRITE);
+	literal_string_array.put(0, OP::OP_STRING__WRITE);
 }
 
 
-void change_string_literal_to_double_literal(ArrayOperation& literal_string_array);
+void maybe_change_string_literal_to_double_literal(ArrayOperation& literal_string_array);
 
 void change_string_literal_value(ArrayOperation& literal_string_array, const String& new_value);
 
 void changetail_or_append(ArrayOperation& opcodes, 
-						  OPCODE find, bool with_argument, OPCODE replace, OPCODE notfound);
+						  OP::OPCODE find, bool with_argument, OP::OPCODE replace, OP::OPCODE notfound);
 
 
 void push_LS(Parse_control& pc, lexical_state new_state);