parser3/src/main/compile_tools.h - diff

Return to compile_tools.h CVS log

Up to [parser3project] / parser3 / src / main

Diff for /parser3/src/main/compile_tools.h between versions 1.67.2.8.2.6 and 1.68.4.1

version 1.67.2.8.2.6, 2003/04/02 14:16:18	version 1.68.4.1, 2003/09/24 14:32:06
Line 15 static const char* IDENT_COMPILE_TOOLS_H	Line 15 static const char* IDENT_COMPILE_TOOLS_H
#include "pa_vstring.h"	#include "pa_vstring.h"
#include "pa_request.h"	#include "pa_request.h"

	/// used to track source column number
	#define TAB_SIZE 8

enum lexical_state {	enum lexical_state {
LS_USER, LS_NAME_SQUARE_PART,	LS_USER, LS_NAME_SQUARE_PART,
LS_USER_COMMENT,	LS_USER_COMMENT,
Line 38 enum lexical_state {	Line 41 enum lexical_state {
LS_METHOD_ROUND,	LS_METHOD_ROUND,
LS_METHOD_AFTER	LS_METHOD_AFTER
};	};

	struct Pos {
	uint line;
	uint col;
	//Pos(uint aline, uint acol): line(aline), col(acol) {}
	Pos(): line(0), col(0) {}

	void clear() { line=col=0; }
	operator bool() { return col!=0; }
	};

/// compiler status	/// 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	/// @name input
Request& request;	Request& request;
VStateless_class* cclass;	VStateless_class* cclass;
const char* source;	const char* source;
//const char* file;
uint file_no;	uint file_no;
uint line;	Pos pos;
uint col;
//@}	//@}
//@{	//@{
/// @name state; initially	/// @name state; initially
bool trim_bof;	bool trim_bof;
int pending_state; ///< i=0	int pending_state; ///< i=0
StringBody string; ///< lexical string accumulator	String::Body string; ///< lexical string accumulator
	Pos string_start;

#define MAX_LEXICAL_STATES 100	#define MAX_LEXICAL_STATES 100
enum lexical_state ls; ///< =LS_USER;	enum lexical_state ls; ///< =LS_USER;
Line 68 struct parse_control {	Line 85 struct parse_control {
/// output: filled input 'methods' and 'error' if any	/// output: filled input 'methods' and 'error' if any
char error[MAX_STRING];	char error[MAX_STRING];

parse_control(Request& arequest,	Parse_control(Request& arequest,
VStateless_class* aclass,	VStateless_class* aclass,
const char* asource,	const char* asource, const String* amain_alias,
uint afile_no):	uint afile_no):
request(arequest), // input	request(arequest), // input

// we were told the class to compile to?	// we were told the class to compile to?
cclass(aclass), // until changed with @CLASS would consider operators loading	cclass(aclass), // until changed with @CLASS would consider operators loading

source(asource),	source(asource), main_alias(amain_alias),

file_no(afile_no),	file_no(afile_no),
line(0), col(0),	last_line_end_col(0),

// initialise state	// initialize state
trim_bof(true),	trim_bof(true),
pending_state(0),	pending_state(0),
ls(LS_USER),	ls(LS_USER),
ls_sp(0),	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();
}	}
};	};

Line 96 inline ArrayOperation* N() {	Line 135 inline ArrayOperation* N() {
return new ArrayOperation;	return new ArrayOperation;
}	}

/// Assembler instruction // append ordinary instruction to ops	/// Assembler instruction // append ordinary instruction to ops
inline void O(ArrayOperation& result, OPCODE code) {	inline void O(ArrayOperation& result, OPCODE code) {
result+=Operation(code);	result+=Operation(code);
}	}
Line 118 inline void OA(ArrayOperation& result, O	Line 157 inline void OA(ArrayOperation& result, O

/**	/**
Value Literal // returns array with	Value Literal // returns array with
- first: OP_VALUE instruction	- first op: OP_VALUE instruction
- second op: string itself	- second op: origin (debug information)
	- third op: string itself
*/	*/
inline ArrayOperation* VL(Value* value, uint file_no, uint line, uint col) {	inline ArrayOperation* VL(Value* value, uint file_no, uint line, uint col) {
// empty ops array	// empty ops array
ArrayOperation* result=N();	ArrayOperation& result=*N();

// append 'value' to 'result'	// append 'value' to 'result'
*result+=Operation(OP_VALUE, file_no, line, col); // append OP_VALUE	result+=Operation(OP_VALUE);
*result+=Operation(value); // append '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);	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) {	inline const String* LA2S(ArrayOperation& literal_string_array, int offset=0) {
if(Value* value=LA2V(literal_string_array, offset))	if(Value* value=LA2V(literal_string_array, offset))
return value->get_string();	return value->get_string();
Line 154 void changetail_or_append(ArrayOperation	Line 195 void changetail_or_append(ArrayOperation
OPCODE find, bool with_argument, OPCODE replace, OPCODE notfound);	OPCODE find, bool with_argument, OPCODE replace, OPCODE notfound);


void push_LS(parse_control& pc, lexical_state new_state);	void push_LS(Parse_control& pc, lexical_state new_state);
void pop_LS(parse_control& pc);	void pop_LS(Parse_control& pc);

#endif	#endif

E-mail:

Removed from v.1.67.2.8.2.6
changed lines
	Added in v.1.68.4.1