--- parser3/src/main/compile_tools.h	2005/08/09 08:14:51	1.76
+++ parser3/src/main/compile_tools.h	2008/09/02 16:14:29	1.81
@@ -8,7 +8,7 @@
 #ifndef COMPILE_TOOLS
 #define COMPILE_TOOLS
 
-static const char * const IDENT_COMPILE_TOOLS_H="$Date: 2005/08/09 08:14:51 $";
+static const char * const IDENT_COMPILE_TOOLS_H="$Date: 2008/09/02 16:14:29 $";
 
 #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,57 @@ 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;
+		}
+	}
+
+	VStateless_class* get_existed_class(VStateless_class* aclass){
+		if(aclass){
+			if(Value* class_value=request.classes().get(aclass->name())){
+				return class_value->get_class();
+			}
+		}
+		return 0;
+	}
+
+	bool reuse_existed_class(VStateless_class* aclass){
+		if(aclass->is_partial()){
+			cclass=aclass;
+			cclass_new=0;
+			append=true;
+			return true;
+		} else {
+			return false;
+		}
+	}
+
+	void set_all_vars_local(){
+		if(cclass_new){
+			cclass_new->set_all_vars_local();
+		} else {
+			cclass->set_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 +188,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 +202,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 +218,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,7 +235,7 @@ 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);
 }
 
 
@@ -196,7 +244,7 @@ void maybe_change_string_literal_to_doub
 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);