diff --git a/Makefile.frag b/Makefile.frag index c8b3cb2..f82f329 100644 --- a/Makefile.frag +++ b/Makefile.frag @@ -9,6 +9,9 @@ $(builddir)/zend_ini_scanner.lo: $(srcdir)/zend_ini_parser.h $(srcdir)/zend_language_scanner.c: $(srcdir)/zend_language_scanner.l @(cd $(top_srcdir); $(RE2C) $(RE2C_FLAGS) --case-inverted -cbdFt Zend/zend_language_scanner_defs.h -oZend/zend_language_scanner.c Zend/zend_language_scanner.l) +$(top_srcdir)/main/php_language_scanner.c: $(top_srcdir)/main/php_language_scanner.l + (cd $(top_srcdir); $(RE2C) $(RE2C_FLAGS) --case-inverted -cbdFt main/php_language_scanner_defs.h -omain/php_language_scanner.c main/php_language_scanner.l) + $(srcdir)/zend_language_parser.h: $(srcdir)/zend_language_parser.c $(srcdir)/zend_language_parser.c: $(srcdir)/zend_language_parser.y @$(YACC) -p zend -v -d $(srcdir)/zend_language_parser.y -o $@ diff --git a/Zend/zend.c b/Zend/zend.c index 2f1a7c3..2afaa68 100644 --- a/Zend/zend.c +++ b/Zend/zend.c @@ -1066,7 +1066,6 @@ int zend_startup(zend_utility_functions *utility_functions, char **extensions, i zend_getenv = utility_functions->getenv_function; zend_resolve_path = utility_functions->resolve_path_function; - zend_compile_file = compile_file; zend_compile_string = compile_string; zend_execute = execute; zend_execute_internal = NULL; diff --git a/configure.in b/configure.in index 5aac926..2cd79f2 100644 --- a/configure.in +++ b/configure.in @@ -1298,7 +1298,7 @@ PHP_ADD_SOURCES(main, main.c snprintf.c spprintf.c php_sprintf.c \ php_ini.c SAPI.c rfc1867.c php_content_types.c strlcpy.c \ strlcat.c mergesort.c reentrancy.c php_variables.c php_ticks.c \ network.c php_open_temporary_file.c php_logos.c \ - output.c getopt.c) + output.c getopt.c php_compile.c php_language_scanner.c) PHP_ADD_SOURCES(main/streams, streams.c cast.c memory.c filter.c \ plain_wrapper.c userspace.c transports.c xp_socket.c mmap.c \ diff --git a/main/main.c b/main/main.c index fecbfd3..73e614d 100644 --- a/main/main.c +++ b/main/main.c @@ -75,6 +75,7 @@ #endif #include "zend_compile.h" +#include "php_compile.h" #include "zend_execute.h" #include "zend_highlight.h" #include "zend_indent.h" @@ -1847,6 +1848,9 @@ int php_module_startup(sapi_module_struct *sf, zend_module_entry *additional_mod zuf.resolve_path_function = php_resolve_path_for_zend; zend_startup(&zuf, NULL, 1); + php_compile_file = php_do_compile_file; +// compile_string = php_compile_string; + #ifdef ZTS executor_globals = ts_resource(executor_globals_id); ts_allocate_id(&core_globals_id, sizeof(php_core_globals), (ts_allocate_ctor) core_globals_ctor, (ts_allocate_dtor) core_globals_dtor); @@ -2132,8 +2136,86 @@ void php_module_shutdown(TSRMLS_D) } /* }}} */ -/* {{{ php_execute_script - */ +PHPAPI int php_execute_scripts(int type TSRMLS_DC, zval **retval, int file_count, ...) /* {{{ */ +{ + va_list files; + int i; + zend_file_handle *file_handle; + zend_op_array *orig_op_array = EG(active_op_array); + zval **orig_retval_ptr_ptr = EG(return_value_ptr_ptr); + zval *local_retval = NULL; + + va_start(files, file_count); + for (i = 0; i < file_count; i++) { + file_handle = va_arg(files, zend_file_handle *); + if (!file_handle) { + continue; + } + EG(active_op_array) = php_compile_file(file_handle, type TSRMLS_CC); + if (file_handle->opened_path) { + int dummy = 1; + zend_hash_add(&EG(included_files), file_handle->opened_path, strlen(file_handle->opened_path) + 1, (void *)&dummy, sizeof(int), NULL); + } + zend_destroy_file_handle(file_handle TSRMLS_CC); + if (EG(active_op_array)) { + EG(return_value_ptr_ptr) = retval ? retval : &local_retval; + zend_execute(EG(active_op_array) TSRMLS_CC); + /* + if (EG(exception)) { + EG(opline_ptr) = NULL; + if (EG(user_exception_handler)) { + zval *orig_user_exception_handler; + zval ***params, *retval2, *old_exception; + params = (zval ***)emalloc(sizeof(zval **)); + old_exception = EG(exception); + EG(exception) = NULL; + params[0] = &old_exception; + orig_user_exception_handler = EG(user_exception_handler); + if (call_user_function_ex(CG(function_table), NULL, orig_user_exception_handler, &retval2, 1, params, 1, NULL TSRMLS_CC) == SUCCESS) { + if (retval2 != NULL) { + zval_ptr_dtor(&retval2); + } + } else { + if (!EG(exception)) { + EG(exception) = old_exception; + } + zend_exception_error(EG(exception) TSRMLS_CC); + } + efree(params); + zval_ptr_dtor(&old_exception); + if (EG(exception)) { + zval_ptr_dtor(&EG(exception)); + EG(exception) = NULL; + } + } else { + zend_exception_error(EG(exception) TSRMLS_CC); + } + if (retval == NULL && *EG(return_value_ptr_ptr) != NULL) { + zval_ptr_dtor(EG(return_value_ptr_ptr)); + local_retval = NULL; + } + } else */ + if (!retval && *EG(return_value_ptr_ptr)) { + zval_ptr_dtor(EG(return_value_ptr_ptr)); + local_retval = NULL; + } + destroy_op_array(EG(active_op_array) TSRMLS_CC); + efree(EG(active_op_array)); + } else if (type==ZEND_REQUIRE) { + va_end(files); + EG(active_op_array) = orig_op_array; + EG(return_value_ptr_ptr) = orig_retval_ptr_ptr; + return FAILURE; + } + } + va_end(files); + EG(active_op_array) = orig_op_array; + EG(return_value_ptr_ptr) = orig_retval_ptr_ptr; + + return SUCCESS; +} +/* }}} */ + PHPAPI int php_execute_script(zend_file_handle *primary_file TSRMLS_DC) { zend_file_handle *prepend_file_p, *append_file_p; @@ -2217,7 +2299,8 @@ PHPAPI int php_execute_script(zend_file_handle *primary_file TSRMLS_DC) #endif zend_set_timeout(EG(timeout_seconds), 0); } - retval = (zend_execute_scripts(ZEND_REQUIRE TSRMLS_CC, NULL, 3, prepend_file_p, primary_file, append_file_p) == SUCCESS); + + retval = (php_execute_scripts(ZEND_REQUIRE TSRMLS_CC, NULL, 3, prepend_file_p, primary_file, append_file_p) == SUCCESS); } zend_end_try(); @@ -2361,6 +2444,7 @@ PHPAPI void dummy_indent(void) /* }}} */ #endif + /* * Local variables: * tab-width: 4 diff --git a/main/php_compile.c b/main/php_compile.c new file mode 100644 index 0000000..5058f09 --- /dev/null +++ b/main/php_compile.c @@ -0,0 +1,5 @@ + +#include + +PHPAPI zend_op_array *(*php_compile_file)(zend_file_handle *file_handle, int type TSRMLS_DC); +PHPAPI zend_op_array *(*php_compile_string)(zval *source_string, char *filename TSRMLS_DC); diff --git a/main/php_compile.h b/main/php_compile.h new file mode 100644 index 0000000..b287958 --- /dev/null +++ b/main/php_compile.h @@ -0,0 +1,17 @@ +#ifndef PHP_COMPILE_H +#define PHP_COMPILE_H + +extern PHPAPI zend_op_array *(*php_compile_file)(zend_file_handle *file_handle, int type TSRMLS_DC); +extern PHPAPI zend_op_array *(*php_compile_string)(zval *source_string, char *filename TSRMLS_DC); + + +PHPAPI zend_op_array *php_do_compile_file(zend_file_handle *file_handle, int type TSRMLS_DC); +PHPAPI zend_op_array *php_do_compile_string(zval *source_string, char *filename TSRMLS_DC); +#endif /* PHP_COMPILE_H */ +/* + * Local variables: + * tab-width: 4 + * c-basic-offset: 4 + * indent-tabs-mode: t + * End: + */ diff --git a/main/php_language_parser.y b/main/php_language_parser.y new file mode 100644 index 0000000..d5ada79 --- /dev/null +++ b/main/php_language_parser.y @@ -0,0 +1,779 @@ +%left T_INCLUDE T_INCLUDE_ONCE T_EVAL T_REQUIRE T_REQUIRE_ONCE. +%left T_COMMA /*','*/. +%left T_LOGICAL_OR. +%left T_LOGICAL_XOR. +%left T_LOGICAL_AND. +%right T_PRINT. +%left T_EQUAL /*'='*/ T_PLUS_EQUAL T_MINUS_EQUAL T_MUL_EQUAL T_DIV_EQUAL T_CONCAT_EQUAL T_MOD_EQUAL T_AMPERSAND_EQUAL T_OR_EQUAL T_XOR_EQUAL T_SL_EQUAL T_SR_EQUAL. +%left T_INTERROGATION_MARK /*'?'*/ T_COLON /*':'*/. +%left T_BOOLEAN_OR. +%left T_BOOLEAN_AND. +%left T_PIPE /*'|'*/. +%left T_HAT /*'^'*/. +%left T_AMPERSAND /*'&'*/. +%nonassoc T_IS_EQUAL T_IS_NOT_EQUAL T_IS_IDENTICAL T_IS_NOT_IDENTICAL. +%nonassoc T_SMALLER_THAN /*'<'*/ T_IS_SMALLER_OR_EQUAL T_GREATER_THAN /*'>'*/ T_IS_GREATER_OR_EQUAL. +%left T_SL T_SR. +%left T_PLUS /*'+'*/ T_MINUS /*'-'*/ T_DOT /*'.'*/. +%left T_STAR /*'*'*/ T_SLASH /*'/'*/ T_PERCENT /*'%'*/. +%right T_BANG /*'!'*/. +%nonassoc T_INSTANCEOF. +%right T_TILDA /*'~'*/ T_INC T_DEC T_INT_CAST T_DOUBLE_CAST T_STRING_CAST T_UNICODE_CAST T_BINARY_CAST T_ARRAY_CAST T_OBJECT_CAST T_BOOL_CAST T_UNSET_CAST T_AT /*'@'*/. +%right /*'['*/. +%nonassoc T_NEW T_CLONE. +%nonassoc T_EXIT. +%nonassoc T_IF. +%left T_ELSEIF. +%left T_ELSE. +%left T_ENDIF. +%nonassoc T_LNUMBER. +%nonassoc T_DNUMBER. +%nonassoc T_STRING. +%nonassoc T_STRING_VARNAME. +%nonassoc T_VARIABLE. +%nonassoc T_NUM_STRING. +%nonassoc T_INLINE_HTML. +%nonassoc T_CHARACTER. +%nonassoc T_BAD_CHARACTER. +%nonassoc T_ENCAPSED_AND_WHITESPACE. +%nonassoc T_CONSTANT_ENCAPSED_STRING. +%nonassoc T_ECHO. +%nonassoc T_DO. +%nonassoc T_WHILE. +%nonassoc T_ENDWHILE. +%nonassoc T_FOR. +%nonassoc T_ENDFOR. +%nonassoc T_FOREACH. +%nonassoc T_ENDFOREACH. +%nonassoc T_DECLARE. +%nonassoc T_ENDDECLARE. +%nonassoc T_AS. +%nonassoc T_SWITCH. +%nonassoc T_ENDSWITCH. +%nonassoc T_CASE. +%nonassoc T_DEFAULT. +%nonassoc T_BREAK. +%nonassoc T_CONTINUE. +%nonassoc T_GOTO. +%nonassoc T_FUNCTION. +%nonassoc T_CONST. +%nonassoc T_RETURN. +%nonassoc T_TRY. +%nonassoc T_CATCH. +%nonassoc T_THROW. +%nonassoc T_USE. +%nonassoc T_GLOBAL. +%right T_STATIC T_ABSTRACT T_FINAL T_PRIVATE T_PROTECTED T_PUBLIC. +%nonassoc T_VAR. +%nonassoc T_UNSET. +%nonassoc T_ISSET. +%nonassoc T_EMPTY. +%nonassoc T_HALT_COMPILER. +%nonassoc T_CLASS. +%nonassoc T_INTERFACE. +%nonassoc T_EXTENDS. +%nonassoc T_IMPLEMENTS. +%nonassoc T_OBJECT_OPERATOR. +%nonassoc T_DOUBLE_ARROW. +%nonassoc T_LIST. +%nonassoc T_ARRAY. +%nonassoc T_CLASS_C. +%nonassoc T_METHOD_C. +%nonassoc T_FUNC_C. +%nonassoc T_LINE. +%nonassoc T_FILE. +%nonassoc T_COMMENT. +%nonassoc T_DOC_COMMENT. +%nonassoc T_OPEN_TAG. +%nonassoc T_OPEN_TAG_WITH_ECHO. +%nonassoc T_CLOSE_TAG. +%nonassoc T_WHITESPACE. +%nonassoc T_START_HEREDOC. +%nonassoc T_END_HEREDOC. +%nonassoc T_DOLLAR_OPEN_CURLY_BRACES. +%nonassoc T_CURLY_OPEN. +%nonassoc T_PAAMAYIM_NEKUDOTAYIM. +%nonassoc T_BINARY_DOUBLE. +%nonassoc T_BINARY_HEREDOC. +%nonassoc T_NAMESPACE. +%nonassoc T_NS_C. +%nonassoc T_DIR. +%nonassoc T_START_NOWDOC. +%nonassoc T_END_NOWDOC. + +/** + * Extra tokens: + * T_SEMICOLON + * T_LPAREN + * T_RPAREN + * T_LCBRACKET + * T_RCBRACKET + * T_DOLLAR + * T_RBRACKET + * T_DQUOTE + * T_BACKTICK + */ +%name php_parser_ + +start ::= top_statement_list. /*{ zend_do_end_compilation(TSRMLS_C); }*/ + +top_statement_list_info ::= . /*{ zend_do_extended_info(TSRMLS_C); }*/ +top_statement_list ::= top_statement_list top_statement_list_info top_statement. /*{ HANDLE_INTERACTIVE(); }*/ +top_statement_list ::= . + +top_statement ::= statement. +top_statement ::= function_declaration_statement. /*{ zend_do_early_binding(TSRMLS_C); }*/ +top_statement ::= class_declaration_statement. /*{ zend_do_early_binding(TSRMLS_C); }*/ +top_statement ::= T_HALT_COMPILER T_LPAREN T_RPAREN T_SEMICOLON. /*{ zend_do_halt_compiler_register(TSRMLS_C); YYACCEPT; }*/ +top_statement ::= T_NAMESPACE namespace_name(B) T_SEMICOLON. /*{ zend_do_namespace(&B TSRMLS_CC); }*/ +top_statement ::= T_USE namespace_name(B) T_SEMICOLON. /*{ zend_do_use(&B, NULL, 0 TSRMLS_CC); }*/ +top_statement ::= T_USE namespace_name(B) T_AS T_STRING(C) T_SEMICOLON. /*{ zend_do_use(&B, &C, 0 TSRMLS_CC); }*/ +top_statement ::= T_USE T_PAAMAYIM_NEKUDOTAYIM T_STRING(B) T_SEMICOLON. /*{ zend_do_use(&B, NULL, 1 TSRMLS_CC); }*/ +top_statement ::= T_USE T_PAAMAYIM_NEKUDOTAYIM T_STRING(B) T_AS T_STRING(C) T_SEMICOLON. /*{ zend_do_use(&B, &C, 1 TSRMLS_CC); }*/ +top_statement ::= constant_declaration T_SEMICOLON. + +statement ::= unticked_statement. /*{ zend_do_ticks(TSRMLS_C); }*/ +statement ::= T_STRING(B) T_COLON. /*{ zend_do_label(&B TSRMLS_CC); }*/ + +function_declaration_statement ::= unticked_function_declaration_statement. /*{ zend_do_ticks(TSRMLS_C); }*/ + +class_declaration_statement ::= unticked_class_declaration_statement. /*{ zend_do_ticks(TSRMLS_C); }*/ + +namespace_name(A) ::= T_STRING(B). /*{ A = B; }*/ +namespace_name(A) ::= namespace_name(B) T_PAAMAYIM_NEKUDOTAYIM T_STRING(C). /*{ zend_do_build_namespace_name(&A, &B, &C TSRMLS_CC); }*/ + +constant_declaration ::= constant_declaration T_COMMA T_STRING(B) T_EQUAL static_scalar(C). /*{ zend_do_declare_constant(&B, &C TSRMLS_CC); }*/ +constant_declaration ::= T_CONST T_STRING(B) T_EQUAL static_scalar(C). /*{ zend_do_declare_constant(&B, &C TSRMLS_CC); }*/ + + +inner_statement_list_info ::= . /*{ zend_do_extended_info(TSRMLS_C); }*/ +inner_statement_list ::= inner_statement_list inner_statement_list_info inner_statement. /*{ HANDLE_INTERACTIVE(); }*/ +inner_statement_list ::= . + +inner_statement ::= statement. +inner_statement ::= function_declaration_statement. +inner_statement ::= class_declaration_statement. +inner_statement ::= T_HALT_COMPILER T_LPAREN T_RPAREN T_SEMICOLON. /*{ zend_error(E_COMPILE_ERROR, "__HALT_COMPILER() can only be used from the outermost scope"); }*/ + +/* IF statement */ + +if_statement ::= if_statement_body if_elseif_list if_else. /*{ zend_do_if_end(TSRMLS_C); }*/ +if_statement ::= if_statement_alt_body if_elseif_alt_list if_else_alt T_ENDIF T_SEMICOLON. /*{ zend_do_if_end(TSRMLS_C); }*/ + +if_statement_body ::= if_statement_condition(B) statement. /*{ zend_do_if_after_statement(&B, 1 TSRMLS_CC); }*/ + +if_statement_alt_body ::= if_statement_condition(B) T_COLON inner_statement_list. /*{ zend_do_if_after_statement(&B, 1 TSRMLS_CC); }*/ + +if_statement_condition(A) ::= T_IF T_LPAREN expr(B) T_RPAREN(C). /*{ zend_do_if_cond(&B, &C TSRMLS_CC); A = C; }*/ + +if_elseif_statement_condition(A) ::= T_ELSEIF T_LPAREN expr(B) T_RPAREN(C). /*{ zend_do_if_cond(&B, &C TSRMLS_CC); A = C; }*/ + +if_elseif_list ::= . +if_elseif_list ::= if_elseif_list if_elseif_statement_condition(B) if_statement_body. /*{ zend_do_if_after_statement(&B, 0 TSRMLS_CC); }*/ + +if_elseif_alt_list ::= . +if_elseif_alt_list ::= if_elseif_alt_list if_elseif_statement_condition(B) T_COLON if_statement_alt_body. /*{ zend_do_if_after_statement(&B, 0 TSRMLS_CC); }*/ + +if_else ::= . +if_else ::= T_ELSE statement. + +if_else_alt ::= . +if_else_alt ::= T_ELSE T_COLON statement. + +/* (DO)WHILE statements */ + +while_statement ::= while_statement_begin(B) while_statement_condition(C) while_statement_body. /*{ zend_do_while_end(&B, &C TSRMLS_CC); }*/ + +while_statement_begin(A) ::= T_WHILE(B) T_LPAREN. /*{ B.u.opline_num = get_next_op_number(CG(active_op_array)); A = B; }*/ + +while_statement_condition(A) ::= expr(B) T_RPAREN(C). /*{ zend_do_while_cond(&B, &C TSRMLS_CC); A = C; }*/ + +while_statement_body ::= statement. +while_statement_body ::= T_COLON inner_statement_list T_ENDWHILE T_SEMICOLON. + +dowhile_statement ::= dowhile_statement_begin(B) statement dowhile_statement_condition_begin(C) expr(D) T_PAREN T_SEMICOLON. /*{ zend_do_do_while_end(&B, &C, &D TSRMLS_CC); }*/ + +dowhile_statement_begin(A) ::= T_DO(B). /*{ B.u.opline_num = get_next_op_number(CG(active_op_array)); zend_do_do_while_begin(TSRMLS_C); A = B; }*/ + +dowhile_statement_condition_begin(A) ::= T_LPAREN(B). /*{ B.u.opline_num = get_next_op_number(CG(active_op_array)); A = B; }*/ + +/* FOR statement */ + +for_statement ::= T_FOR for_statement_def(B) for_statement_body. /*{ zend_do_for_end(&B TSRMLS_CC); }*/ + +for_statement_init(A) ::= for_expr(B) T_SEMICOLON(C). /*{ zend_do_free(&B TSRMLS_CC); C.u.opline_num = get_next_op_number(CG(active_op_array)); A = B; }*/ + +for_statement_condition(A) ::= for_expr(B) T_SEMICOLON(C). /*{ zend_do_extended_info(TSRMLS_C); zend_do_for_cond(&B, &C TSRMLS_CC); }*/ + +for_statement_def(A) ::= T_LPAREN for_statement_init(B) for_statement_condition(C) for_expr(D) T_RPAREN. /*{ zend_do_free(&D TSRMLS_CC); zend_do_for_before_statement(&B, &C TSRMLS_CC); A = C; }*/ + + +for_statement_body ::= statement. +for_statement_body ::= T_COLON inner_statement_list T_ENDFOR T_SEMICOLON. + +/* SWITCH statement */ + +switch_statement ::= T_SWITCH switch_statement_condition switch_statement_body(B). /*{ zend_do_switch_end(&B TSRMLS_CC); }*/ + +switch_statement_condition ::= T_LPAREN expr(B) T_RPAREN. /*{ zend_do_switch_cond(&B TSRMLS_CC); }*/ + +switch_statement_body(A) ::= T_LCBRACKET switch_statement_case_opt(B) T_RCBRACKET. /*{ A = B; }*/ +switch_statement_body(A) ::= T_LCBRACKET T_SEMICOLON switch_statement_case_opt(B) T_RCBRACKET. /*{ A = B; }*/ +switch_statement_body(A) ::= T_COLON switch_statement_case_opt(B) T_ENDSWITCH T_SEMICOLON. /*{ A = B; }*/ +switch_statement_body(A) ::= T_COLON T_SEMICOLON switch_statement_case_opt(B) T_ENDSWITCH T_SEMICOLON. /*{ A = B; }*/ + + +switch_statement_case_opt(A) ::= . /*{ A.op_type = IS_UNUSED; }*/ +switch_statement_case_opt(A) ::= switch_statement_case_list(B) inner_statement_list. /*{ zend_do_case_after_statement(&A, &B TSRMLS_CC); $$.op_type = IS_CONST; }*/ + +switch_statement_case_list(A) ::= switch_statement_case_list(B) T_CASE(C) expr(D) switch_statement_case_separator. /*{ zend_do_extended_info(TSRMLS_C); zend_do_case_before_statement(&B, &C, &D TSRMLS_CC); } A = C;*/ +switch_statement_case_list(A) ::= switch_statement_case_list(B) T_DEFAULT(C) switch_statement_case_separator. /*{ zend_do_extended_info(TSRMLS_C); zend_do_default_before_statement(&B, &C TSRMLS_CC); } A = C; */ + +switch_statement_case_separator ::= T_COLON. +switch_statement_case_separator ::= T_SEMICOLON. + +/* FOREACH statement */ + +foreach_statement ::= foreach_statement_begin(B) foreach_statement_cont(C) foreach_statement_body. /* { zend_do_foreach_end(&B, &C); } */ +foreach_statement ::= foreach_statement_novar_begin(B) foreach_statement_novar_cont(C) foreach_statement_body. /* { zend_do_foreach_end(&B, &C); } */ + +foreach_statement_begin(A) ::= T_FOREACH(B) T_LPAREN(C) variable(D) T_AS(E). /*{ zend_do_foreach_begin(&B, &C, &D, &E, 1 TSRMLS_CC); A = B;}*/ + +foreach_statement_cont(A) ::= foreach_variable(B) foreach_optional_arg(C) T_RPAREN(D). /*{ zend_do_foreach_cont(&$1, &$2, &B, &C, &D TSRMLS_CC); A = B;}*/ + +foreach_statement_novar_begin(A) ::= T_FOREACH(B) T_LPAREN(C) expr_without_variable(D) T_AS(E). /*{ zend_do_foreach_begin(&B, &C, &D, &E, 0 TSRMLS_CC); A = B;}*/ + +foreach_statement_novar_cont(A) ::= variable(B) foreach_optional_arg(C) T_RPAREN(D). /*{ zend_check_writable_variable(&C); zend_do_foreach_cont(&$1, &$2, &B, &C, &D TSRMLS_CC); A = B;}*/ + +foreach_optional_arg(A) ::= . +foreach_optional_arg(A) ::= T_DOUBLE_ARROW foreach_variable(B). /* { A = B; } */ + +foreach_variable(A) ::= variable(B). /*{ zend_check_writable_variable(&B); A = B; }*/ +foreach_variable(A) ::= T_AMPERSAND variable(B). /*{ zend_check_writable_variable(&B); B.u.EA.type |= ZEND_PARSED_REFERENCE_VARIABLE; A = B;}*/ + +foreach_statement_body ::= statement. +foreach_statement_body ::= T_COLON inner_statement_list T_ENDFOREACH T_SEMICOLON. + +/* DECLARE statement */ + +declare_statement ::= declare_statement_begin(B) T_LPAREN declare_list T_RPAREN declare_statement. /*{ zend_do_declare_end(&B TSRMLS_CC); }*/ + +declare_statement_begin(A) ::= T_DECLARE(B). /*{ B.u.opline_num = get_next_op_number(CG(active_op_array)); zend_do_declare_begin(TSRMLS_C); A = B;}*/ + +/* TRY statement */ + +//unticked_statement ::= T_TRY /*{ zend_do_try(&$1 TSRMLS_CC); }*/ T_LCBRACKET inner_statement_list T_RCBRACKET +// T_CATCH T_LPAREN /*{ zend_initialize_try_catch_element(&$1 TSRMLS_CC); }*/ +// fully_qualified_class_name /*{ zend_do_first_catch(&$7 TSRMLS_CC); }*/ +// T_VARIABLE T_RPAREN /*{ zend_do_begin_catch(&$1, &$9, &$11, &$7 TSRMLS_CC); }*/ +// T_LCBRACKET inner_statement_list T_RCBRACKET /*{ zend_do_end_catch(&$1 TSRMLS_CC); }*/ +// additional_catches. /*{ zend_do_mark_last_catch(&$7, &$18 TSRMLS_CC); }*/ +//additional_catches ::= non_empty_additional_catches. /*{ $$ = $1; }*/ +//additional_catches ::= ./* empty */ /*{ $$.u.opline_num = -1; }*/ +// +//non_empty_additional_catches ::= additional_catch. /*{ $$ = $1; }*/ +//non_empty_additional_catches ::= non_empty_additional_catches additional_catch. /*{ $$ = $1; }*/ +// +// +//additional_catch ::= T_CATCH T_LPAREN fully_qualified_class_name /*{ $$.u.opline_num = get_next_op_number(CG(active_op_array)); }*/ T_VARIABLE T_RPAREN /*{ zend_do_begin_catch(&$1, &$3, &$5, NULL TSRMLS_CC); }*/ T_LCBRACKET inner_statement_list T_RCBRACKET. /*{ zend_do_end_catch(&$1 TSRMLS_CC); }*/ + +/* UNSET statement */ + +unset_statement ::= T_UNSET T_LPAREN unset_statement_variables_list T_RPAREN T_SEMICOLON. + +unset_statement_variables_list ::= unset_statement_variable. +unset_statement_variables_list ::= unset_statement_variables_list T_COMMA unset_statement_variable. + +unset_statement_variable ::= variable(B). /*{ zend_do_end_variable_parse(BP_VAR_UNSET, 0 TSRMLS_CC); zend_do_unset(&B TSRMLS_CC); }*/ + +unticked_statement ::= if_statement. +unticked_statement ::= while_statement. +unticked_statement ::= dowhile_statement. +unticked_statement ::= for_statement. +unticked_statement ::= switch_statement. +unticked_statement ::= foreach_statement. +unticked_statement ::= declare_statement. +unticked_statement ::= unset_statement. +unticked_statement ::= T_LCBRACKET inner_statement_list T_RCBRACKET. +unticked_statement ::= T_BREAK T_SEMICOLON. /*{ zend_do_brk_cont(ZEND_BRK, NULL TSRMLS_CC); }*/ +unticked_statement ::= T_BREAK expr(B) T_SEMICOLON. /*{ zend_do_brk_cont(ZEND_BRK, &B TSRMLS_CC); }*/ +unticked_statement ::= T_CONTINUE T_SEMICOLON. /*{ zend_do_brk_cont(ZEND_CONT, NULL TSRMLS_CC); }*/ +unticked_statement ::= T_CONTINUE expr(B) T_SEMICOLON. /*{ zend_do_brk_cont(ZEND_CONT, &B TSRMLS_CC); }*/ +unticked_statement ::= T_RETURN T_SEMICOLON. /*{ zend_do_return(NULL, 0 TSRMLS_CC); }*/ +unticked_statement ::= T_RETURN expr_without_variable(B) T_SEMICOLON. /*{ zend_do_return(&B, 0 TSRMLS_CC); }*/ +unticked_statement ::= T_RETURN variable(B) T_SEMICOLON. /*{ zend_do_return(&B, 1 TSRMLS_CC); }*/ +unticked_statement ::= T_GLOBAL global_var_list T_SEMICOLON. +unticked_statement ::= T_STATIC static_var_list T_SEMICOLON. +unticked_statement ::= T_ECHO echo_expr_list T_SEMICOLON. +unticked_statement ::= T_INLINE_HTML(B). /*{ zend_do_echo(&B, 1 TSRMLS_CC); }*/ +unticked_statement ::= expr(B) T_SEMICOLON. /*{ zend_do_free(&B TSRMLS_CC); }*/ +unticked_statement ::= T_SEMICOLON. /* empty statement */ +unticked_statement ::= T_THROW expr(B) T_SEMICOLON. /*{ zend_do_throw(&B TSRMLS_CC); }*/ +unticked_statement ::= T_GOTO T_STRING(B) T_SEMICOLON. /*{ zend_do_goto(&B TSRMLS_CC); }*/ + + +is_reference(A) ::= . /*{ A.op_type = ZEND_RETURN_VAL; }*/ +is_reference(A) ::= T_AMPERSAND. /*{ A.op_type = ZEND_RETURN_REF; }*/ + +/* FUNCTION declaration */ + +unticked_function_declaration_statement ::= function_declaration_cont(B) T_LPAREN parameter_list T_RPAREN T_LCBRACKET inner_statement_list T_RCBRACKET. /*{ zend_do_end_function_declaration(&B TSRMLS_CC); }*/ +function_declaration_begin(A) ::= T_FUNCTION(B). /* { B.u.opline_num = CG(zend_lineno);} A = B; */ +function_declaration_cont(A) ::= function_declaration_begin(B) T_STRING(C). /*{ zend_do_begin_function_declaration(&B, &C, 0, ZEND_RETURN_VAL, NULL TSRMLS_CC); }*/ +function_declaration_cont(A) ::= function_declaration_begin(B) T_AMPERSAND T_STRING(C). /*{ zend_do_begin_function_declaration(&B, &C, 0, ZEND_RETURN_REF, NULL TSRMLS_CC); A = B;}*/ + +parameter_list(A) ::= . +parameter_list(A) ::= parameter_list(C) parameter(B). /* { A = C; } */ + +parameter(A) ::= optionnal_type_hint(B) T_VARIABLE(C). /*{ znode tmp; fetch_simple_variable(&tmp, &C, 0 TSRMLS_CC); A.op_type = IS_CONST; Z_LVAL(A.u.constant)=1; Z_TYPE(A.u.constant)=IS_LONG; INIT_PZVAL(&A.u.constant); zend_do_receive_arg(ZEND_RECV, &tmp, &A, NULL, &B, &C, 0 TSRMLS_CC); }*/ +parameter(A) ::= optionnal_type_hint(B) T_AMPERSAND T_VARIABLE(C). /*{ znode tmp; fetch_simple_variable(&tmp, &C, 0 TSRMLS_CC); A.op_type = IS_CONST; Z_LVAL(A.u.constant)=1; Z_TYPE(A.u.constant)=IS_LONG; INIT_PZVAL(&A.u.constant); zend_do_receive_arg(ZEND_RECV, &tmp, &A, NULL, &B, &C, 1 TSRMLS_CC); }*/ +parameter(A) ::= optionnal_type_hint(B) T_VARIABLE(C) T_EQUAL static_scalar(D). /*{ znode tmp; fetch_simple_variable(&tmp, &C, 0 TSRMLS_CC); A.op_type = IS_CONST; Z_LVAL(A.u.constant)=1; Z_TYPE(A.u.constant)=IS_LONG; INIT_PZVAL(&A.u.constant); zend_do_receive_arg(ZEND_RECV_INIT, &tmp, &A, &D, &B, &C, 0 TSRMLS_CC); }*/ +parameter(A) ::= optionnal_type_hint(B) T_AMPERSAND T_VARIABLE(C) T_EQUAL static_scalar(D). /*{ znode tmp; fetch_simple_variable(&tmp, &$3, 0 TSRMLS_CC); $$.op_type = IS_CONST; Z_LVAL($$.u.constant)=1; Z_TYPE($$.u.constant)=IS_LONG; INIT_PZVAL(&$$.u.constant); zend_do_receive_arg(ZEND_RECV_INIT, &tmp, &$$, &$5, &$1, &$3, 1 TSRMLS_CC); }*/ +// +//non_empty_parameter_list(A) ::= non_empty_parameter_list T_COMMA optionnal_type_hint T_VARIABLE. /*{ znode tmp; fetch_simple_variable(&tmp, &$4, 0 TSRMLS_CC); $$=$1; Z_LVAL($$.u.constant)++; zend_do_receive_arg(ZEND_RECV, &tmp, &$$, NULL, &$3, &$4, 0 TSRMLS_CC); }*/ +//non_empty_parameter_list(A) ::= non_empty_parameter_list T_COMMA optionnal_type_hint T_AMPERSAND T_VARIABLE. /*{ znode tmp; fetch_simple_variable(&tmp, &$5, 0 TSRMLS_CC); $$=$1; Z_LVAL($$.u.constant)++; zend_do_receive_arg(ZEND_RECV, &tmp, &$$, NULL, &$3, &$5, 1 TSRMLS_CC); }*/ +//non_empty_parameter_list(A) ::= non_empty_parameter_list T_COMMA optionnal_type_hint T_AMPERSAND T_VARIABLE T_EQUAL static_scalar. /*{ znode tmp; fetch_simple_variable(&tmp, &$5, 0 TSRMLS_CC); $$=$1; Z_LVAL($$.u.constant)++; zend_do_receive_arg(ZEND_RECV_INIT, &tmp, &$$, &$7, &$3, &$5, 1 TSRMLS_CC); }*/ +//non_empty_parameter_list(A) ::= non_empty_parameter_list T_COMMA optionnal_type_hint T_VARIABLE T_EQUAL static_scalar. /*{ znode tmp; fetch_simple_variable(&tmp, &$4, 0 TSRMLS_CC); $$=$1; Z_LVAL($$.u.constant)++; zend_do_receive_arg(ZEND_RECV_INIT, &tmp, &$$, &$6, &$3, &$4, 0 TSRMLS_CC); }*/ +// +/* CLASS declaration */ + +unticked_class_declaration_statement ::= + class_entry_type T_STRING extends_from + /*{ zend_do_begin_class_declaration(&$1, &$2, &$3 TSRMLS_CC); }*/ + implements_list + T_LCBRACKET + class_statement_list + T_RCBRACKET. /*{ zend_do_end_class_declaration(&$1, &$2 TSRMLS_CC); }*/ +unticked_class_declaration_statement ::= + interface_entry T_STRING + /*{ zend_do_begin_class_declaration(&$1, &$2, NULL TSRMLS_CC); }*/ + interface_extends_list + T_LCBRACKET + class_statement_list + T_RCBRACKET. /*{ zend_do_end_class_declaration(&$1, &$2 TSRMLS_CC); }*/ + + +class_entry_type ::= T_CLASS. /*{ $$.u.opline_num = CG(zend_lineno); $$.u.EA.type = 0; }*/ +class_entry_type ::= T_ABSTRACT T_CLASS. /*{ $$.u.opline_num = CG(zend_lineno); $$.u.EA.type = ZEND_ACC_EXPLICIT_ABSTRACT_CLASS; }*/ +class_entry_type ::= T_FINAL T_CLASS. /*{ $$.u.opline_num = CG(zend_lineno); $$.u.EA.type = ZEND_ACC_FINAL_CLASS; }*/ + + +extends_from ::= . /*{ $$.op_type = IS_UNUSED; }*/ +extends_from ::= T_EXTENDS fully_qualified_class_name. /*{ zend_do_fetch_class(&$$, &$2 TSRMLS_CC); }*/ + + +interface_entry ::= T_INTERFACE. /*{ $$.u.opline_num = CG(zend_lineno); $$.u.EA.type = ZEND_ACC_INTERFACE; }*/ + +interface_extends_list ::= . +interface_extends_list ::= T_EXTENDS interface_list. + + +implements_list ::= . +implements_list ::= T_IMPLEMENTS interface_list. + + +interface_list ::= fully_qualified_class_name. /*{ zend_do_implements_interface(&$1 TSRMLS_CC); }*/ +interface_list ::= interface_list T_COMMA fully_qualified_class_name. /*{ zend_do_implements_interface(&$3 TSRMLS_CC); }*/ + +declare_statement ::= statement. +declare_statement ::= T_COLON inner_statement_list T_ENDDECLARE T_SEMICOLON. + + +declare_list ::= T_STRING T_EQUAL static_scalar. /*{ zend_do_declare_stmt(&$1, &$3 TSRMLS_CC); }*/ +declare_list ::= declare_list T_COMMA T_STRING T_EQUAL static_scalar. /*{ zend_do_declare_stmt(&$3, &$5 TSRMLS_CC); }*/ + + +optionnal_type_hint ::= . +optionnal_type_hint ::= fully_qualified_class_name. /*{ $$ = $1; }*/ +optionnal_type_hint ::= T_ARRAY. /*{ $$.op_type = IS_CONST; Z_TYPE($$.u.constant)=IS_NULL;}*/ + + +function_call_parameter_list ::= . +function_call_parameter_list ::= non_empty_function_call_parameter_list. /*{ $$ = $1; }*/ + + +non_empty_function_call_parameter_list ::= expr_without_variable. /*{ Z_LVAL($$.u.constant) = 1; zend_do_pass_param(&$1, ZEND_SEND_VAL, Z_LVAL($$.u.constant) TSRMLS_CC); }*/ +non_empty_function_call_parameter_list ::= variable. /*{ Z_LVAL($$.u.constant) = 1; zend_do_pass_param(&$1, ZEND_SEND_VAR, Z_LVAL($$.u.constant) TSRMLS_CC); }*/ +non_empty_function_call_parameter_list ::= T_AMPERSAND w_variable. /*{ Z_LVAL($$.u.constant) = 1; zend_do_pass_param(&$2, ZEND_SEND_REF, Z_LVAL($$.u.constant) TSRMLS_CC); }*/ +non_empty_function_call_parameter_list ::= non_empty_function_call_parameter_list T_COMMA expr_without_variable. /*{ Z_LVAL($$.u.constant)=Z_LVAL($1.u.constant)+1; zend_do_pass_param(&$3, ZEND_SEND_VAL, Z_LVAL($$.u.constant) TSRMLS_CC); }*/ +non_empty_function_call_parameter_list ::= non_empty_function_call_parameter_list T_COMMA variable. /*{ Z_LVAL($$.u.constant)=Z_LVAL($1.u.constant)+1; zend_do_pass_param(&$3, ZEND_SEND_VAR, Z_LVAL($$.u.constant) TSRMLS_CC); }*/ +non_empty_function_call_parameter_list ::= non_empty_function_call_parameter_list T_COMMA T_AMPERSAND w_variable. /*{ Z_LVAL($$.u.constant)=Z_LVAL($1.u.constant)+1; zend_do_pass_param(&$4, ZEND_SEND_REF, Z_LVAL($$.u.constant) TSRMLS_CC); }*/ + + +global_var_list ::= global_var_list T_COMMA global_var. /*{ zend_do_fetch_global_variable(&$3, NULL, ZEND_FETCH_GLOBAL_LOCK TSRMLS_CC); }*/ +global_var_list ::= global_var. /*{ zend_do_fetch_global_variable(&$1, NULL, ZEND_FETCH_GLOBAL_LOCK TSRMLS_CC); }*/ + + +global_var ::= T_VARIABLE. /*{ $$ = $1; }*/ +global_var ::= T_DOLLAR r_variable. /*{ zend_do_normalization(&$$, &$2 TSRMLS_CC); }*/ +global_var ::= T_DOLLAR T_LCBRACKET expr T_RCBRACKET. /*{ zend_do_normalization(&$$, &$3 TSRMLS_CC); }*/ + + +static_var_list ::= static_var_list T_COMMA T_VARIABLE. /*{ zend_do_fetch_static_variable(&$3, NULL, ZEND_FETCH_STATIC TSRMLS_CC); }*/ +static_var_list ::= static_var_list T_COMMA T_VARIABLE T_EQUAL static_scalar. /*{ zend_do_fetch_static_variable(&$3, &$5, ZEND_FETCH_STATIC TSRMLS_CC); }*/ +static_var_list ::= T_VARIABLE. /*{ zend_do_fetch_static_variable(&$1, NULL, ZEND_FETCH_STATIC TSRMLS_CC); }*/ +static_var_list ::= T_VARIABLE T_EQUAL static_scalar. /*{ zend_do_fetch_static_variable(&$1, &$3, ZEND_FETCH_STATIC TSRMLS_CC); }*/ + + +class_statement_list ::= class_statement_list class_statement. +class_statement_list ::= . + + +class_statement ::= variable_modifiers /*{ CG(access_type) = Z_LVAL($1.u.constant); }*/ class_variable_declaration T_SEMICOLON. +class_statement ::= class_constant_declaration T_SEMICOLON. +class_statement ::= method_modifiers T_FUNCTION /*{ $2.u.opline_num = CG(zend_lineno); }*/ is_reference T_STRING /*{ zend_do_begin_function_declaration(&$2, &$5, 1, $4.op_type, &$1 TSRMLS_CC); }*/ T_LPAREN + parameter_list T_RPAREN method_body. /*{ zend_do_abstract_method(&$5, &$1, &$10 TSRMLS_CC); zend_do_end_function_declaration(&$2 TSRMLS_CC); }*/ + + +method_body ::= T_SEMICOLON. /* abstract method */ /*{ Z_LVAL($$.u.constant) = ZEND_ACC_ABSTRACT; }*/ +method_body ::= T_LCBRACKET inner_statement_list T_RCBRACKET. /*{ Z_LVAL($$.u.constant) = 0; }*/ + + +variable_modifiers ::= non_empty_member_modifiers. /*{ $$ = $1; }*/ +variable_modifiers ::= T_VAR. /*{ Z_LVAL($$.u.constant) = ZEND_ACC_PUBLIC; }*/ + + +method_modifiers ::= ./* empty */ /*{ Z_LVAL($$.u.constant) = ZEND_ACC_PUBLIC; }*/ +method_modifiers ::= non_empty_member_modifiers. /*{ $$ = $1; if (!(Z_LVAL($$.u.constant) & ZEND_ACC_PPP_MASK)) { Z_LVAL($$.u.constant) |= ZEND_ACC_PUBLIC; } }*/ + + +non_empty_member_modifiers ::= member_modifier. /*{ $$ = $1; }*/ +non_empty_member_modifiers ::= non_empty_member_modifiers member_modifier. /*{ Z_LVAL($$.u.constant) = zend_do_verify_access_types(&$1, &$2); }*/ + + +member_modifier ::= T_PUBLIC. /*{ Z_LVAL($$.u.constant) = ZEND_ACC_PUBLIC; }*/ +member_modifier ::= T_PROTECTED. /*{ Z_LVAL($$.u.constant) = ZEND_ACC_PROTECTED; }*/ +member_modifier ::= T_PRIVATE. /*{ Z_LVAL($$.u.constant) = ZEND_ACC_PRIVATE; }*/ +member_modifier ::= T_STATIC. /*{ Z_LVAL($$.u.constant) = ZEND_ACC_STATIC; }*/ +member_modifier ::= T_ABSTRACT. /*{ Z_LVAL($$.u.constant) = ZEND_ACC_ABSTRACT; }*/ +member_modifier ::= T_FINAL. /*{ Z_LVAL($$.u.constant) = ZEND_ACC_FINAL; }*/ + + +class_variable_declaration ::= class_variable_declaration T_COMMA T_VARIABLE. /*{ zend_do_declare_property(&$3, NULL, CG(access_type) TSRMLS_CC); }*/ +class_variable_declaration ::= class_variable_declaration T_COMMA T_VARIABLE T_EQUAL static_scalar. /*{ zend_do_declare_property(&$3, &$5, CG(access_type) TSRMLS_CC); }*/ +class_variable_declaration ::= T_VARIABLE. /*{ zend_do_declare_property(&$1, NULL, CG(access_type) TSRMLS_CC); }*/ +class_variable_declaration ::= T_VARIABLE T_EQUAL static_scalar. /*{ zend_do_declare_property(&$1, &$3, CG(access_type) TSRMLS_CC); }*/ + + +class_constant_declaration ::= class_constant_declaration T_COMMA T_STRING T_EQUAL static_scalar. /*{ zend_do_declare_class_constant(&$3, &$5 TSRMLS_CC); }*/ +class_constant_declaration ::= T_CONST T_STRING T_EQUAL static_scalar. /*{ zend_do_declare_class_constant(&$2, &$4 TSRMLS_CC); }*/ + +echo_expr_list ::= echo_expr_list T_COMMA expr. /*{ zend_do_echo(&$3, 0 TSRMLS_CC); }*/ +echo_expr_list ::= expr. /*{ zend_do_echo(&$1, 0 TSRMLS_CC); }*/ + + +for_expr ::= . /*{ $$.op_type = IS_CONST; Z_TYPE($$.u.constant) = IS_BOOL; Z_LVAL($$.u.constant) = 1; }*/ +for_expr ::= non_empty_for_expr. /*{ $$ = $1; }*/ + +non_empty_for_expr ::= non_empty_for_expr T_COMMA /*{ zend_do_free(&$1 TSRMLS_CC); }*/ expr. /*{ $$ = $4; }*/ +non_empty_for_expr ::= expr. /*{ $$ = $1; }*/ + +expr_without_variable ::= T_LIST T_LPAREN /*{ zend_do_list_init(TSRMLS_C); }*/ assignment_list T_RPAREN T_EQUAL expr. /*{ zend_do_list_end(&$$, &$7 TSRMLS_CC); }*/ +expr_without_variable ::= variable T_EQUAL expr. /*{ zend_check_writable_variable(&$1); zend_do_assign(&$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= variable T_EQUAL T_AMPERSAND variable. /*{ zend_check_writable_variable(&$1); zend_do_end_variable_parse(BP_VAR_W, 1 TSRMLS_CC); zend_do_end_variable_parse(BP_VAR_W, 0 TSRMLS_CC); zend_do_assign_ref(&$$, &$1, &$4 TSRMLS_CC); }*/ +expr_without_variable ::= variable T_EQUAL T_AMPERSAND T_NEW class_name_reference /*{ zend_error(E_DEPRECATED, "Assigning the return value of new by reference is deprecated"); zend_check_writable_variable(&$1); zend_do_extended_fcall_begin(TSRMLS_C); zend_do_begin_new_object(&$4, &$5 TSRMLS_CC); }*/ ctor_arguments. /*{ zend_do_end_new_object(&$3, &$4, &$7 TSRMLS_CC); zend_do_extended_fcall_end(TSRMLS_C); zend_do_end_variable_parse(BP_VAR_W, 0 TSRMLS_CC); zend_do_assign_ref(&$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= T_NEW class_name_reference /*{ zend_do_extended_fcall_begin(TSRMLS_C); zend_do_begin_new_object(&$1, &$2 TSRMLS_CC); }*/ ctor_arguments. /*{ zend_do_end_new_object(&$$, &$1, &$4 TSRMLS_CC); zend_do_extended_fcall_end(TSRMLS_C); $$.u.EA.type = ZEND_PARSED_NEW; }*/ +expr_without_variable ::= T_CLONE expr. /*{ zend_do_clone(&$$, &$2 TSRMLS_CC); }*/ +expr_without_variable ::= variable T_PLUS_EQUAL expr. /*{ zend_check_writable_variable(&$1); zend_do_end_variable_parse(BP_VAR_RW, 0 TSRMLS_CC); zend_do_binary_assign_op(ZEND_ASSIGN_ADD, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= variable T_MINUS_EQUAL expr. /*{ zend_check_writable_variable(&$1); zend_do_end_variable_parse(BP_VAR_RW, 0 TSRMLS_CC); zend_do_binary_assign_op(ZEND_ASSIGN_SUB, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= variable T_MUL_EQUAL expr. /*{ zend_check_writable_variable(&$1); zend_do_end_variable_parse(BP_VAR_RW, 0 TSRMLS_CC); zend_do_binary_assign_op(ZEND_ASSIGN_MUL, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= variable T_DIV_EQUAL expr. /*{ zend_check_writable_variable(&$1); zend_do_end_variable_parse(BP_VAR_RW, 0 TSRMLS_CC); zend_do_binary_assign_op(ZEND_ASSIGN_DIV, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= variable T_CONCAT_EQUAL expr. /*{ zend_check_writable_variable(&$1); zend_do_end_variable_parse(BP_VAR_RW, 0 TSRMLS_CC); zend_do_binary_assign_op(ZEND_ASSIGN_CONCAT, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= variable T_MOD_EQUAL expr. /*{ zend_check_writable_variable(&$1); zend_do_end_variable_parse(BP_VAR_RW, 0 TSRMLS_CC); zend_do_binary_assign_op(ZEND_ASSIGN_MOD, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= variable T_AMPERSAND_EQUAL expr. /*{ zend_check_writable_variable(&$1); zend_do_end_variable_parse(BP_VAR_RW, 0 TSRMLS_CC); zend_do_binary_assign_op(ZEND_ASSIGN_BW_AND, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= variable T_OR_EQUAL expr. /*{ zend_check_writable_variable(&$1); zend_do_end_variable_parse(BP_VAR_RW, 0 TSRMLS_CC); zend_do_binary_assign_op(ZEND_ASSIGN_BW_OR, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= variable T_XOR_EQUAL expr. /*{ zend_check_writable_variable(&$1); zend_do_end_variable_parse(BP_VAR_RW, 0 TSRMLS_CC); zend_do_binary_assign_op(ZEND_ASSIGN_BW_XOR, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= variable T_SL_EQUAL expr. /*{ zend_check_writable_variable(&$1); zend_do_end_variable_parse(BP_VAR_RW, 0 TSRMLS_CC); zend_do_binary_assign_op(ZEND_ASSIGN_SL, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= variable T_SR_EQUAL expr. /*{ zend_check_writable_variable(&$1); zend_do_end_variable_parse(BP_VAR_RW, 0 TSRMLS_CC); zend_do_binary_assign_op(ZEND_ASSIGN_SR, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= rw_variable T_INC. /*{ zend_do_post_incdec(&$$, &$1, ZEND_POST_INC TSRMLS_CC); }*/ +expr_without_variable ::= T_INC rw_variable. /*{ zend_do_pre_incdec(&$$, &$2, ZEND_PRE_INC TSRMLS_CC); }*/ +expr_without_variable ::= rw_variable T_DEC. /*{ zend_do_post_incdec(&$$, &$1, ZEND_POST_DEC TSRMLS_CC); }*/ +expr_without_variable ::= T_DEC rw_variable. /*{ zend_do_pre_incdec(&$$, &$2, ZEND_PRE_DEC TSRMLS_CC); }*/ +expr_without_variable ::= expr T_BOOLEAN_OR /*{ zend_do_boolean_or_begin(&$1, &$2 TSRMLS_CC); }*/ expr. /*{ zend_do_boolean_or_end(&$$, &$1, &$4, &$2 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_BOOLEAN_AND /*{ zend_do_boolean_and_begin(&$1, &$2 TSRMLS_CC); }*/ expr. /*{ zend_do_boolean_and_end(&$$, &$1, &$4, &$2 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_LOGICAL_OR /*{ zend_do_boolean_or_begin(&$1, &$2 TSRMLS_CC); }*/ expr. /*{ zend_do_boolean_or_end(&$$, &$1, &$4, &$2 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_LOGICAL_AND /*{ zend_do_boolean_and_begin(&$1, &$2 TSRMLS_CC); }*/ expr. /*{ zend_do_boolean_and_end(&$$, &$1, &$4, &$2 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_LOGICAL_XOR expr. /*{ zend_do_binary_op(ZEND_BOOL_XOR, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_PIPE expr. /*{ zend_do_binary_op(ZEND_BW_OR, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_AMPERSAND expr. /*{ zend_do_binary_op(ZEND_BW_AND, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_HAT expr. /*{ zend_do_binary_op(ZEND_BW_XOR, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_DOT expr. /*{ zend_do_binary_op(ZEND_CONCAT, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_PLUS expr. /*{ zend_do_binary_op(ZEND_ADD, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_MINUS expr. /*{ zend_do_binary_op(ZEND_SUB, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_STAR expr. /*{ zend_do_binary_op(ZEND_MUL, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_SLASH expr. /*{ zend_do_binary_op(ZEND_DIV, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_PERCENT expr. /*{ zend_do_binary_op(ZEND_MOD, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_SL expr. /*{ zend_do_binary_op(ZEND_SL, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_SR expr. /*{ zend_do_binary_op(ZEND_SR, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= T_PLUS expr T_INC. /*{ Z_LVAL($1.u.constant)=0; Z_TYPE($1.u.constant)=IS_LONG; $1.op_type = IS_CONST; INIT_PZVAL(&$1.u.constant); zend_do_binary_op(ZEND_ADD, &$$, &$1, &$2 TSRMLS_CC); }*/ +expr_without_variable ::= T_MINUS expr T_INC. /*{ Z_LVAL($1.u.constant)=0; Z_TYPE($1.u.constant)=IS_LONG; $1.op_type = IS_CONST; INIT_PZVAL(&$1.u.constant); zend_do_binary_op(ZEND_SUB, &$$, &$1, &$2 TSRMLS_CC); }*/ +expr_without_variable ::= T_BANG expr. /*{ zend_do_unary_op(ZEND_BOOL_NOT, &$$, &$2 TSRMLS_CC); }*/ +expr_without_variable ::= T_TILDA expr. /*{ zend_do_unary_op(ZEND_BW_NOT, &$$, &$2 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_IS_IDENTICAL expr. /*{ zend_do_binary_op(ZEND_IS_IDENTICAL, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_IS_NOT_IDENTICAL expr. /*{ zend_do_binary_op(ZEND_IS_NOT_IDENTICAL, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_IS_EQUAL expr. /*{ zend_do_binary_op(ZEND_IS_EQUAL, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_IS_NOT_EQUAL expr. /*{ zend_do_binary_op(ZEND_IS_NOT_EQUAL, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_SMALLER_THAN expr. /*{ zend_do_binary_op(ZEND_IS_SMALLER, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_IS_SMALLER_OR_EQUAL expr. /*{ zend_do_binary_op(ZEND_IS_SMALLER_OR_EQUAL, &$$, &$1, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_GREATER_THAN expr. /*{ zend_do_binary_op(ZEND_IS_SMALLER, &$$, &$3, &$1 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_IS_GREATER_OR_EQUAL expr. /*{ zend_do_binary_op(ZEND_IS_SMALLER_OR_EQUAL, &$$, &$3, &$1 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_INSTANCEOF class_name_reference. /*{ zend_do_instanceof(&$$, &$1, &$3, 0 TSRMLS_CC); }*/ +expr_without_variable ::= T_LPAREN expr T_RPAREN. /*{ $$ = $2; }*/ +expr_without_variable ::= expr T_INTERROGATION_MARK. /*{ zend_do_begin_qm_op(&$1, &$2 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_COLON /*{ zend_do_qm_true(&$4, &$2, &$5 TSRMLS_CC); }*/ + expr. /*{ zend_do_qm_false(&$$, &$7, &$2, &$5 TSRMLS_CC); }*/ +expr_without_variable ::= expr T_INTERROGATION_MARK T_COLON /*{ zend_do_jmp_set(&$1, &$2, &$3 TSRMLS_CC); }*/ + expr. /*{ zend_do_jmp_set_else(&$$, &$5, &$2, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= internal_functions_in_yacc. /*{ $$ = $1; }*/ +expr_without_variable ::= T_INT_CAST expr. /*{ zend_do_cast(&$$, &$2, IS_LONG TSRMLS_CC); }*/ +expr_without_variable ::= T_DOUBLE_CAST expr. /*{ zend_do_cast(&$$, &$2, IS_DOUBLE TSRMLS_CC); }*/ +expr_without_variable ::= T_STRING_CAST expr. /*{ zend_do_cast(&$$, &$2, UG(unicode)?IS_UNICODE:IS_STRING TSRMLS_CC); }*/ +expr_without_variable ::= T_UNICODE_CAST expr. /*{ zend_do_cast(&$$, &$2, IS_UNICODE TSRMLS_CC); }*/ +expr_without_variable ::= T_BINARY_CAST expr. /*{ zend_do_cast(&$$, &$2, IS_STRING TSRMLS_CC); }*/ +expr_without_variable ::= T_ARRAY_CAST expr. /*{ zend_do_cast(&$$, &$2, IS_ARRAY TSRMLS_CC); }*/ +expr_without_variable ::= T_OBJECT_CAST expr. /*{ zend_do_cast(&$$, &$2, IS_OBJECT TSRMLS_CC); }*/ +expr_without_variable ::= T_BOOL_CAST expr. /*{ zend_do_cast(&$$, &$2, IS_BOOL TSRMLS_CC); }*/ +expr_without_variable ::= T_UNSET_CAST expr. /*{ zend_do_cast(&$$, &$2, IS_NULL TSRMLS_CC); }*/ +expr_without_variable ::= T_EXIT exit_expr. /*{ zend_do_exit(&$$, &$2 TSRMLS_CC); }*/ +expr_without_variable ::= T_AT /*{ zend_do_begin_silence(&$1 TSRMLS_CC); }*/ expr. /*{ zend_do_end_silence(&$1 TSRMLS_CC); $$ = $3; }*/ +expr_without_variable ::= scalar. /*{ $$ = $1; }*/ +expr_without_variable ::= T_ARRAY T_LPAREN array_pair_list T_RPAREN. /*{ $$ = $3; }*/ +expr_without_variable ::= T_BACKTICK /*{ CG(literal_type) = UG(unicode)?IS_UNICODE:IS_STRING; }*/ encaps_list T_BACKTICK. /*{ zend_do_shell_exec(&$$, &$3 TSRMLS_CC); }*/ +expr_without_variable ::= T_PRINT expr. /*{ zend_do_print(&$$, &$2 TSRMLS_CC); }*/ + +function_call ::= T_STRING T_LPAREN /*{ $2.u.opline_num = zend_do_begin_function_call(&$1, 1 TSRMLS_CC); }*/ + function_call_parameter_list + T_RPAREN. /*{ zend_do_end_function_call(&$1, &$$, &$4, 0, $2.u.opline_num TSRMLS_CC); zend_do_extended_fcall_end(TSRMLS_C); }*/ +function_call ::= T_PAAMAYIM_NEKUDOTAYIM T_STRING T_LPAREN /*{ $3.u.opline_num = zend_do_begin_function_call(&$2, 0 TSRMLS_CC); }*/ + function_call_parameter_list + T_RPAREN. /*{ zend_do_end_function_call(&$2, &$$, &$5, 0, $3.u.opline_num TSRMLS_CC); zend_do_extended_fcall_end(TSRMLS_C);}*/ +function_call ::= class_name T_PAAMAYIM_NEKUDOTAYIM T_STRING T_LPAREN /*{ $4.u.opline_num = zend_do_begin_class_member_function_call(&$1, &$3 TSRMLS_CC); }*/ + function_call_parameter_list + T_RPAREN. /*{ zend_do_end_function_call($4.u.opline_num?NULL:&$3, &$$, &$6, $4.u.opline_num, $4.u.opline_num TSRMLS_CC); zend_do_extended_fcall_end(TSRMLS_C);}*/ +function_call ::= variable_class_name T_PAAMAYIM_NEKUDOTAYIM T_STRING T_LPAREN /*{ zend_do_begin_class_member_function_call(&$1, &$3 TSRMLS_CC); }*/ + function_call_parameter_list + T_RPAREN. /*{ zend_do_end_function_call(NULL, &$$, &$6, 1, 1 TSRMLS_CC); zend_do_extended_fcall_end(TSRMLS_C);}*/ +function_call ::= variable_class_name T_PAAMAYIM_NEKUDOTAYIM variable_without_objects T_LPAREN /*{ zend_do_end_variable_parse(BP_VAR_R, 0 TSRMLS_CC); zend_do_begin_class_member_function_call(&$1, &$3 TSRMLS_CC); }*/ + function_call_parameter_list + T_RPAREN. /*{ zend_do_end_function_call(NULL, &$$, &$6, 1, 1 TSRMLS_CC); zend_do_extended_fcall_end(TSRMLS_C);}*/ +function_call ::= class_name T_PAAMAYIM_NEKUDOTAYIM variable_without_objects T_LPAREN /*{ zend_do_end_variable_parse(BP_VAR_R, 0 TSRMLS_CC); zend_do_begin_class_member_function_call(&$1, &$3 TSRMLS_CC); }*/ + function_call_parameter_list + T_RPAREN. /*{ zend_do_end_function_call(NULL, &$$, &$6, 1, 1 TSRMLS_CC); zend_do_extended_fcall_end(TSRMLS_C);}*/ +function_call ::= variable_without_objects T_LPAREN /*{ zend_do_end_variable_parse(BP_VAR_R, 0 TSRMLS_CC); zend_do_begin_dynamic_function_call(&$1, 0 TSRMLS_CC); }*/ + function_call_parameter_list T_RPAREN. + /*{ zend_do_end_function_call(&$1, &$$, &$4, 0, 1 TSRMLS_CC); zend_do_extended_fcall_end(TSRMLS_C);}*/ + +class_name ::= T_STRING. /*{ $$ = $1; }*/ +class_name ::= T_STATIC. /*{ $$.op_type = IS_CONST; ZVAL_ASCII_STRINGL(&$$.u.constant, "static", sizeof("static")-1, 1);}*/ +class_name ::= T_NAMESPACE. /*{ $$.op_type = IS_CONST; ZVAL_EMPTY_TEXT(&$$.u.constant); }*/ +class_name ::= T_PAAMAYIM_NEKUDOTAYIM T_STRING. /*{ zend_do_build_namespace_name(&$$, NULL, &$2 TSRMLS_CC); }*/ +class_name ::= class_name T_PAAMAYIM_NEKUDOTAYIM T_STRING. /*{ zend_do_build_namespace_name(&$$, &$1, &$3 TSRMLS_CC); }*/ + +fully_qualified_class_name ::= T_STRING. /*{ $$ = $1; }*/ +fully_qualified_class_name ::= T_NAMESPACE. /*{ $$.op_type = IS_CONST; ZVAL_EMPTY_TEXT(&$$.u.constant); }*/ +fully_qualified_class_name ::= T_PAAMAYIM_NEKUDOTAYIM T_STRING. /*{ zend_do_build_namespace_name(&$$, NULL, &$2 TSRMLS_CC); }*/ +fully_qualified_class_name ::= fully_qualified_class_name T_PAAMAYIM_NEKUDOTAYIM T_STRING. /*{ zend_do_build_namespace_name(&$$, &$1, &$3 TSRMLS_CC); }*/ + + +class_name_reference ::= class_name. /*{ zend_do_fetch_class(&$$, &$1 TSRMLS_CC); }*/ +class_name_reference ::= dynamic_class_name_reference. /*{ zend_do_end_variable_parse(BP_VAR_R, 0 TSRMLS_CC); zend_do_fetch_class(&$$, &$1 TSRMLS_CC); }*/ + + +dynamic_class_name_reference ::= base_variable T_OBJECT_OPERATOR /*{ zend_do_push_object(&$1 TSRMLS_CC); }*/ + object_property /*{ zend_do_push_object(&$4 TSRMLS_CC); zend_do_declare_implicit_property(TSRMLS_C); }*/ dynamic_class_name_variable_properties. + /*{ zend_do_pop_object(&$$ TSRMLS_CC); $$.u.EA.type = ZEND_PARSED_MEMBER; }*/ +dynamic_class_name_reference ::= base_variable. /*{ $$ = $1; }*/ + + +dynamic_class_name_variable_properties ::= . +dynamic_class_name_variable_properties ::= dynamic_class_name_variable_properties dynamic_class_name_variable_property. + + +dynamic_class_name_variable_property ::= T_OBJECT_OPERATOR object_property. /*{ zend_do_push_object(&$2 TSRMLS_CC); zend_do_declare_implicit_property(TSRMLS_C); }*/ + +exit_expr ::= . /*{ memset(&$$, 0, sizeof(znode)); $$.op_type = IS_UNUSED; }*/ +exit_expr ::= T_LPAREN T_RPAREN. /*{ memset(&$$, 0, sizeof(znode)); $$.op_type = IS_UNUSED; }*/ +exit_expr ::= T_LPAREN expr T_RPAREN. /*{ $$ = $2; }*/ + + +ctor_arguments ::= ./* empty */ /*{ Z_LVAL($$.u.constant)=0; }*/ +ctor_arguments ::= T_LPAREN function_call_parameter_list T_RPAREN. /*{ $$ = $2; }*/ + + +common_scalar ::= T_LNUMBER. /*{ $$ = $1; }*/ +common_scalar ::= T_DNUMBER. /*{ $$ = $1; }*/ +common_scalar ::= T_CONSTANT_ENCAPSED_STRING. /*{ $$ = $1; }*/ +common_scalar ::= T_LINE. /*{ $$ = $1; }*/ +common_scalar ::= T_FILE. /*{ $$ = $1; }*/ +common_scalar ::= T_DIR. /*{ $$ = $1; }*/ +common_scalar ::= T_CLASS_C. /*{ $$ = $1; }*/ +common_scalar ::= T_METHOD_C. /*{ $$ = $1; }*/ +common_scalar ::= T_FUNC_C. /*{ $$ = $1; }*/ +common_scalar ::= T_NS_C. /*{ $$ = $1; }*/ +common_scalar ::= T_START_NOWDOC T_ENCAPSED_AND_WHITESPACE T_END_NOWDOC. /*{ $$ = $2; }*/ + + +static_scalar ::= common_scalar. /*{ $$ = $1; }*/ +static_scalar ::= T_STRING. /*{ zend_do_fetch_constant(&$$, NULL, &$1, ZEND_CT, 1 TSRMLS_CC); }*/ +static_scalar ::= T_PAAMAYIM_NEKUDOTAYIM T_STRING. /*{ zend_do_fetch_constant(&$$, NULL, &$2, ZEND_CT, 0 TSRMLS_CC); }*/ +static_scalar ::= T_PLUS static_scalar. /*{ $$ = $2; }*/ +static_scalar ::= T_MINUS static_scalar. /*{ zval minus_one; Z_TYPE(minus_one) = IS_LONG; Z_LVAL(minus_one) = -1; mul_function(&$2.u.constant, &$2.u.constant, &minus_one TSRMLS_CC); $$ = $2; }*/ +static_scalar ::= T_ARRAY T_LPAREN static_array_pair_list T_RPAREN. /*{ $$ = $3; Z_TYPE($$.u.constant) = IS_CONSTANT_ARRAY; }*/ +static_scalar ::= static_class_constant. /*{ $$ = $1; }*/ + +static_class_constant ::= class_name T_PAAMAYIM_NEKUDOTAYIM T_STRING. /*{ zend_do_fetch_constant(&$$, &$1, &$3, ZEND_CT, 0 TSRMLS_CC); }*/ + +scalar ::= T_STRING. /*{ zend_do_fetch_constant(&$$, NULL, &$1, ZEND_RT, 1 TSRMLS_CC); }*/ +scalar ::= T_PAAMAYIM_NEKUDOTAYIM T_STRING. /*{ zend_do_fetch_constant(&$$, NULL, &$2, ZEND_RT, 0 TSRMLS_CC); }*/ +scalar ::= T_STRING_VARNAME. /*{ $$ = $1; }*/ +scalar ::= class_constant. /*{ $$ = $1; }*/ +scalar ::= common_scalar. /*{ $$ = $1; }*/ +scalar ::= T_DQUOTE /*{ CG(literal_type) = UG(unicode)?IS_UNICODE:IS_STRING; }*/ encaps_list T_DQUOTE. /*{ $$ = $3; }*/ +scalar ::= T_START_HEREDOC /*{ CG(literal_type) = UG(unicode)?IS_UNICODE:IS_STRING; }*/ encaps_list T_END_HEREDOC. /*{ $$ = $3; }*/ +scalar ::= T_BINARY_DOUBLE /*{ CG(literal_type) = IS_STRING; }*/ encaps_list T_DQUOTE. /*{ $$ = $3; }*/ +scalar ::= T_BINARY_HEREDOC /*{ CG(literal_type) = IS_STRING; }*/ encaps_list T_END_HEREDOC. /*{ $$ = $3; }*/ + + +static_array_pair_list ::= . /*{ $$.op_type = IS_CONST; INIT_PZVAL(&$$.u.constant); array_init(&$$.u.constant); }*/ +static_array_pair_list ::= non_empty_static_array_pair_list possible_comma. /*{ $$ = $1; }*/ + +possible_comma ::= . +possible_comma ::= T_COMMA. + +non_empty_static_array_pair_list ::= non_empty_static_array_pair_list T_COMMA static_scalar T_DOUBLE_ARROW static_scalar. /*{ zend_do_add_static_array_element(&$$, &$3, &$5); }*/ +non_empty_static_array_pair_list ::= non_empty_static_array_pair_list T_COMMA static_scalar. /*{ zend_do_add_static_array_element(&$$, NULL, &$3); }*/ +non_empty_static_array_pair_list ::= static_scalar T_DOUBLE_ARROW static_scalar. /*{ $$.op_type = IS_CONST; INIT_PZVAL(&$$.u.constant); array_init(&$$.u.constant); zend_do_add_static_array_element(&$$, &$1, &$3); }*/ +non_empty_static_array_pair_list ::= static_scalar. /*{ $$.op_type = IS_CONST; INIT_PZVAL(&$$.u.constant); array_init(&$$.u.constant); zend_do_add_static_array_element(&$$, NULL, &$1); }*/ + +expr ::= r_variable. /*{ $$ = $1; }*/ +expr ::= expr_without_variable. /*{ $$ = $1; }*/ + + +r_variable ::= variable. /*{ zend_do_end_variable_parse(BP_VAR_R, 0 TSRMLS_CC); $$ = $1; }*/ +w_variable ::= variable. /*{ zend_do_end_variable_parse(BP_VAR_W, 0 TSRMLS_CC); $$ = $1; }*/ +rw_variable ::= variable. /*{ zend_do_end_variable_parse(BP_VAR_RW, 0 TSRMLS_CC); $$ = $1; }*/ + +variable ::= base_variable_with_function_calls T_OBJECT_OPERATOR /*{ zend_do_push_object(&$1 TSRMLS_CC); }*/ + object_property /*{ zend_do_push_object(&$4 TSRMLS_CC); }*/ method_or_not variable_properties. + /*{ zend_do_pop_object(&$$ TSRMLS_CC); $$.u.EA.type = $1.u.EA.type | ($7.u.EA.type ? $7.u.EA.type : $6.u.EA.type); }*/ +variable ::= base_variable_with_function_calls. /*{ $$ = $1; }*/ + + +variable_properties ::= . +variable_properties ::= variable_properties variable_property. + + +variable_property ::= T_OBJECT_OPERATOR object_property /*{ zend_do_push_object(&$2 TSRMLS_CC); }*/ method_or_not. /*{ $$.u.EA.type = $4.u.EA.type; }*/ + +method_or_not ::= . +method_or_not ::= T_LPAREN /*{ zend_do_pop_object(&$1 TSRMLS_CC); zend_do_begin_method_call(&$1 TSRMLS_CC); }*/ + function_call_parameter_list T_RPAREN. + /*{ zend_do_end_function_call(&$1, &$$, &$3, 1, 1 TSRMLS_CC); zend_do_extended_fcall_end(TSRMLS_C); + zend_do_push_object(&$$ TSRMLS_CC); $$.u.EA.type = ZEND_PARSED_METHOD_CALL; }*/ + +variable_without_objects ::= reference_variable. /*{ $$ = $1; }*/ +variable_without_objects ::= simple_indirect_reference reference_variable. /*{ zend_do_indirect_references(&$$, &$1, &$2 TSRMLS_CC); }*/ + +static_member ::= class_name T_PAAMAYIM_NEKUDOTAYIM variable_without_objects. /*{ $$ = $3; zend_do_fetch_static_member(&$$, &$1 TSRMLS_CC); }*/ +static_member ::= variable_class_name T_PAAMAYIM_NEKUDOTAYIM variable_without_objects. /*{ $$ = $3; zend_do_fetch_static_member(&$$, &$1 TSRMLS_CC); }*/ + +variable_class_name ::= reference_variable. /*{ zend_do_end_variable_parse(BP_VAR_R, 0 TSRMLS_CC); $$=$1;}*/ + + +base_variable_with_function_calls ::= base_variable. /*{ $$ = $1; }*/ +base_variable_with_function_calls ::= function_call. /*{ zend_do_begin_variable_parse(TSRMLS_C); $$ = $1; $$.u.EA.type = ZEND_PARSED_FUNCTION_CALL; }*/ + + +base_variable ::= reference_variable. /*{ $$ = $1; $$.u.EA.type = ZEND_PARSED_VARIABLE; }*/ +base_variable ::= simple_indirect_reference reference_variable. /*{ zend_do_indirect_references(&$$, &$1, &$2 TSRMLS_CC); $$.u.EA.type = ZEND_PARSED_VARIABLE; }*/ +base_variable ::= static_member. /*{ $$ = $1; $$.u.EA.type = ZEND_PARSED_STATIC_MEMBER; }*/ + +reference_variable ::= reference_variable T_LBRACKET dim_offset T_RBRACKET. /*{ fetch_array_dim(&$$, &$1, &$3 TSRMLS_CC); }*/ +reference_variable ::= reference_variable T_LCBRACKET expr T_RCBRACKET. /*{ fetch_string_offset(&$$, &$1, &$3 TSRMLS_CC); }*/ +reference_variable ::= compound_variable. /*{ zend_do_begin_variable_parse(TSRMLS_C); fetch_simple_variable(&$$, &$1, 1 TSRMLS_CC); }*/ + + +compound_variable ::= T_VARIABLE. /*{ $$ = $1; }*/ +compound_variable ::= T_DOLLAR T_LCBRACKET expr T_RCBRACKET. /*{ zend_do_normalization(&$$, &$3 TSRMLS_CC); }*/ + + +dim_offset ::= . +dim_offset ::= expr. + + +object_property ::= object_dim_list. /*{ $$ = $1; }*/ +object_property ::= variable_without_objects. /*{ znode tmp_znode; zend_do_end_variable_parse(BP_VAR_R, 0 TSRMLS_CC); zend_do_pop_object(&tmp_znode TSRMLS_CC); zend_do_fetch_property(&$$, &tmp_znode, &$1 TSRMLS_CC);}*/ + + +object_dim_list ::= object_dim_list T_LBRACKET dim_offset T_RBRACKET. /*{ fetch_array_dim(&$$, &$1, &$3 TSRMLS_CC); }*/ +object_dim_list ::= object_dim_list T_LCBRACKET expr T_RCBRACKET. /*{ fetch_string_offset(&$$, &$1, &$3 TSRMLS_CC); }*/ +object_dim_list ::= variable_name. /*{ znode tmp_znode; zend_do_pop_object(&tmp_znode TSRMLS_CC); zend_do_fetch_property(&$$, &tmp_znode, &$1 TSRMLS_CC);}*/ + + +variable_name ::= T_STRING. /*{ $$ = $1; }*/ +variable_name ::= T_LCBRACKET expr T_RCBRACKET. /*{ zend_do_normalization(&$$, &$2 TSRMLS_CC); }*/ + + +simple_indirect_reference ::= T_DOLLAR. /*{ Z_LVAL($$.u.constant) = 1; }*/ +simple_indirect_reference ::= simple_indirect_reference T_DOLLAR. /*{ Z_LVAL($$.u.constant)++; }*/ + + +assignment_list ::= assignment_list T_COMMA assignment_list_element. +assignment_list ::= assignment_list_element. + + +assignment_list_element ::= . +assignment_list_element ::= variable. /*{ zend_do_add_list_element(&$1 TSRMLS_CC); }*/ +assignment_list_element ::= T_LIST T_LPAREN /*{ zend_do_new_list_begin(TSRMLS_C); }*/ assignment_list T_RPAREN. /*{ zend_do_new_list_end(TSRMLS_C); }*/ + +array_pair_list ::= . /*{ zend_do_init_array(&$$, NULL, NULL, 0 TSRMLS_CC); } */ +array_pair_list ::= non_empty_array_pair_list possible_comma./*{ $$ = $1; }*/ + +non_empty_array_pair_list ::= non_empty_array_pair_list T_COMMA expr T_DOUBLE_ARROW expr. /*{ zend_do_add_array_element(&$$, &$5, &$3, 0 TSRMLS_CC); }*/ +non_empty_array_pair_list ::= non_empty_array_pair_list T_COMMA expr. /*{ zend_do_add_array_element(&$$, &$3, NULL, 0 TSRMLS_CC); }*/ +non_empty_array_pair_list ::= expr T_DOUBLE_ARROW expr. /*{ zend_do_init_array(&$$, &$3, &$1, 0 TSRMLS_CC); }*/ +non_empty_array_pair_list ::= expr. /*{ zend_do_init_array(&$$, &$1, NULL, 0 TSRMLS_CC); }*/ +non_empty_array_pair_list ::= non_empty_array_pair_list T_COMMA expr T_DOUBLE_ARROW T_AMPERSAND w_variable. /*{ zend_do_add_array_element(&$$, &$6, &$3, 1 TSRMLS_CC); }*/ +non_empty_array_pair_list ::= non_empty_array_pair_list T_COMMA T_AMPERSAND w_variable. /*{ zend_do_add_array_element(&$$, &$4, NULL, 1 TSRMLS_CC); }*/ +non_empty_array_pair_list ::= expr T_DOUBLE_ARROW T_AMPERSAND w_variable. /*{ zend_do_init_array(&$$, &$4, &$1, 1 TSRMLS_CC); }*/ +non_empty_array_pair_list ::= T_AMPERSAND w_variable. /*{ zend_do_init_array(&$$, &$2, NULL, 1 TSRMLS_CC); }*/ + +encaps_list ::= . +encaps_list ::= encaps_list encaps_var. /*{ zend_do_end_variable_parse(BP_VAR_R, 0 TSRMLS_CC); zend_do_add_variable(&$$, &$1, &$2 TSRMLS_CC); }*/ +encaps_list ::= encaps_list T_ENCAPSED_AND_WHITESPACE. /*{ zend_do_add_string(&$$, &$1, &$2 TSRMLS_CC); }*/ + + +encaps_var ::= T_VARIABLE. /*{ zend_do_begin_variable_parse(TSRMLS_C); fetch_simple_variable(&$$, &$1, 1 TSRMLS_CC); }*/ +encaps_var ::= T_VARIABLE T_LBRACKET /*{ zend_do_begin_variable_parse(TSRMLS_C); }*/ encaps_var_offset T_RBRACKET. /*{ fetch_array_begin(&$$, &$1, &$4 TSRMLS_CC); }*/ +encaps_var ::= T_VARIABLE T_OBJECT_OPERATOR T_STRING. /*{ zend_do_begin_variable_parse(TSRMLS_C); fetch_simple_variable(&$2, &$1, 1 TSRMLS_CC); zend_do_fetch_property(&$$, &$2, &$3 TSRMLS_CC); }*/ +encaps_var ::= T_DOLLAR_OPEN_CURLY_BRACES expr T_RCBRACKET. /*{ zend_do_begin_variable_parse(TSRMLS_C); fetch_simple_variable(&$$, &$2, 1 TSRMLS_CC); }*/ +encaps_var ::= T_DOLLAR_OPEN_CURLY_BRACES T_STRING_VARNAME T_LBRACKET expr T_RBRACKET T_RCBRACKET. /*{ zend_do_begin_variable_parse(TSRMLS_C); fetch_array_begin(&$$, &$2, &$4 TSRMLS_CC); }*/ +encaps_var ::= T_CURLY_OPEN variable T_RCBRACKET. /*{ $$ = $2; }*/ + + +encaps_var_offset ::= T_STRING. /*{ $$ = $1; }*/ +encaps_var_offset ::= T_NUM_STRING. /*{ $$ = $1; }*/ +encaps_var_offset ::= T_VARIABLE. /*{ fetch_simple_variable(&$$, &$1, 1 TSRMLS_CC); }*/ + + +internal_functions_in_yacc ::= T_ISSET T_LPAREN isset_variables T_RPAREN. /*{ $$ = $3; }*/ +internal_functions_in_yacc ::= T_EMPTY T_LPAREN variable T_RPAREN. /*{ zend_do_isset_or_isempty(ZEND_ISEMPTY, &$$, &$3 TSRMLS_CC); }*/ +internal_functions_in_yacc ::= T_INCLUDE expr. /*{ zend_do_include_or_eval(ZEND_INCLUDE, &$$, &$2 TSRMLS_CC); }*/ +internal_functions_in_yacc ::= T_INCLUDE_ONCE expr. /*{ zend_do_include_or_eval(ZEND_INCLUDE_ONCE, &$$, &$2 TSRMLS_CC); }*/ +internal_functions_in_yacc ::= T_EVAL T_LPAREN expr T_RPAREN. /*{ zend_do_include_or_eval(ZEND_EVAL, &$$, &$3 TSRMLS_CC); }*/ +internal_functions_in_yacc ::= T_REQUIRE expr. /*{ zend_do_include_or_eval(ZEND_REQUIRE, &$$, &$2 TSRMLS_CC); }*/ +internal_functions_in_yacc ::= T_REQUIRE_ONCE expr. /*{ zend_do_include_or_eval(ZEND_REQUIRE_ONCE, &$$, &$2 TSRMLS_CC); }*/ + +isset_variables ::= variable. /*{ zend_do_isset_or_isempty(ZEND_ISSET, &$$, &$1 TSRMLS_CC); }*/ +isset_variables ::= isset_variables T_COMMA /*{ zend_do_boolean_and_begin(&$1, &$2 TSRMLS_CC); }*/ variable. /*{ znode tmp; zend_do_isset_or_isempty(ZEND_ISSET, &tmp, &$4 TSRMLS_CC); zend_do_boolean_and_end(&$$, &$1, &tmp, &$2 TSRMLS_CC); }*/ + +class_constant ::= class_name T_PAAMAYIM_NEKUDOTAYIM T_STRING. /*{ zend_do_fetch_constant(&$$, &$1, &$3, ZEND_RT, 0 TSRMLS_CC); }*/ +class_constant ::= variable_class_name T_PAAMAYIM_NEKUDOTAYIM T_STRING. /*{ zend_do_fetch_constant(&$$, &$1, &$3, ZEND_RT, 0 TSRMLS_CC); }*/ + +/* + * Local variables: + * tab-width: 4 + * c-basic-offset: 4 + * indent-tabs-mode: t + * End: + */ diff --git a/main/php_language_scanner.l b/main/php_language_scanner.l new file mode 100644 index 0000000..791dded --- /dev/null +++ b/main/php_language_scanner.l @@ -0,0 +1,2734 @@ +/* + +----------------------------------------------------------------------+ + | Zend Engine | + +----------------------------------------------------------------------+ + | Copyright (c) 1998-2008 Zend Technologies Ltd. (http://www.zend.com) | + +----------------------------------------------------------------------+ + | This source file is subject to version 2.00 of the Zend license, | + | that is bundled with this package in the file LICENSE, and is | + | available through the world-wide-web at the following url: | + | http://www.zend.com/license/2_00.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: Marcus Boerger | + | Nuno Lopes | + | Scott MacVicar | + | Flex version authors: | + | Andi Gutmans | + | Zeev Suraski | + +----------------------------------------------------------------------+ +*/ + +/* $Id$ */ + +#include "php.h" + +#undef YYDEBUG +#if 0 +# define YYDEBUG(s, c) printf("state: %d char: %c\n", s, c) +#else +# define YYDEBUG(s, c) +#endif + +#include "zend_language_scanner_defs.h" + +#include +#include "zend.h" +#include "zend_alloc.h" +#include +#include "zend_compile.h" +#include "zend_language_scanner.h" +#include "php_language_scanner.h" +#include "zend_highlight.h" +#include "zend_constants.h" +#include "zend_variables.h" +#include "zend_operators.h" +#include "zend_API.h" +#include "zend_strtod.h" +#include "zend_unicode.h" +#include "tsrm_virtual_cwd.h" +#include "tsrm_config_common.h" + +#define YYCTYPE unsigned char +#define YYFILL(n) { if (YYCURSOR >= YYLIMIT) return 0; } +#define YYCURSOR SCNG(yy_cursor) +#define YYLIMIT SCNG(yy_limit) +#define YYMARKER SCNG(yy_marker) + +#define YYGETCONDITION() SCNG(yy_state) +#define YYSETCONDITION(s) SCNG(yy_state) = s + +#define STATE(name) yyc##name + +/* emulate flex constructs */ +#define BEGIN(state) YYSETCONDITION(STATE(state)) +#define YYSTATE YYGETCONDITION() +#define yytext ((char*)SCNG(yy_text)) +#define yyleng SCNG(yy_leng) +#define yyless(x) YYCURSOR = yytext + x +#define yymore() goto yymore_restart + +#ifdef HAVE_STDARG_H +# include +#endif + +#ifdef HAVE_UNISTD_H +# include +#endif + +/* Globals Macros */ +#define SCNG LANG_SCNG +#ifdef ZTS +PHPAPI ts_rsrc_id language_scanner_globals_id; +#else +PHPAPI zend_php_scanner_globals language_scanner_globals; +#endif + +/* +#define YY_INPUT(buf, result, max_size) \ + if ( ((result = zend_unicode_yyinput(yyin, buf, max_size TSRMLS_CC)) == 0)) \ + YY_FATAL_ERROR( "input in flex scanner failed" ); +*/ + +#define HANDLE_NEWLINES(s, l) \ +do { \ + char *p = (s), *boundary = p+(l); \ + \ + while (p='0' && (c)<='7') +#define ZEND_IS_HEX(c) (((c)>='0' && (c)<='9') || ((c)>='a' && (c)<='f') || ((c)>='A' && (c)<='F')) + +BEGIN_EXTERN_C() + +static void _yy_push_state(int new_state TSRMLS_DC) + { + zend_stack_push(&SCNG(state_stack), (void *) &YYGETCONDITION(), sizeof(int)); + YYSETCONDITION(new_state); +} + +#define yy_push_state(state_and_tsrm) _yy_push_state(yyc##state_and_tsrm) + +static void yy_pop_state(TSRMLS_D) +{ + int *stack_state; + zend_stack_top(&SCNG(state_stack), (void **) &stack_state); + YYSETCONDITION(*stack_state); + zend_stack_del_top(&SCNG(state_stack)); +} + +static void yy_scan_buffer(char *str, unsigned int len TSRMLS_DC) +{ + YYCURSOR = (YYCTYPE*)str; + SCNG(yy_start) = YYCURSOR; + YYLIMIT = YYCURSOR + len; + } + +void php_startup_scanner(TSRMLS_D) +{ + CG(heredoc) = NULL; + CG(heredoc_len) = 0; + CG(doc_comment) = NULL_ZSTR; + CG(doc_comment_len) = 0; + + SCNG(input_conv) = NULL; + SCNG(output_conv) = NULL; + SCNG(encoding_checked) = 0; + SCNG(rest_str) = NULL; + SCNG(rest_len) = 0; + + zend_llist_init(&SCNG(used_state_stacks), sizeof(zend_stack), (llist_dtor_func_t) zend_stack_destroy, 0); + zend_stack_init(&SCNG(state_stack)); + zend_llist_add_element(&SCNG(used_state_stacks), &SCNG(state_stack)); +} + + +void php_shutdown_scanner(TSRMLS_D) +{ + if (CG(heredoc)) { + efree(CG(heredoc)); + CG(heredoc_len)=0; + } + zend_llist_destroy(&SCNG(used_state_stacks)); + RESET_DOC_COMMENT(); + + if (SCNG(input_conv)) { + ucnv_close(SCNG(input_conv)); + SCNG(input_conv) = NULL; + } + if (SCNG(output_conv)) { + ucnv_close(SCNG(output_conv)); + SCNG(output_conv) = NULL; + } + SCNG(encoding_checked) = 0; + if (SCNG(rest_str)) { + efree(SCNG(rest_str)); + SCNG(rest_str) = NULL; + } + SCNG(rest_len) = 0; +} + +static int compare_stacks(zend_stack *stack1, zend_stack *stack2) +{ + return (stack1 == stack2); +} + +PHPAPI void php_save_lexical_state(zend_lex_state *lex_state TSRMLS_DC) /* RN */ +{ + lex_state->yy_leng = SCNG(yy_leng); + lex_state->yy_start = SCNG(yy_start); + lex_state->yy_text = SCNG(yy_text); + lex_state->yy_cursor = SCNG(yy_cursor); + lex_state->yy_marker = SCNG(yy_marker); + lex_state->yy_limit = SCNG(yy_limit); + + lex_state->state_stack = SCNG(state_stack); + zend_stack_init(&SCNG(state_stack)); + zend_llist_add_element(&SCNG(used_state_stacks), &SCNG(state_stack)); + + lex_state->in = SCNG(yy_in); + lex_state->yy_state = YYSTATE; + lex_state->filename = zend_get_compiled_filename(TSRMLS_C); + lex_state->lineno = CG(zend_lineno); + + lex_state->input_conv = SCNG(input_conv); + lex_state->output_conv = SCNG(output_conv); + lex_state->encoding_checked = SCNG(encoding_checked); + lex_state->rest_str = SCNG(rest_str); + lex_state->rest_len = SCNG(rest_len); + SCNG(input_conv) = NULL; + SCNG(output_conv) = NULL; + SCNG(encoding_checked) = 0; + SCNG(rest_str) = NULL; + SCNG(rest_len) = 0; +} + +PHPAPI void php_restore_lexical_state(zend_lex_state *lex_state TSRMLS_DC) /* RN */ +{ + SCNG(yy_leng) = lex_state->yy_leng; + SCNG(yy_start) = lex_state->yy_start; + SCNG(yy_text) = lex_state->yy_text; + SCNG(yy_cursor) = lex_state->yy_cursor; + SCNG(yy_marker) = lex_state->yy_marker; + SCNG(yy_limit) = lex_state->yy_limit; + + zend_llist_del_element(&SCNG(used_state_stacks), &SCNG(state_stack), (int (*)(void *, void *)) compare_stacks); + SCNG(state_stack) = lex_state->state_stack; + + SCNG(yy_in) = lex_state->in; + YYSETCONDITION(lex_state->yy_state); + CG(zend_lineno) = lex_state->lineno; + zend_restore_compiled_filename(lex_state->filename TSRMLS_CC); + zend_restore_compiled_script_encoding(lex_state->script_encoding TSRMLS_CC); + + if (SCNG(input_conv)) { + ucnv_close(SCNG(input_conv)); + } + SCNG(input_conv) = lex_state->input_conv; + if (SCNG(output_conv)) { + ucnv_close(SCNG(output_conv)); + } + SCNG(output_conv) = lex_state->output_conv; + SCNG(encoding_checked) = lex_state->encoding_checked; + if (SCNG(rest_str)) { + efree(SCNG(rest_str)); + } + SCNG(rest_str) = lex_state->rest_str; + SCNG(rest_len) = lex_state->rest_len; +} + +PHPAPI void php_destroy_file_handle(zend_file_handle *file_handle TSRMLS_DC) /* RN */ +{ + zend_llist_del_element(&CG(open_files), file_handle, (int (*)(void *, void *)) zend_compare_file_handles); + /* zend_file_handle_dtor() operates on the copy, so we have to NULLify the original here */ + file_handle->opened_path = NULL; + if (file_handle->free_filename) { + file_handle->filename = NULL; + } +} + +/* Convert one octal digit to a numeric value 0..7, or -1 on failure */ +static inline int8_t php_get_octal_digit(UChar c) /* RN */ +{ + if (c >= 0x0030 && c <= 0x0037) { + return (int8_t)(c - 0x0030); + } + return -1; +} + +/* + * Convert one hex digit to a numeric value 0..F, or -1 on failure. + * Borrowed from ICU. + */ +static inline int8_t php_get_hex_digit(UChar c) /* RN */ +{ + if (c >= 0x0030 && c <= 0x0039) { + return (int8_t)(c - 0x0030); + } + if (c >= 0x0041 && c <= 0x0046) { + return (int8_t)(c - (0x0041 - 10)); + } + if (c >= 0x0061 && c <= 0x0066) { + return (int8_t)(c - (0x0061 - 10)); + } + return -1; +} + +static inline int php_uchar_from_uname(UChar *name, int name_len, UChar32 *c TSRMLS_DC) /* RN */ +{ + UChar32 codepoint = 0; + UErrorCode status = U_ZERO_ERROR; + char *buf; + + buf = zend_unicode_to_ascii(name, name_len TSRMLS_CC); + if (!buf) return 0; + codepoint = u_charFromName(U_UNICODE_CHAR_NAME, buf, &status); + efree(buf); + if (U_SUCCESS(status)) { + *c = codepoint; + return 1; + } else { + return 0; + } +} + +static inline int php_parse_charname_sequence(UChar **s, UChar *end, UChar32 *c TSRMLS_DC) /* RN */ +{ + UChar *start; + + if (**s == '{') { + start = ++(*s); + while ((*s)++ != end) { + if (**s == '}') { + if (php_uchar_from_uname(start, *s - start, c TSRMLS_CC)) { + return 1; + } else { + /* safe, since *s points to '}' */ + **s = 0; + zend_error(E_COMPILE_WARNING, "Invalid Unicode character name: '%r'", start); + break; + } + } + } + } + + return 0; +} + +PHPAPI int php_copy_scanner_string(zval *zendlval, char *str, zend_uint str_len, zend_uchar type, UConverter *conv TSRMLS_DC) /* RN */ +{ + UErrorCode status = U_ZERO_ERROR; + int consumed = 0; + + if (type == IS_UNICODE) { + consumed = php_convert_scanner_output(conv, &Z_USTRVAL_P(zendlval), &Z_USTRLEN_P(zendlval), str, str_len, &status TSRMLS_CC); + + if (U_FAILURE(status)) { + zend_error(E_COMPILE_WARNING,"Illegal or truncated character in input: offset %d, state=%d", consumed, YYSTATE); + efree(Z_USTRVAL_P(zendlval)); + return 0; + } + Z_TYPE_P(zendlval) = IS_UNICODE; + } else { + Z_STRVAL_P(zendlval) = (char *)estrndup(str, str_len); + Z_STRLEN_P(zendlval) = str_len; + Z_TYPE_P(zendlval) = IS_STRING; + } + + return 1; +} + +static inline int php_check_and_normalize_identifier(zval *zendlval) /* RN */ +{ + UChar *norm; + int norm_len; + + if (!zend_is_valid_identifier(Z_USTRVAL_P(zendlval), Z_USTRLEN_P(zendlval))) { + zend_error(E_COMPILE_WARNING, "Invalid identifier syntax: %r", Z_USTRVAL_P(zendlval)); + efree(Z_USTRVAL_P(zendlval)); + return 0; + } + if (zend_normalize_identifier(&norm, &norm_len, Z_USTRVAL_P(zendlval), Z_USTRLEN_P(zendlval), 0) == FAILURE) { + zend_error(E_COMPILE_WARNING, "Could not normalize identifier: %r", Z_USTRVAL_P(zendlval)); + efree(Z_USTRVAL_P(zendlval)); + return 0; + } + if (norm != Z_USTRVAL_P(zendlval)) { + efree(Z_USTRVAL_P(zendlval)); + ZVAL_UNICODEL(zendlval, norm, norm_len, 0); + } + return 1; +} + +static void php_scanner_output_callback(const void *context, UConverterToUnicodeArgs *toUArgs, const char *codeUnits, int32_t length, UConverterCallbackReason reason, UErrorCode *err) /* RN */ +{ + if (*err == U_TRUNCATED_CHAR_FOUND || + *err == U_ILLEGAL_CHAR_FOUND || + *err == U_INVALID_CHAR_FOUND) { + *(const char **)context = toUArgs->source - length; + } + + return; +} + +static int is_encoding_flex_compatible(const char *enc TSRMLS_DC) /* RN */ +{ + int key_len = strlen(enc)+1; + unsigned char ret; + unsigned char *ret_ptr; + + if (zend_hash_find(&UG(flex_compatible), (char*)enc, key_len, (void**)&ret_ptr) == SUCCESS) { + return *ret_ptr; + } else { + UErrorCode status = U_ZERO_ERROR; + UConverter *conv = ucnv_open(enc, &status); + + if (U_FAILURE(status)) { + return 0; + } + + switch (ucnv_getType(conv)) { + case UCNV_DBCS: + case UCNV_UTF16_BigEndian: + case UCNV_UTF16_LittleEndian: + case UCNV_UTF32_BigEndian: + case UCNV_UTF32_LittleEndian: + case UCNV_EBCDIC_STATEFUL: + case UCNV_ISO_2022: + case UCNV_LMBCS_1: + case UCNV_LMBCS_2: + case UCNV_LMBCS_3: + case UCNV_LMBCS_4: + case UCNV_LMBCS_5: + case UCNV_LMBCS_6: + case UCNV_LMBCS_8: + case UCNV_LMBCS_11: + case UCNV_LMBCS_16: + case UCNV_LMBCS_17: + case UCNV_LMBCS_18: + case UCNV_LMBCS_19: + case UCNV_HZ: + case UCNV_SCSU: + case UCNV_UTF7: + case UCNV_BOCU1: + case UCNV_UTF16: + case UCNV_UTF32: + case UCNV_IMAP_MAILBOX: + ret = 0; + break; + case UCNV_LATIN_1: + case UCNV_UTF8: + case UCNV_ISCII: + case UCNV_US_ASCII: + case UCNV_CESU8: + ret = 1; + break; + default: { + static const UChar ascii[] = { + 0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, 0x08, 0x09, 0x0A, 0x0B, 0x0C, 0x0D, 0x0E, 0x0F, + 0x10, 0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17, 0x18, 0x19, 0x1A, 0x1B, 0x1C, 0x1D, 0x1E, 0x1F, + 0x20, 0x21, 0x22, 0x23, 0x24, 0x25, 0x26, 0x27, 0x28, 0x29, 0x2A, 0x2B, 0x2C, 0x2D, 0x2E, 0x2F, + 0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, 0x38, 0x39, 0x3A, 0x3B, 0x3C, 0x3D, 0x3E, 0x3F, + 0x40, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48, 0x49, 0x4A, 0x4B, 0x4C, 0x4D, 0x4E, 0x4F, + 0x50, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58, 0x59, 0x5A, 0x5B, 0x5C, 0x5D, 0x5E, 0x5F, + 0x60, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67, 0x68, 0x69, 0x6A, 0x6B, 0x6C, 0x6D, 0x6E, 0x6F, + 0x70, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77, 0x78, 0x79, 0x7A, 0x7B, 0x7C, 0x7D, 0x7E + }; + static const char expected[] = + "\x00\x01\x02\x03\x04\x05\x06\x07\x08\x09\x0A\x0B\x0C\x0D\x0E\x0F" + "\x10\x11\x12\x13\x14\x15\x16\x17\x18\x19\x1A\x1B\x1C\x1D\x1E\x1F" + "\x20\x21\x22\x23\x24\x25\x26\x27\x28\x29\x2A\x2B\x2C\x2D\x2E\x2F" + "\x30\x31\x32\x33\x34\x35\x36\x37\x38\x39\x3A\x3B\x3C\x3D\x3E\x3F" + "\x40\x41\x42\x43\x44\x45\x46\x47\x48\x49\x4A\x4B\x4C\x4D\x4E\x4F" + "\x50\x51\x52\x53\x54\x55\x56\x57\x58\x59\x5A\x5B\x5C\x5D\x5E\x5F" + "\x60\x61\x62\x63\x64\x65\x66\x67\x68\x69\x6A\x6B\x6C\x6D\x6E\x6F" + "\x70\x71\x72\x73\x74\x75\x76\x77\x78\x79\x7A\x7B\x7C\x7D\x7E"; + char output[sizeof(expected)]; + + if (ucnv_fromUChars(conv, + output, sizeof(output), + ascii, sizeof(expected), + &status) != sizeof(expected) || + U_FAILURE(status)) { + ret = 0; + } else { + ret = (memcmp(expected, output, sizeof(expected)) == 0); + } + } + } + ucnv_close(conv); + + zend_hash_add(&UG(flex_compatible), (char*)enc, key_len, (void**)&ret, sizeof(ret), NULL); + + return ret; + } +} + +PHPAPI int php_prepare_scanner_converters(const char *onetime_encoding, int run_time TSRMLS_DC) /* RN */ +{ + const char *encoding = NULL; + + if (SCNG(input_conv)) { + /* Script is already converted to UTF-8 */ + return zend_set_converter_encoding(&SCNG(output_conv), "UTF-8"); + } else { + encoding = onetime_encoding; + } + + /* We need to convert the input stream only if script_encoding is not ASCII compatible */ + if (!is_encoding_flex_compatible(encoding TSRMLS_CC)) { + if (zend_set_converter_encoding(&SCNG(input_conv), encoding) == FAILURE) { + return FAILURE; + } +#ifdef scottmac_0 + if (run_time) { + /* Convert rest of the buffer to unicode.runtime_encoding. */ + YY_BUFFER_STATE b = YY_CURRENT_BUFFER; + int offset, length, size; + const char *src, *old_src; + char rt_buf[8192]; + char *target = rt_buf; + UErrorCode status = U_ZERO_ERROR; + + old_src = src = yy_c_buf_p; + offset = yy_c_buf_p - b->yy_ch_buf; + length = b->yy_n_chars - offset; + size = b->yy_buf_size - offset; + + ucnv_convertEx(UG(utf8_conv), + SCNG(input_conv), + &target, rt_buf+size-2, + &src, src+length, + NULL, NULL, NULL, NULL, + TRUE, TRUE, + &status); + + if (src - old_src < length) { + /* Cannot fit into buffer. Schedule for next read. */ + SCNG(rest_len) = length - (src - old_src); + SCNG(rest_str) = emalloc(SCNG(rest_len)); + memcpy(SCNG(rest_str), src, SCNG(rest_len)); + } + length = target - rt_buf; + memcpy(yy_c_buf_p, rt_buf, length); + SCNG(yy_n_chars) = b->yy_n_chars = length + offset; + b->yy_ch_buf[b->yy_n_chars] = YY_END_OF_BUFFER_CHAR; + b->yy_ch_buf[b->yy_n_chars+1] = YY_END_OF_BUFFER_CHAR; + } +#endif + encoding = "UTF-8"; + } + return zend_set_converter_encoding(&SCNG(output_conv), encoding); +} + +PHPAPI int php_convert_scanner_output(UConverter *conv, UChar **target, int *target_len, const char *source, int source_len, UErrorCode *status TSRMLS_DC) /* RN */ +{ + const char *source_consumed = NULL; + + /* set our custom callback with context */ + ucnv_setToUCallBack(conv, php_scanner_output_callback, &source_consumed, NULL, NULL, status); + + /* reset the error and perform conversion */ + *status = U_ZERO_ERROR; + zend_string_to_unicode_ex(conv, target, target_len, source, source_len, status); + + /* figure out how many source bytes were consumed */ + if (U_SUCCESS(*status)) { + return source_len; + } else if (source_consumed) { + return source_consumed - source; + } else { + return 0; + } +} +// int zend_unicode_yyinput(zend_file_handle *file_handle, char *buf, size_t len TSRMLS_DC) /* appears unused */ +// { +// size_t n; +// int c = '*'; +// const char *src = buf; +// +// #ifdef scottmac_0 +// /* Look of we have rest from previous call */ +// if (SCNG(rest_str)) { +// if (len >= SCNG(rest_len)) { +// memcpy(buf, SCNG(rest_str), SCNG(rest_len)); +// efree(SCNG(rest_str)); +// SCNG(rest_str) = NULL; +// n = SCNG(rest_len); +// SCNG(rest_len) = 0; +// } else { +// memcpy(buf, SCNG(rest_str), len); +// memcpy(SCNG(rest_str), SCNG(rest_str)+len, SCNG(rest_len)-len); +// n = len; +// SCNG(rest_len) -= len; +// } +// } else { +// n = zend_stream_read(file_handle, buf, len TSRMLS_CC); +// } +// #endif +// /* Don't make any conversions if unicode=off */ +// if (!UG(unicode)) { +// return n; +// } +// +// /* Autodetect encoding */ +// if (!SCNG(encoding_checked)) { +// int32_t signatureLength; +// UErrorCode status = U_ZERO_ERROR; +// const char *encoding; +// +// encoding = ucnv_detectUnicodeSignature(buf, n, &signatureLength, &status); +// if (encoding && U_SUCCESS(status)) { +// src += signatureLength; +// n -= signatureLength; +// if (is_encoding_flex_compatible(encoding TSRMLS_CC)) { +// if (SCNG(input_conv)) { +// ucnv_close(SCNG(input_conv)); +// SCNG(input_conv) = NULL; +// } +// zend_set_converter_encoding(&SCNG(output_conv), encoding); +// if (signatureLength > 0) { +// memcpy(buf, src, n); +// } +// } else { +// zend_set_converter_encoding(&SCNG(input_conv), encoding); +// zend_set_converter_encoding(&SCNG(output_conv), "UTF-8"); +// } +// } +// status = U_ZERO_ERROR; +// SCNG(encoding_checked) = 1; +// } +// +// if (SCNG(input_conv) && n >= 0) { +// UErrorCode status = U_ZERO_ERROR; +// char rt_buf[8192]; +// char *target = rt_buf; +// const char *old_src = src; +// +// ucnv_convertEx(UG(utf8_conv), +// SCNG(input_conv), +// &target, rt_buf+len, +// &src, src+n, +// NULL, NULL, NULL, NULL, +// TRUE, TRUE, +// &status); +// if (src - old_src < n) { +// /* Cannot fit into buffer. Schedule for next read. */ +// SCNG(rest_len) = n - (src - old_src); +// SCNG(rest_str) = emalloc(SCNG(rest_len)); +// memcpy(SCNG(rest_str), src, SCNG(rest_len)); +// } +// n = target - rt_buf; +// memcpy(buf, rt_buf, n); +// } +// return n; +// } + +PHPAPI int php_open_file_for_scanning(zend_file_handle *file_handle TSRMLS_DC) /* RN */ +{ + char *file_path=NULL, *buf; + UErrorCode status = U_ZERO_ERROR; + size_t size; + + if (zend_stream_fixup(file_handle, &buf, &size TSRMLS_CC) == FAILURE) { + return FAILURE; + } + + zend_llist_add_element(&CG(open_files), file_handle); + + if (file_handle->handle.stream.handle >= (void*)file_handle && file_handle->handle.stream.handle <= (void*)(file_handle+1)) { + zend_file_handle *fh = (zend_file_handle*)zend_llist_get_last(&CG(open_files)); + size_t diff = (char*)file_handle->handle.stream.handle - (char*)file_handle; + fh->handle.stream.handle = (void*)(((char*)fh) + diff); + file_handle->handle.stream.handle = fh->handle.stream.handle; + } + + /* Reset the scanner for scanning the new file */ + SCNG(yy_in) = file_handle; + + php_prepare_scanner_converters(ucnv_getName(ZEND_U_CONVERTER(UG(script_encoding_conv)), &status), 0 TSRMLS_CC); + + if (size != -1) { + /* Re-encode for Unicode if needed */ + yy_scan_buffer(buf, size TSRMLS_CC); + } else { + zend_error_noreturn(E_COMPILE_ERROR, "zend_stream_mmap() failed"); + } + + BEGIN(INITIAL); + + if (file_handle->opened_path) { + file_path = file_handle->opened_path; + } else { + file_path = file_handle->filename; + } + + zend_set_compiled_filename(file_path TSRMLS_CC); + zend_set_compiled_script_encoding((char*)ucnv_getName(SCNG(output_conv), &status) TSRMLS_CC); + + if (CG(start_lineno)) { + CG(zend_lineno) = CG(start_lineno); + CG(start_lineno) = 0; + } else { + CG(zend_lineno) = 1; + } + + CG(increment_lineno) = 0; + return SUCCESS; +} +END_EXTERN_C() + + +PHPAPI zend_op_array *php_do_compile_file(zend_file_handle *file_handle, int type TSRMLS_DC) /* RN */ +{ + zend_lex_state original_lex_state; + zend_op_array *op_array = (zend_op_array *) emalloc(sizeof(zend_op_array)); + zend_op_array *original_active_op_array = CG(active_op_array); + zend_op_array *retval=NULL; + int compiler_result; + zend_bool compilation_successful=0; + znode retval_znode; + zend_bool original_in_compilation = CG(in_compilation); + + retval_znode.op_type = IS_CONST; + Z_TYPE(retval_znode.u.constant) = IS_LONG; + Z_LVAL(retval_znode.u.constant) = 1; + Z_UNSET_ISREF(retval_znode.u.constant); + Z_SET_REFCOUNT(retval_znode.u.constant, 1); + + php_save_lexical_state(&original_lex_state TSRMLS_CC); + + retval = op_array; /* success oriented */ + + if (php_open_file_for_scanning(file_handle TSRMLS_CC)==FAILURE) { + if (type==ZEND_REQUIRE) { + zend_message_dispatcher(ZMSG_FAILED_REQUIRE_FOPEN, file_handle->filename); + zend_bailout(); + } else { + zend_message_dispatcher(ZMSG_FAILED_INCLUDE_FOPEN, file_handle->filename); + } + compilation_successful=0; + } else { + init_op_array(op_array, ZEND_USER_FUNCTION, INITIAL_OP_ARRAY_SIZE TSRMLS_CC); + CG(in_compilation) = 1; + CG(active_op_array) = op_array; + compiler_result = zendparse(TSRMLS_C); + zend_do_return(&retval_znode, 0 TSRMLS_CC); + CG(in_compilation) = original_in_compilation; + if (compiler_result==1) { /* parser error */ + zend_bailout(); + } + compilation_successful=1; + } + + if (retval) { + CG(active_op_array) = original_active_op_array; + if (compilation_successful) { + pass_two(op_array TSRMLS_CC); + zend_release_labels(TSRMLS_C); + } else { + efree(op_array); + retval = NULL; + } + } + if (compilation_successful) { + php_restore_lexical_state(&original_lex_state TSRMLS_CC); + } + return retval; +} + + +zend_op_array *php_do_compile_filename(int type, zval *filename TSRMLS_DC) /* RN */ +{ + zend_file_handle file_handle; + zval tmp; + zend_op_array *retval; + char *opened_path = NULL; + + if (Z_TYPE_P(filename) != IS_STRING) { + tmp = *filename; + zval_copy_ctor(&tmp); + convert_to_string(&tmp); + filename = &tmp; + } + file_handle.filename = Z_STRVAL_P(filename); + file_handle.free_filename = 0; + file_handle.type = ZEND_HANDLE_FILENAME; + file_handle.opened_path = NULL; + file_handle.handle.fp = NULL; + + retval = php_compile_file(&file_handle, type TSRMLS_CC); + if (retval && file_handle.handle.stream.handle) { + int dummy = 1; + + if (!file_handle.opened_path) { + file_handle.opened_path = opened_path = estrndup(Z_STRVAL_P(filename), Z_STRLEN_P(filename)); + } + + zend_hash_add(&EG(included_files), file_handle.opened_path, strlen(file_handle.opened_path)+1, (void *)&dummy, sizeof(int), NULL); + + if (opened_path) { + efree(opened_path); + } + } + php_destroy_file_handle(&file_handle TSRMLS_CC); + + if (filename==&tmp) { + zval_dtor(&tmp); + } + return retval; +} + +PHPAPI int php_prepare_string_for_scanning(zval *str, char *filename TSRMLS_DC) /* RN */ +{ + const char *encoding; + UErrorCode status = U_ZERO_ERROR; + + if (Z_TYPE_P(str) == IS_UNICODE) { + convert_to_string_with_converter(str, UG(utf8_conv)); + encoding = "UTF-8"; + } else { + UErrorCode status = U_ZERO_ERROR; + encoding = ucnv_getName(ZEND_U_CONVERTER(UG(runtime_encoding_conv)), &status); + } + + /* enforce two trailing NULLs for flex... */ + STR_REALLOC(Z_STRVAL_P(str), Z_STRLEN_P(str)+2); + + Z_STRVAL_P(str)[Z_STRLEN_P(str)+1]=0; + + SCNG(yy_in)=NULL; + + php_prepare_scanner_converters(encoding, 0 TSRMLS_CC); + /* Re-encode for Unicode if needed */ + yy_scan_buffer(Z_STRVAL_P(str), Z_STRLEN_P(str) TSRMLS_CC); + + zend_set_compiled_filename(filename TSRMLS_CC); + zend_set_compiled_script_encoding((char*)ucnv_getName(SCNG(output_conv), &status) TSRMLS_CC); + CG(zend_lineno) = 1; + CG(increment_lineno) = 0; + return SUCCESS; +} + + +PHPAPI int php_get_scanned_file_offset(TSRMLS_D) /* RN */ +{ + return SCNG(yy_cursor) - SCNG(yy_start); +} + + +zend_op_array *php_do_compile_string(zval *source_string, char *filename TSRMLS_DC) /* RN */ +{ + zend_lex_state original_lex_state; + zend_op_array *op_array = (zend_op_array *) emalloc(sizeof(zend_op_array)); + zend_op_array *original_active_op_array = CG(active_op_array); + zend_op_array *retval; + zval tmp; + int compiler_result; + zend_bool original_in_compilation = CG(in_compilation); + + tmp = *source_string; + zval_copy_ctor(&tmp); + if (Z_TYPE(tmp) != IS_STRING && Z_TYPE(tmp) != IS_UNICODE) { + convert_to_text(&tmp); + } + source_string = &tmp; + + if (Z_UNILEN_P(source_string)==0) { + efree(op_array); + zval_dtor(&tmp); + return NULL; + } + + CG(in_compilation) = 1; + + php_save_lexical_state(&original_lex_state TSRMLS_CC); + if (php_prepare_string_for_scanning(source_string, filename TSRMLS_CC)==FAILURE) { + efree(op_array); + retval = NULL; + } else { + zend_bool orig_interactive = CG(interactive); + + CG(interactive) = 0; + init_op_array(op_array, ZEND_EVAL_CODE, INITIAL_OP_ARRAY_SIZE TSRMLS_CC); + CG(interactive) = orig_interactive; + CG(active_op_array) = op_array; + BEGIN(ST_IN_SCRIPTING); + compiler_result = zendparse(TSRMLS_C); + + if (compiler_result==1) { + CG(active_op_array) = original_active_op_array; + CG(unclean_shutdown)=1; + retval = NULL; + } else { + zend_do_return(NULL, 0 TSRMLS_CC); + CG(active_op_array) = original_active_op_array; + pass_two(op_array TSRMLS_CC); + zend_release_labels(TSRMLS_C); + retval = op_array; + } + php_restore_lexical_state(&original_lex_state TSRMLS_CC); + } + zval_dtor(&tmp); + CG(in_compilation) = original_in_compilation; + return retval; +} + + +BEGIN_EXTERN_C() +int php_highlight_file(char *filename, zend_syntax_highlighter_ini *syntax_highlighter_ini TSRMLS_DC) /* RN */ +{ + zend_lex_state original_lex_state; + zend_file_handle file_handle; + + file_handle.type = ZEND_HANDLE_FILENAME; + file_handle.filename = filename; + file_handle.free_filename = 0; + file_handle.opened_path = NULL; + php_save_lexical_state(&original_lex_state TSRMLS_CC); + if (php_open_file_for_scanning(&file_handle TSRMLS_CC)==FAILURE) { + zend_message_dispatcher(ZMSG_FAILED_HIGHLIGHT_FOPEN, filename); + return FAILURE; + } + zend_highlight(syntax_highlighter_ini TSRMLS_CC); + php_destroy_file_handle(&file_handle TSRMLS_CC); + php_restore_lexical_state(&original_lex_state TSRMLS_CC); + return SUCCESS; +} + +int php_highlight_string(zval *str, zend_syntax_highlighter_ini *syntax_highlighter_ini, char *str_name TSRMLS_DC) /* RN */ +{ + zend_lex_state original_lex_state; + zval tmp = *str; + + str = &tmp; + zval_copy_ctor(str); + php_save_lexical_state(&original_lex_state TSRMLS_CC); + if (php_prepare_string_for_scanning(str, str_name TSRMLS_CC)==FAILURE) { + return FAILURE; + } + BEGIN(INITIAL); + zend_highlight(syntax_highlighter_ini TSRMLS_CC); + php_restore_lexical_state(&original_lex_state TSRMLS_CC); + zval_dtor(str); + return SUCCESS; +} +END_EXTERN_C() + +#define zend_copy_value(zendlval, yytext, yyleng) \ + Z_STRVAL_P(zendlval) = (char *)estrndup(yytext, yyleng); \ + Z_STRLEN_P(zendlval) = yyleng; + +static int php_scan_unicode_escape_string(zval *zendlval, char *str, int len, UChar quote_type, int type TSRMLS_DC) /* RN */ +{ + register UChar *s, *t, c; + UChar *end; + UChar32 codepoint = 0; + int8_t digit; + int8_t min_digits = 0, max_digits = 0; + int8_t bits; + int8_t n; + + if (!php_copy_scanner_string(zendlval, str, len, IS_UNICODE, SCNG(output_conv) TSRMLS_CC)) { + return 0; + } + + /* convert escape sequences */ + s = t = Z_USTRVAL_P(zendlval); + end = s+Z_USTRLEN_P(zendlval); + while (s=end) { + continue; + } + + min_digits = 0; + codepoint = 0; + bits = 4; + n = 0; + + switch(c) { + case 0x6E: /*'n'*/ + *t++ = (UChar) 0x0A; /*'\n'*/ + Z_USTRLEN_P(zendlval)--; + break; + case 0x72: /*'r'*/ + *t++ = (UChar) 0x0D; /*'\r'*/ + Z_USTRLEN_P(zendlval)--; + break; + case 0x74: /*'t'*/ + *t++ = (UChar) 0x09; /*'\t'*/ + Z_USTRLEN_P(zendlval)--; + break; + case 0x66: /*'f'*/ + *t++ = (UChar) 0x0C; /*'\f'*/ + Z_USTRLEN_P(zendlval)--; + break; + case 0x76: /*'v'*/ + *t++ = (UChar) 0x0B; /*'\v'*/ + Z_USTRLEN_P(zendlval)--; + break; + case 0x22: /*'"'*/ + case 0x60: /*'`'*/ + if (c != quote_type) { + *t++ = 0x5C; /*'\\'*/ + *t++ = *s; + break; + } + case 0x5C: /*'\\'*/ + case 0x24: /*'$'*/ + *t++ = *s; + Z_USTRLEN_P(zendlval)--; + break; + case 0x43: /*'C'*/ + { + UChar *p = s+1; + if (p < end && php_parse_charname_sequence(&p, end, &codepoint TSRMLS_CC)) { + Z_USTRLEN_P(zendlval) -= p - s + 1; + s = p; + if (U_IS_BMP(codepoint)) { + *t++ = (UChar) codepoint; + } else { + *t++ = (UChar) U16_LEAD(codepoint); + *t++ = (UChar) U16_TRAIL(codepoint); + Z_USTRLEN_P(zendlval)++; + } + } else { + zend_error(E_COMPILE_WARNING, "Invalid \\C{..} sequence"); + efree(Z_USTRVAL_P(zendlval)); + return 0; + } + break; + } + case 0x75: /*'u'*/ + min_digits = 4; + max_digits = 4; + Z_USTRLEN_P(zendlval)--; + break; + case 0x55: /*'U'*/ + min_digits = 6; + max_digits = 6; + Z_USTRLEN_P(zendlval)--; + break; + case 0x78: /*'x'*/ + case 0x58: /*'X'*/ + if ((digit = php_get_hex_digit(*(s+1))) >= 0) { + min_digits = 1; + max_digits = 2; + Z_USTRLEN_P(zendlval)--; + s++; + n = 1; /* already have one digit */ + codepoint = digit; + } else { + *t++ = 0x5C; /*'\\'*/ + *t++ = *s; + } + break; + default: + digit = php_get_octal_digit(*s); + if (digit >= 0) { + min_digits = 1; + max_digits = 3; + bits = 3; + n = 1; /* already have one digit */ + codepoint = digit; + } else { + *t++ = 0x5C; /*'\\'*/ + *t++ = *s; + } + break; + } + + /* need to parse a number for one of the escape sequences */ + if (min_digits != 0) { + while (s++ < end && n < max_digits) { + digit = (bits == 4) ? php_get_hex_digit(*s) : php_get_octal_digit(*s); + if (digit < 0) { + break; + } + codepoint = (codepoint << bits) | digit; + n++; + } + + if (n < min_digits) { + /* can only happen for \u and \U sequences */ + zend_error(E_COMPILE_WARNING,"\\%c escape sequence requires exactly %d hexadecimal digits", (char) c, min_digits); + efree(Z_USTRVAL_P(zendlval)); + return 0; + } + + if (U_IS_BMP(codepoint)) { + *t++ = (UChar) codepoint; + Z_USTRLEN_P(zendlval) -= n; + } else if (codepoint <= 0x10FFFF) { + *t++ = (UChar) U16_LEAD(codepoint); + *t++ = (UChar) U16_TRAIL(codepoint); + Z_USTRLEN_P(zendlval) -= n-1; + } else { + zend_error(E_COMPILE_WARNING,"\\U%06x is above the highest valid codepoint 0x10FFFF", codepoint); + efree(Z_USTRVAL_P(zendlval)); + return 0; + } + + /* s is already incremented and not past a newline */ + continue; + } + } else { + *t++ = *s; + } + + if (*s == 0x0A /*'\n'*/ || (*s == 0x0D /*'\r'*/ && (*(s+1) != 0x0A /*'\n'*/))) { + CG(zend_lineno)++; + } + s++; + } + *t = 0; + + return type; +} + +static int php_scan_unicode_single_string(zval *zendlval TSRMLS_DC) /* RN */ +{ + register UChar *s, *t; + UChar *end; + + if (!php_copy_scanner_string(zendlval, yytext+1, yyleng-2, IS_UNICODE, SCNG(output_conv) TSRMLS_CC)) { + return 0; + } + + /* convert escape sequences */ + s = t = Z_USTRVAL_P(zendlval); + end = s+Z_USTRLEN_P(zendlval); + while (s=end) { + continue; + } + switch(*s) { + case 0x5C: /*'\\'*/ + case 0x27: /*'\''*/ + *t++ = *s; + Z_USTRLEN_P(zendlval)--; + break; + default: + *t++ = 0x5C; /*'\\'*/ + *t++ = *s; + break; + } + } else { + *t++ = *s; + } + + if (*s == 0x0A /*'\n'*/ || (*s == 0x0D /*'\r'*/ && (*(s+1) != 0x0A /*'\n'*/))) { + CG(zend_lineno)++; + } + s++; + } + *t = 0; + + return T_CONSTANT_ENCAPSED_STRING; +} + +static void php_scan_binary_escape_string(zval *zendlval, char *str, int len, char quote_type TSRMLS_DC) /* RN */ +{ + register char *s, *t; + char *end; + + ZVAL_STRINGL(zendlval, str, len, 1); + + /* convert escape sequences */ + s = t = Z_STRVAL_P(zendlval); + end = s+Z_STRLEN_P(zendlval); + while (s=end) { + continue; + } + switch(*s) { + case 'n': + *t++ = '\n'; + Z_STRLEN_P(zendlval)--; + break; + case 'r': + *t++ = '\r'; + Z_STRLEN_P(zendlval)--; + break; + case 't': + *t++ = '\t'; + Z_STRLEN_P(zendlval)--; + break; + case 'f': + *t++ = '\f'; + zendlval->value.str.len--; + break; + case 'v': + *t++ = '\v'; + zendlval->value.str.len--; + break; + case '"': + case '`': + if (*s != quote_type) { + *t++ = '\\'; + *t++ = *s; + break; + } + case '\\': + case '$': + *t++ = *s; + Z_STRLEN_P(zendlval)--; + break; + case 'x': + case 'X': + if (ZEND_IS_HEX(*(s+1))) { + char hex_buf[3] = { 0, 0, 0 }; + + Z_STRLEN_P(zendlval)--; /* for the 'x' */ + + hex_buf[0] = *(++s); + Z_STRLEN_P(zendlval)--; + if (ZEND_IS_HEX(*(s+1))) { + hex_buf[1] = *(++s); + Z_STRLEN_P(zendlval)--; + } + *t++ = (char) strtol(hex_buf, NULL, 16); + } else { + *t++ = '\\'; + *t++ = *s; + } + break; + default: + /* check for an octal */ + if (ZEND_IS_OCT(*s)) { + char octal_buf[4] = { 0, 0, 0, 0 }; + + octal_buf[0] = *s; + Z_STRLEN_P(zendlval)--; + if (ZEND_IS_OCT(*(s+1))) { + octal_buf[1] = *(++s); + Z_STRLEN_P(zendlval)--; + if (ZEND_IS_OCT(*(s+1))) { + octal_buf[2] = *(++s); + Z_STRLEN_P(zendlval)--; + } + } + *t++ = (char) strtol(octal_buf, NULL, 8); + } else { + *t++ = '\\'; + *t++ = *s; + } + break; + } + } else { + *t++ = *s; + } + + if (*s == '\n' || (*s == '\r' && (*(s+1) != '\n'))) { + CG(zend_lineno)++; + } + s++; + } + *t = 0; +} + +static void php_scan_binary_single_string(zval *zendlval, char *str, int len TSRMLS_DC) /* RN */ +{ + register char *s, *t; + char *end; + + ZVAL_STRINGL(zendlval, str, len, 1); + + /* convert escape sequences */ + s = t = Z_STRVAL_P(zendlval); + end = s+Z_STRLEN_P(zendlval); + while (s=end) { + continue; + } + switch(*s) { + case '\\': + case '\'': + *t++ = *s; + Z_STRLEN_P(zendlval)--; + break; + default: + *t++ = '\\'; + *t++ = *s; + break; + } + } else { + *t++ = *s; + } + + if (*s == '\n' || (*s == '\r' && (*(s+1) != '\n'))) { + CG(zend_lineno)++; + } + s++; + } + *t = 0; +} + + +int php_lex_scan(zval *zendlval TSRMLS_DC) +{ +restart: + SCNG(yy_text) = YYCURSOR; + +yymore_restart: + + /* detect EOF */ + if (YYCURSOR >= YYLIMIT) { + /* special case */ + if (YYSTATE == STATE(ST_COMMENT) || YYSTATE == STATE(ST_DOC_COMMENT)) { + zend_error(E_COMPILE_WARNING,"Unterminated comment starting line %d", CG(comment_start_line)); + } + return 0; + } + +/*!re2c +/*re2c:yyfill:check = 0;*/ +LNUM [0-9]+ +DNUM ([0-9]*"."[0-9]+)|([0-9]+"."[0-9]*) +EXPONENT_DNUM (({LNUM}|{DNUM})[eE][+-]?{LNUM}) +HNUM "0x"[0-9a-fA-F]+ +LABEL [a-zA-Z_\x7f-\xff][a-zA-Z0-9_\x7f-\xff]* +WHITESPACE [ \n\r\t]+ +TABS_AND_SPACES [ \t]* +TOKENS [;:,.\[\]()|^&+-/*=%!~$<>?@] +ANY_CHAR [^] +NEWLINE ("\r"|"\n"|"\r\n") + +/* + * LITERAL_DOLLAR matches unescaped $ that aren't followed by a label character + * or a { and therefore will be taken literally. The case of literal $ before + * a variable or "${" is handled in a rule for each string type + */ +DOUBLE_QUOTES_LITERAL_DOLLAR ("$"+([^a-zA-Z_\x7f-\xff$"\\{]|("\\"{ANY_CHAR}))) +BACKQUOTE_LITERAL_DOLLAR ("$"+([^a-zA-Z_\x7f-\xff$`\\{]|("\\"{ANY_CHAR}))) +HEREDOC_LITERAL_DOLLAR ("$"+([^a-zA-Z_\x7f-\xff$\n\r\\{]|("\\"[^\n\r]))) + +/* + * Usually, HEREDOC_NEWLINE will just function like a simple NEWLINE, but some + * special cases need to be handled. HEREDOC_CHARS doesn't allow a line to + * match when { or $, and/or \ is at the end. (("{"*|"$"*)"\\"?) handles that, + * along with cases where { or $, and/or \ is the ONLY thing on a line + * + * The other case is when a line contains a label, followed by ONLY + * { or $, and/or \ Handled by ({LABEL}";"?((("{"+|"$"+)"\\"?)|"\\")) + */ +HEREDOC_NEWLINE ((({LABEL}";"?((("{"+|"$"+)"\\"?)|"\\"))|(("{"*|"$"*)"\\"?)){NEWLINE}) + +/* + * This pattern is just used in the next 2 for matching { or literal $, and/or + * \ escape sequence immediately at the beginning of a line or after a label + */ +HEREDOC_CURLY_OR_ESCAPE_OR_DOLLAR (("{"+[^$\n\r\\{])|("{"*"\\"[^\n\r])|{HEREDOC_LITERAL_DOLLAR}) + +/* + * These 2 label-related patterns allow HEREDOC_CHARS to continue "regular" + * matching after a newline that starts with either a non-label character or a + * label that isn't followed by a newline. Like HEREDOC_CHARS, they won't match + * a variable or "{$" Matching a newline, and possibly label, up TO a variable + * or "{$", is handled in the heredoc rules + * + * The HEREDOC_LABEL_NO_NEWLINE pattern (";"[^$\n\r\\{]) handles cases where ; + * follows a label. [^a-zA-Z0-9_\x7f-\xff;$\n\r\\{] is needed to prevent a label + * character or ; from matching on a possible (real) ending label + */ +HEREDOC_NON_LABEL ([^a-zA-Z_\x7f-\xff$\n\r\\{]|{HEREDOC_CURLY_OR_ESCAPE_OR_DOLLAR}) +HEREDOC_LABEL_NO_NEWLINE ({LABEL}([^a-zA-Z0-9_\x7f-\xff;$\n\r\\{]|(";"[^$\n\r\\{])|(";"?{HEREDOC_CURLY_OR_ESCAPE_OR_DOLLAR}))) + +/* + * CHARS matches everything up to a variable or "{$" + * {'s are matched as long as they aren't followed by a $ + * The case of { before "{$" is handled in a rule for each string type + * + * For heredocs, matching continues across/after newlines if/when it's known + * that the next line doesn't contain a possible ending label + */ +DOUBLE_QUOTES_CHARS ("{"*([^$"\\{]|("\\"{ANY_CHAR}))|{DOUBLE_QUOTES_LITERAL_DOLLAR}) +BACKQUOTE_CHARS ("{"*([^$`\\{]|("\\"{ANY_CHAR}))|{BACKQUOTE_LITERAL_DOLLAR}) +HEREDOC_CHARS ("{"*([^$\n\r\\{]|("\\"[^\n\r]))|{HEREDOC_LITERAL_DOLLAR}|({HEREDOC_NEWLINE}+({HEREDOC_NON_LABEL}|{HEREDOC_LABEL_NO_NEWLINE}))) + +NOWDOC_CHARS ({NEWLINE}*(([^a-zA-Z_\x7f-\xff\n\r][^\n\r]*)|({LABEL}[^a-zA-Z0-9_\x7f-\xff;\n\r][^\n\r]*)|({LABEL}[;][^\n\r]+))) + +/* compute yyleng before each rule */ + := yyleng = YYCURSOR - SCNG(yy_text); + + +"exit" { + return T_EXIT; +} + +"die" { + return T_EXIT; +} + +"function" { + return T_FUNCTION; +} + +"const" { + return T_CONST; +} + +"return" { + return T_RETURN; +} + +"try" { + return T_TRY; +} + +"catch" { + return T_CATCH; +} + +"throw" { + return T_THROW; +} + +"if" { + return T_IF; +} + +"elseif" { + return T_ELSEIF; +} + +"endif" { + return T_ENDIF; +} + +"else" { + return T_ELSE; +} + +"while" { + return T_WHILE; +} + +"endwhile" { + return T_ENDWHILE; +} + +"do" { + return T_DO; +} + +"for" { + return T_FOR; +} + +"endfor" { + return T_ENDFOR; +} + +"foreach" { + return T_FOREACH; +} + +"endforeach" { + return T_ENDFOREACH; +} + +"declare" { + return T_DECLARE; +} + +"enddeclare" { + return T_ENDDECLARE; +} + +"instanceof" { + return T_INSTANCEOF; +} + +"as" { + return T_AS; +} + +"switch" { + return T_SWITCH; +} + +"endswitch" { + return T_ENDSWITCH; +} + +"case" { + return T_CASE; +} + +"default" { + return T_DEFAULT; +} + +"break" { + return T_BREAK; +} + +"continue" { + return T_CONTINUE; +} + +"goto" { + return T_GOTO; +} + +"echo" { + return T_ECHO; +} + +"print" { + return T_PRINT; +} + +"class" { + return T_CLASS; +} + +"interface" { + return T_INTERFACE; +} + +"extends" { + return T_EXTENDS; +} + +"implements" { + return T_IMPLEMENTS; +} + +"->" { + yy_push_state(ST_LOOKING_FOR_PROPERTY TSRMLS_CC); + return T_OBJECT_OPERATOR; +} + +{WHITESPACE}+ { + /* do nothing */ + goto restart; +} + +"->" { + return T_OBJECT_OPERATOR; +} + +{LABEL} { + yy_pop_state(TSRMLS_C); + if (!php_copy_scanner_string(zendlval, yytext, yyleng, UG(unicode)?IS_UNICODE:IS_STRING, SCNG(output_conv) TSRMLS_CC)) { + return 0; + } + if (UG(unicode) && !php_check_and_normalize_identifier(zendlval)) { + return 0; + } + return T_STRING; +} + +{ANY_CHAR} { + yyless(0); + yy_pop_state(TSRMLS_C); + goto restart; +} + +"::" { + return T_PAAMAYIM_NEKUDOTAYIM; +} + +"new" { + return T_NEW; +} + +"clone" { + return T_CLONE; +} + +"var" { + return T_VAR; +} + +"("{TABS_AND_SPACES}("int"|"integer"){TABS_AND_SPACES}")" { + return T_INT_CAST; +} + +"("{TABS_AND_SPACES}("real"|"double"|"float"){TABS_AND_SPACES}")" { + return T_DOUBLE_CAST; +} + +"("{TABS_AND_SPACES}"string"{TABS_AND_SPACES}")" { + return T_STRING_CAST; +} + +"("{TABS_AND_SPACES}"unicode"{TABS_AND_SPACES}")" { + return T_UNICODE_CAST; +} + +"("{TABS_AND_SPACES}"binary"{TABS_AND_SPACES}")" { + return T_BINARY_CAST; +} + +"("{TABS_AND_SPACES}"array"{TABS_AND_SPACES}")" { + return T_ARRAY_CAST; +} + +"("{TABS_AND_SPACES}"object"{TABS_AND_SPACES}")" { + return T_OBJECT_CAST; +} + +"("{TABS_AND_SPACES}("bool"|"boolean"){TABS_AND_SPACES}")" { + return T_BOOL_CAST; +} + +"("{TABS_AND_SPACES}("unset"){TABS_AND_SPACES}")" { + return T_UNSET_CAST; +} + +"eval" { + return T_EVAL; +} + +"include" { + return T_INCLUDE; +} + +"include_once" { + return T_INCLUDE_ONCE; +} + +"require" { + return T_REQUIRE; +} + +"require_once" { + return T_REQUIRE_ONCE; +} + +"namespace" { + return T_NAMESPACE; +} + +"use" { + return T_USE; +} + +"global" { + return T_GLOBAL; +} + +"isset" { + return T_ISSET; +} + +"empty" { + return T_EMPTY; +} + +"__halt_compiler" { + return T_HALT_COMPILER; +} + +"static" { + return T_STATIC; +} + +"abstract" { + return T_ABSTRACT; +} + +"final" { + return T_FINAL; +} + +"private" { + return T_PRIVATE; +} + +"protected" { + return T_PROTECTED; +} + +"public" { + return T_PUBLIC; +} + +"unset" { + return T_UNSET; +} + +"=>" { + return T_DOUBLE_ARROW; +} + +"list" { + return T_LIST; +} + +"array" { + return T_ARRAY; +} + +"++" { + return T_INC; +} + +"--" { + return T_DEC; +} + +"===" { + return T_IS_IDENTICAL; +} + +"!==" { + return T_IS_NOT_IDENTICAL; +} + +"==" { + return T_IS_EQUAL; +} + +"!="|"<>" { + return T_IS_NOT_EQUAL; +} + +"<=" { + return T_IS_SMALLER_OR_EQUAL; +} + +">=" { + return T_IS_GREATER_OR_EQUAL; +} + +"+=" { + return T_PLUS_EQUAL; +} + +"-=" { + return T_MINUS_EQUAL; +} + +"*=" { + return T_MUL_EQUAL; +} + +"/=" { + return T_DIV_EQUAL; +} + +".=" { + return T_CONCAT_EQUAL; +} + +"%=" { + return T_MOD_EQUAL; +} + +"<<=" { + return T_SL_EQUAL; +} + +">>=" { + return T_SR_EQUAL; +} + +"&=" { + return T_AND_EQUAL; +} + +"|=" { + return T_OR_EQUAL; +} + +"^=" { + return T_XOR_EQUAL; +} + +"||" { + return T_BOOLEAN_OR; +} + +"&&" { + return T_BOOLEAN_AND; +} + +"OR" { + return T_LOGICAL_OR; +} + +"AND" { + return T_LOGICAL_AND; +} + +"XOR" { + return T_LOGICAL_XOR; +} + +"<<" { + return T_SL; +} + +">>" { + return T_SR; +} + +{TOKENS} { + return yytext[0]; +} + + +"{" { + yy_push_state(ST_IN_SCRIPTING TSRMLS_CC); + return '{'; +} + + +"${" { + yy_push_state(ST_LOOKING_FOR_VARNAME TSRMLS_CC); + return T_DOLLAR_OPEN_CURLY_BRACES; +} + + +"}" { + RESET_DOC_COMMENT(); + /* This is a temporary fix which is dependant on flex and it's implementation */ + if (!zend_stack_is_empty(&SCNG(state_stack))) { + yy_pop_state(TSRMLS_C); + } + return '}'; +} + + +{LABEL} { + if (!php_copy_scanner_string(zendlval, yytext, yyleng, UG(unicode)?IS_UNICODE:IS_STRING, SCNG(output_conv) TSRMLS_CC)) { + return 0; + } + if (UG(unicode) && !php_check_and_normalize_identifier(zendlval)) { + return 0; + } + yy_pop_state(TSRMLS_C); + yy_push_state(ST_IN_SCRIPTING TSRMLS_CC); + return T_STRING_VARNAME; +} + + +{ANY_CHAR} { + yyless(0); + yy_pop_state(TSRMLS_C); + yy_push_state(ST_IN_SCRIPTING TSRMLS_CC); + goto restart; +} + + +{LNUM} { + if (yyleng < MAX_LENGTH_OF_LONG - 1) { /* Won't overflow */ + zendlval->value.lval = strtol(yytext, NULL, 0); + } else { + errno = 0; + zendlval->value.lval = strtol(yytext, NULL, 0); + if (errno == ERANGE) { /* Overflow */ + if (yytext[0] == '0') { /* octal overflow */ + zendlval->value.dval = zend_oct_strtod(yytext, NULL); + } else { + zendlval->value.dval = zend_strtod(yytext, NULL); + } + zendlval->type = IS_DOUBLE; + return T_DNUMBER; + } + } + + zendlval->type = IS_LONG; + return T_LNUMBER; +} + +{HNUM} { + char *hex = yytext + 2; /* Skip "0x" */ + int len = yyleng - 2; + + /* Skip any leading 0s */ + while (*hex == '0') { + hex++; + len--; + } + + if (len < SIZEOF_LONG * 2 || (len == SIZEOF_LONG * 2 && *hex <= '7')) { + zendlval->value.lval = strtol(hex, NULL, 16); + zendlval->type = IS_LONG; + return T_LNUMBER; + } else { + zendlval->value.dval = zend_hex_strtod(hex, NULL); + zendlval->type = IS_DOUBLE; + return T_DNUMBER; + } +} + +[0]|([1-9][0-9]*) { /* Offset could be treated as a long */ + if (yyleng < MAX_LENGTH_OF_LONG - 1 || (yyleng == MAX_LENGTH_OF_LONG - 1 && strcmp(yytext, long_min_digits) < 0)) { + Z_LVAL_P(zendlval) = strtol(yytext, NULL, 10); + Z_TYPE_P(zendlval) = IS_LONG; + } else { + if (!php_copy_scanner_string(zendlval, yytext, yyleng, CG(literal_type), SCNG(output_conv) TSRMLS_CC)) { + return 0; + } + } + return T_NUM_STRING; +} + +{LNUM}|{HNUM} { /* Offset must be treated as a string */ + if (!php_copy_scanner_string(zendlval, yytext, yyleng, CG(literal_type), SCNG(output_conv) TSRMLS_CC)) { + return 0; + } + return T_NUM_STRING; +} + +{DNUM}|{EXPONENT_DNUM} { + Z_DVAL_P(zendlval) = zend_strtod(yytext, NULL); + Z_TYPE_P(zendlval) = IS_DOUBLE; + return T_DNUMBER; +} + +'__CLASS__' { + zstr class_name = NULL_ZSTR; + + if (CG(active_class_entry)) { + class_name = CG(active_class_entry)->name; + } + + if (!class_name.v) { + ZVAL_EMPTY_TEXT(zendlval); + } else { + ZVAL_TEXT(zendlval, class_name, 1); + } + return T_CLASS_C; +} + +'__FUNCTION__' { + zstr func_name = NULL_ZSTR; + + if (CG(active_op_array)) { + func_name = CG(active_op_array)->function_name; + } + + if (!func_name.v) { + ZVAL_EMPTY_TEXT(zendlval); + } else { + ZVAL_TEXT(zendlval, func_name, 1); + } + return T_FUNC_C; +} + +'__METHOD__' { + zstr class_name = CG(active_class_entry) ? CG(active_class_entry)->name : NULL_ZSTR; + zstr func_name = CG(active_op_array)? CG(active_op_array)->function_name : NULL_ZSTR; + size_t len = 0; + + if (UG(unicode)) { + size_t len1; + + if (class_name.u) { + len += len1 = u_strlen(class_name.u); + len += 2; + } + if (func_name.u) { + len += u_strlen(func_name.u); + } else { + func_name.u = EMPTY_STR; + } + Z_USTRLEN_P(zendlval) = len; + Z_USTRVAL_P(zendlval) = eumalloc(len+1); + if (class_name.u) { + u_strcpy(Z_USTRVAL_P(zendlval), class_name.u); + Z_USTRVAL_P(zendlval)[len1] = 0x3a; /* ':' */ + Z_USTRVAL_P(zendlval)[len1+1] = 0x3a; /* ':' */ + Z_USTRVAL_P(zendlval)[len1+2] = 0; + } else { + Z_USTRVAL_P(zendlval)[0] = 0; + } + u_strcat(Z_USTRVAL_P(zendlval), func_name.u); + Z_TYPE_P(zendlval) = IS_UNICODE; + } else { + if (class_name.s) { + len += strlen(class_name.s) + 2; + } + if (func_name.s) { + len += strlen(func_name.s); + } + + Z_STRVAL_P(zendlval) = emalloc(len+1); + Z_STRLEN_P(zendlval) = sprintf(Z_STRVAL_P(zendlval), "%s%s%s", + class_name.s ? class_name.s : "", + class_name.s && func_name.s ? "::" : "", + func_name.s ? func_name.s : "" + ); + Z_STRLEN_P(zendlval) = strlen(Z_STRVAL_P(zendlval)); + Z_TYPE_P(zendlval) = IS_STRING; + } + return T_METHOD_C; +} + +'__LINE__' { + Z_LVAL_P(zendlval) = CG(zend_lineno); + Z_TYPE_P(zendlval) = IS_LONG; + return T_LINE; +} + +'__FILE__' { + char *filename = zend_get_compiled_filename(TSRMLS_C); + + if (!filename) { + filename = ""; + } + ZVAL_RT_STRING(zendlval, filename, 1); + return T_FILE; +} + +'__DIR__' { + char *filename = zend_get_compiled_filename(TSRMLS_C); + const size_t filename_len = strlen(filename); + char *dirname; + + if (!filename) { + filename = ""; + } + + dirname = estrndup(filename, filename_len); + zend_dirname(dirname, filename_len); + + if (strcmp(dirname, ".") == 0) { + dirname = erealloc(dirname, MAXPATHLEN); +#if HAVE_GETCWD + VCWD_GETCWD(dirname, MAXPATHLEN); +#elif HAVE_GETWD + VCWD_GETWD(dirname); +#endif + } + + zendlval->value.str.len = strlen(dirname); + zendlval->value.str.val = dirname; + zendlval->type = IS_STRING; + return T_DIR; +} + +'__NAMESPACE__' { + if (CG(current_namespace)) { + *zendlval = *CG(current_namespace); + zval_copy_ctor(zendlval); + } else { + ZVAL_EMPTY_TEXT(zendlval); + } + return T_NS_C; +} + +"" { + HANDLE_NEWLINES(yytext, yyleng); + Z_STRVAL_P(zendlval) = yytext; /* no copying - intentional */ + Z_STRLEN_P(zendlval) = yyleng; + Z_TYPE_P(zendlval) = IS_STRING; + BEGIN(ST_IN_SCRIPTING); + return T_OPEN_TAG; +} + +"<%=" { + if (CG(asp_tags)) { + Z_STRVAL_P(zendlval) = yytext; /* no copying - intentional */ + Z_STRLEN_P(zendlval) = yyleng; + Z_TYPE_P(zendlval) = IS_STRING; + BEGIN(ST_IN_SCRIPTING); + return T_OPEN_TAG_WITH_ECHO; + } else { + Z_STRVAL_P(zendlval) = (char *) estrndup(yytext, yyleng); + Z_STRLEN_P(zendlval) = yyleng; + Z_TYPE_P(zendlval) = IS_STRING; + return T_INLINE_HTML; + } +} + + +""<%" { + if (CG(asp_tags)) { + Z_STRVAL_P(zendlval) = yytext; /* no copying - intentional */ + Z_STRLEN_P(zendlval) = yyleng; + Z_TYPE_P(zendlval) = IS_STRING; + BEGIN(ST_IN_SCRIPTING); + return T_OPEN_TAG; + } else { + Z_STRVAL_P(zendlval) = (char *) estrndup(yytext, yyleng); + Z_STRLEN_P(zendlval) = yyleng; + Z_TYPE_P(zendlval) = IS_STRING; + return T_INLINE_HTML; + } +} + + +"""#".+ {NEWLINE} { + if ((YYCTYPE*)yytext == SCNG(yy_start)) { + /* ignore first line when it's started with a # */ + goto restart; + } else { + goto inline_char_handler; + } +} + +{ANY_CHAR} { + + while (1) { + YYCTYPE *ptr = memchr(YYCURSOR, '<', YYLIMIT - YYCURSOR); + + if (ptr == NULL) { + YYCURSOR = YYLIMIT; + yyleng = YYCURSOR - SCNG(yy_text); + break; + + } else { + YYCURSOR = ptr + 1; + + /* if it can be an opening tag, stop */ + if (ptr < YYLIMIT && (*YYCURSOR == '?' || *YYCURSOR == '%')) { + --YYCURSOR; + yyleng = YYCURSOR - SCNG(yy_text); + break; + } + } + } + +inline_char_handler: + + Z_STRVAL_P(zendlval) = (char *) estrndup(yytext, yyleng); + Z_STRLEN_P(zendlval) = yyleng; + Z_TYPE_P(zendlval) = IS_STRING; + HANDLE_NEWLINES(yytext, yyleng); + return T_INLINE_HTML; +} + +/* Make sure a label character follows "->", otherwise there is no property + * and "->" will be taken literally + */ +"$"{LABEL}"->"[a-zA-Z_\x7f-\xff] { + yyless(yyleng - 3); + yy_push_state(ST_LOOKING_FOR_PROPERTY TSRMLS_CC); + + if (!php_copy_scanner_string(zendlval, (yytext+1), (yyleng-4), UG(unicode)?IS_UNICODE:IS_STRING, SCNG(output_conv) TSRMLS_CC)) { + return 0; + } + if (UG(unicode) && !php_check_and_normalize_identifier(zendlval)) { + return 0; + } + return T_VARIABLE; +} + +/* A [ always designates a variable offset, regardless of what follows + */ +"$"{LABEL}"[" { + yyless(yyleng - 1); + yy_push_state(ST_VAR_OFFSET TSRMLS_CC); + + if (!php_copy_scanner_string(zendlval, (yytext+1), (yyleng-2), UG(unicode)?IS_UNICODE:IS_STRING, SCNG(output_conv) TSRMLS_CC)) { + return 0; + } + if (UG(unicode) && !php_check_and_normalize_identifier(zendlval)) { + return 0; + } + return T_VARIABLE; +} + +"$"{LABEL} { + if (!php_copy_scanner_string(zendlval, (yytext+1), (yyleng-1), UG(unicode)?IS_UNICODE:IS_STRING, SCNG(output_conv) TSRMLS_CC)) { + return 0; + } + if (UG(unicode) && !php_check_and_normalize_identifier(zendlval)) { + return 0; + } + return T_VARIABLE; +} + +"]" { + yy_pop_state(TSRMLS_C); + return ']'; +} + +{TOKENS}|[{}"`] { + /* Only '[' can be valid, but returning other tokens will allow a more explicit parse error */ + return yytext[0]; +} + +[ \n\r\t\\'#] { + /* Invalid rule to return a more explicit parse error with proper line number */ + yyless(0); + yy_pop_state(TSRMLS_C); + ZVAL_EMPTY_TEXT(zendlval); /* Empty since it won't be used */ + return T_ENCAPSED_AND_WHITESPACE; +} + +{LABEL} { + if (!php_copy_scanner_string(zendlval, yytext, yyleng, UG(unicode)?IS_UNICODE:IS_STRING, SCNG(output_conv) TSRMLS_CC)) { + return 0; + } + if (UG(unicode) && !php_check_and_normalize_identifier(zendlval)) { + return 0; + } + return T_STRING; +} + +{LABEL} { + if (!php_copy_scanner_string(zendlval, yytext, yyleng, CG(literal_type), SCNG(output_conv) TSRMLS_CC)) { + return 0; + } + return T_STRING; +} + + +{WHITESPACE} { + Z_STRVAL_P(zendlval) = yytext; /* no copying - intentional */ + Z_STRLEN_P(zendlval) = yyleng; + Z_TYPE_P(zendlval) = IS_STRING; + HANDLE_NEWLINES(yytext, yyleng); + return T_WHITESPACE; +} + + +"#"|"//" { + BEGIN(ST_ONE_LINE_COMMENT); + yymore(); +} + +"?"|"%"|">" { + yymore(); +} + +[^\n\r?%>]*{ANY_CHAR} { + switch (yytext[yyleng-1]) { + case '?': case '%': case '>': + yyless(yyleng-1); + yymore(); + break; + case '\n': + CG(zend_lineno)++; + /* intentional fall through */ + default: + Z_STRVAL_P(zendlval) = yytext; /* no copying - intentional */ + Z_STRLEN_P(zendlval) = yyleng; + Z_TYPE_P(zendlval) = IS_STRING; + BEGIN(ST_IN_SCRIPTING); + return T_COMMENT; + } +} + +{NEWLINE} { + Z_STRVAL_P(zendlval) = yytext; /* no copying - intentional */ + Z_STRLEN_P(zendlval) = yyleng; + Z_TYPE_P(zendlval) = IS_STRING; + BEGIN(ST_IN_SCRIPTING); + CG(zend_lineno)++; + return T_COMMENT; +} + +"?>"|"%>" { + if (CG(asp_tags) || yytext[yyleng-2] != '%') { /* asp comment? */ + Z_STRVAL_P(zendlval) = yytext; /* no copying - intentional */ + Z_STRLEN_P(zendlval) = yyleng-2; + Z_TYPE_P(zendlval) = IS_STRING; + yyleng -= 2; + yyless(yyleng); + BEGIN(ST_IN_SCRIPTING); + return T_COMMENT; + } else { + yymore(); + } +} + +"/**"{WHITESPACE} { + CG(comment_start_line) = CG(zend_lineno); + RESET_DOC_COMMENT(); + BEGIN(ST_DOC_COMMENT); + yymore(); +} + +"/*" { + CG(comment_start_line) = CG(zend_lineno); + BEGIN(ST_COMMENT); + yymore(); +} + + +[^*]+ { + yymore(); +} + +"*/" { + zval temp; + + HANDLE_NEWLINES(yytext, yyleng); + if (!php_copy_scanner_string(&temp, yytext, yyleng, UG(unicode)?IS_UNICODE:IS_STRING, SCNG(output_conv) TSRMLS_CC)) { + return 0; + } + CG(doc_comment) = temp.value.uni.val; + CG(doc_comment_len) = temp.value.uni.len; + BEGIN(ST_IN_SCRIPTING); + return T_DOC_COMMENT; +} + +"*/" { + HANDLE_NEWLINES(yytext, yyleng); + BEGIN(ST_IN_SCRIPTING); + return T_COMMENT; +} + +"*" { + yymore(); +} + +("?>"|""){NEWLINE}? { + Z_STRVAL_P(zendlval) = yytext; /* no copying - intentional */ + Z_STRLEN_P(zendlval) = yyleng; + Z_TYPE_P(zendlval) = IS_STRING; + BEGIN(INITIAL); + return T_CLOSE_TAG; /* implicit ';' at php-end tag */ +} + + +"%>"{NEWLINE}? { + if (CG(asp_tags)) { + BEGIN(INITIAL); + Z_STRLEN_P(zendlval) = yyleng; + Z_TYPE_P(zendlval) = IS_STRING; + Z_STRVAL_P(zendlval) = yytext; /* no copying - intentional */ + return T_CLOSE_TAG; /* implicit ';' at php-end tag */ + } else { + yyless(1); + return yytext[0]; + } +} + + +/* ("{"*|"$"*) handles { or $ at the end of a string (or the entire contents) + */ +(["]{DOUBLE_QUOTES_CHARS}*("{"*|"$"*)["]) { + if (UG(unicode)) { + return php_scan_unicode_escape_string(zendlval, yytext+1, yyleng-2, 0x22 /*'"'*/, T_CONSTANT_ENCAPSED_STRING TSRMLS_CC); + } else { + php_scan_binary_escape_string(zendlval, yytext+1, yyleng-2, '"' TSRMLS_CC); + return T_CONSTANT_ENCAPSED_STRING; + } +} + + +(b["]{DOUBLE_QUOTES_CHARS}*("{"*|"$"*)["]) { + php_scan_binary_escape_string(zendlval, yytext+2, yyleng-3, '"' TSRMLS_CC); + return T_CONSTANT_ENCAPSED_STRING; +} + + +([']([^'\\]|("\\"{ANY_CHAR}))*[']) { + if (UG(unicode)) { + return php_scan_unicode_single_string(zendlval TSRMLS_CC); + } else { + php_scan_binary_single_string(zendlval, yytext+1, yyleng-2 TSRMLS_CC); + return T_CONSTANT_ENCAPSED_STRING; + } +} + + +("b'"([^'\\]|("\\"{ANY_CHAR}))*[']) { + php_scan_binary_single_string(zendlval, yytext+2, yyleng-3 TSRMLS_CC); + return T_CONSTANT_ENCAPSED_STRING; +} + + +["] { + BEGIN(ST_DOUBLE_QUOTES); + return '"'; +} + +b["] { + BEGIN(ST_DOUBLE_QUOTES); + return T_BINARY_DOUBLE; +} + +b"<<<"{TABS_AND_SPACES}{LABEL}{NEWLINE} { + char *s; + CG(zend_lineno)++; + CG(heredoc_len) = yyleng-4-1-(yytext[yyleng-2]=='\r'?1:0); + s = yytext+4; + while ((*s == ' ') || (*s == '\t')) { + s++; + CG(heredoc_len)--; + } + CG(heredoc) = estrndup(s, CG(heredoc_len)); + BEGIN(ST_START_HEREDOC); + return T_BINARY_HEREDOC; +} + + +"<<<"{TABS_AND_SPACES}{LABEL}{NEWLINE} { + char *s; + CG(zend_lineno)++; + CG(heredoc_len) = yyleng-3-1-(yytext[yyleng-2]=='\r'?1:0); + s = yytext+3; + while ((*s == ' ') || (*s == '\t')) { + s++; + CG(heredoc_len)--; + } + CG(heredoc) = estrndup(s, CG(heredoc_len)); + BEGIN(ST_START_HEREDOC); + return T_START_HEREDOC; +} + + +[`] { + BEGIN(ST_BACKQUOTE); + return '`'; +} + + +{ANY_CHAR} { + yyless(0); + BEGIN(ST_HEREDOC); + goto restart; +} + +{LABEL}";"?[\n\r] { + int label_len = yyleng - 1; + + if (yytext[label_len-1]==';') { + label_len--; + } + + yyless(label_len); + + if (label_len==CG(heredoc_len) && !memcmp(yytext, CG(heredoc), label_len)) { + Z_STRVAL_P(zendlval) = CG(heredoc); + Z_STRLEN_P(zendlval) = label_len; + CG(heredoc)=NULL; + CG(heredoc_len)=0; + BEGIN(ST_IN_SCRIPTING); + return T_END_HEREDOC; + } else { + BEGIN(ST_HEREDOC); + yymore(); + } +} + +/* Match everything up to and including a possible ending label, so if the label + * doesn't match, it's kept with the rest of the string + * + * {HEREDOC_NEWLINE}+ handles the case of more than one newline sequence that + * couldn't be matched with HEREDOC_CHARS, because of the following label + */ +{HEREDOC_CHARS}*{HEREDOC_NEWLINE}+{LABEL}";"?[\n\r] { + char *end = yytext + yyleng - 1; + + if (end[-1] == ';') { + end--; + yyleng--; + } + + if (yyleng > CG(heredoc_len) && !memcmp(end - CG(heredoc_len), CG(heredoc), CG(heredoc_len))) { + int len = yyleng - CG(heredoc_len) - 2; /* 2 for newline before and after label */ + + if (len > 0 && yytext[len - 1] == '\r' && yytext[len] == '\n') { + len--; + } + + /* Go back before last label char, to match in ST_END_HEREDOC state */ + yyless(yyleng - 2); + + /* Subtract the remaining label length. yyleng must include newline + * before label, for zend_highlight/strip, tokenizer, etc. */ + yyleng = yyleng - CG(heredoc_len) - 1; + + CG(increment_lineno) = 1; /* For newline before label */ + BEGIN(ST_END_HEREDOC); + + if (CG(literal_type) == IS_UNICODE) { + return php_scan_unicode_escape_string(zendlval, yytext, len, 0, T_ENCAPSED_AND_WHITESPACE TSRMLS_CC); + } else { + php_scan_binary_escape_string(zendlval, yytext, len, 0 TSRMLS_CC); + return T_ENCAPSED_AND_WHITESPACE; + } + } else { + /* Go back to end of label, so the next match works correctly in case of + * a variable or another label at the beginning of the next line */ + yyless(yyleng - 1); + yymore(); + } +} + +{ANY_CHAR} { + Z_STRVAL_P(zendlval) = CG(heredoc); + Z_STRLEN_P(zendlval) = CG(heredoc_len); + SCNG(yy_text) = Z_STRVAL_P(zendlval); + yyleng = Z_STRLEN_P(zendlval); + CG(heredoc) = NULL; + CG(heredoc_len) = 0; + BEGIN(ST_IN_SCRIPTING); + return T_END_HEREDOC; +} + + +"{$" { + Z_LVAL_P(zendlval) = (long) '{'; + yy_push_state(ST_IN_SCRIPTING TSRMLS_CC); + yyless(1); + return T_CURLY_OPEN; +} + + +{DOUBLE_QUOTES_CHARS}+ { + if (CG(literal_type) == IS_UNICODE) { + return php_scan_unicode_escape_string(zendlval, yytext, yyleng, 0x22 /*'"'*/, T_ENCAPSED_AND_WHITESPACE TSRMLS_CC); + } else { + php_scan_binary_escape_string(zendlval, yytext, yyleng, '"' TSRMLS_CC); + return T_ENCAPSED_AND_WHITESPACE; + } +} + +/* "{"{2,}|"$"{2,} handles { before "{$" or literal $ before a variable or "${" + * (("{"+|"$"+)["]) handles { or $ at the end of a string + * + * Same for backquotes and heredocs, except the second case doesn't apply to + * heredocs. yyless(yyleng - 1) is used to correct taking one character too many + */ +{DOUBLE_QUOTES_CHARS}*("{"{2,}|"$"{2,}|(("{"+|"$"+)["])) { + yyless(yyleng - 1); + if (yytext[yyleng-1] == '"') --yyleng; + + if (CG(literal_type) == IS_UNICODE) { + return php_scan_unicode_escape_string(zendlval, yytext, yyleng, 0x22 /*'"'*/, T_ENCAPSED_AND_WHITESPACE TSRMLS_CC); + } else { + php_scan_binary_escape_string(zendlval, yytext, yyleng, '"' TSRMLS_CC); + return T_ENCAPSED_AND_WHITESPACE; + } +} + + +{BACKQUOTE_CHARS}+ { + if (CG(literal_type) == IS_UNICODE) { + return php_scan_unicode_escape_string(zendlval, yytext, yyleng, 0x60 /*'`'*/, T_ENCAPSED_AND_WHITESPACE TSRMLS_CC); + } else { + php_scan_binary_escape_string(zendlval, yytext, yyleng, '`' TSRMLS_CC); + return T_ENCAPSED_AND_WHITESPACE; + } +} + +{BACKQUOTE_CHARS}*("{"{2,}|"$"{2,}|(("{"+|"$"+)[`])) { + yyless(yyleng - 1); + + if (CG(literal_type) == IS_UNICODE) { + return php_scan_unicode_escape_string(zendlval, yytext, yyleng, 0x60 /*'`'*/, T_ENCAPSED_AND_WHITESPACE TSRMLS_CC); + } else { + php_scan_binary_escape_string(zendlval, yytext, yyleng, '`' TSRMLS_CC); + return T_ENCAPSED_AND_WHITESPACE; + } +} + + +/* ({HEREDOC_NEWLINE}+({LABEL}";"?)?)? handles the possible case of newline + * sequences, possibly followed by a label, that couldn't be matched with + * HEREDOC_CHARS because of a following variable or "{$" + * + * This doesn't affect real ending labels, as they are followed by a newline, + * which will result in a longer match for the correct rule if present + */ +{HEREDOC_CHARS}*({HEREDOC_NEWLINE}+({LABEL}";"?)?)? { + if (CG(literal_type) == IS_UNICODE) { + return php_scan_unicode_escape_string(zendlval, yytext, yyleng, 0, T_ENCAPSED_AND_WHITESPACE TSRMLS_CC); + } else { + php_scan_binary_escape_string(zendlval, yytext, yyleng, 0 TSRMLS_CC); + return T_ENCAPSED_AND_WHITESPACE; + } +} + +{HEREDOC_CHARS}*({HEREDOC_NEWLINE}+({LABEL}";"?)?)?("{"{2,}|"$"{2,}) { + yyless(yyleng - 1); + + if (CG(literal_type) == IS_UNICODE) { + return php_scan_unicode_escape_string(zendlval, yytext, yyleng, 0, T_ENCAPSED_AND_WHITESPACE TSRMLS_CC); + } else { + php_scan_binary_escape_string(zendlval, yytext, yyleng, 0 TSRMLS_CC); + return T_ENCAPSED_AND_WHITESPACE; + } +} + + +/* BEGIN nowdoc */ + +b?"<<<"{TABS_AND_SPACES}[']{LABEL}[']{NEWLINE} { + int bprefix = (yytext[0] != '<') ? 1 : 0; + char *s; + CG(zend_lineno)++; + /* 3 is <<<, 2 is quotes, 1 is newline */ + CG(heredoc_len) = yyleng-bprefix-3-2-1-(yytext[yyleng-2]=='\r'?1:0); + s = yytext+bprefix+3; + while ((*s == ' ') || (*s == '\t')) { + s++; + CG(heredoc_len)--; + } + s++; /* first quote */ + CG(heredoc) = estrndup(s, CG(heredoc_len)); + + CG(literal_type) = bprefix?IS_STRING:ZEND_STR_TYPE; + BEGIN(ST_START_NOWDOC); + return T_START_NOWDOC; +} + +{ANY_CHAR} { + yyless(0); + BEGIN(ST_NOWDOC); + goto restart; +} + +{LABEL}";"?[\r\n] { + int label_len = yyleng - 1; + + if (yytext[label_len-1]==';') { + label_len--; + } + + if (label_len==CG(heredoc_len) && !memcmp(yytext, CG(heredoc), label_len)) { + yyless(label_len-1); + yyleng = 0; + BEGIN(ST_END_NOWDOC); + if (CG(literal_type) == IS_UNICODE) { + ZVAL_EMPTY_UNICODE(zendlval); + } else { + ZVAL_EMPTY_STRING(zendlval); + } + return T_ENCAPSED_AND_WHITESPACE; + } else { + BEGIN(ST_NOWDOC); + yyless(label_len); + yymore(); + } +} + +{NOWDOC_CHARS}*{NEWLINE}+{LABEL}";"?[\n\r] { + char *end = yytext + yyleng - 1; + + if (end[-1] == ';') { + end--; + yyleng--; + } + + if (yyleng > CG(heredoc_len) && !memcmp(end - CG(heredoc_len), CG(heredoc), CG(heredoc_len))) { + int len = yyleng - CG(heredoc_len) - 2; /* 2 for newline before and after label */ + + if (len > 0 && yytext[len - 1] == '\r' && yytext[len] == '\n') { + len--; + } + + /* Go back before last label char, to match in ST_END_HEREDOC state */ + yyless(yyleng - 2); + + /* Subtract the remaining label length. yyleng must include newline + * before label, for zend_highlight/strip, tokenizer, etc. */ + yyleng = yyleng - CG(heredoc_len) - 1; + + CG(increment_lineno) = 1; /* For newline before label */ + BEGIN(ST_END_NOWDOC); + + HANDLE_NEWLINES(yytext, len); + if (!php_copy_scanner_string(zendlval, yytext, len, CG(literal_type), SCNG(output_conv) TSRMLS_CC)) { + return 0; + } + return T_ENCAPSED_AND_WHITESPACE; + } else { + /* Go back to end of label, so the next match works correctly in case of + * a variable or another label at the beginning of the next line */ + yyless(yyleng - 1); + yymore(); + } +} + +{ANY_CHAR} { + Z_STRVAL_P(zendlval) = CG(heredoc); + Z_STRLEN_P(zendlval) = CG(heredoc_len); + SCNG(yy_text) = CG(heredoc); + yyleng = CG(heredoc_len); + CG(heredoc) = NULL; + CG(heredoc_len) = 0; + BEGIN(ST_IN_SCRIPTING); + return T_END_NOWDOC; +} + +/* END nowdoc */ + +["] { + BEGIN(ST_IN_SCRIPTING); + return '"'; +} + + +[`] { + BEGIN(ST_IN_SCRIPTING); + return '`'; +} + + +{ANY_CHAR} { + zend_error(E_COMPILE_WARNING,"Unexpected character in input: '%c' (ASCII=%d) state=%d", yytext[0], yytext[0], YYSTATE); + goto restart; +} + +*/ +}