Zend Library

1 files changed, 499 insertions, 0 deletions

diff --git a/Zend/zend_compile.h b/Zend/zend_compile.h
new file mode 100644
index 0000000000..0eace15565
--- /dev/null
+++ b/Zend/zend_compile.h
@@ -0,0 +1,499 @@
+/*
+   +----------------------------------------------------------------------+
+   | Zend Engine                                                          |
+   +----------------------------------------------------------------------+
+   | Copyright (c) 1998, 1999 Andi Gutmans, Zeev Suraski                  |
+   +----------------------------------------------------------------------+
+   | This source file is subject to the Zend license, that is bundled     |
+   | with this package in the file LICENSE.  If you did not receive a     |
+   | copy of the Zend license, please mail us at zend@zend.com so we can  |
+   | send you a copy immediately.                                         |
+   +----------------------------------------------------------------------+
+   | Authors: Andi Gutmans <andi@zend.com>                                |
+   |          Zeev Suraski <zeev@zend.com>                                |
+   +----------------------------------------------------------------------+
+*/
+
+#ifndef _COMPILE_H
+#define _COMPILE_H
+
+#include "zend.h"
+#include "zend_llist.h"
+#define YYSTYPE znode
+#include "zend-parser.h"
+
+#define DEBUG_ZEND 0
+#define SUPPORT_INTERACTIVE 1
+
+#define FREE_PNODE(znode)	zval_dtor(&znode->u.constant);
+#define FREE_OP(op, should_free) if (should_free) zval_dtor(&Ts[(op)->u.var].tmp_var);
+
+
+#if SUPPORT_INTERACTIVE
+#define INC_BPC(op_array)	((op_array)->backpatch_count++)
+#define DEC_BPC(op_array)	((op_array)->backpatch_count--)
+#define HANDLE_INTERACTIVE()  if (EG(interactive)) { execute_new_code(CLS_C); }
+#else
+#define INC_BPC(op_array)
+#define DEC_BPC(op_array)
+#define HANDLE_INTERACTIVE()
+#endif
+
+typedef struct _zend_op_array zend_op_array;
+
+typedef struct {
+	int op_type;
+	union {
+		zval constant;
+
+		int var;
+		int opline_num;
+		zend_op_array *op_array;
+		struct {
+			int var;	/* dummy */
+			int type;
+		} EA;
+	} u;
+} znode;
+
+
+typedef struct _zend_op {
+	int opcode;
+	znode result;
+	znode op1;
+	znode op2;
+	char *filename;
+	uint lineno;
+} zend_op;
+
+
+typedef struct {
+	int cont;
+	int brk;
+	int parent;
+} zend_brk_cont_element;
+
+
+struct _zend_op_array {
+	int type;	/* MUST be the first element of this struct! */
+
+	unsigned char *arg_types;		/* MUST be the second element of this struct! */
+
+	int *refcount;
+
+	zend_op *opcodes;
+	int last, size;
+
+	int T;
+
+	char *function_name;
+
+	zend_brk_cont_element *brk_cont_array;
+	int last_brk_cont;
+	int current_brk_cont;
+
+	/* static variables support */
+	HashTable *static_variables;
+
+#if SUPPORT_INTERACTIVE
+	int start_op_number, end_op_number;
+	int last_executed_op_number;
+	int backpatch_count;
+#endif
+
+	void *reserved[4];
+};
+
+
+typedef struct {
+	int type;	/* MUST be the first element of this struct! */
+
+	unsigned char *arg_types;		/* MUST be the second element of this struct */
+
+	void (*handler)(INTERNAL_FUNCTION_PARAMETERS);
+	char *function_name;
+} zend_internal_function;
+
+
+typedef union {
+	int type;	/* MUST be the first element of this struct! */
+	struct {
+		int type;  /* never used */
+		unsigned char *arg_types;
+	} common;
+	
+	zend_op_array op_array;
+	zend_internal_function internal_function;
+} zend_function;
+
+
+typedef struct {
+	HashTable *function_symbol_table;
+	zend_function *function;
+	void *reserved[4];
+} zend_function_state;
+
+
+typedef struct {
+	znode cond;
+	int default_case;
+	int control_var;
+} zend_switch_entry;
+
+
+typedef struct {
+	znode var;
+	zend_llist dimensions;
+	znode value;
+} list_llist_element;
+
+
+typedef struct {
+	int type;
+	char *filename;
+	union {
+		int fd;
+		FILE *fp;
+#ifdef __cplusplus
+		istream *is;
+#endif
+	} handle;
+} zend_file_handle;
+
+
+#include "zend_globals.h"
+
+#define IS_CONST	(1<<0)
+#define IS_TMP_VAR	(1<<1)
+#define IS_VAR		(1<<2)
+#define IS_UNUSED	(1<<3)	/* Unused variable */
+
+
+#define EXT_TYPE_UNUSED		(1<<0)
+
+void init_compiler(CLS_D ELS_DC);
+void shutdown_compiler(CLS_D);
+
+extern zend_op_array *(*zend_compile_files)(int mark_as_ref CLS_DC, int file_count, ...);
+
+int lex_scan(zval *zendlval CLS_DC);
+void reset_scanner(CLS_D);
+void startup_scanner(CLS_D);
+void shutdown_scanner(CLS_D);
+
+ZEND_API void zend_set_compiled_filename(char *new_compiled_filename);
+ZEND_API void zend_restore_compiled_filename(char *original_compiled_filename);
+ZEND_API char *zend_get_compiled_filename();
+
+
+/* parser-driven code generators */
+void do_binary_op(int op, znode *result, znode *op1, znode *op2 CLS_DC);
+void do_unary_op(int op, znode *result, znode *op1 CLS_DC);
+void do_binary_assign_op(int op, znode *result, znode *op1, znode *op2 CLS_DC);
+void do_assign(znode *result, znode *variable, znode *value CLS_DC);
+void do_assign_ref(znode *result, znode *lvar, znode *rvar CLS_DC);
+void fetch_simple_variable(znode *result, znode *varname, int bp CLS_DC);
+void do_indirect_references(znode *result, znode *num_references, znode *variable CLS_DC);
+void do_fetch_global_or_static_variable(znode *varname, znode *static_assignment, int fetch_type CLS_DC);
+
+void fetch_array_begin(znode *result, znode *varname, znode *first_dim CLS_DC);
+void fetch_array_dim(znode *result, znode *parent, znode *dim CLS_DC);
+void do_print(znode *result, znode *arg CLS_DC);
+void do_echo(znode *arg CLS_DC);
+ZEND_API void *get_unary_op(int opcode);
+ZEND_API void *get_binary_op(int opcode);
+
+void do_while_cond(znode *expr, znode *close_bracket_token CLS_DC);
+void do_while_end(znode *while_token, znode *close_bracket_token CLS_DC);
+void do_do_while_begin(CLS_D);
+void do_do_while_end(znode *do_token, znode *expr CLS_DC);
+
+
+void do_if_cond(znode *cond, znode *closing_bracket_token CLS_DC);
+void do_if_after_statement(znode *closing_bracket_token, unsigned char initialize CLS_DC);
+void do_if_end(CLS_D);
+
+void do_for_cond(znode *expr, znode *second_semicolon_token CLS_DC);
+void do_for_before_statement(znode *cond_start, znode *second_semicolon_token CLS_DC);
+void do_for_end(znode *second_semicolon_token CLS_DC);
+
+void do_pre_incdec(znode *result, znode *op1, int op CLS_DC);
+void do_post_incdec(znode *result, znode *op1, int op CLS_DC);
+
+void do_begin_variable_parse(CLS_D);
+void do_end_variable_parse(int type CLS_DC);
+
+void do_free(znode *op1 CLS_DC);
+
+void do_init_string(znode *result);
+void do_add_char(znode *result, znode *op1, znode *op2 CLS_DC);
+void do_add_string(znode *result, znode *op1, znode *op2 CLS_DC);
+void do_add_variable(znode *result, znode *op1, znode *op2 CLS_DC);
+
+void do_begin_function_declaration(znode *function_token, znode *function_name, int is_method CLS_DC);
+void do_end_function_declaration(znode *function_token CLS_DC);
+void do_receive_arg(int op, znode *var, znode *offset, znode *initialization, unsigned char pass_type CLS_DC);
+void do_begin_function_call(znode *function_name CLS_DC);
+void do_begin_dynamic_function_call(znode *function_name CLS_DC);
+void do_begin_class_member_function_call(znode *class_name, znode *function_name CLS_DC);
+void do_end_function_call(znode *function_name, znode *result, int is_method CLS_DC);
+void do_return(znode *expr CLS_DC);
+
+void do_pass_param(znode *param, int op, int offset CLS_DC);
+
+
+void do_boolean_or_begin(znode *expr1, znode *op_token CLS_DC);
+void do_boolean_or_end(znode *result, znode *expr1, znode *expr2, znode *op_token CLS_DC);
+void do_boolean_and_begin(znode *expr1, znode *op_token CLS_DC);               
+void do_boolean_and_end(znode *result, znode *expr1, znode *expr2, znode *op_token CLS_DC);
+
+void do_brk_cont(int op, znode *expr CLS_DC);
+
+void do_switch_cond(znode *cond CLS_DC);
+void do_switch_end(znode *case_list CLS_DC);
+void do_case_before_statement(znode *case_list, znode *case_token, znode *case_expr CLS_DC);
+void do_case_after_statement(znode *result, znode *case_token CLS_DC);
+void do_default_before_statement(znode *case_list, znode *default_token CLS_DC);
+
+void do_begin_class_declaration(znode *class_name, znode *parent_class_name CLS_DC);
+void do_end_class_declaration(CLS_D);
+void do_declare_property(znode *var_name, znode *value CLS_DC);
+
+void do_fetch_property(znode *result, znode *object, znode *property CLS_DC);
+
+
+void do_push_object(znode *object CLS_DC);
+void do_pop_object(znode *object CLS_DC);
+
+
+void do_begin_new_object(znode *result, znode *variable, znode *new_token, znode *class_name CLS_DC);
+void do_end_new_object(znode *class_name, znode *new_token CLS_DC);
+
+void do_fetch_constant(znode *result, znode *constant_name, int mode CLS_DC);
+
+void do_shell_exec(znode *result, znode *cmd CLS_DC);
+
+void do_init_array(znode *result, znode *expr, znode *offset CLS_DC);
+void do_add_array_element(znode *result, znode *expr, znode *offset CLS_DC);
+void do_add_static_array_element(znode *result, znode *expr, znode *offset);
+void do_list_init();
+void do_list_end(znode *result, znode *expr CLS_DC);
+void do_add_list_element(znode *element CLS_DC);
+void do_new_list_begin(CLS_D);
+void do_new_list_end(CLS_D);
+
+void do_cast(znode *result, znode *expr, int type CLS_DC);
+void do_include_or_eval(int type, znode *result, znode *op1 CLS_DC);
+
+void do_unset(znode *variable CLS_DC);
+void do_isset_or_isempty(int type, znode *result, znode *variable CLS_DC);
+
+void do_foreach_begin(znode *foreach_token, znode *array, znode *open_brackets_token, znode *as_token CLS_DC);
+void do_foreach_cont(znode *value, znode *key, znode *as_token CLS_DC);
+void do_foreach_end(znode *foreach_token, znode *open_brackets_token CLS_DC);
+
+void do_end_heredoc(CLS_D);
+
+void do_exit(znode *result, znode *message CLS_DC);
+
+void do_begin_silence(znode *strudel_token CLS_DC);
+void do_end_silence(znode *strudel_token CLS_DC);
+
+void do_begin_qm_op(znode *cond, znode *qm_token CLS_DC);
+void do_qm_true(znode *true_value, znode *qm_token, znode *colon_token CLS_DC);
+void do_qm_false(znode *result, znode *false_value, znode *qm_token, znode *colon_token CLS_DC);
+
+void do_extended_info(CLS_D);
+void do_extended_fcall_begin(CLS_D);
+void do_extended_fcall_end(CLS_D);
+
+
+/* helper functions in zend-scanner.l */
+ZEND_API int require_file(zend_file_handle *file_handle CLS_DC);	
+ZEND_API int require_filename(char *filename CLS_DC);				
+ZEND_API zend_op_array *compile_files(int mark_as_ref CLS_DC, int file_count, ...);
+ZEND_API zend_op_array *compile_string(zval *source_string CLS_DC);	
+ZEND_API zend_op_array *compile_filename(zval *filename CLS_DC);
+inline int open_file_for_scanning(zend_file_handle *file_handle CLS_DC);
+
+#define INITIAL_OP_ARRAY_SIZE 1024
+
+
+ZEND_API void init_op_array(zend_op_array *op_array, int initial_ops_size);
+ZEND_API void destroy_op_array(zend_op_array *op_array);
+
+void destroy_zend_function(zend_function *function);
+void destroy_zend_class(zend_class_entry *ce);
+zend_op *get_next_op(zend_op_array *op_array CLS_DC);
+int get_next_op_number(zend_op_array *op_array);
+int print_class(zend_class_entry *class_entry);
+void print_op_array(zend_op_array *op_array, int optimizations);
+int pass_two(zend_op_array *op_array);
+void pass_include_eval(zend_op_array *op_array);
+zend_brk_cont_element *get_next_brk_cont_element(zend_op_array *op_array);
+
+
+int zendlex(znode *zendlval CLS_DC);
+
+
+#define ZEND_NOP					0
+									
+#define ZEND_ADD					1
+#define ZEND_SUB					2
+#define ZEND_MUL					3
+#define ZEND_DIV					4
+#define ZEND_MOD					5
+#define ZEND_SL						6
+#define ZEND_SR						7
+#define ZEND_CONCAT					8
+#define ZEND_BW_OR					9
+#define ZEND_BW_AND					10
+#define ZEND_BW_XOR					11
+#define ZEND_BW_NOT					12
+#define ZEND_BOOL_NOT				13
+#define ZEND_BOOL_XOR				14
+#define ZEND_IS_EQUAL				15
+#define ZEND_IS_NOT_EQUAL			16
+#define ZEND_IS_SMALLER				17
+#define ZEND_IS_SMALLER_OR_EQUAL	18
+#define ZEND_CAST					19
+#define ZEND_QM_ASSIGN				20
+
+#define ZEND_ASSIGN_ADD				21
+#define ZEND_ASSIGN_SUB				22
+#define ZEND_ASSIGN_MUL				23
+#define ZEND_ASSIGN_DIV				24
+#define ZEND_ASSIGN_MOD				25
+#define ZEND_ASSIGN_SL				26
+#define ZEND_ASSIGN_SR				27
+#define ZEND_ASSIGN_CONCAT			28
+#define ZEND_ASSIGN_BW_OR			29
+#define ZEND_ASSIGN_BW_AND			30
+#define ZEND_ASSIGN_BW_XOR			31
+									
+#define ZEND_PRE_INC				32
+#define ZEND_PRE_DEC				33
+#define ZEND_POST_INC				34
+#define ZEND_POST_DEC				35
+									
+#define ZEND_ASSIGN					36
+#define ZEND_ASSIGN_REF				37
+
+#define ZEND_ECHO_OP				38
+#define ZEND_PRINT_OP				39
+
+#define ZEND_JMP					40
+#define ZEND_JMPZ					41
+#define ZEND_JMPNZ					42
+#define ZEND_JMPZNZ					43
+#define ZEND_JMPZ_EX				44
+#define ZEND_JMPNZ_EX				45
+#define ZEND_CASE					46
+#define ZEND_BRK					47
+#define ZEND_CONT					48
+#define ZEND_BOOL					49
+
+#define ZEND_INIT_STRING			50
+#define ZEND_ADD_CHAR				51
+#define ZEND_ADD_STRING				52
+#define ZEND_ADD_VAR				53
+
+#define ZEND_BEGIN_SILENCE			54
+#define ZEND_END_SILENCE			55
+
+#define ZEND_INIT_FCALL				56
+#define ZEND_INIT_FCALL_BY_NAME		57
+#define ZEND_DO_FCALL				58
+#define ZEND_RETURN					59
+
+#define ZEND_RECV					60
+#define ZEND_RECV_INIT				61
+									
+#define ZEND_SEND_VAL				62
+#define ZEND_SEND_VAR				63
+#define ZEND_SEND_REF				64
+
+#define ZEND_NEW 					65
+#define ZEND_JMP_NO_CTOR			66
+#define ZEND_FREE					67
+									
+#define ZEND_INIT_ARRAY				68
+#define ZEND_ADD_ARRAY_ELEMENT		69
+									
+#define ZEND_INCLUDE_OR_EVAL		70
+									
+#define ZEND_UNSET_VAR				71
+#define ZEND_UNSET_DIM_OBJ			72
+#define ZEND_ISSET_ISEMPTY			73
+									
+#define ZEND_FE_RESET				74
+#define ZEND_FE_FETCH				75
+									
+#define ZEND_EXIT					76
+
+
+/* the following 12 opcodes are 4 groups of 3 opcodes each, and must
+ * remain in that order!
+ */
+#define ZEND_FETCH_R				77
+#define ZEND_FETCH_DIM_R			78
+#define ZEND_FETCH_OBJ_R			79
+#define ZEND_FETCH_W				80
+#define ZEND_FETCH_DIM_W			81
+#define ZEND_FETCH_OBJ_W			82
+#define ZEND_FETCH_RW				83
+#define ZEND_FETCH_DIM_RW			84
+#define ZEND_FETCH_OBJ_RW			85
+#define ZEND_FETCH_IS				86
+#define ZEND_FETCH_DIM_IS			87
+#define ZEND_FETCH_OBJ_IS			88
+
+#define ZEND_FETCH_DIM_TMP_VAR		89
+#define ZEND_FETCH_CONSTANT			90
+									
+#define ZEND_EXT_STMT				91
+#define ZEND_EXT_FCALL_BEGIN		92
+#define ZEND_EXT_FCALL_END			93
+#define ZEND_EXT_NOP				94
+
+/* end of block */
+
+
+
+
+/* global/local fetches */
+#define ZEND_FETCH_GLOBAL	0
+#define ZEND_FETCH_LOCAL	1
+#define ZEND_FETCH_STATIC	2
+
+/* var status for backpatching */
+#define BP_VAR_R	0
+#define BP_VAR_W	1
+#define BP_VAR_RW	2
+#define BP_VAR_IS	3
+#define BP_VAR_NA	4	/* if not applicable */
+
+
+#define ZEND_INTERNAL_FUNCTION		1
+#define ZEND_USER_FUNCTION			2
+#define ZEND_OVERLOADED_FUNCTION	3
+
+#define ZEND_INTERNAL_CLASS		1
+#define ZEND_USER_CLASS			2
+
+#define ZEND_EVAL				(1<<0)
+#define ZEND_INCLUDE			(1<<1)
+
+#define ZEND_ISSET				(1<<0)
+#define ZEND_ISEMPTY			(1<<1)
+
+#define ZEND_CT	(1<<0)
+#define ZEND_RT (1<<1)
+
+
+#define ZEND_HANDLE_FILENAME	0
+#define ZEND_HANDLE_FD			1
+#define ZEND_HANDLE_FP			2
+#define ZEND_HANDLE_ISTREAM		3
+
+#endif /* _COMPILE_H */