--- parser3/src/main/compile_tools.h	2003/04/02 16:05:20	1.67.2.8.2.7
+++ parser3/src/main/compile_tools.h	2004/02/11 15:33:15	1.72
@@ -1,20 +1,23 @@
 /** @file
 	Parser: compiler support helper functions decls.
 
-	Copyright (c) 2001-2003 ArtLebedev Group (http://www.artlebedev.com)
+	Copyright (c) 2001-2004 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* IDENT_COMPILE_TOOLS_H="$Date: 2003/04/02 16:05:20 $";
+static const char * const IDENT_COMPILE_TOOLS_H="$Date: 2004/02/11 15:33:15 $";
 
 #include "pa_opcode.h"
 #include "pa_types.h"
 #include "pa_vstring.h"
 #include "pa_request.h"
 
+/// used to track source column number
+#define TAB_SIZE 8
+
 enum lexical_state {
 	LS_USER, LS_NAME_SQUARE_PART,
 	LS_USER_COMMENT,
@@ -50,7 +53,11 @@ struct Pos {
 };
 
 /// compiler status
-struct Parse_control {
+class Parse_control {
+	const String* main_alias;
+	uint last_line_end_col;
+public:
+	const String& alias_method(const String& name);
 	//@{
 	/// @name input
 	Request& request;
@@ -63,7 +70,7 @@ struct Parse_control {
 	/// @name state; initially
 	bool trim_bof;
 	int pending_state; ///< i=0
-	StringBody string; ///< lexical string accumulator
+	String::Body string; ///< lexical string accumulator
 	Pos string_start;
 	
 #define MAX_LEXICAL_STATES 100
@@ -80,15 +87,16 @@ struct Parse_control {
 
 	Parse_control(Request& arequest, 
 		VStateless_class* aclass,
-		const char* asource,
+		const char* asource, const String* amain_alias, 
 		uint afile_no):
+		main_alias(amain_alias),
+		last_line_end_col(0),
+
 		request(arequest), // input 
 
 		// we were told the class to compile to?
 		cclass(aclass), // until changed with @CLASS would consider operators loading
-
-		source(asource),
-
+		source(asource), 
 		file_no(afile_no),
 
 		// initialize state
@@ -96,7 +104,29 @@ struct Parse_control {
 		pending_state(0),
 		ls(LS_USER),
 		ls_sp(0),
-		in_call_value(false) {
+		in_call_value(false) {}
+
+	void pos_next_line() {
+		pos.line++;
+		last_line_end_col=pos.col;
+		pos.col=0;
+	}
+	void pos_next_c(char c) {
+		if(c=='\t')
+			pos.col=(pos.col+TAB_SIZE)&~(TAB_SIZE-1);
+		else
+			pos.col++;
+	}
+	/// not precise in case of \t in the middle of the text
+	void pos_prev_c() {
+		if(pos.col==0) {
+			--pos.line;  pos.col=last_line_end_col;
+		} else
+			--pos.col;
+	}
+	void ungetc() {
+		source--;
+		pos_prev_c();
 	}
 };
 
@@ -105,7 +135,7 @@ inline ArrayOperation* N() {
 	return new ArrayOperation;
 }
 
-	/// Assembler instruction // append ordinary instruction to ops
+/// Assembler instruction // append ordinary instruction to ops
 inline void O(ArrayOperation& result, OPCODE code) {
 	result+=Operation(code);
 }
@@ -127,23 +157,25 @@ inline void OA(ArrayOperation& result, O
 
 /**
 	Value Literal // returns array with 
-	- first: OP_VALUE instruction
-	- second op: string itself
+	- first op: OP_VALUE instruction
+	- second op: origin (debug information)
+	- third op: string itself
 */
 inline ArrayOperation* VL(Value* value, uint file_no, uint line, uint col) {
 	// empty ops array
-	ArrayOperation* result=N();
+	ArrayOperation& result=*N();
 
 	// append 'value' to 'result'
-	*result+=Operation(OP_VALUE, file_no, line, col); // append OP_VALUE
-	*result+=Operation(value); // append 'value'
+	result+=Operation(OP_VALUE);
+	result+=Operation(file_no, line, col); // append origin
+	result+=Operation(value); // append 'value'
 
-	return result;
+	return &result;
 }
 
-/// Literal Array to(2) Value @return Value from literal Array OP+Value
+/// Literal Array to(2) Value @return Value from literal Array OP+origin+Value
 Value* LA2V(ArrayOperation& literal_string_array, int offset=0);
-/// Literal Array to(2) String  @return String value from literal Array OP+String array
+/// Literal Array to(2) String  @return String value from literal Array OP+origin+String array
 inline const String* LA2S(ArrayOperation& literal_string_array, int offset=0) {
 	if(Value* value=LA2V(literal_string_array, offset))
 		return value->get_string();