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.57 and 1.62

version 1.57, 2002/02/08 07:27:46	version 1.62, 2002/08/01 11:26:49
Line 2	Line 2
Parser: compiler support helper functions decls.	Parser: compiler support helper functions decls.

Copyright (c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)	Copyright (c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)
Author: Alexander Petrosyan <paf@design.ru> (http://paf.design.ru)	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)

$Id$
*/	*/

#ifndef COMPILE_TOOLS	#ifndef COMPILE_TOOLS
#define COMPILE_TOOLS	#define COMPILE_TOOLS

	static const char* IDENT_COMPILE_TOOLS_H="$Id$";

#include "pa_opcode.h"	#include "pa_opcode.h"
#include "pa_types.h"	#include "pa_types.h"
#include "pa_vstring.h"	#include "pa_vstring.h"
Line 90 inline void P(Array/<Operation>/ *resu	Line 90 inline void P(Array/<Operation>/ *resu
}	}

/// aPpend 'vstring' to 'result'	/// aPpend 'vstring' to 'result'
void PV(Array/<Operation>/ result, VString vstring);	void PV(Array/<Operation>/ result, Value value);
/// Parameter 'simple Code_Array'
void PCA(Array/<Operation>/ result, Array/<Operation>/ code_array);	inline void OA(Array/<Operation>/ result, OPCODE opcode, Array/<Operation>/ code_array) {
/// Parameter 'Expression code_Array'	// append OP_CODE
void PEA(Array/<Operation>/ result, Array/<Operation>/ code_array);	Operation op; op.code=opcode;
/// Construct 'simple Code_Array'	*result+=op.cast;
void CCA(Array/<Operation>/ result, Array/<Operation>/ code_array);
/// aPpend Nested Code	// append 'vstring'
void PNC(Array/<Operation>/ result, Array/<Operation>/ code_array);	*result+=code_array;
	}

/**	/**
Value Literal // returns array with	Value Literal // returns array with
- first: OP_VALUE instruction	- first: OP_VALUE instruction
- second op: string itself	- second op: string itself
*/	*/
Array VL(Value value);	inline Array VL(Value value) {
	// empty ops array
	Array *result=N(value->pool());

	// append 'value' to 'result'
	PV(result, value);

	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+Value
Value LA2V(Array literal_string_array, int offset=0);	Value LA2V(Array 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+String array
Line 114 inline const String LA2S(Array literal	Line 124 inline const String LA2S(Array literal
return value->get_string();	return value->get_string();
return 0;	return 0;
}	}

	inline void change_string_literal_to_write_string_literal(Array *literal_string_array) {
	Operation op; op.code=OP_STRING__WRITE;
	literal_string_array->put(0, op.cast);
	}

	void changetail_or_append(Array *opcodes,
	OPCODE find, bool with_argument, OPCODE replace, OPCODE notfound);

void change_string_literal_to_double_literal(Array *literal_string_array);	void change_string_literal_to_double_literal(Array *literal_string_array);
void change_string_literal_to_write_string_literal(Array *literal_string_array);

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);

E-mail:

Removed from v.1.57
changed lines
	Added in v.1.62