/* +----------------------------------------------------------------------+ | Zend Engine | +----------------------------------------------------------------------+ | Copyright (c) 1998, 1999 Andi Gutmans, Zeev Suraski | +----------------------------------------------------------------------+ | This source file is subject to version 0.91 of the Zend license, | | that is bundled with this package in the file LICENSE, and is | | available at through the world-wide-web at | | http://www.zend.com/license/0_91.txt. | | If you did not receive a copy of the Zend license and are unable to | | obtain it through the world-wide-web, please send a note to | | license@zend.com so we can mail you a copy immediately. | +----------------------------------------------------------------------+ | Authors: Andi Gutmans | | Zeev Suraski | +----------------------------------------------------------------------+ */ #ifndef _COMPILE_H #define _COMPILE_H #include "zend.h" #if HAVE_STDARG_H #include #endif #include "zend_llist.h" #define YYSTYPE znode #include "zend-parser.h" #define DEBUG_ZEND 0 #ifndef ZTS #define SUPPORT_INTERACTIVE 1 #else #define SUPPORT_INTERACTIVE 0 #endif #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 _znode { 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; ulong extended_value; char *filename; uint lineno; } zend_op; typedef struct _zend_brk_cont_element { 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; unsigned char uses_globals; /* 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 _zend_internal_function { 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 _zend_function { 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 _zend_function_state { HashTable *function_symbol_table; zend_function *function; void *reserved[4]; } zend_function_state; typedef struct _zend_switch_entry { znode cond; int default_case; int control_var; } zend_switch_entry; typedef struct _list_llist_element { znode var; zend_llist dimensions; znode value; } list_llist_element; typedef struct _zend_file_handle { 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); BEGIN_EXTERN_C() extern ZEND_API zend_op_array *(*zend_compile_files)(int mark_as_ref CLS_DC, int file_count, ...); void zend_activate(CLS_D ELS_DC); void zend_deactivate(CLS_D ELS_DC); int lex_scan(zval *zendlval CLS_DC); 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(); #ifdef ZTS const char *zend_get_zendtext(CLS_D); int zend_get_zendleng(CLS_D); #endif END_EXTERN_C() /* 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 do_fetch_globals(znode *varname 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); typedef int (*unary_op_type)(zval *, zval *); ZEND_API unary_op_type 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, int is_used CLS_DC); void do_init_string(znode *result CLS_DC); 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, znode *argument_list, int is_method CLS_DC); void do_return(znode *expr CLS_DC); ZEND_API void do_bind_function_or_class(zend_op *opline, HashTable *function_table, HashTable *class_table); void do_early_binding(CLS_D); 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, znode *argument_list 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 *offset, znode *expr); 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); #define INITIAL_OP_ARRAY_SIZE 64 /* helper functions in zend-scanner.l */ BEGIN_EXTERN_C() 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 *v_compile_files(int mark_as_ref CLS_DC, int file_count, va_list files); ZEND_API zend_op_array *compile_string(zval *source_string CLS_DC); ZEND_API zend_op_array *compile_filename(zval *filename CLS_DC); ZEND_API inline int open_file_for_scanning(zend_file_handle *file_handle CLS_DC); 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); ZEND_API void zend_close_file_handle(zend_file_handle *file_handle CLS_DC); ZEND_API void zend_open_file_dtor(void *f); END_EXTERN_C() ZEND_API int destroy_zend_function(zend_function *function); ZEND_API int destroy_zend_class(zend_class_entry *ce); void zend_class_add_ref(zend_class_entry *ce); #define ZEND_FUNCTION_DTOR (int (*)(void *)) destroy_zend_function #define ZEND_CLASS_DTOR (int (*)(void *)) destroy_zend_class 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); BEGIN_EXTERN_C() int pass_two(zend_op_array *op_array); void pass_include_eval(zend_op_array *op_array); END_EXTERN_C() 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 38 #define ZEND_PRINT 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_BY_NAME 56 #define ZEND_DO_FCALL 57 #define ZEND_DO_FCALL_BY_NAME 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_DECLARE_FUNCTION_OR_CLASS 91 #define ZEND_EXT_STMT 92 #define ZEND_EXT_FCALL_BEGIN 93 #define ZEND_EXT_FCALL_END 94 #define ZEND_EXT_NOP 95 /* 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_EVAL_CODE 4 #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 #define ZEND_DECLARE_CLASS 1 #define ZEND_DECLARE_FUNCTION 2 #define ZEND_DECLARE_INHERITED_CLASS 3 #define ZEND_FETCH_STANDARD 0 #define ZEND_FETCH_ADD_LOCK 1 #define ZEND_MEMBER_FUNC_CALL 1<<0 #define ZEND_CTOR_CALL 1<<1 #define PZVAL_IS_REF(z) ((z)->EA.is_ref) #define PZVAL_IS_LOCKED(z) ((z)->EA.locks>0) #define PZVAL_LOCK(z) (z)->EA.locks++ #define PZVAL_UNLOCK(z) (z)->EA.locks-- #endif /* _COMPILE_H */