1999-04-08 02:10:10 +08:00
|
|
|
/*
|
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
| Zend Engine |
|
|
|
|
+----------------------------------------------------------------------+
|
2015-01-15 23:27:30 +08:00
|
|
|
| Copyright (c) 1998-2015 Zend Technologies Ltd. (http://www.zend.com) |
|
1999-04-08 02:10:10 +08:00
|
|
|
+----------------------------------------------------------------------+
|
2001-12-11 23:16:21 +08:00
|
|
|
| This source file is subject to version 2.00 of the Zend license, |
|
2003-02-01 15:32:09 +08:00
|
|
|
| that is bundled with this package in the file LICENSE, and is |
|
2003-06-11 04:04:29 +08:00
|
|
|
| available through the world-wide-web at the following url: |
|
2001-12-11 23:16:21 +08:00
|
|
|
| http://www.zend.com/license/2_00.txt. |
|
1999-07-16 22:58:16 +08:00
|
|
|
| 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. |
|
1999-04-08 02:10:10 +08:00
|
|
|
+----------------------------------------------------------------------+
|
2008-03-17 05:06:55 +08:00
|
|
|
| Authors: Marcus Boerger <helly@php.net> |
|
|
|
|
| Nuno Lopes <nlopess@php.net> |
|
|
|
|
| Scott MacVicar <scottmac@php.net> |
|
|
|
|
| Flex version authors: |
|
|
|
|
| Andi Gutmans <andi@zend.com> |
|
1999-04-08 02:10:10 +08:00
|
|
|
| Zeev Suraski <zeev@zend.com> |
|
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
*/
|
|
|
|
|
2003-02-01 09:49:15 +08:00
|
|
|
/* $Id$ */
|
|
|
|
|
2008-03-17 05:06:55 +08:00
|
|
|
#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"
|
2012-05-01 02:55:57 +08:00
|
|
|
|
|
|
|
#include <errno.h>
|
|
|
|
#include "zend.h"
|
2012-04-30 21:31:49 +08:00
|
|
|
#ifdef PHP_WIN32
|
|
|
|
# include <Winuser.h>
|
|
|
|
#endif
|
1999-04-08 02:10:10 +08:00
|
|
|
#include "zend_alloc.h"
|
2004-12-30 23:18:24 +08:00
|
|
|
#include <zend_language_parser.h>
|
1999-04-08 02:10:10 +08:00
|
|
|
#include "zend_compile.h"
|
2000-10-29 22:35:34 +08:00
|
|
|
#include "zend_language_scanner.h"
|
1999-04-08 02:10:10 +08:00
|
|
|
#include "zend_highlight.h"
|
|
|
|
#include "zend_constants.h"
|
|
|
|
#include "zend_variables.h"
|
|
|
|
#include "zend_operators.h"
|
2004-07-16 14:50:57 +08:00
|
|
|
#include "zend_API.h"
|
2004-11-04 07:13:32 +08:00
|
|
|
#include "zend_strtod.h"
|
2007-02-24 10:17:47 +08:00
|
|
|
#include "zend_exceptions.h"
|
2013-10-17 15:43:52 +08:00
|
|
|
#include "zend_virtual_cwd.h"
|
2008-02-12 08:21:15 +08:00
|
|
|
#include "tsrm_config_common.h"
|
1999-04-08 02:10:10 +08:00
|
|
|
|
2008-03-17 05:06:55 +08:00
|
|
|
#define YYCTYPE unsigned char
|
2009-03-16 09:40:14 +08:00
|
|
|
#define YYFILL(n) { if ((YYCURSOR + n) >= (YYLIMIT + ZEND_MMAP_AHEAD)) { return 0; } }
|
2008-03-17 05:06:55 +08:00
|
|
|
#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)
|
2008-04-10 06:01:20 +08:00
|
|
|
#define yyless(x) do { YYCURSOR = (unsigned char*)yytext + x; \
|
|
|
|
yyleng = (unsigned int)x; } while(0)
|
2008-03-17 05:06:55 +08:00
|
|
|
#define yymore() goto yymore_restart
|
|
|
|
|
2008-04-04 23:01:23 +08:00
|
|
|
/* perform sanity check. If this message is triggered you should
|
|
|
|
increase the ZEND_MMAP_AHEAD value in the zend_streams.h file */
|
|
|
|
/*!max:re2c */
|
|
|
|
#if ZEND_MMAP_AHEAD < YYMAXFILL
|
|
|
|
# error ZEND_MMAP_AHEAD should be greater than or equal to YYMAXFILL
|
|
|
|
#endif
|
|
|
|
|
1999-09-07 00:14:08 +08:00
|
|
|
#ifdef HAVE_STDARG_H
|
|
|
|
# include <stdarg.h>
|
1999-04-08 02:10:10 +08:00
|
|
|
#endif
|
|
|
|
|
1999-09-07 00:14:08 +08:00
|
|
|
#ifdef HAVE_UNISTD_H
|
|
|
|
# include <unistd.h>
|
1999-05-12 01:50:37 +08:00
|
|
|
#endif
|
|
|
|
|
2001-08-06 21:48:51 +08:00
|
|
|
/* Globals Macros */
|
|
|
|
#define SCNG LANG_SCNG
|
|
|
|
#ifdef ZTS
|
|
|
|
ZEND_API ts_rsrc_id language_scanner_globals_id;
|
|
|
|
#else
|
2008-03-17 05:06:55 +08:00
|
|
|
ZEND_API zend_php_scanner_globals language_scanner_globals;
|
2001-08-06 21:48:51 +08:00
|
|
|
#endif
|
|
|
|
|
2001-08-11 23:56:40 +08:00
|
|
|
#define HANDLE_NEWLINES(s, l) \
|
2001-05-09 03:42:14 +08:00
|
|
|
do { \
|
2001-08-11 23:56:40 +08:00
|
|
|
char *p = (s), *boundary = p+(l); \
|
2001-05-09 03:42:14 +08:00
|
|
|
\
|
|
|
|
while (p<boundary) { \
|
2007-05-18 21:12:05 +08:00
|
|
|
if (*p == '\n' || (*p == '\r' && (*(p+1) != '\n'))) { \
|
2001-05-09 03:42:14 +08:00
|
|
|
CG(zend_lineno)++; \
|
|
|
|
} \
|
|
|
|
p++; \
|
|
|
|
} \
|
2001-04-28 02:53:25 +08:00
|
|
|
} while (0)
|
1999-04-08 02:10:10 +08:00
|
|
|
|
|
|
|
#define HANDLE_NEWLINE(c) \
|
|
|
|
{ \
|
2001-05-09 03:42:14 +08:00
|
|
|
if (c == '\n' || c == '\r') { \
|
1999-04-08 02:10:10 +08:00
|
|
|
CG(zend_lineno)++; \
|
|
|
|
} \
|
|
|
|
}
|
2003-02-01 15:32:09 +08:00
|
|
|
|
2014-02-10 14:04:30 +08:00
|
|
|
/* To save initial string length after scanning to first variable */
|
|
|
|
#define SET_DOUBLE_QUOTES_SCANNED_LENGTH(len) SCNG(scanned_string_len) = (len)
|
|
|
|
#define GET_DOUBLE_QUOTES_SCANNED_LENGTH() SCNG(scanned_string_len)
|
2009-05-05 09:35:44 +08:00
|
|
|
|
|
|
|
#define IS_LABEL_START(c) (((c) >= 'a' && (c) <= 'z') || ((c) >= 'A' && (c) <= 'Z') || (c) == '_' || (c) >= 0x7F)
|
|
|
|
|
2000-12-18 04:23:24 +08:00
|
|
|
#define ZEND_IS_OCT(c) ((c)>='0' && (c)<='7')
|
1999-05-14 19:29:34 +08:00
|
|
|
#define ZEND_IS_HEX(c) (((c)>='0' && (c)<='9') || ((c)>='a' && (c)<='f') || ((c)>='A' && (c)<='F'))
|
|
|
|
|
2008-03-17 05:06:55 +08:00
|
|
|
BEGIN_EXTERN_C()
|
1999-05-07 03:13:13 +08:00
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
static size_t encoding_filter_script_to_internal(unsigned char **to, size_t *to_length, const unsigned char *from, size_t from_length)
|
2011-03-06 15:00:30 +08:00
|
|
|
{
|
2014-12-14 06:06:14 +08:00
|
|
|
const zend_encoding *internal_encoding = zend_multibyte_get_internal_encoding();
|
2014-09-11 20:04:15 +08:00
|
|
|
ZEND_ASSERT(internal_encoding);
|
2014-12-14 06:06:14 +08:00
|
|
|
return zend_multibyte_encoding_converter(to, to_length, from, from_length, internal_encoding, LANG_SCNG(script_encoding));
|
2011-03-06 15:00:30 +08:00
|
|
|
}
|
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
static size_t encoding_filter_script_to_intermediate(unsigned char **to, size_t *to_length, const unsigned char *from, size_t from_length)
|
2011-03-06 15:00:30 +08:00
|
|
|
{
|
2014-12-14 06:06:14 +08:00
|
|
|
return zend_multibyte_encoding_converter(to, to_length, from, from_length, zend_multibyte_encoding_utf8, LANG_SCNG(script_encoding));
|
2011-03-06 15:00:30 +08:00
|
|
|
}
|
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
static size_t encoding_filter_intermediate_to_script(unsigned char **to, size_t *to_length, const unsigned char *from, size_t from_length)
|
2011-03-06 15:00:30 +08:00
|
|
|
{
|
|
|
|
return zend_multibyte_encoding_converter(to, to_length, from, from_length,
|
2014-12-14 06:06:14 +08:00
|
|
|
LANG_SCNG(script_encoding), zend_multibyte_encoding_utf8);
|
2011-03-06 15:00:30 +08:00
|
|
|
}
|
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
static size_t encoding_filter_intermediate_to_internal(unsigned char **to, size_t *to_length, const unsigned char *from, size_t from_length)
|
2011-03-06 15:00:30 +08:00
|
|
|
{
|
2014-12-14 06:06:14 +08:00
|
|
|
const zend_encoding *internal_encoding = zend_multibyte_get_internal_encoding();
|
2014-09-11 20:04:15 +08:00
|
|
|
ZEND_ASSERT(internal_encoding);
|
2011-03-06 15:00:30 +08:00
|
|
|
return zend_multibyte_encoding_converter(to, to_length, from, from_length,
|
2014-12-14 06:06:14 +08:00
|
|
|
internal_encoding, zend_multibyte_encoding_utf8);
|
2011-03-06 15:00:30 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
static void _yy_push_state(int new_state)
|
1999-05-07 03:13:13 +08:00
|
|
|
{
|
2014-05-01 02:28:02 +08:00
|
|
|
zend_stack_push(&SCNG(state_stack), (void *) &YYGETCONDITION());
|
2008-03-17 05:06:55 +08:00
|
|
|
YYSETCONDITION(new_state);
|
|
|
|
}
|
|
|
|
|
|
|
|
#define yy_push_state(state_and_tsrm) _yy_push_state(yyc##state_and_tsrm)
|
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
static void yy_pop_state(void)
|
2008-03-17 05:06:55 +08:00
|
|
|
{
|
2014-05-01 02:48:02 +08:00
|
|
|
int *stack_state = zend_stack_top(&SCNG(state_stack));
|
2008-03-17 05:06:55 +08:00
|
|
|
YYSETCONDITION(*stack_state);
|
|
|
|
zend_stack_del_top(&SCNG(state_stack));
|
|
|
|
}
|
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
static void yy_scan_buffer(char *str, unsigned int len)
|
2008-03-17 05:06:55 +08:00
|
|
|
{
|
|
|
|
YYCURSOR = (YYCTYPE*)str;
|
|
|
|
YYLIMIT = YYCURSOR + len;
|
2010-06-30 10:45:10 +08:00
|
|
|
if (!SCNG(yy_start)) {
|
|
|
|
SCNG(yy_start) = YYCURSOR;
|
|
|
|
}
|
1999-05-07 03:13:13 +08:00
|
|
|
}
|
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
void startup_scanner(void)
|
1999-04-08 02:10:10 +08:00
|
|
|
{
|
2011-06-24 07:00:53 +08:00
|
|
|
CG(parse_error) = 0;
|
2005-06-09 16:52:51 +08:00
|
|
|
CG(doc_comment) = NULL;
|
2014-05-01 02:28:02 +08:00
|
|
|
zend_stack_init(&SCNG(state_stack), sizeof(int));
|
2012-03-31 02:41:44 +08:00
|
|
|
zend_ptr_stack_init(&SCNG(heredoc_label_stack));
|
|
|
|
}
|
|
|
|
|
|
|
|
static void heredoc_label_dtor(zend_heredoc_label *heredoc_label) {
|
|
|
|
efree(heredoc_label->label);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
void shutdown_scanner(void)
|
1999-04-08 02:10:10 +08:00
|
|
|
{
|
2011-06-24 07:00:53 +08:00
|
|
|
CG(parse_error) = 0;
|
2003-04-03 00:51:49 +08:00
|
|
|
RESET_DOC_COMMENT();
|
2012-03-31 02:41:44 +08:00
|
|
|
zend_stack_destroy(&SCNG(state_stack));
|
|
|
|
zend_ptr_stack_clean(&SCNG(heredoc_label_stack), (void (*)(void *)) &heredoc_label_dtor, 1);
|
|
|
|
zend_ptr_stack_destroy(&SCNG(heredoc_label_stack));
|
2015-04-05 19:50:35 +08:00
|
|
|
SCNG(on_event) = NULL;
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
ZEND_API void zend_save_lexical_state(zend_lex_state *lex_state)
|
1999-04-08 02:10:10 +08:00
|
|
|
{
|
2008-03-17 05:06:55 +08:00
|
|
|
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);
|
2014-05-01 02:28:02 +08:00
|
|
|
zend_stack_init(&SCNG(state_stack), sizeof(int));
|
2008-03-17 05:06:55 +08:00
|
|
|
|
2012-03-31 02:41:44 +08:00
|
|
|
lex_state->heredoc_label_stack = SCNG(heredoc_label_stack);
|
|
|
|
zend_ptr_stack_init(&SCNG(heredoc_label_stack));
|
|
|
|
|
2001-09-20 06:34:11 +08:00
|
|
|
lex_state->in = SCNG(yy_in);
|
2008-03-17 05:06:55 +08:00
|
|
|
lex_state->yy_state = YYSTATE;
|
2014-12-14 06:06:14 +08:00
|
|
|
lex_state->filename = zend_get_compiled_filename();
|
2000-06-17 22:12:58 +08:00
|
|
|
lex_state->lineno = CG(zend_lineno);
|
2008-06-29 16:21:35 +08:00
|
|
|
|
2010-12-20 00:36:37 +08:00
|
|
|
lex_state->script_org = SCNG(script_org);
|
|
|
|
lex_state->script_org_size = SCNG(script_org_size);
|
|
|
|
lex_state->script_filtered = SCNG(script_filtered);
|
|
|
|
lex_state->script_filtered_size = SCNG(script_filtered_size);
|
|
|
|
lex_state->input_filter = SCNG(input_filter);
|
|
|
|
lex_state->output_filter = SCNG(output_filter);
|
|
|
|
lex_state->script_encoding = SCNG(script_encoding);
|
2015-01-23 01:39:34 +08:00
|
|
|
|
2015-04-05 19:50:35 +08:00
|
|
|
lex_state->on_event = SCNG(on_event);
|
|
|
|
|
2015-01-23 01:39:34 +08:00
|
|
|
lex_state->ast = CG(ast);
|
|
|
|
lex_state->ast_arena = CG(ast_arena);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
ZEND_API void zend_restore_lexical_state(zend_lex_state *lex_state)
|
1999-04-08 02:10:10 +08:00
|
|
|
{
|
2008-03-17 05:06:55 +08:00
|
|
|
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;
|
1999-04-08 02:10:10 +08:00
|
|
|
|
2009-03-25 23:23:58 +08:00
|
|
|
zend_stack_destroy(&SCNG(state_stack));
|
2008-03-17 05:06:55 +08:00
|
|
|
SCNG(state_stack) = lex_state->state_stack;
|
2003-02-01 15:32:09 +08:00
|
|
|
|
2012-03-31 02:41:44 +08:00
|
|
|
zend_ptr_stack_clean(&SCNG(heredoc_label_stack), (void (*)(void *)) &heredoc_label_dtor, 1);
|
|
|
|
zend_ptr_stack_destroy(&SCNG(heredoc_label_stack));
|
|
|
|
SCNG(heredoc_label_stack) = lex_state->heredoc_label_stack;
|
|
|
|
|
2001-09-20 06:34:11 +08:00
|
|
|
SCNG(yy_in) = lex_state->in;
|
2008-03-17 05:06:55 +08:00
|
|
|
YYSETCONDITION(lex_state->yy_state);
|
2000-06-17 22:12:58 +08:00
|
|
|
CG(zend_lineno) = lex_state->lineno;
|
2014-12-14 06:06:14 +08:00
|
|
|
zend_restore_compiled_filename(lex_state->filename);
|
2010-12-20 00:36:37 +08:00
|
|
|
|
|
|
|
if (SCNG(script_filtered)) {
|
|
|
|
efree(SCNG(script_filtered));
|
|
|
|
SCNG(script_filtered) = NULL;
|
2008-06-29 16:21:35 +08:00
|
|
|
}
|
2010-12-20 00:36:37 +08:00
|
|
|
SCNG(script_org) = lex_state->script_org;
|
|
|
|
SCNG(script_org_size) = lex_state->script_org_size;
|
|
|
|
SCNG(script_filtered) = lex_state->script_filtered;
|
|
|
|
SCNG(script_filtered_size) = lex_state->script_filtered_size;
|
|
|
|
SCNG(input_filter) = lex_state->input_filter;
|
|
|
|
SCNG(output_filter) = lex_state->output_filter;
|
|
|
|
SCNG(script_encoding) = lex_state->script_encoding;
|
2011-01-03 22:39:48 +08:00
|
|
|
|
2015-04-05 19:50:35 +08:00
|
|
|
SCNG(on_event) = lex_state->on_event;
|
|
|
|
|
2015-01-23 01:39:34 +08:00
|
|
|
CG(ast) = lex_state->ast;
|
|
|
|
CG(ast_arena) = lex_state->ast_arena;
|
|
|
|
|
2013-06-17 06:02:51 +08:00
|
|
|
RESET_DOC_COMMENT();
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
ZEND_API void zend_destroy_file_handle(zend_file_handle *file_handle)
|
1999-11-27 07:45:22 +08:00
|
|
|
{
|
|
|
|
zend_llist_del_element(&CG(open_files), file_handle, (int (*)(void *, void *)) zend_compare_file_handles);
|
2006-11-24 06:04:54 +08:00
|
|
|
/* 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;
|
|
|
|
}
|
1999-05-11 04:46:42 +08:00
|
|
|
}
|
|
|
|
|
2015-04-05 19:50:35 +08:00
|
|
|
ZEND_API void zend_lex_tstring(zval *zv)
|
|
|
|
{
|
|
|
|
if (SCNG(on_event)) SCNG(on_event)(ON_FEEDBACK, T_STRING, 0);
|
|
|
|
|
|
|
|
ZVAL_STRINGL(zv, (char*)SCNG(yy_text), SCNG(yy_leng));
|
|
|
|
}
|
|
|
|
|
2010-12-20 00:36:37 +08:00
|
|
|
#define BOM_UTF32_BE "\x00\x00\xfe\xff"
|
|
|
|
#define BOM_UTF32_LE "\xff\xfe\x00\x00"
|
|
|
|
#define BOM_UTF16_BE "\xfe\xff"
|
|
|
|
#define BOM_UTF16_LE "\xff\xfe"
|
|
|
|
#define BOM_UTF8 "\xef\xbb\xbf"
|
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
static const zend_encoding *zend_multibyte_detect_utf_encoding(const unsigned char *script, size_t script_size)
|
2010-12-20 00:36:37 +08:00
|
|
|
{
|
|
|
|
const unsigned char *p;
|
|
|
|
int wchar_size = 2;
|
|
|
|
int le = 0;
|
|
|
|
|
|
|
|
/* utf-16 or utf-32? */
|
|
|
|
p = script;
|
2014-10-29 01:43:22 +08:00
|
|
|
assert(p >= script);
|
|
|
|
while ((size_t)(p-script) < script_size) {
|
2010-12-20 00:36:37 +08:00
|
|
|
p = memchr(p, 0, script_size-(p-script)-2);
|
|
|
|
if (!p) {
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
if (*(p+1) == '\0' && *(p+2) == '\0') {
|
|
|
|
wchar_size = 4;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* searching for UTF-32 specific byte orders, so this will do */
|
|
|
|
p += 4;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* BE or LE? */
|
|
|
|
p = script;
|
2014-10-29 01:43:22 +08:00
|
|
|
assert(p >= script);
|
|
|
|
while ((size_t)(p-script) < script_size) {
|
2010-12-20 00:36:37 +08:00
|
|
|
if (*p == '\0' && *(p+wchar_size-1) != '\0') {
|
|
|
|
/* BE */
|
|
|
|
le = 0;
|
|
|
|
break;
|
|
|
|
} else if (*p != '\0' && *(p+wchar_size-1) == '\0') {
|
|
|
|
/* LE* */
|
|
|
|
le = 1;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
p += wchar_size;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (wchar_size == 2) {
|
|
|
|
return le ? zend_multibyte_encoding_utf16le : zend_multibyte_encoding_utf16be;
|
|
|
|
} else {
|
|
|
|
return le ? zend_multibyte_encoding_utf32le : zend_multibyte_encoding_utf32be;
|
|
|
|
}
|
|
|
|
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
static const zend_encoding* zend_multibyte_detect_unicode(void)
|
2010-12-20 00:36:37 +08:00
|
|
|
{
|
|
|
|
const zend_encoding *script_encoding = NULL;
|
|
|
|
int bom_size;
|
|
|
|
unsigned char *pos1, *pos2;
|
|
|
|
|
|
|
|
if (LANG_SCNG(script_org_size) < sizeof(BOM_UTF32_LE)-1) {
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* check out BOM */
|
|
|
|
if (!memcmp(LANG_SCNG(script_org), BOM_UTF32_BE, sizeof(BOM_UTF32_BE)-1)) {
|
|
|
|
script_encoding = zend_multibyte_encoding_utf32be;
|
|
|
|
bom_size = sizeof(BOM_UTF32_BE)-1;
|
|
|
|
} else if (!memcmp(LANG_SCNG(script_org), BOM_UTF32_LE, sizeof(BOM_UTF32_LE)-1)) {
|
|
|
|
script_encoding = zend_multibyte_encoding_utf32le;
|
|
|
|
bom_size = sizeof(BOM_UTF32_LE)-1;
|
|
|
|
} else if (!memcmp(LANG_SCNG(script_org), BOM_UTF16_BE, sizeof(BOM_UTF16_BE)-1)) {
|
|
|
|
script_encoding = zend_multibyte_encoding_utf16be;
|
|
|
|
bom_size = sizeof(BOM_UTF16_BE)-1;
|
|
|
|
} else if (!memcmp(LANG_SCNG(script_org), BOM_UTF16_LE, sizeof(BOM_UTF16_LE)-1)) {
|
|
|
|
script_encoding = zend_multibyte_encoding_utf16le;
|
|
|
|
bom_size = sizeof(BOM_UTF16_LE)-1;
|
|
|
|
} else if (!memcmp(LANG_SCNG(script_org), BOM_UTF8, sizeof(BOM_UTF8)-1)) {
|
|
|
|
script_encoding = zend_multibyte_encoding_utf8;
|
|
|
|
bom_size = sizeof(BOM_UTF8)-1;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (script_encoding) {
|
|
|
|
/* remove BOM */
|
2011-03-15 00:00:59 +08:00
|
|
|
LANG_SCNG(script_org) += bom_size;
|
2010-12-20 00:36:37 +08:00
|
|
|
LANG_SCNG(script_org_size) -= bom_size;
|
|
|
|
|
|
|
|
return script_encoding;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* script contains NULL bytes -> auto-detection */
|
|
|
|
if ((pos1 = memchr(LANG_SCNG(script_org), 0, LANG_SCNG(script_org_size)))) {
|
|
|
|
/* check if the NULL byte is after the __HALT_COMPILER(); */
|
|
|
|
pos2 = LANG_SCNG(script_org);
|
|
|
|
|
|
|
|
while (pos1 - pos2 >= sizeof("__HALT_COMPILER();")-1) {
|
|
|
|
pos2 = memchr(pos2, '_', pos1 - pos2);
|
|
|
|
if (!pos2) break;
|
|
|
|
pos2++;
|
|
|
|
if (strncasecmp((char*)pos2, "_HALT_COMPILER", sizeof("_HALT_COMPILER")-1) == 0) {
|
|
|
|
pos2 += sizeof("_HALT_COMPILER")-1;
|
|
|
|
while (*pos2 == ' ' ||
|
|
|
|
*pos2 == '\t' ||
|
|
|
|
*pos2 == '\r' ||
|
|
|
|
*pos2 == '\n') {
|
|
|
|
pos2++;
|
|
|
|
}
|
|
|
|
if (*pos2 == '(') {
|
|
|
|
pos2++;
|
|
|
|
while (*pos2 == ' ' ||
|
|
|
|
*pos2 == '\t' ||
|
|
|
|
*pos2 == '\r' ||
|
|
|
|
*pos2 == '\n') {
|
|
|
|
pos2++;
|
|
|
|
}
|
|
|
|
if (*pos2 == ')') {
|
|
|
|
pos2++;
|
|
|
|
while (*pos2 == ' ' ||
|
|
|
|
*pos2 == '\t' ||
|
|
|
|
*pos2 == '\r' ||
|
|
|
|
*pos2 == '\n') {
|
|
|
|
pos2++;
|
|
|
|
}
|
|
|
|
if (*pos2 == ';') {
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
/* make best effort if BOM is missing */
|
2014-12-14 06:06:14 +08:00
|
|
|
return zend_multibyte_detect_utf_encoding(LANG_SCNG(script_org), LANG_SCNG(script_org_size));
|
2010-12-20 00:36:37 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
static const zend_encoding* zend_multibyte_find_script_encoding(void)
|
2010-12-20 00:36:37 +08:00
|
|
|
{
|
|
|
|
const zend_encoding *script_encoding;
|
|
|
|
|
|
|
|
if (CG(detect_unicode)) {
|
|
|
|
/* check out bom(byte order mark) and see if containing wchars */
|
2014-12-14 06:06:14 +08:00
|
|
|
script_encoding = zend_multibyte_detect_unicode();
|
2010-12-20 00:36:37 +08:00
|
|
|
if (script_encoding != NULL) {
|
|
|
|
/* bom or wchar detection is prior to 'script_encoding' option */
|
|
|
|
return script_encoding;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/* if no script_encoding specified, just leave alone */
|
|
|
|
if (!CG(script_encoding_list) || !CG(script_encoding_list_size)) {
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* if multiple encodings specified, detect automagically */
|
|
|
|
if (CG(script_encoding_list_size) > 1) {
|
2014-12-14 06:06:14 +08:00
|
|
|
return zend_multibyte_encoding_detector(LANG_SCNG(script_org), LANG_SCNG(script_org_size), CG(script_encoding_list), CG(script_encoding_list_size));
|
2010-12-20 00:36:37 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
return CG(script_encoding_list)[0];
|
|
|
|
}
|
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
ZEND_API int zend_multibyte_set_filter(const zend_encoding *onetime_encoding)
|
2010-12-20 00:36:37 +08:00
|
|
|
{
|
2014-12-14 06:06:14 +08:00
|
|
|
const zend_encoding *internal_encoding = zend_multibyte_get_internal_encoding();
|
|
|
|
const zend_encoding *script_encoding = onetime_encoding ? onetime_encoding: zend_multibyte_find_script_encoding();
|
2010-12-20 00:36:37 +08:00
|
|
|
|
|
|
|
if (!script_encoding) {
|
|
|
|
return FAILURE;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* judge input/output filter */
|
|
|
|
LANG_SCNG(script_encoding) = script_encoding;
|
|
|
|
LANG_SCNG(input_filter) = NULL;
|
|
|
|
LANG_SCNG(output_filter) = NULL;
|
|
|
|
|
|
|
|
if (!internal_encoding || LANG_SCNG(script_encoding) == internal_encoding) {
|
|
|
|
if (!zend_multibyte_check_lexer_compatibility(LANG_SCNG(script_encoding))) {
|
|
|
|
/* and if not, work around w/ script_encoding -> utf-8 -> script_encoding conversion */
|
2011-03-06 15:00:30 +08:00
|
|
|
LANG_SCNG(input_filter) = encoding_filter_script_to_intermediate;
|
|
|
|
LANG_SCNG(output_filter) = encoding_filter_intermediate_to_script;
|
2010-12-20 00:36:37 +08:00
|
|
|
} else {
|
|
|
|
LANG_SCNG(input_filter) = NULL;
|
|
|
|
LANG_SCNG(output_filter) = NULL;
|
|
|
|
}
|
|
|
|
return SUCCESS;
|
|
|
|
}
|
|
|
|
|
2011-03-06 15:00:30 +08:00
|
|
|
if (zend_multibyte_check_lexer_compatibility(internal_encoding)) {
|
|
|
|
LANG_SCNG(input_filter) = encoding_filter_script_to_internal;
|
|
|
|
LANG_SCNG(output_filter) = NULL;
|
|
|
|
} else if (zend_multibyte_check_lexer_compatibility(LANG_SCNG(script_encoding))) {
|
|
|
|
LANG_SCNG(input_filter) = NULL;
|
|
|
|
LANG_SCNG(output_filter) = encoding_filter_script_to_internal;
|
|
|
|
} else {
|
|
|
|
/* both script and internal encodings are incompatible w/ flex */
|
|
|
|
LANG_SCNG(input_filter) = encoding_filter_script_to_intermediate;
|
|
|
|
LANG_SCNG(output_filter) = encoding_filter_intermediate_to_internal;
|
|
|
|
}
|
2010-12-20 00:36:37 +08:00
|
|
|
|
|
|
|
return 0;
|
|
|
|
}
|
1999-05-22 10:13:01 +08:00
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
ZEND_API int open_file_for_scanning(zend_file_handle *file_handle)
|
1999-04-08 02:10:10 +08:00
|
|
|
{
|
2011-09-13 21:29:35 +08:00
|
|
|
char *buf;
|
2010-06-30 10:45:10 +08:00
|
|
|
size_t size, offset = 0;
|
2014-02-17 22:59:44 +08:00
|
|
|
zend_string *compiled_filename;
|
2011-05-15 08:36:13 +08:00
|
|
|
|
2010-06-30 10:45:10 +08:00
|
|
|
/* The shebang line was read, get the current position to obtain the buffer start */
|
|
|
|
if (CG(start_lineno) == 2 && file_handle->type == ZEND_HANDLE_FP && file_handle->handle.fp) {
|
|
|
|
if ((offset = ftell(file_handle->handle.fp)) == -1) {
|
|
|
|
offset = 0;
|
|
|
|
}
|
|
|
|
}
|
2000-07-27 23:36:54 +08:00
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
if (zend_stream_fixup(file_handle, &buf, &size) == FAILURE) {
|
1999-04-08 02:10:10 +08:00
|
|
|
return FAILURE;
|
|
|
|
}
|
2001-03-12 23:42:18 +08:00
|
|
|
|
2003-02-18 17:37:54 +08:00
|
|
|
zend_llist_add_element(&CG(open_files), file_handle);
|
2008-03-17 05:06:55 +08:00
|
|
|
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;
|
|
|
|
}
|
|
|
|
|
1999-04-08 02:10:10 +08:00
|
|
|
/* Reset the scanner for scanning the new file */
|
2003-02-18 17:37:54 +08:00
|
|
|
SCNG(yy_in) = file_handle;
|
2010-06-30 10:45:10 +08:00
|
|
|
SCNG(yy_start) = NULL;
|
2003-08-11 13:24:42 +08:00
|
|
|
|
2008-03-17 05:06:55 +08:00
|
|
|
if (size != -1) {
|
2010-11-24 13:41:23 +08:00
|
|
|
if (CG(multibyte)) {
|
2011-09-13 21:29:35 +08:00
|
|
|
SCNG(script_org) = (unsigned char*)buf;
|
2011-05-15 08:36:13 +08:00
|
|
|
SCNG(script_org_size) = size;
|
2010-12-20 11:16:09 +08:00
|
|
|
SCNG(script_filtered) = NULL;
|
2008-06-29 16:21:35 +08:00
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
zend_multibyte_set_filter(NULL);
|
2008-06-29 16:21:35 +08:00
|
|
|
|
2010-12-20 11:16:09 +08:00
|
|
|
if (SCNG(input_filter)) {
|
2014-12-14 06:06:14 +08:00
|
|
|
if ((size_t)-1 == SCNG(input_filter)(&SCNG(script_filtered), &SCNG(script_filtered_size), SCNG(script_org), SCNG(script_org_size))) {
|
2010-11-24 13:41:23 +08:00
|
|
|
zend_error_noreturn(E_COMPILE_ERROR, "Could not convert the script from the detected "
|
2010-12-20 00:36:37 +08:00
|
|
|
"encoding \"%s\" to a compatible encoding", zend_multibyte_get_encoding_name(LANG_SCNG(script_encoding)));
|
2010-11-24 13:41:23 +08:00
|
|
|
}
|
2011-09-13 21:29:35 +08:00
|
|
|
buf = (char*)SCNG(script_filtered);
|
2010-12-20 11:16:09 +08:00
|
|
|
size = SCNG(script_filtered_size);
|
2010-11-18 00:46:19 +08:00
|
|
|
}
|
2008-06-29 16:21:35 +08:00
|
|
|
}
|
2010-12-20 11:16:09 +08:00
|
|
|
SCNG(yy_start) = (unsigned char *)buf - offset;
|
2014-12-14 06:06:14 +08:00
|
|
|
yy_scan_buffer(buf, (unsigned int)size);
|
2003-08-11 13:24:42 +08:00
|
|
|
} else {
|
2008-03-17 05:06:55 +08:00
|
|
|
zend_error_noreturn(E_COMPILE_ERROR, "zend_stream_mmap() failed");
|
2003-08-11 13:24:42 +08:00
|
|
|
}
|
|
|
|
|
1999-04-08 02:10:10 +08:00
|
|
|
BEGIN(INITIAL);
|
2001-03-12 23:42:18 +08:00
|
|
|
|
2001-04-28 02:51:56 +08:00
|
|
|
if (file_handle->opened_path) {
|
2015-03-04 07:05:28 +08:00
|
|
|
compiled_filename = zend_string_copy(file_handle->opened_path);
|
2001-03-12 23:42:18 +08:00
|
|
|
} else {
|
2015-03-04 07:05:28 +08:00
|
|
|
compiled_filename = zend_string_init(file_handle->filename, strlen(file_handle->filename), 0);
|
2001-03-12 23:42:18 +08:00
|
|
|
}
|
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
zend_set_compiled_filename(compiled_filename);
|
2014-08-26 01:24:55 +08:00
|
|
|
zend_string_release(compiled_filename);
|
2003-02-01 15:32:09 +08:00
|
|
|
|
2003-01-06 00:09:59 +08:00
|
|
|
if (CG(start_lineno)) {
|
|
|
|
CG(zend_lineno) = CG(start_lineno);
|
|
|
|
CG(start_lineno) = 0;
|
2002-11-06 06:01:35 +08:00
|
|
|
} else {
|
|
|
|
CG(zend_lineno) = 1;
|
|
|
|
}
|
2003-02-01 15:32:09 +08:00
|
|
|
|
2013-06-17 06:02:51 +08:00
|
|
|
RESET_DOC_COMMENT();
|
2001-08-06 22:36:46 +08:00
|
|
|
CG(increment_lineno) = 0;
|
1999-04-23 18:21:00 +08:00
|
|
|
return SUCCESS;
|
1999-04-23 11:32:33 +08:00
|
|
|
}
|
|
|
|
END_EXTERN_C()
|
1999-04-08 02:10:10 +08:00
|
|
|
|
1999-04-15 03:53:33 +08:00
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
ZEND_API zend_op_array *compile_file(zend_file_handle *file_handle, int type)
|
1999-04-08 02:10:10 +08:00
|
|
|
{
|
|
|
|
zend_lex_state original_lex_state;
|
2015-03-18 04:33:57 +08:00
|
|
|
zend_op_array *op_array = NULL;
|
2014-12-14 06:06:14 +08:00
|
|
|
zend_save_lexical_state(&original_lex_state);
|
1999-04-08 02:10:10 +08:00
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
if (open_file_for_scanning(file_handle)==FAILURE) {
|
2000-08-16 00:44:40 +08:00
|
|
|
if (type==ZEND_REQUIRE) {
|
2014-12-14 06:06:14 +08:00
|
|
|
zend_message_dispatcher(ZMSG_FAILED_REQUIRE_FOPEN, file_handle->filename);
|
2003-02-01 15:32:09 +08:00
|
|
|
zend_bailout();
|
2000-08-16 00:44:40 +08:00
|
|
|
} else {
|
2014-12-14 06:06:14 +08:00
|
|
|
zend_message_dispatcher(ZMSG_FAILED_INCLUDE_FOPEN, file_handle->filename);
|
2000-08-16 00:44:40 +08:00
|
|
|
}
|
2000-08-10 03:22:35 +08:00
|
|
|
} else {
|
2015-03-18 04:33:57 +08:00
|
|
|
zend_bool original_in_compilation = CG(in_compilation);
|
2000-08-10 03:22:35 +08:00
|
|
|
CG(in_compilation) = 1;
|
2015-03-18 04:33:57 +08:00
|
|
|
|
|
|
|
CG(ast) = NULL;
|
2014-07-27 00:08:31 +08:00
|
|
|
CG(ast_arena) = zend_arena_create(1024 * 32);
|
2015-03-18 04:33:57 +08:00
|
|
|
if (!zendparse()) {
|
|
|
|
zval retval_zv;
|
2015-04-20 23:39:32 +08:00
|
|
|
zend_file_context original_file_context;
|
|
|
|
zend_oparray_context original_oparray_context;
|
2015-03-18 04:33:57 +08:00
|
|
|
zend_op_array *original_active_op_array = CG(active_op_array);
|
|
|
|
op_array = emalloc(sizeof(zend_op_array));
|
|
|
|
init_op_array(op_array, ZEND_USER_FUNCTION, INITIAL_OP_ARRAY_SIZE);
|
|
|
|
CG(active_op_array) = op_array;
|
|
|
|
ZVAL_LONG(&retval_zv, 1);
|
|
|
|
|
|
|
|
if (zend_ast_process) {
|
|
|
|
zend_ast_process(CG(ast));
|
|
|
|
}
|
2015-04-20 23:39:32 +08:00
|
|
|
|
|
|
|
zend_file_context_begin(&original_file_context);
|
|
|
|
zend_oparray_context_begin(&original_oparray_context);
|
2015-03-18 04:33:57 +08:00
|
|
|
zend_compile_top_stmt(CG(ast));
|
|
|
|
zend_emit_final_return(&retval_zv);
|
2015-04-26 01:10:43 +08:00
|
|
|
op_array->line_start = 1;
|
|
|
|
op_array->line_end = CG(zend_lineno);
|
2015-03-18 04:33:57 +08:00
|
|
|
pass_two(op_array);
|
2015-04-20 23:39:32 +08:00
|
|
|
zend_oparray_context_end(&original_oparray_context);
|
|
|
|
zend_file_context_end(&original_file_context);
|
2015-03-18 04:33:57 +08:00
|
|
|
|
|
|
|
CG(active_op_array) = original_active_op_array;
|
2015-01-20 00:39:52 +08:00
|
|
|
}
|
2015-03-18 04:33:57 +08:00
|
|
|
|
2014-07-25 02:51:01 +08:00
|
|
|
zend_ast_destroy(CG(ast));
|
2014-07-26 02:24:15 +08:00
|
|
|
zend_arena_destroy(CG(ast_arena));
|
2014-07-25 02:51:01 +08:00
|
|
|
CG(in_compilation) = original_in_compilation;
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
2014-09-09 11:52:25 +08:00
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
zend_restore_lexical_state(&original_lex_state);
|
2014-09-09 11:52:25 +08:00
|
|
|
return op_array;
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
zend_op_array *compile_filename(int type, zval *filename)
|
1999-04-08 02:10:10 +08:00
|
|
|
{
|
|
|
|
zend_file_handle file_handle;
|
|
|
|
zval tmp;
|
|
|
|
zend_op_array *retval;
|
2015-03-04 07:05:28 +08:00
|
|
|
zend_string *opened_path = NULL;
|
1999-04-08 02:10:10 +08:00
|
|
|
|
2014-04-02 18:34:44 +08:00
|
|
|
if (Z_TYPE_P(filename) != IS_STRING) {
|
1999-04-08 02:10:10 +08:00
|
|
|
tmp = *filename;
|
|
|
|
zval_copy_ctor(&tmp);
|
|
|
|
convert_to_string(&tmp);
|
|
|
|
filename = &tmp;
|
|
|
|
}
|
2013-09-13 21:08:01 +08:00
|
|
|
file_handle.filename = Z_STRVAL_P(filename);
|
1999-12-04 21:26:57 +08:00
|
|
|
file_handle.free_filename = 0;
|
1999-04-08 02:10:10 +08:00
|
|
|
file_handle.type = ZEND_HANDLE_FILENAME;
|
1999-12-02 22:37:16 +08:00
|
|
|
file_handle.opened_path = NULL;
|
2005-07-19 02:32:36 +08:00
|
|
|
file_handle.handle.fp = NULL;
|
1999-12-23 23:03:25 +08:00
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
retval = zend_compile_file(&file_handle, type);
|
2003-02-18 17:37:54 +08:00
|
|
|
if (retval && file_handle.handle.stream.handle) {
|
2002-11-02 13:44:10 +08:00
|
|
|
if (!file_handle.opened_path) {
|
2015-03-04 07:05:28 +08:00
|
|
|
file_handle.opened_path = opened_path = zend_string_copy(Z_STR_P(filename));
|
2003-02-01 15:32:09 +08:00
|
|
|
}
|
|
|
|
|
2015-03-04 07:05:28 +08:00
|
|
|
zend_hash_add_empty_element(&EG(included_files), file_handle.opened_path);
|
2003-02-01 15:32:09 +08:00
|
|
|
|
2002-11-03 00:52:59 +08:00
|
|
|
if (opened_path) {
|
2015-03-04 07:05:28 +08:00
|
|
|
zend_string_release(opened_path);
|
2002-11-03 00:52:59 +08:00
|
|
|
}
|
2000-10-06 01:58:46 +08:00
|
|
|
}
|
2014-12-14 06:06:14 +08:00
|
|
|
zend_destroy_file_handle(&file_handle);
|
1999-12-23 23:03:25 +08:00
|
|
|
|
1999-04-08 02:10:10 +08:00
|
|
|
if (filename==&tmp) {
|
|
|
|
zval_dtor(&tmp);
|
|
|
|
}
|
|
|
|
return retval;
|
|
|
|
}
|
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
ZEND_API int zend_prepare_string_for_scanning(zval *str, char *filename)
|
1999-04-08 02:10:10 +08:00
|
|
|
{
|
2010-12-20 11:16:09 +08:00
|
|
|
char *buf;
|
2014-02-19 05:12:05 +08:00
|
|
|
size_t size, old_len;
|
2014-02-22 20:36:12 +08:00
|
|
|
zend_string *new_compiled_filename;
|
2010-12-20 11:16:09 +08:00
|
|
|
|
2013-09-14 00:45:02 +08:00
|
|
|
/* enforce ZEND_MMAP_AHEAD trailing NULLs for flex... */
|
2014-08-26 01:24:55 +08:00
|
|
|
old_len = Z_STRLEN_P(str);
|
2015-03-20 07:02:42 +08:00
|
|
|
Z_STR_P(str) = zend_string_extend(Z_STR_P(str), old_len + ZEND_MMAP_AHEAD, 0);
|
2014-04-03 19:26:23 +08:00
|
|
|
Z_TYPE_INFO_P(str) = IS_STRING_EX;
|
2014-02-19 05:12:05 +08:00
|
|
|
memset(Z_STRVAL_P(str) + old_len, 0, ZEND_MMAP_AHEAD + 1);
|
1999-04-08 02:10:10 +08:00
|
|
|
|
2010-12-20 11:16:09 +08:00
|
|
|
SCNG(yy_in) = NULL;
|
2010-06-30 10:45:10 +08:00
|
|
|
SCNG(yy_start) = NULL;
|
2003-08-11 13:24:42 +08:00
|
|
|
|
2013-09-13 21:08:01 +08:00
|
|
|
buf = Z_STRVAL_P(str);
|
2014-02-19 05:12:05 +08:00
|
|
|
size = old_len;
|
2010-12-20 11:16:09 +08:00
|
|
|
|
2010-11-24 13:41:23 +08:00
|
|
|
if (CG(multibyte)) {
|
2011-09-13 21:29:35 +08:00
|
|
|
SCNG(script_org) = (unsigned char*)buf;
|
2010-12-20 11:16:09 +08:00
|
|
|
SCNG(script_org_size) = size;
|
|
|
|
SCNG(script_filtered) = NULL;
|
2008-06-29 16:21:35 +08:00
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
zend_multibyte_set_filter(zend_multibyte_get_internal_encoding());
|
2008-06-29 16:21:35 +08:00
|
|
|
|
2010-12-20 11:16:09 +08:00
|
|
|
if (SCNG(input_filter)) {
|
2014-12-14 06:06:14 +08:00
|
|
|
if ((size_t)-1 == SCNG(input_filter)(&SCNG(script_filtered), &SCNG(script_filtered_size), SCNG(script_org), SCNG(script_org_size))) {
|
2010-12-20 11:16:09 +08:00
|
|
|
zend_error_noreturn(E_COMPILE_ERROR, "Could not convert the script from the detected "
|
|
|
|
"encoding \"%s\" to a compatible encoding", zend_multibyte_get_encoding_name(LANG_SCNG(script_encoding)));
|
|
|
|
}
|
2011-09-13 21:29:35 +08:00
|
|
|
buf = (char*)SCNG(script_filtered);
|
2010-12-20 11:16:09 +08:00
|
|
|
size = SCNG(script_filtered_size);
|
2010-11-24 13:41:23 +08:00
|
|
|
}
|
2008-06-29 16:21:35 +08:00
|
|
|
}
|
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
yy_scan_buffer(buf, (unsigned int)size);
|
2010-12-20 11:16:09 +08:00
|
|
|
|
2014-08-26 01:24:55 +08:00
|
|
|
new_compiled_filename = zend_string_init(filename, strlen(filename), 0);
|
2014-12-14 06:06:14 +08:00
|
|
|
zend_set_compiled_filename(new_compiled_filename);
|
2014-08-26 01:24:55 +08:00
|
|
|
zend_string_release(new_compiled_filename);
|
2000-06-18 00:50:38 +08:00
|
|
|
CG(zend_lineno) = 1;
|
2001-08-28 17:23:22 +08:00
|
|
|
CG(increment_lineno) = 0;
|
2013-06-17 06:02:51 +08:00
|
|
|
RESET_DOC_COMMENT();
|
1999-04-08 02:10:10 +08:00
|
|
|
return SUCCESS;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
ZEND_API size_t zend_get_scanned_file_offset(void)
|
2005-06-05 00:16:19 +08:00
|
|
|
{
|
2010-06-30 10:30:14 +08:00
|
|
|
size_t offset = SCNG(yy_cursor) - SCNG(yy_start);
|
2008-07-28 15:01:54 +08:00
|
|
|
if (SCNG(input_filter)) {
|
2010-12-20 11:16:09 +08:00
|
|
|
size_t original_offset = offset, length = 0;
|
|
|
|
do {
|
2008-07-28 15:01:54 +08:00
|
|
|
unsigned char *p = NULL;
|
2014-12-14 06:06:14 +08:00
|
|
|
if ((size_t)-1 == SCNG(input_filter)(&p, &length, SCNG(script_org), offset)) {
|
2010-12-20 11:16:09 +08:00
|
|
|
return (size_t)-1;
|
2008-07-28 15:01:54 +08:00
|
|
|
}
|
|
|
|
efree(p);
|
|
|
|
if (length > original_offset) {
|
|
|
|
offset--;
|
|
|
|
} else if (length < original_offset) {
|
|
|
|
offset++;
|
|
|
|
}
|
|
|
|
} while (original_offset != length);
|
|
|
|
}
|
2008-07-28 14:05:14 +08:00
|
|
|
return offset;
|
2005-06-05 00:16:19 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
zend_op_array *compile_string(zval *source_string, char *filename)
|
1999-04-08 02:10:10 +08:00
|
|
|
{
|
|
|
|
zend_lex_state original_lex_state;
|
2014-08-27 02:42:25 +08:00
|
|
|
zend_op_array *op_array = NULL;
|
1999-04-08 02:10:10 +08:00
|
|
|
zval tmp;
|
2000-02-04 22:45:58 +08:00
|
|
|
zend_bool original_in_compilation = CG(in_compilation);
|
1999-04-08 02:10:10 +08:00
|
|
|
|
2014-08-26 01:24:55 +08:00
|
|
|
if (Z_STRLEN_P(source_string)==0) {
|
1999-05-12 01:50:37 +08:00
|
|
|
return NULL;
|
|
|
|
}
|
2000-02-04 22:45:58 +08:00
|
|
|
|
2014-02-19 05:12:05 +08:00
|
|
|
ZVAL_DUP(&tmp, source_string);
|
1999-04-08 02:10:10 +08:00
|
|
|
convert_to_string(&tmp);
|
|
|
|
source_string = &tmp;
|
2015-01-03 17:22:58 +08:00
|
|
|
|
2014-08-27 02:42:25 +08:00
|
|
|
CG(in_compilation) = 1;
|
2014-12-14 06:06:14 +08:00
|
|
|
zend_save_lexical_state(&original_lex_state);
|
|
|
|
if (zend_prepare_string_for_scanning(source_string, filename) == SUCCESS) {
|
2014-08-27 02:42:25 +08:00
|
|
|
CG(ast) = NULL;
|
2014-07-27 00:08:31 +08:00
|
|
|
CG(ast_arena) = zend_arena_create(1024 * 32);
|
2014-08-27 02:42:25 +08:00
|
|
|
BEGIN(ST_IN_SCRIPTING);
|
2003-02-01 15:32:09 +08:00
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
if (!zendparse()) {
|
2015-04-20 23:39:32 +08:00
|
|
|
zend_file_context original_file_context;
|
|
|
|
zend_oparray_context original_oparray_context;
|
2014-08-27 02:42:25 +08:00
|
|
|
zend_op_array *original_active_op_array = CG(active_op_array);
|
|
|
|
op_array = emalloc(sizeof(zend_op_array));
|
2014-12-14 06:06:14 +08:00
|
|
|
init_op_array(op_array, ZEND_EVAL_CODE, INITIAL_OP_ARRAY_SIZE);
|
2014-08-27 02:42:25 +08:00
|
|
|
CG(active_op_array) = op_array;
|
2008-06-29 16:21:35 +08:00
|
|
|
|
2015-01-20 00:39:52 +08:00
|
|
|
if (zend_ast_process) {
|
|
|
|
zend_ast_process(CG(ast));
|
|
|
|
}
|
2015-04-20 23:39:32 +08:00
|
|
|
|
|
|
|
zend_file_context_begin(&original_file_context);
|
|
|
|
zend_oparray_context_begin(&original_oparray_context);
|
2014-12-14 06:06:14 +08:00
|
|
|
zend_compile_top_stmt(CG(ast));
|
|
|
|
zend_emit_final_return(NULL);
|
2015-04-26 01:10:43 +08:00
|
|
|
op_array->line_start = 1;
|
|
|
|
op_array->line_end = CG(zend_lineno);
|
2014-12-14 06:06:14 +08:00
|
|
|
pass_two(op_array);
|
2015-04-20 23:39:32 +08:00
|
|
|
zend_oparray_context_end(&original_oparray_context);
|
|
|
|
zend_file_context_end(&original_file_context);
|
2014-08-27 02:42:25 +08:00
|
|
|
|
|
|
|
CG(active_op_array) = original_active_op_array;
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
2014-08-27 02:42:25 +08:00
|
|
|
|
|
|
|
zend_ast_destroy(CG(ast));
|
|
|
|
zend_arena_destroy(CG(ast_arena));
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
2014-08-27 02:42:25 +08:00
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
zend_restore_lexical_state(&original_lex_state);
|
1999-04-08 02:10:10 +08:00
|
|
|
zval_dtor(&tmp);
|
2000-02-04 22:45:58 +08:00
|
|
|
CG(in_compilation) = original_in_compilation;
|
2014-08-27 02:42:25 +08:00
|
|
|
return op_array;
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
|
1999-04-23 11:32:33 +08:00
|
|
|
BEGIN_EXTERN_C()
|
2014-12-14 06:06:14 +08:00
|
|
|
int highlight_file(char *filename, zend_syntax_highlighter_ini *syntax_highlighter_ini)
|
1999-04-08 02:10:10 +08:00
|
|
|
{
|
|
|
|
zend_lex_state original_lex_state;
|
|
|
|
zend_file_handle file_handle;
|
|
|
|
|
|
|
|
file_handle.type = ZEND_HANDLE_FILENAME;
|
|
|
|
file_handle.filename = filename;
|
1999-12-04 21:26:57 +08:00
|
|
|
file_handle.free_filename = 0;
|
1999-12-03 22:07:00 +08:00
|
|
|
file_handle.opened_path = NULL;
|
2014-12-14 06:06:14 +08:00
|
|
|
zend_save_lexical_state(&original_lex_state);
|
|
|
|
if (open_file_for_scanning(&file_handle)==FAILURE) {
|
|
|
|
zend_message_dispatcher(ZMSG_FAILED_HIGHLIGHT_FOPEN, filename);
|
|
|
|
zend_restore_lexical_state(&original_lex_state);
|
1999-04-08 02:10:10 +08:00
|
|
|
return FAILURE;
|
|
|
|
}
|
2014-12-14 06:06:14 +08:00
|
|
|
zend_highlight(syntax_highlighter_ini);
|
2008-06-29 16:21:35 +08:00
|
|
|
if (SCNG(script_filtered)) {
|
|
|
|
efree(SCNG(script_filtered));
|
|
|
|
SCNG(script_filtered) = NULL;
|
|
|
|
}
|
2014-12-14 06:06:14 +08:00
|
|
|
zend_destroy_file_handle(&file_handle);
|
|
|
|
zend_restore_lexical_state(&original_lex_state);
|
1999-04-08 02:10:10 +08:00
|
|
|
return SUCCESS;
|
|
|
|
}
|
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
int highlight_string(zval *str, zend_syntax_highlighter_ini *syntax_highlighter_ini, char *str_name)
|
1999-04-08 02:10:10 +08:00
|
|
|
{
|
|
|
|
zend_lex_state original_lex_state;
|
|
|
|
zval tmp = *str;
|
|
|
|
|
|
|
|
str = &tmp;
|
|
|
|
zval_copy_ctor(str);
|
2014-12-14 06:06:14 +08:00
|
|
|
zend_save_lexical_state(&original_lex_state);
|
|
|
|
if (zend_prepare_string_for_scanning(str, str_name)==FAILURE) {
|
|
|
|
zend_restore_lexical_state(&original_lex_state);
|
1999-04-08 02:10:10 +08:00
|
|
|
return FAILURE;
|
|
|
|
}
|
2005-10-21 17:32:40 +08:00
|
|
|
BEGIN(INITIAL);
|
2014-12-14 06:06:14 +08:00
|
|
|
zend_highlight(syntax_highlighter_ini);
|
2008-06-29 16:21:35 +08:00
|
|
|
if (SCNG(script_filtered)) {
|
|
|
|
efree(SCNG(script_filtered));
|
|
|
|
SCNG(script_filtered) = NULL;
|
|
|
|
}
|
2014-12-14 06:06:14 +08:00
|
|
|
zend_restore_lexical_state(&original_lex_state);
|
1999-04-08 02:10:10 +08:00
|
|
|
zval_dtor(str);
|
|
|
|
return SUCCESS;
|
|
|
|
}
|
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
ZEND_API void zend_multibyte_yyinput_again(zend_encoding_filter old_input_filter, const zend_encoding *old_encoding)
|
2008-06-29 16:21:35 +08:00
|
|
|
{
|
2011-03-06 15:00:30 +08:00
|
|
|
size_t length;
|
2010-12-20 11:16:09 +08:00
|
|
|
unsigned char *new_yy_start;
|
2008-06-29 16:21:35 +08:00
|
|
|
|
|
|
|
/* convert and set */
|
|
|
|
if (!SCNG(input_filter)) {
|
2010-12-20 11:16:09 +08:00
|
|
|
if (SCNG(script_filtered)) {
|
|
|
|
efree(SCNG(script_filtered));
|
|
|
|
SCNG(script_filtered) = NULL;
|
|
|
|
}
|
|
|
|
SCNG(script_filtered_size) = 0;
|
2011-03-06 15:00:30 +08:00
|
|
|
length = SCNG(script_org_size);
|
|
|
|
new_yy_start = SCNG(script_org);
|
2008-06-29 16:21:35 +08:00
|
|
|
} else {
|
2014-12-14 06:06:14 +08:00
|
|
|
if ((size_t)-1 == SCNG(input_filter)(&new_yy_start, &length, SCNG(script_org), SCNG(script_org_size))) {
|
2010-12-20 11:16:09 +08:00
|
|
|
zend_error_noreturn(E_COMPILE_ERROR, "Could not convert the script from the detected "
|
|
|
|
"encoding \"%s\" to a compatible encoding", zend_multibyte_get_encoding_name(LANG_SCNG(script_encoding)));
|
2008-06-29 16:21:35 +08:00
|
|
|
}
|
2014-04-11 03:36:16 +08:00
|
|
|
if (SCNG(script_filtered)) {
|
|
|
|
efree(SCNG(script_filtered));
|
|
|
|
}
|
2010-12-20 11:16:09 +08:00
|
|
|
SCNG(script_filtered) = new_yy_start;
|
|
|
|
SCNG(script_filtered_size) = length;
|
2008-06-29 16:21:35 +08:00
|
|
|
}
|
|
|
|
|
2010-12-20 11:16:09 +08:00
|
|
|
SCNG(yy_cursor) = new_yy_start + (SCNG(yy_cursor) - SCNG(yy_start));
|
|
|
|
SCNG(yy_marker) = new_yy_start + (SCNG(yy_marker) - SCNG(yy_start));
|
|
|
|
SCNG(yy_text) = new_yy_start + (SCNG(yy_text) - SCNG(yy_start));
|
2014-09-11 20:51:02 +08:00
|
|
|
SCNG(yy_limit) = new_yy_start + length;
|
2008-06-29 16:21:35 +08:00
|
|
|
|
2010-12-20 11:16:09 +08:00
|
|
|
SCNG(yy_start) = new_yy_start;
|
2008-06-29 16:21:35 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2014-04-16 01:56:30 +08:00
|
|
|
// TODO: avoid reallocation ???
|
2008-06-29 16:21:35 +08:00
|
|
|
# define zend_copy_value(zendlval, yytext, yyleng) \
|
|
|
|
if (SCNG(output_filter)) { \
|
2008-07-25 06:21:41 +08:00
|
|
|
size_t sz = 0; \
|
2014-04-10 22:47:47 +08:00
|
|
|
char *s = NULL; \
|
2014-12-14 06:06:14 +08:00
|
|
|
SCNG(output_filter)((unsigned char **)&s, &sz, (unsigned char *)yytext, (size_t)yyleng); \
|
2014-04-10 22:47:47 +08:00
|
|
|
ZVAL_STRINGL(zendlval, s, sz); \
|
|
|
|
efree(s); \
|
2008-06-29 16:21:35 +08:00
|
|
|
} else { \
|
2014-02-10 14:04:30 +08:00
|
|
|
ZVAL_STRINGL(zendlval, yytext, yyleng); \
|
2008-06-29 16:21:35 +08:00
|
|
|
}
|
2007-05-18 21:12:05 +08:00
|
|
|
|
2015-03-22 03:10:19 +08:00
|
|
|
static int zend_scan_escape_string(zval *zendlval, char *str, int len, char quote_type)
|
2007-05-18 21:12:05 +08:00
|
|
|
{
|
|
|
|
register char *s, *t;
|
|
|
|
char *end;
|
|
|
|
|
2014-02-10 14:04:30 +08:00
|
|
|
ZVAL_STRINGL(zendlval, str, len);
|
2007-05-18 21:12:05 +08:00
|
|
|
|
|
|
|
/* convert escape sequences */
|
2013-09-13 21:08:01 +08:00
|
|
|
s = t = Z_STRVAL_P(zendlval);
|
2014-08-26 01:24:55 +08:00
|
|
|
end = s+Z_STRLEN_P(zendlval);
|
2007-05-18 21:12:05 +08:00
|
|
|
while (s<end) {
|
|
|
|
if (*s=='\\') {
|
|
|
|
s++;
|
2008-05-10 17:17:29 +08:00
|
|
|
if (s >= end) {
|
|
|
|
*t++ = '\\';
|
|
|
|
break;
|
|
|
|
}
|
2008-05-09 18:27:51 +08:00
|
|
|
|
2007-05-18 21:12:05 +08:00
|
|
|
switch(*s) {
|
|
|
|
case 'n':
|
|
|
|
*t++ = '\n';
|
2014-08-26 01:24:55 +08:00
|
|
|
Z_STRLEN_P(zendlval)--;
|
2007-05-18 21:12:05 +08:00
|
|
|
break;
|
|
|
|
case 'r':
|
|
|
|
*t++ = '\r';
|
2014-08-26 01:24:55 +08:00
|
|
|
Z_STRLEN_P(zendlval)--;
|
2007-05-18 21:12:05 +08:00
|
|
|
break;
|
|
|
|
case 't':
|
|
|
|
*t++ = '\t';
|
2014-08-26 01:24:55 +08:00
|
|
|
Z_STRLEN_P(zendlval)--;
|
2007-05-18 21:12:05 +08:00
|
|
|
break;
|
2007-09-10 00:33:34 +08:00
|
|
|
case 'f':
|
|
|
|
*t++ = '\f';
|
2014-08-26 01:24:55 +08:00
|
|
|
Z_STRLEN_P(zendlval)--;
|
2007-09-10 00:33:34 +08:00
|
|
|
break;
|
|
|
|
case 'v':
|
|
|
|
*t++ = '\v';
|
2014-08-26 01:24:55 +08:00
|
|
|
Z_STRLEN_P(zendlval)--;
|
2007-09-10 00:33:34 +08:00
|
|
|
break;
|
2011-12-01 03:42:59 +08:00
|
|
|
case 'e':
|
2012-04-30 06:35:52 +08:00
|
|
|
#ifdef PHP_WIN32
|
2012-04-30 21:31:49 +08:00
|
|
|
*t++ = VK_ESCAPE;
|
2012-04-30 06:35:52 +08:00
|
|
|
#else
|
2011-12-01 03:42:59 +08:00
|
|
|
*t++ = '\e';
|
2012-04-30 06:35:52 +08:00
|
|
|
#endif
|
2014-08-26 01:24:55 +08:00
|
|
|
Z_STRLEN_P(zendlval)--;
|
2011-12-01 03:42:59 +08:00
|
|
|
break;
|
2007-05-18 21:12:05 +08:00
|
|
|
case '"':
|
|
|
|
case '`':
|
|
|
|
if (*s != quote_type) {
|
|
|
|
*t++ = '\\';
|
|
|
|
*t++ = *s;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case '\\':
|
|
|
|
case '$':
|
|
|
|
*t++ = *s;
|
2014-08-26 01:24:55 +08:00
|
|
|
Z_STRLEN_P(zendlval)--;
|
2007-05-18 21:12:05 +08:00
|
|
|
break;
|
|
|
|
case 'x':
|
|
|
|
case 'X':
|
|
|
|
if (ZEND_IS_HEX(*(s+1))) {
|
|
|
|
char hex_buf[3] = { 0, 0, 0 };
|
|
|
|
|
2014-08-26 01:24:55 +08:00
|
|
|
Z_STRLEN_P(zendlval)--; /* for the 'x' */
|
2007-05-18 21:12:05 +08:00
|
|
|
|
|
|
|
hex_buf[0] = *(++s);
|
2014-08-26 01:24:55 +08:00
|
|
|
Z_STRLEN_P(zendlval)--;
|
2007-05-18 21:12:05 +08:00
|
|
|
if (ZEND_IS_HEX(*(s+1))) {
|
|
|
|
hex_buf[1] = *(++s);
|
2014-08-26 01:24:55 +08:00
|
|
|
Z_STRLEN_P(zendlval)--;
|
2007-05-18 21:12:05 +08:00
|
|
|
}
|
2014-08-26 02:22:49 +08:00
|
|
|
*t++ = (char) ZEND_STRTOL(hex_buf, NULL, 16);
|
2007-05-18 21:12:05 +08:00
|
|
|
} else {
|
|
|
|
*t++ = '\\';
|
|
|
|
*t++ = *s;
|
|
|
|
}
|
|
|
|
break;
|
2014-12-19 08:40:59 +08:00
|
|
|
/* UTF-8 codepoint escape, format: /\\u\{\x+\}/ */
|
|
|
|
case 'u':
|
|
|
|
{
|
|
|
|
/* cache where we started so we can parse after validating */
|
|
|
|
char *start = s + 1;
|
|
|
|
size_t len = 0;
|
|
|
|
zend_bool valid = 1;
|
|
|
|
unsigned long codepoint;
|
2014-12-19 14:17:30 +08:00
|
|
|
size_t byte_len = 0;
|
2014-12-19 08:40:59 +08:00
|
|
|
|
|
|
|
if (*start != '{') {
|
|
|
|
/* we silently let this pass to avoid breaking code
|
|
|
|
* with JSON in string literals (e.g. "\"\u202e\""
|
|
|
|
*/
|
|
|
|
*t++ = '\\';
|
|
|
|
*t++ = 'u';
|
|
|
|
break;
|
|
|
|
} else {
|
|
|
|
/* on the other hand, invalid \u{blah} errors */
|
|
|
|
s++;
|
|
|
|
len++;
|
|
|
|
s++;
|
|
|
|
while (*s != '}') {
|
|
|
|
if (!ZEND_IS_HEX(*s)) {
|
|
|
|
valid = 0;
|
|
|
|
break;
|
|
|
|
} else {
|
|
|
|
len++;
|
|
|
|
}
|
|
|
|
s++;
|
|
|
|
}
|
|
|
|
if (*s == '}') {
|
|
|
|
valid = 1;
|
|
|
|
len++;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/* \u{} is invalid */
|
|
|
|
if (len <= 2) {
|
|
|
|
valid = 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (!valid) {
|
2015-05-17 04:30:59 +08:00
|
|
|
zend_throw_exception(zend_get_parse_error(),
|
2015-03-22 03:10:19 +08:00
|
|
|
"Invalid UTF-8 codepoint escape sequence", E_PARSE);
|
|
|
|
zval_ptr_dtor(zendlval);
|
|
|
|
return FAILURE;
|
2014-12-19 08:40:59 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
errno = 0;
|
|
|
|
codepoint = strtoul(start + 1, NULL, 16);
|
|
|
|
|
|
|
|
/* per RFC 3629, UTF-8 can only represent 21 bits */
|
|
|
|
if (codepoint > 0x10FFFF || errno) {
|
2015-05-17 04:30:59 +08:00
|
|
|
zend_throw_exception(zend_get_parse_error(),
|
2015-03-22 03:10:19 +08:00
|
|
|
"Invalid UTF-8 codepoint escape sequence: Codepoint too large", E_PARSE);
|
|
|
|
zval_ptr_dtor(zendlval);
|
|
|
|
return FAILURE;
|
2014-12-19 08:40:59 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
/* based on https://en.wikipedia.org/wiki/UTF-8#Sample_code */
|
|
|
|
if (codepoint < 0x80) {
|
|
|
|
byte_len = 1;
|
|
|
|
*t++ = codepoint;
|
|
|
|
} else if (codepoint <= 0x7FF) {
|
|
|
|
byte_len = 2;
|
|
|
|
*t++ = (codepoint >> 6) + 0xC0;
|
|
|
|
*t++ = (codepoint & 0x3F) + 0x80;
|
|
|
|
} else if (codepoint <= 0xFFFF) {
|
|
|
|
byte_len = 3;
|
|
|
|
*t++ = (codepoint >> 12) + 0xE0;
|
|
|
|
*t++ = ((codepoint >> 6) & 0x3F) + 0x80;
|
|
|
|
*t++ = (codepoint & 0x3F) + 0x80;
|
|
|
|
} else if (codepoint <= 0x10FFFF) {
|
|
|
|
byte_len = 4;
|
|
|
|
*t++ = (codepoint >> 18) + 0xF0;
|
|
|
|
*t++ = ((codepoint >> 12) & 0x3F) + 0x80;
|
|
|
|
*t++ = ((codepoint >> 6) & 0x3F) + 0x80;
|
|
|
|
*t++ = (codepoint & 0x3F) + 0x80;
|
|
|
|
}
|
|
|
|
|
|
|
|
Z_STRLEN_P(zendlval) -= 2; /* \u */
|
|
|
|
Z_STRLEN_P(zendlval) -= (len - byte_len);
|
|
|
|
}
|
|
|
|
break;
|
2007-05-18 21:12:05 +08:00
|
|
|
default:
|
|
|
|
/* check for an octal */
|
|
|
|
if (ZEND_IS_OCT(*s)) {
|
|
|
|
char octal_buf[4] = { 0, 0, 0, 0 };
|
|
|
|
|
|
|
|
octal_buf[0] = *s;
|
2014-08-26 01:24:55 +08:00
|
|
|
Z_STRLEN_P(zendlval)--;
|
2007-05-18 21:12:05 +08:00
|
|
|
if (ZEND_IS_OCT(*(s+1))) {
|
|
|
|
octal_buf[1] = *(++s);
|
2014-08-26 01:24:55 +08:00
|
|
|
Z_STRLEN_P(zendlval)--;
|
2007-05-18 21:12:05 +08:00
|
|
|
if (ZEND_IS_OCT(*(s+1))) {
|
|
|
|
octal_buf[2] = *(++s);
|
2014-08-26 01:24:55 +08:00
|
|
|
Z_STRLEN_P(zendlval)--;
|
2007-05-18 21:12:05 +08:00
|
|
|
}
|
|
|
|
}
|
2014-08-26 02:22:49 +08:00
|
|
|
*t++ = (char) ZEND_STRTOL(octal_buf, NULL, 8);
|
2007-05-18 21:12:05 +08:00
|
|
|
} else {
|
|
|
|
*t++ = '\\';
|
|
|
|
*t++ = *s;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
} else {
|
|
|
|
*t++ = *s;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (*s == '\n' || (*s == '\r' && (*(s+1) != '\n'))) {
|
|
|
|
CG(zend_lineno)++;
|
|
|
|
}
|
|
|
|
s++;
|
|
|
|
}
|
|
|
|
*t = 0;
|
2008-06-29 16:21:35 +08:00
|
|
|
if (SCNG(output_filter)) {
|
2008-07-25 06:21:41 +08:00
|
|
|
size_t sz = 0;
|
2014-03-24 12:37:05 +08:00
|
|
|
unsigned char *str;
|
2014-04-16 01:56:30 +08:00
|
|
|
// TODO: avoid realocation ???
|
2013-09-13 21:08:01 +08:00
|
|
|
s = Z_STRVAL_P(zendlval);
|
2014-12-14 06:06:14 +08:00
|
|
|
SCNG(output_filter)(&str, &sz, (unsigned char *)s, (size_t)Z_STRLEN_P(zendlval));
|
2014-03-24 12:37:05 +08:00
|
|
|
zval_ptr_dtor(zendlval);
|
2014-08-26 05:05:05 +08:00
|
|
|
ZVAL_STRINGL(zendlval, (char *) str, sz);
|
2014-03-24 12:37:05 +08:00
|
|
|
efree(str);
|
2008-06-29 16:21:35 +08:00
|
|
|
}
|
2015-03-22 03:10:19 +08:00
|
|
|
return SUCCESS;
|
2008-03-17 05:06:55 +08:00
|
|
|
}
|
|
|
|
|
2015-04-05 19:50:35 +08:00
|
|
|
static zend_always_inline int emit_token(int token, int token_line)
|
|
|
|
{
|
|
|
|
if(SCNG(on_event)) SCNG(on_event)(ON_TOKEN, token, token_line);
|
|
|
|
|
|
|
|
return token;
|
|
|
|
}
|
|
|
|
|
|
|
|
#define RETURN_TOKEN(token) return emit_token(token, start_line);
|
2008-03-17 05:06:55 +08:00
|
|
|
|
2014-12-14 06:06:14 +08:00
|
|
|
int lex_scan(zval *zendlval)
|
2008-03-17 05:06:55 +08:00
|
|
|
{
|
2015-04-05 19:50:35 +08:00
|
|
|
|
|
|
|
int start_line = CG(zend_lineno);
|
|
|
|
|
2008-03-17 05:06:55 +08:00
|
|
|
restart:
|
|
|
|
SCNG(yy_text) = YYCURSOR;
|
|
|
|
|
|
|
|
/*!re2c
|
2008-03-23 01:59:52 +08:00
|
|
|
re2c:yyfill:check = 0;
|
1999-04-08 02:10:10 +08:00
|
|
|
LNUM [0-9]+
|
2008-03-17 05:06:55 +08:00
|
|
|
DNUM ([0-9]*"."[0-9]+)|([0-9]+"."[0-9]*)
|
1999-04-08 02:10:10 +08:00
|
|
|
EXPONENT_DNUM (({LNUM}|{DNUM})[eE][+-]?{LNUM})
|
|
|
|
HNUM "0x"[0-9a-fA-F]+
|
2011-07-27 08:14:02 +08:00
|
|
|
BNUM "0b"[01]+
|
1999-04-08 02:10:10 +08:00
|
|
|
LABEL [a-zA-Z_\x7f-\xff][a-zA-Z0-9_\x7f-\xff]*
|
|
|
|
WHITESPACE [ \n\r\t]+
|
|
|
|
TABS_AND_SPACES [ \t]*
|
|
|
|
TOKENS [;:,.\[\]()|^&+-/*=%!~$<>?@]
|
2009-05-05 09:35:44 +08:00
|
|
|
ANY_CHAR [^]
|
2001-05-03 05:48:07 +08:00
|
|
|
NEWLINE ("\r"|"\n"|"\r\n")
|
2008-02-12 17:27:45 +08:00
|
|
|
|
2008-03-17 05:06:55 +08:00
|
|
|
/* compute yyleng before each rule */
|
|
|
|
<!*> := yyleng = YYCURSOR - SCNG(yy_text);
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"exit" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_EXIT);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"die" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_EXIT);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2002-11-06 02:25:09 +08:00
|
|
|
<ST_IN_SCRIPTING>"function" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_FUNCTION);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"const" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_CONST);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"return" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_RETURN);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2015-03-07 07:28:12 +08:00
|
|
|
<ST_IN_SCRIPTING>"yield"{WHITESPACE}"from" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_YIELD_FROM);
|
2015-03-07 07:28:12 +08:00
|
|
|
}
|
|
|
|
|
2012-05-16 00:30:48 +08:00
|
|
|
<ST_IN_SCRIPTING>"yield" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_YIELD);
|
2012-05-16 00:30:48 +08:00
|
|
|
}
|
|
|
|
|
2001-08-30 23:26:30 +08:00
|
|
|
<ST_IN_SCRIPTING>"try" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_TRY);
|
2001-08-30 23:26:30 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
<ST_IN_SCRIPTING>"catch" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_CATCH);
|
2001-08-30 23:26:30 +08:00
|
|
|
}
|
|
|
|
|
2012-08-13 21:48:39 +08:00
|
|
|
<ST_IN_SCRIPTING>"finally" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_FINALLY);
|
2012-08-13 21:48:39 +08:00
|
|
|
}
|
|
|
|
|
2001-08-30 23:26:30 +08:00
|
|
|
<ST_IN_SCRIPTING>"throw" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_THROW);
|
2001-08-30 23:26:30 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"if" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_IF);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"elseif" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ELSEIF);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"endif" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ENDIF);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"else" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ELSE);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"while" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_WHILE);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"endwhile" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ENDWHILE);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"do" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_DO);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"for" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_FOR);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"endfor" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ENDFOR);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"foreach" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_FOREACH);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"endforeach" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ENDFOREACH);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2000-01-25 03:00:30 +08:00
|
|
|
<ST_IN_SCRIPTING>"declare" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_DECLARE);
|
2000-01-25 03:00:30 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
<ST_IN_SCRIPTING>"enddeclare" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ENDDECLARE);
|
2000-01-25 03:00:30 +08:00
|
|
|
}
|
|
|
|
|
2003-01-15 05:29:23 +08:00
|
|
|
<ST_IN_SCRIPTING>"instanceof" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_INSTANCEOF);
|
2002-07-30 12:07:15 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"as" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_AS);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"switch" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_SWITCH);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"endswitch" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ENDSWITCH);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"case" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_CASE);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"default" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_DEFAULT);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"break" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_BREAK);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"continue" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_CONTINUE);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2008-03-28 22:35:01 +08:00
|
|
|
<ST_IN_SCRIPTING>"goto" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_GOTO);
|
2008-03-28 22:35:01 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"echo" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ECHO);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"print" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_PRINT);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"class" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_CLASS);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2003-03-05 19:14:44 +08:00
|
|
|
<ST_IN_SCRIPTING>"interface" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_INTERFACE);
|
2003-03-05 19:14:44 +08:00
|
|
|
}
|
|
|
|
|
Implemented Traits for PHP as proposed in the RFC [TRAITS]
# RFC http://wiki.php.net/rfc/horizontalreuse#traits_-_reuse_of_behavior
# Ok, here we go, I guess that will result in more discussion, which is fine
# by me. But now, the patch is here, and properly archived.
#
# See below a list of notes to the patch, it also includes a list of
# points which should be fixed
#
# Internals of the Traits Patch
# -----------------------------
#
# Open TODOs
# """"""""""
#
# - Reflection API
# - support for traits for internal classes
# - currently destroy_zend_class does not handle that case
#
# Introduced Structures
# """""""""""""""""""""
#
# Data structures to encode the composition information specified in the
# source:
# - zend_trait_method_reference
# - zend_trait_precedence
# - zend_trait_alias
#
# Changes
# """""""
#
# zend_class_entry
# - uses NULL terminated lists of pointers for
# - trait_aliases
# - trait_precedences
# - do you prefer an explicit counter?
# - the information is only necessary during class composition
# but might be interesting for reflection
# - did not want to blow up class further with not really necessary length counters
#
# added keywords
# - trait
# - insteadof
#
# Added opcodes
# ZEND_ADD_TRAIT
# - similar to ZEND_ADD_INTERFACE
# - adds the trait to the list of traits of a class, no actual composition done
# ZEND_BIND_TRAITS
# - emitted in zend_do_end_class_declaration
# - concludes the class definition and will initiate the trait composition
# when the class definition is encountered during runtime
#
# Added Flags
# ZEND_ACC_TRAIT = 0x120
# ZEND_ACC_IMPLEMENT_TRAITS = 0x400000
# ZEND_FETCH_CLASS_TRAIT = 14
#
# zend_vm_execute.h
# - not sure whether the handler initialization (ZEND_ADD_TRAIT_SPEC_HANDLER,
# ZEND_BIND_TRAITS_SPEC_HANDLER) is correct, maybe it should be more selective
#
# zend_compile.c
# - refactored do_inherit_method_check
# split into do_inherit_method_check and do_inheritance_check_on_method
# - added helper functions use a '_' as prefix and are not mentioned in the
# headers
# - _copy_functions
# prepare hash-maps of functions which should be merged into a class
# here the aliases are handled
# - _merge_functions
# builds a hash-table of the methods which need to be added to a class
# does the conflict detection
# - reused php_runkit_function_copy_ctor
# - it is not identical with the original code anymore, needed to update it
# think I fixed some bugs, not sure whether all have been reported back to runkit
# - has to be renamed, left the name for the moment, to make its origin obvious
# - here might be optimization potential
# - not sure whether everything needs to be copied
# - copying the literals might be broken
# - added it since the literals array is freed by efree and gave problems
# with doubled frees
# - all immutable parts of the zend_op array should not be copied
# - am not sure which parts are immutable
# - and not sure how to avoid doubled frees on the same arrays on shutdown
# - _merge_functions_to_class
# does the final merging with the target class to handle inherited
# and overridden methods
# - small helper for NULL terminated lists
# zend_init_list, zend_add_to_list
#
# zend_language_parser.y
# - reused class definition for traits
# - there should be something with regard to properties
# - if they get explicitly defined, it might be worthwhile to
# check that there are no collisions with other traits in a composition
# (however, I would not introduce elaborate language features to control that
# but a notice for such conflicts might be nice to the developers)
2010-04-23 06:05:56 +08:00
|
|
|
<ST_IN_SCRIPTING>"trait" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_TRAIT);
|
Implemented Traits for PHP as proposed in the RFC [TRAITS]
# RFC http://wiki.php.net/rfc/horizontalreuse#traits_-_reuse_of_behavior
# Ok, here we go, I guess that will result in more discussion, which is fine
# by me. But now, the patch is here, and properly archived.
#
# See below a list of notes to the patch, it also includes a list of
# points which should be fixed
#
# Internals of the Traits Patch
# -----------------------------
#
# Open TODOs
# """"""""""
#
# - Reflection API
# - support for traits for internal classes
# - currently destroy_zend_class does not handle that case
#
# Introduced Structures
# """""""""""""""""""""
#
# Data structures to encode the composition information specified in the
# source:
# - zend_trait_method_reference
# - zend_trait_precedence
# - zend_trait_alias
#
# Changes
# """""""
#
# zend_class_entry
# - uses NULL terminated lists of pointers for
# - trait_aliases
# - trait_precedences
# - do you prefer an explicit counter?
# - the information is only necessary during class composition
# but might be interesting for reflection
# - did not want to blow up class further with not really necessary length counters
#
# added keywords
# - trait
# - insteadof
#
# Added opcodes
# ZEND_ADD_TRAIT
# - similar to ZEND_ADD_INTERFACE
# - adds the trait to the list of traits of a class, no actual composition done
# ZEND_BIND_TRAITS
# - emitted in zend_do_end_class_declaration
# - concludes the class definition and will initiate the trait composition
# when the class definition is encountered during runtime
#
# Added Flags
# ZEND_ACC_TRAIT = 0x120
# ZEND_ACC_IMPLEMENT_TRAITS = 0x400000
# ZEND_FETCH_CLASS_TRAIT = 14
#
# zend_vm_execute.h
# - not sure whether the handler initialization (ZEND_ADD_TRAIT_SPEC_HANDLER,
# ZEND_BIND_TRAITS_SPEC_HANDLER) is correct, maybe it should be more selective
#
# zend_compile.c
# - refactored do_inherit_method_check
# split into do_inherit_method_check and do_inheritance_check_on_method
# - added helper functions use a '_' as prefix and are not mentioned in the
# headers
# - _copy_functions
# prepare hash-maps of functions which should be merged into a class
# here the aliases are handled
# - _merge_functions
# builds a hash-table of the methods which need to be added to a class
# does the conflict detection
# - reused php_runkit_function_copy_ctor
# - it is not identical with the original code anymore, needed to update it
# think I fixed some bugs, not sure whether all have been reported back to runkit
# - has to be renamed, left the name for the moment, to make its origin obvious
# - here might be optimization potential
# - not sure whether everything needs to be copied
# - copying the literals might be broken
# - added it since the literals array is freed by efree and gave problems
# with doubled frees
# - all immutable parts of the zend_op array should not be copied
# - am not sure which parts are immutable
# - and not sure how to avoid doubled frees on the same arrays on shutdown
# - _merge_functions_to_class
# does the final merging with the target class to handle inherited
# and overridden methods
# - small helper for NULL terminated lists
# zend_init_list, zend_add_to_list
#
# zend_language_parser.y
# - reused class definition for traits
# - there should be something with regard to properties
# - if they get explicitly defined, it might be worthwhile to
# check that there are no collisions with other traits in a composition
# (however, I would not introduce elaborate language features to control that
# but a notice for such conflicts might be nice to the developers)
2010-04-23 06:05:56 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"extends" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_EXTENDS);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2003-03-05 19:14:44 +08:00
|
|
|
<ST_IN_SCRIPTING>"implements" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_IMPLEMENTS);
|
2003-03-05 19:14:44 +08:00
|
|
|
}
|
|
|
|
|
2007-05-18 21:12:05 +08:00
|
|
|
<ST_IN_SCRIPTING>"->" {
|
2014-12-14 06:06:14 +08:00
|
|
|
yy_push_state(ST_LOOKING_FOR_PROPERTY);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_OBJECT_OPERATOR);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2008-04-10 04:50:58 +08:00
|
|
|
<ST_IN_SCRIPTING,ST_LOOKING_FOR_PROPERTY>{WHITESPACE}+ {
|
|
|
|
HANDLE_NEWLINES(yytext, yyleng);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_WHITESPACE);
|
2007-05-18 21:12:05 +08:00
|
|
|
}
|
|
|
|
|
2008-04-10 04:50:58 +08:00
|
|
|
<ST_LOOKING_FOR_PROPERTY>"->" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_OBJECT_OPERATOR);
|
2008-03-17 05:06:55 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_LOOKING_FOR_PROPERTY>{LABEL} {
|
2014-12-14 06:06:14 +08:00
|
|
|
yy_pop_state();
|
2003-08-11 13:24:42 +08:00
|
|
|
zend_copy_value(zendlval, yytext, yyleng);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_STRING);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2000-07-07 00:19:36 +08:00
|
|
|
<ST_LOOKING_FOR_PROPERTY>{ANY_CHAR} {
|
1999-05-01 01:35:38 +08:00
|
|
|
yyless(0);
|
2014-12-14 06:06:14 +08:00
|
|
|
yy_pop_state();
|
2008-03-17 05:06:55 +08:00
|
|
|
goto restart;
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"::" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_PAAMAYIM_NEKUDOTAYIM);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2008-11-04 23:58:55 +08:00
|
|
|
<ST_IN_SCRIPTING>"\\" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_NS_SEPARATOR);
|
2008-11-04 23:58:55 +08:00
|
|
|
}
|
|
|
|
|
2013-09-27 00:39:17 +08:00
|
|
|
<ST_IN_SCRIPTING>"..." {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ELLIPSIS);
|
2013-09-27 00:39:17 +08:00
|
|
|
}
|
|
|
|
|
2014-09-17 02:14:46 +08:00
|
|
|
<ST_IN_SCRIPTING>"??" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_COALESCE);
|
2014-09-17 02:14:46 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"new" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_NEW);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2004-02-02 20:28:19 +08:00
|
|
|
<ST_IN_SCRIPTING>"clone" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_CLONE);
|
2004-02-02 20:28:19 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"var" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_VAR);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"("{TABS_AND_SPACES}("int"|"integer"){TABS_AND_SPACES}")" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_INT_CAST);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"("{TABS_AND_SPACES}("real"|"double"|"float"){TABS_AND_SPACES}")" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_DOUBLE_CAST);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2010-05-25 02:32:59 +08:00
|
|
|
<ST_IN_SCRIPTING>"("{TABS_AND_SPACES}("string"|"binary"){TABS_AND_SPACES}")" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_STRING_CAST);
|
2006-11-10 20:02:51 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"("{TABS_AND_SPACES}"array"{TABS_AND_SPACES}")" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ARRAY_CAST);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"("{TABS_AND_SPACES}"object"{TABS_AND_SPACES}")" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_OBJECT_CAST);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-06-11 19:17:43 +08:00
|
|
|
<ST_IN_SCRIPTING>"("{TABS_AND_SPACES}("bool"|"boolean"){TABS_AND_SPACES}")" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_BOOL_CAST);
|
1999-06-11 19:17:43 +08:00
|
|
|
}
|
|
|
|
|
1999-12-31 21:56:59 +08:00
|
|
|
<ST_IN_SCRIPTING>"("{TABS_AND_SPACES}("unset"){TABS_AND_SPACES}")" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_UNSET_CAST);
|
1999-12-31 21:56:59 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"eval" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_EVAL);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"include" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_INCLUDE);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2000-03-10 23:01:21 +08:00
|
|
|
<ST_IN_SCRIPTING>"include_once" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_INCLUDE_ONCE);
|
1999-12-01 04:15:04 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"require" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_REQUIRE);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2000-03-10 23:01:21 +08:00
|
|
|
<ST_IN_SCRIPTING>"require_once" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_REQUIRE_ONCE);
|
2000-03-10 23:01:21 +08:00
|
|
|
}
|
|
|
|
|
2007-09-29 03:52:53 +08:00
|
|
|
<ST_IN_SCRIPTING>"namespace" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_NAMESPACE);
|
2007-09-29 03:52:53 +08:00
|
|
|
}
|
|
|
|
|
1999-12-01 04:15:04 +08:00
|
|
|
<ST_IN_SCRIPTING>"use" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_USE);
|
1999-12-01 04:15:04 +08:00
|
|
|
}
|
|
|
|
|
Implemented Traits for PHP as proposed in the RFC [TRAITS]
# RFC http://wiki.php.net/rfc/horizontalreuse#traits_-_reuse_of_behavior
# Ok, here we go, I guess that will result in more discussion, which is fine
# by me. But now, the patch is here, and properly archived.
#
# See below a list of notes to the patch, it also includes a list of
# points which should be fixed
#
# Internals of the Traits Patch
# -----------------------------
#
# Open TODOs
# """"""""""
#
# - Reflection API
# - support for traits for internal classes
# - currently destroy_zend_class does not handle that case
#
# Introduced Structures
# """""""""""""""""""""
#
# Data structures to encode the composition information specified in the
# source:
# - zend_trait_method_reference
# - zend_trait_precedence
# - zend_trait_alias
#
# Changes
# """""""
#
# zend_class_entry
# - uses NULL terminated lists of pointers for
# - trait_aliases
# - trait_precedences
# - do you prefer an explicit counter?
# - the information is only necessary during class composition
# but might be interesting for reflection
# - did not want to blow up class further with not really necessary length counters
#
# added keywords
# - trait
# - insteadof
#
# Added opcodes
# ZEND_ADD_TRAIT
# - similar to ZEND_ADD_INTERFACE
# - adds the trait to the list of traits of a class, no actual composition done
# ZEND_BIND_TRAITS
# - emitted in zend_do_end_class_declaration
# - concludes the class definition and will initiate the trait composition
# when the class definition is encountered during runtime
#
# Added Flags
# ZEND_ACC_TRAIT = 0x120
# ZEND_ACC_IMPLEMENT_TRAITS = 0x400000
# ZEND_FETCH_CLASS_TRAIT = 14
#
# zend_vm_execute.h
# - not sure whether the handler initialization (ZEND_ADD_TRAIT_SPEC_HANDLER,
# ZEND_BIND_TRAITS_SPEC_HANDLER) is correct, maybe it should be more selective
#
# zend_compile.c
# - refactored do_inherit_method_check
# split into do_inherit_method_check and do_inheritance_check_on_method
# - added helper functions use a '_' as prefix and are not mentioned in the
# headers
# - _copy_functions
# prepare hash-maps of functions which should be merged into a class
# here the aliases are handled
# - _merge_functions
# builds a hash-table of the methods which need to be added to a class
# does the conflict detection
# - reused php_runkit_function_copy_ctor
# - it is not identical with the original code anymore, needed to update it
# think I fixed some bugs, not sure whether all have been reported back to runkit
# - has to be renamed, left the name for the moment, to make its origin obvious
# - here might be optimization potential
# - not sure whether everything needs to be copied
# - copying the literals might be broken
# - added it since the literals array is freed by efree and gave problems
# with doubled frees
# - all immutable parts of the zend_op array should not be copied
# - am not sure which parts are immutable
# - and not sure how to avoid doubled frees on the same arrays on shutdown
# - _merge_functions_to_class
# does the final merging with the target class to handle inherited
# and overridden methods
# - small helper for NULL terminated lists
# zend_init_list, zend_add_to_list
#
# zend_language_parser.y
# - reused class definition for traits
# - there should be something with regard to properties
# - if they get explicitly defined, it might be worthwhile to
# check that there are no collisions with other traits in a composition
# (however, I would not introduce elaborate language features to control that
# but a notice for such conflicts might be nice to the developers)
2010-04-23 06:05:56 +08:00
|
|
|
<ST_IN_SCRIPTING>"insteadof" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_INSTEADOF);
|
Implemented Traits for PHP as proposed in the RFC [TRAITS]
# RFC http://wiki.php.net/rfc/horizontalreuse#traits_-_reuse_of_behavior
# Ok, here we go, I guess that will result in more discussion, which is fine
# by me. But now, the patch is here, and properly archived.
#
# See below a list of notes to the patch, it also includes a list of
# points which should be fixed
#
# Internals of the Traits Patch
# -----------------------------
#
# Open TODOs
# """"""""""
#
# - Reflection API
# - support for traits for internal classes
# - currently destroy_zend_class does not handle that case
#
# Introduced Structures
# """""""""""""""""""""
#
# Data structures to encode the composition information specified in the
# source:
# - zend_trait_method_reference
# - zend_trait_precedence
# - zend_trait_alias
#
# Changes
# """""""
#
# zend_class_entry
# - uses NULL terminated lists of pointers for
# - trait_aliases
# - trait_precedences
# - do you prefer an explicit counter?
# - the information is only necessary during class composition
# but might be interesting for reflection
# - did not want to blow up class further with not really necessary length counters
#
# added keywords
# - trait
# - insteadof
#
# Added opcodes
# ZEND_ADD_TRAIT
# - similar to ZEND_ADD_INTERFACE
# - adds the trait to the list of traits of a class, no actual composition done
# ZEND_BIND_TRAITS
# - emitted in zend_do_end_class_declaration
# - concludes the class definition and will initiate the trait composition
# when the class definition is encountered during runtime
#
# Added Flags
# ZEND_ACC_TRAIT = 0x120
# ZEND_ACC_IMPLEMENT_TRAITS = 0x400000
# ZEND_FETCH_CLASS_TRAIT = 14
#
# zend_vm_execute.h
# - not sure whether the handler initialization (ZEND_ADD_TRAIT_SPEC_HANDLER,
# ZEND_BIND_TRAITS_SPEC_HANDLER) is correct, maybe it should be more selective
#
# zend_compile.c
# - refactored do_inherit_method_check
# split into do_inherit_method_check and do_inheritance_check_on_method
# - added helper functions use a '_' as prefix and are not mentioned in the
# headers
# - _copy_functions
# prepare hash-maps of functions which should be merged into a class
# here the aliases are handled
# - _merge_functions
# builds a hash-table of the methods which need to be added to a class
# does the conflict detection
# - reused php_runkit_function_copy_ctor
# - it is not identical with the original code anymore, needed to update it
# think I fixed some bugs, not sure whether all have been reported back to runkit
# - has to be renamed, left the name for the moment, to make its origin obvious
# - here might be optimization potential
# - not sure whether everything needs to be copied
# - copying the literals might be broken
# - added it since the literals array is freed by efree and gave problems
# with doubled frees
# - all immutable parts of the zend_op array should not be copied
# - am not sure which parts are immutable
# - and not sure how to avoid doubled frees on the same arrays on shutdown
# - _merge_functions_to_class
# does the final merging with the target class to handle inherited
# and overridden methods
# - small helper for NULL terminated lists
# zend_init_list, zend_add_to_list
#
# zend_language_parser.y
# - reused class definition for traits
# - there should be something with regard to properties
# - if they get explicitly defined, it might be worthwhile to
# check that there are no collisions with other traits in a composition
# (however, I would not introduce elaborate language features to control that
# but a notice for such conflicts might be nice to the developers)
2010-04-23 06:05:56 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"global" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_GLOBAL);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"isset" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ISSET);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"empty" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_EMPTY);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2005-06-05 00:16:19 +08:00
|
|
|
<ST_IN_SCRIPTING>"__halt_compiler" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_HALT_COMPILER);
|
2005-06-05 00:16:19 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"static" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_STATIC);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2002-11-21 02:00:23 +08:00
|
|
|
<ST_IN_SCRIPTING>"abstract" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ABSTRACT);
|
2002-11-21 02:00:23 +08:00
|
|
|
}
|
|
|
|
|
2003-02-24 20:05:58 +08:00
|
|
|
<ST_IN_SCRIPTING>"final" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_FINAL);
|
2003-02-24 20:05:58 +08:00
|
|
|
}
|
|
|
|
|
2002-02-21 19:50:44 +08:00
|
|
|
<ST_IN_SCRIPTING>"private" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_PRIVATE);
|
2002-02-21 19:50:44 +08:00
|
|
|
}
|
|
|
|
|
2002-07-16 02:09:56 +08:00
|
|
|
<ST_IN_SCRIPTING>"protected" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_PROTECTED);
|
2002-07-16 02:09:56 +08:00
|
|
|
}
|
|
|
|
|
2002-07-17 03:11:14 +08:00
|
|
|
<ST_IN_SCRIPTING>"public" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_PUBLIC);
|
2002-07-17 03:11:14 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"unset" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_UNSET);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"=>" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_DOUBLE_ARROW);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"list" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_LIST);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"array" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ARRAY);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2011-08-16 18:44:47 +08:00
|
|
|
<ST_IN_SCRIPTING>"callable" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_CALLABLE);
|
2011-08-16 18:44:47 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"++" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_INC);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"--" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_DEC);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-10-19 21:33:17 +08:00
|
|
|
<ST_IN_SCRIPTING>"===" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_IS_IDENTICAL);
|
1999-10-19 21:33:17 +08:00
|
|
|
}
|
|
|
|
|
2000-03-30 06:05:19 +08:00
|
|
|
<ST_IN_SCRIPTING>"!==" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_IS_NOT_IDENTICAL);
|
2000-03-30 06:05:19 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"==" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_IS_EQUAL);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"!="|"<>" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_IS_NOT_EQUAL);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2015-01-19 15:12:39 +08:00
|
|
|
<ST_IN_SCRIPTING>"<=>" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_SPACESHIP);
|
2015-01-19 15:12:39 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"<=" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_IS_SMALLER_OR_EQUAL);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>">=" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_IS_GREATER_OR_EQUAL);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"+=" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_PLUS_EQUAL);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"-=" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_MINUS_EQUAL);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"*=" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_MUL_EQUAL);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2013-11-19 15:36:06 +08:00
|
|
|
<ST_IN_SCRIPTING>"*\*" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_POW);
|
2013-11-19 15:36:06 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
<ST_IN_SCRIPTING>"*\*=" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_POW_EQUAL);
|
2013-11-19 15:36:06 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"/=" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_DIV_EQUAL);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>".=" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_CONCAT_EQUAL);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"%=" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_MOD_EQUAL);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"<<=" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_SL_EQUAL);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>">>=" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_SR_EQUAL);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"&=" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_AND_EQUAL);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"|=" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_OR_EQUAL);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"^=" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_XOR_EQUAL);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"||" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_BOOLEAN_OR);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"&&" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_BOOLEAN_AND);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"OR" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_LOGICAL_OR);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"AND" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_LOGICAL_AND);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"XOR" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_LOGICAL_XOR);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"<<" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_SL);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>">>" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_SR);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>{TOKENS} {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(yytext[0]);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"{" {
|
2014-12-14 06:06:14 +08:00
|
|
|
yy_push_state(ST_IN_SCRIPTING);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN('{');
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_DOUBLE_QUOTES,ST_BACKQUOTE,ST_HEREDOC>"${" {
|
2014-12-14 06:06:14 +08:00
|
|
|
yy_push_state(ST_LOOKING_FOR_VARNAME);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_DOLLAR_OPEN_CURLY_BRACES);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"}" {
|
2005-02-13 21:50:48 +08:00
|
|
|
RESET_DOC_COMMENT();
|
2008-03-17 05:06:55 +08:00
|
|
|
if (!zend_stack_is_empty(&SCNG(state_stack))) {
|
2014-12-14 06:06:14 +08:00
|
|
|
yy_pop_state();
|
1999-05-20 17:02:03 +08:00
|
|
|
}
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN('}');
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2012-04-10 00:19:49 +08:00
|
|
|
<ST_LOOKING_FOR_VARNAME>{LABEL}[[}] {
|
|
|
|
yyless(yyleng - 1);
|
2003-08-11 13:24:42 +08:00
|
|
|
zend_copy_value(zendlval, yytext, yyleng);
|
2014-12-14 06:06:14 +08:00
|
|
|
yy_pop_state();
|
|
|
|
yy_push_state(ST_IN_SCRIPTING);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_STRING_VARNAME);
|
1999-05-01 01:29:18 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2000-07-07 00:19:36 +08:00
|
|
|
<ST_LOOKING_FOR_VARNAME>{ANY_CHAR} {
|
1999-05-01 01:35:38 +08:00
|
|
|
yyless(0);
|
2014-12-14 06:06:14 +08:00
|
|
|
yy_pop_state();
|
|
|
|
yy_push_state(ST_IN_SCRIPTING);
|
2008-03-17 05:06:55 +08:00
|
|
|
goto restart;
|
1999-05-01 01:29:18 +08:00
|
|
|
}
|
|
|
|
|
2011-07-27 08:14:02 +08:00
|
|
|
<ST_IN_SCRIPTING>{BNUM} {
|
|
|
|
char *bin = yytext + 2; /* Skip "0b" */
|
|
|
|
int len = yyleng - 2;
|
2015-01-09 14:32:36 +08:00
|
|
|
char *end;
|
2011-07-27 08:14:02 +08:00
|
|
|
|
|
|
|
/* Skip any leading 0s */
|
|
|
|
while (*bin == '0') {
|
|
|
|
++bin;
|
|
|
|
--len;
|
|
|
|
}
|
|
|
|
|
2014-08-26 03:20:44 +08:00
|
|
|
if (len < SIZEOF_ZEND_LONG * 8) {
|
2012-03-02 10:36:31 +08:00
|
|
|
if (len == 0) {
|
2014-08-26 01:24:55 +08:00
|
|
|
ZVAL_LONG(zendlval, 0);
|
2012-03-02 10:36:31 +08:00
|
|
|
} else {
|
2015-01-09 14:32:36 +08:00
|
|
|
errno = 0;
|
|
|
|
ZVAL_LONG(zendlval, ZEND_STRTOL(bin, &end, 2));
|
|
|
|
ZEND_ASSERT(!errno && end == yytext + yyleng);
|
2012-03-02 10:36:31 +08:00
|
|
|
}
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_LNUMBER);
|
2011-07-27 08:14:02 +08:00
|
|
|
} else {
|
2015-01-18 20:24:57 +08:00
|
|
|
ZVAL_DOUBLE(zendlval, zend_bin_strtod(bin, (const char **)&end));
|
2015-01-09 14:32:36 +08:00
|
|
|
/* errno isn't checked since we allow HUGE_VAL/INF overflow */
|
|
|
|
ZEND_ASSERT(end == yytext + yyleng);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_DNUMBER);
|
2011-07-27 08:14:02 +08:00
|
|
|
}
|
|
|
|
}
|
1999-04-08 02:10:10 +08:00
|
|
|
|
2000-11-15 01:54:11 +08:00
|
|
|
<ST_IN_SCRIPTING>{LNUM} {
|
2015-01-09 14:32:36 +08:00
|
|
|
char *end;
|
2014-08-26 01:24:55 +08:00
|
|
|
if (yyleng < MAX_LENGTH_OF_LONG - 1) { /* Won't overflow */
|
2015-01-09 14:32:36 +08:00
|
|
|
errno = 0;
|
|
|
|
ZVAL_LONG(zendlval, ZEND_STRTOL(yytext, &end, 0));
|
|
|
|
/* This isn't an assert, we need to ensure 019 isn't valid octal
|
|
|
|
* Because the lexing itself doesn't do that for us
|
|
|
|
*/
|
|
|
|
if (end != yytext + yyleng) {
|
2015-05-17 04:30:59 +08:00
|
|
|
zend_throw_exception(zend_get_parse_error(), "Invalid numeric literal", E_PARSE);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ERROR);
|
2015-01-09 14:32:36 +08:00
|
|
|
}
|
1999-04-08 02:10:10 +08:00
|
|
|
} else {
|
2006-12-27 00:44:20 +08:00
|
|
|
errno = 0;
|
2015-01-09 14:32:36 +08:00
|
|
|
ZVAL_LONG(zendlval, ZEND_STRTOL(yytext, &end, 0));
|
2006-12-27 00:44:20 +08:00
|
|
|
if (errno == ERANGE) { /* Overflow */
|
2015-01-09 14:32:36 +08:00
|
|
|
errno = 0;
|
2007-04-23 05:33:10 +08:00
|
|
|
if (yytext[0] == '0') { /* octal overflow */
|
2015-01-09 14:32:36 +08:00
|
|
|
errno = 0;
|
2015-01-18 20:24:57 +08:00
|
|
|
ZVAL_DOUBLE(zendlval, zend_oct_strtod(yytext, (const char **)&end));
|
2007-04-23 05:33:10 +08:00
|
|
|
} else {
|
2015-01-18 20:24:57 +08:00
|
|
|
ZVAL_DOUBLE(zendlval, zend_strtod(yytext, (const char **)&end));
|
2015-01-09 14:32:36 +08:00
|
|
|
}
|
|
|
|
/* Also not an assert for the same reason */
|
|
|
|
if (end != yytext + yyleng) {
|
2015-05-17 04:30:59 +08:00
|
|
|
zend_throw_exception(zend_get_parse_error(),
|
2015-03-22 03:10:19 +08:00
|
|
|
"Invalid numeric literal", E_PARSE);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ERROR);
|
2007-04-23 05:33:10 +08:00
|
|
|
}
|
2015-01-09 14:32:36 +08:00
|
|
|
ZEND_ASSERT(!errno);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_DNUMBER);
|
2000-11-15 02:33:58 +08:00
|
|
|
}
|
2015-01-09 14:32:36 +08:00
|
|
|
/* Also not an assert for the same reason */
|
|
|
|
if (end != yytext + yyleng) {
|
2015-05-17 04:30:59 +08:00
|
|
|
zend_throw_exception(zend_get_parse_error(), "Invalid numeric literal", E_PARSE);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ERROR);
|
2015-01-09 14:32:36 +08:00
|
|
|
}
|
2000-11-15 01:54:11 +08:00
|
|
|
}
|
2015-03-22 03:10:19 +08:00
|
|
|
ZEND_ASSERT(!errno);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_LNUMBER);
|
2000-11-15 01:54:11 +08:00
|
|
|
}
|
|
|
|
|
2006-12-27 00:44:20 +08:00
|
|
|
<ST_IN_SCRIPTING>{HNUM} {
|
2007-01-19 07:28:08 +08:00
|
|
|
char *hex = yytext + 2; /* Skip "0x" */
|
|
|
|
int len = yyleng - 2;
|
2015-01-09 14:32:36 +08:00
|
|
|
char *end;
|
2006-12-27 00:44:20 +08:00
|
|
|
|
|
|
|
/* Skip any leading 0s */
|
2007-01-19 07:28:08 +08:00
|
|
|
while (*hex == '0') {
|
|
|
|
hex++;
|
|
|
|
len--;
|
2006-12-27 00:44:20 +08:00
|
|
|
}
|
|
|
|
|
2014-08-26 03:20:44 +08:00
|
|
|
if (len < SIZEOF_ZEND_LONG * 2 || (len == SIZEOF_ZEND_LONG * 2 && *hex <= '7')) {
|
2012-02-21 02:28:57 +08:00
|
|
|
if (len == 0) {
|
2014-08-26 01:24:55 +08:00
|
|
|
ZVAL_LONG(zendlval, 0);
|
2012-02-21 02:28:57 +08:00
|
|
|
} else {
|
2015-01-09 14:32:36 +08:00
|
|
|
errno = 0;
|
|
|
|
ZVAL_LONG(zendlval, ZEND_STRTOL(hex, &end, 16));
|
|
|
|
ZEND_ASSERT(!errno && end == hex + len);
|
2012-02-21 02:28:57 +08:00
|
|
|
}
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_LNUMBER);
|
2006-12-27 00:44:20 +08:00
|
|
|
} else {
|
2015-01-18 20:24:57 +08:00
|
|
|
ZVAL_DOUBLE(zendlval, zend_hex_strtod(hex, (const char **)&end));
|
2015-01-09 14:32:36 +08:00
|
|
|
/* errno isn't checked since we allow HUGE_VAL/INF overflow */
|
|
|
|
ZEND_ASSERT(end == hex + len);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_DNUMBER);
|
2006-12-27 00:44:20 +08:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2008-03-17 05:06:55 +08:00
|
|
|
<ST_VAR_OFFSET>[0]|([1-9][0-9]*) { /* Offset could be treated as a long */
|
2014-08-26 01:24:55 +08:00
|
|
|
if (yyleng < MAX_LENGTH_OF_LONG - 1 || (yyleng == MAX_LENGTH_OF_LONG - 1 && strcmp(yytext, long_min_digits) < 0)) {
|
2015-01-09 14:32:36 +08:00
|
|
|
char *end;
|
|
|
|
errno = 0;
|
|
|
|
ZVAL_LONG(zendlval, ZEND_STRTOL(yytext, &end, 10));
|
|
|
|
if (errno == ERANGE) {
|
|
|
|
goto string;
|
|
|
|
}
|
|
|
|
ZEND_ASSERT(end == yytext + yyleng);
|
2007-05-18 21:12:05 +08:00
|
|
|
} else {
|
2015-01-09 14:32:36 +08:00
|
|
|
string:
|
2014-02-10 14:04:30 +08:00
|
|
|
ZVAL_STRINGL(zendlval, yytext, yyleng);
|
2007-05-18 21:12:05 +08:00
|
|
|
}
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_NUM_STRING);
|
2007-05-18 21:12:05 +08:00
|
|
|
}
|
|
|
|
|
2011-07-27 08:14:02 +08:00
|
|
|
<ST_VAR_OFFSET>{LNUM}|{HNUM}|{BNUM} { /* Offset must be treated as a string */
|
2014-02-10 14:04:30 +08:00
|
|
|
ZVAL_STRINGL(zendlval, yytext, yyleng);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_NUM_STRING);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>{DNUM}|{EXPONENT_DNUM} {
|
2015-01-18 20:24:57 +08:00
|
|
|
const char *end;
|
2015-01-09 14:32:36 +08:00
|
|
|
|
|
|
|
ZVAL_DOUBLE(zendlval, zend_strtod(yytext, &end));
|
|
|
|
/* errno isn't checked since we allow HUGE_VAL/INF overflow */
|
|
|
|
ZEND_ASSERT(end == yytext + yyleng);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_DNUMBER);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2008-07-30 09:25:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"__CLASS__" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_CLASS_C);
|
2002-04-11 05:23:01 +08:00
|
|
|
}
|
|
|
|
|
2011-08-01 01:39:30 +08:00
|
|
|
<ST_IN_SCRIPTING>"__TRAIT__" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_TRAIT_C);
|
2011-08-01 01:39:30 +08:00
|
|
|
}
|
|
|
|
|
2008-07-30 09:25:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"__FUNCTION__" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_FUNC_C);
|
2002-04-11 05:23:01 +08:00
|
|
|
}
|
|
|
|
|
2008-07-30 09:25:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"__METHOD__" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_METHOD_C);
|
2003-05-27 04:45:22 +08:00
|
|
|
}
|
|
|
|
|
2008-07-30 09:25:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"__LINE__" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_LINE);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2008-07-30 09:25:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"__FILE__" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_FILE);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2008-07-30 09:25:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"__DIR__" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_DIR);
|
2008-02-12 08:21:15 +08:00
|
|
|
}
|
|
|
|
|
2008-07-30 09:25:49 +08:00
|
|
|
<ST_IN_SCRIPTING>"__NAMESPACE__" {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_NS_C);
|
2007-09-29 03:52:53 +08:00
|
|
|
}
|
|
|
|
|
1999-04-08 02:10:10 +08:00
|
|
|
|
2008-03-17 05:06:55 +08:00
|
|
|
<INITIAL>"<?=" {
|
2011-05-20 00:26:29 +08:00
|
|
|
BEGIN(ST_IN_SCRIPTING);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_OPEN_TAG_WITH_ECHO);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2001-05-09 03:42:14 +08:00
|
|
|
<INITIAL>"<?php"([ \t]|{NEWLINE}) {
|
1999-04-08 02:10:10 +08:00
|
|
|
HANDLE_NEWLINE(yytext[yyleng-1]);
|
1999-05-22 01:31:49 +08:00
|
|
|
BEGIN(ST_IN_SCRIPTING);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_OPEN_TAG);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2008-03-17 05:06:55 +08:00
|
|
|
|
|
|
|
<INITIAL>"<?" {
|
|
|
|
if (CG(short_tags)) {
|
|
|
|
BEGIN(ST_IN_SCRIPTING);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_OPEN_TAG);
|
2008-03-17 05:06:55 +08:00
|
|
|
} else {
|
|
|
|
goto inline_char_handler;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
<INITIAL>{ANY_CHAR} {
|
2009-05-05 09:35:44 +08:00
|
|
|
if (YYCURSOR > YYLIMIT) {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(END);
|
2009-05-05 09:35:44 +08:00
|
|
|
}
|
2008-03-17 05:06:55 +08:00
|
|
|
|
2008-07-06 23:53:23 +08:00
|
|
|
inline_char_handler:
|
|
|
|
|
2008-03-17 05:06:55 +08:00
|
|
|
while (1) {
|
|
|
|
YYCTYPE *ptr = memchr(YYCURSOR, '<', YYLIMIT - YYCURSOR);
|
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
YYCURSOR = ptr ? ptr + 1 : YYLIMIT;
|
2008-03-17 05:06:55 +08:00
|
|
|
|
2014-09-10 05:14:19 +08:00
|
|
|
if (YYCURSOR >= YYLIMIT) {
|
|
|
|
break;
|
2008-03-17 05:06:55 +08:00
|
|
|
}
|
2009-05-05 09:35:44 +08:00
|
|
|
|
2014-09-10 05:14:19 +08:00
|
|
|
if (*YYCURSOR == '?') {
|
|
|
|
if (CG(short_tags) || !strncasecmp((char*)YYCURSOR + 1, "php", 3) || (*(YYCURSOR + 1) == '=')) { /* Assume [ \t\n\r] follows "php" */
|
|
|
|
|
|
|
|
YYCURSOR--;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
2008-03-17 05:06:55 +08:00
|
|
|
}
|
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
yyleng = YYCURSOR - SCNG(yy_text);
|
|
|
|
|
2008-06-29 16:21:35 +08:00
|
|
|
if (SCNG(output_filter)) {
|
2014-10-29 01:43:22 +08:00
|
|
|
size_t readsize;
|
2014-04-10 22:47:47 +08:00
|
|
|
char *s = NULL;
|
2008-07-25 06:21:41 +08:00
|
|
|
size_t sz = 0;
|
2014-04-16 01:56:30 +08:00
|
|
|
// TODO: avoid reallocation ???
|
2014-12-14 06:06:14 +08:00
|
|
|
readsize = SCNG(output_filter)((unsigned char **)&s, &sz, (unsigned char *)yytext, (size_t)yyleng);
|
2014-04-10 22:47:47 +08:00
|
|
|
ZVAL_STRINGL(zendlval, s, sz);
|
|
|
|
efree(s);
|
2008-06-29 16:21:35 +08:00
|
|
|
if (readsize < yyleng) {
|
|
|
|
yyless(readsize);
|
|
|
|
}
|
|
|
|
} else {
|
2014-02-10 14:04:30 +08:00
|
|
|
ZVAL_STRINGL(zendlval, yytext, yyleng);
|
2008-06-29 16:21:35 +08:00
|
|
|
}
|
2008-03-17 05:06:55 +08:00
|
|
|
HANDLE_NEWLINES(yytext, yyleng);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_INLINE_HTML);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2008-03-17 05:06:55 +08:00
|
|
|
|
2007-05-18 21:12:05 +08:00
|
|
|
/* Make sure a label character follows "->", otherwise there is no property
|
|
|
|
* and "->" will be taken literally
|
2008-03-17 05:06:55 +08:00
|
|
|
*/
|
2007-05-18 21:12:05 +08:00
|
|
|
<ST_DOUBLE_QUOTES,ST_HEREDOC,ST_BACKQUOTE>"$"{LABEL}"->"[a-zA-Z_\x7f-\xff] {
|
2008-04-10 06:01:20 +08:00
|
|
|
yyless(yyleng - 3);
|
2014-12-14 06:06:14 +08:00
|
|
|
yy_push_state(ST_LOOKING_FOR_PROPERTY);
|
2008-04-10 04:50:58 +08:00
|
|
|
zend_copy_value(zendlval, (yytext+1), (yyleng-1));
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_VARIABLE);
|
2007-05-18 21:12:05 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
/* A [ always designates a variable offset, regardless of what follows
|
2008-03-17 05:06:55 +08:00
|
|
|
*/
|
2007-05-18 21:12:05 +08:00
|
|
|
<ST_DOUBLE_QUOTES,ST_HEREDOC,ST_BACKQUOTE>"$"{LABEL}"[" {
|
2008-04-10 06:01:20 +08:00
|
|
|
yyless(yyleng - 1);
|
2014-12-14 06:06:14 +08:00
|
|
|
yy_push_state(ST_VAR_OFFSET);
|
2008-04-10 04:50:58 +08:00
|
|
|
zend_copy_value(zendlval, (yytext+1), (yyleng-1));
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_VARIABLE);
|
2008-03-17 05:06:55 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
<ST_IN_SCRIPTING,ST_DOUBLE_QUOTES,ST_HEREDOC,ST_BACKQUOTE,ST_VAR_OFFSET>"$"{LABEL} {
|
2007-05-18 21:12:05 +08:00
|
|
|
zend_copy_value(zendlval, (yytext+1), (yyleng-1));
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_VARIABLE);
|
2007-05-18 21:12:05 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
<ST_VAR_OFFSET>"]" {
|
2014-12-14 06:06:14 +08:00
|
|
|
yy_pop_state();
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(']');
|
2007-05-18 21:12:05 +08:00
|
|
|
}
|
|
|
|
|
2007-05-24 16:56:35 +08:00
|
|
|
<ST_VAR_OFFSET>{TOKENS}|[{}"`] {
|
2007-05-18 21:12:05 +08:00
|
|
|
/* Only '[' can be valid, but returning other tokens will allow a more explicit parse error */
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(yytext[0]);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2007-05-24 16:56:35 +08:00
|
|
|
<ST_VAR_OFFSET>[ \n\r\t\\'#] {
|
|
|
|
/* Invalid rule to return a more explicit parse error with proper line number */
|
2007-05-18 21:12:05 +08:00
|
|
|
yyless(0);
|
2014-12-14 06:06:14 +08:00
|
|
|
yy_pop_state();
|
2014-09-08 19:50:53 +08:00
|
|
|
ZVAL_NULL(zendlval);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ENCAPSED_AND_WHITESPACE);
|
2007-05-18 21:12:05 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
<ST_IN_SCRIPTING,ST_VAR_OFFSET>{LABEL} {
|
2003-08-11 13:24:42 +08:00
|
|
|
zend_copy_value(zendlval, yytext, yyleng);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_STRING);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2000-12-18 04:23:24 +08:00
|
|
|
<ST_IN_SCRIPTING>"#"|"//" {
|
2009-05-05 09:35:44 +08:00
|
|
|
while (YYCURSOR < YYLIMIT) {
|
|
|
|
switch (*YYCURSOR++) {
|
|
|
|
case '\r':
|
|
|
|
if (*YYCURSOR == '\n') {
|
|
|
|
YYCURSOR++;
|
|
|
|
}
|
|
|
|
/* fall through */
|
|
|
|
case '\n':
|
|
|
|
CG(zend_lineno)++;
|
|
|
|
break;
|
|
|
|
case '?':
|
|
|
|
if (*YYCURSOR == '>') {
|
|
|
|
YYCURSOR--;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
/* fall through */
|
|
|
|
default:
|
|
|
|
continue;
|
|
|
|
}
|
2000-12-18 04:03:35 +08:00
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
break;
|
2005-12-08 11:09:14 +08:00
|
|
|
}
|
2005-11-22 03:24:38 +08:00
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
yyleng = YYCURSOR - SCNG(yy_text);
|
|
|
|
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_COMMENT);
|
2000-12-18 04:03:35 +08:00
|
|
|
}
|
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
<ST_IN_SCRIPTING>"/*"|"/**"{WHITESPACE} {
|
|
|
|
int doc_com;
|
|
|
|
|
|
|
|
if (yyleng > 2) {
|
|
|
|
doc_com = 1;
|
|
|
|
RESET_DOC_COMMENT();
|
2000-12-19 20:57:38 +08:00
|
|
|
} else {
|
2009-05-05 09:35:44 +08:00
|
|
|
doc_com = 0;
|
2000-12-19 20:57:38 +08:00
|
|
|
}
|
1999-05-22 01:31:49 +08:00
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
while (YYCURSOR < YYLIMIT) {
|
|
|
|
if (*YYCURSOR++ == '*' && *YYCURSOR == '/') {
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
1999-05-22 01:31:49 +08:00
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
if (YYCURSOR < YYLIMIT) {
|
|
|
|
YYCURSOR++;
|
|
|
|
} else {
|
|
|
|
zend_error(E_COMPILE_WARNING, "Unterminated comment starting line %d", CG(zend_lineno));
|
|
|
|
}
|
1999-05-22 01:31:49 +08:00
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
yyleng = YYCURSOR - SCNG(yy_text);
|
2003-03-20 05:17:47 +08:00
|
|
|
HANDLE_NEWLINES(yytext, yyleng);
|
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
if (doc_com) {
|
2014-08-26 01:24:55 +08:00
|
|
|
CG(doc_comment) = zend_string_init(yytext, yyleng, 0);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_DOC_COMMENT);
|
2009-05-05 09:35:44 +08:00
|
|
|
}
|
1999-04-08 02:10:10 +08:00
|
|
|
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_COMMENT);
|
1999-05-22 01:31:49 +08:00
|
|
|
}
|
1999-04-08 02:10:10 +08:00
|
|
|
|
2014-09-10 05:14:19 +08:00
|
|
|
<ST_IN_SCRIPTING>"?>"{NEWLINE}? {
|
1999-04-08 02:10:10 +08:00
|
|
|
BEGIN(INITIAL);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_CLOSE_TAG); /* implicit ';' at php-end tag */
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
<ST_IN_SCRIPTING>b?['] {
|
1999-04-30 18:46:48 +08:00
|
|
|
register char *s, *t;
|
|
|
|
char *end;
|
2007-05-18 21:12:05 +08:00
|
|
|
int bprefix = (yytext[0] != '\'') ? 1 : 0;
|
2003-02-01 15:32:09 +08:00
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
while (1) {
|
|
|
|
if (YYCURSOR < YYLIMIT) {
|
|
|
|
if (*YYCURSOR == '\'') {
|
|
|
|
YYCURSOR++;
|
|
|
|
yyleng = YYCURSOR - SCNG(yy_text);
|
|
|
|
|
|
|
|
break;
|
|
|
|
} else if (*YYCURSOR++ == '\\' && YYCURSOR < YYLIMIT) {
|
|
|
|
YYCURSOR++;
|
|
|
|
}
|
|
|
|
} else {
|
|
|
|
yyleng = YYLIMIT - SCNG(yy_text);
|
|
|
|
|
|
|
|
/* Unclosed single quotes; treat similar to double quotes, but without a separate token
|
|
|
|
* for ' (unrecognized by parser), instead of old flex fallback to "Unexpected character..."
|
|
|
|
* rule, which continued in ST_IN_SCRIPTING state after the quote */
|
2014-09-08 19:50:53 +08:00
|
|
|
ZVAL_NULL(zendlval);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ENCAPSED_AND_WHITESPACE);
|
2009-05-05 09:35:44 +08:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2014-02-10 14:04:30 +08:00
|
|
|
ZVAL_STRINGL(zendlval, yytext+bprefix+1, yyleng-bprefix-2);
|
2003-02-01 15:32:09 +08:00
|
|
|
|
1999-04-30 18:46:48 +08:00
|
|
|
/* convert escape sequences */
|
2013-09-13 21:08:01 +08:00
|
|
|
s = t = Z_STRVAL_P(zendlval);
|
2014-08-26 01:24:55 +08:00
|
|
|
end = s+Z_STRLEN_P(zendlval);
|
1999-04-30 18:46:48 +08:00
|
|
|
while (s<end) {
|
|
|
|
if (*s=='\\') {
|
|
|
|
s++;
|
2008-05-09 18:27:51 +08:00
|
|
|
|
1999-04-30 18:46:48 +08:00
|
|
|
switch(*s) {
|
|
|
|
case '\\':
|
|
|
|
case '\'':
|
|
|
|
*t++ = *s;
|
2014-08-26 01:24:55 +08:00
|
|
|
Z_STRLEN_P(zendlval)--;
|
1999-04-30 18:46:48 +08:00
|
|
|
break;
|
|
|
|
default:
|
|
|
|
*t++ = '\\';
|
|
|
|
*t++ = *s;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
} else {
|
2007-05-18 21:12:05 +08:00
|
|
|
*t++ = *s;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (*s == '\n' || (*s == '\r' && (*(s+1) != '\n'))) {
|
|
|
|
CG(zend_lineno)++;
|
1999-04-30 18:46:48 +08:00
|
|
|
}
|
2007-05-18 21:12:05 +08:00
|
|
|
s++;
|
1999-04-30 18:46:48 +08:00
|
|
|
}
|
|
|
|
*t = 0;
|
2003-02-01 15:32:09 +08:00
|
|
|
|
2008-06-29 16:21:35 +08:00
|
|
|
if (SCNG(output_filter)) {
|
2008-07-25 06:21:41 +08:00
|
|
|
size_t sz = 0;
|
2014-04-10 22:47:47 +08:00
|
|
|
char *str = NULL;
|
2013-09-13 21:08:01 +08:00
|
|
|
s = Z_STRVAL_P(zendlval);
|
2014-04-16 01:56:30 +08:00
|
|
|
// TODO: avoid reallocation ???
|
2014-12-14 06:06:14 +08:00
|
|
|
SCNG(output_filter)((unsigned char **)&str, &sz, (unsigned char *)s, (size_t)Z_STRLEN_P(zendlval));
|
2014-04-10 22:47:47 +08:00
|
|
|
ZVAL_STRINGL(zendlval, str, sz);
|
2008-06-29 16:21:35 +08:00
|
|
|
}
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_CONSTANT_ENCAPSED_STRING);
|
1999-04-30 18:46:48 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2006-12-20 01:26:17 +08:00
|
|
|
<ST_IN_SCRIPTING>b?["] {
|
2009-05-05 09:35:44 +08:00
|
|
|
int bprefix = (yytext[0] != '"') ? 1 : 0;
|
|
|
|
|
|
|
|
while (YYCURSOR < YYLIMIT) {
|
|
|
|
switch (*YYCURSOR++) {
|
|
|
|
case '"':
|
|
|
|
yyleng = YYCURSOR - SCNG(yy_text);
|
2015-03-22 03:10:19 +08:00
|
|
|
if (zend_scan_escape_string(zendlval, yytext+bprefix+1, yyleng-bprefix-2, '"') == FAILURE) {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ERROR);
|
2015-03-22 03:10:19 +08:00
|
|
|
}
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_CONSTANT_ENCAPSED_STRING);
|
2009-05-05 09:35:44 +08:00
|
|
|
case '$':
|
|
|
|
if (IS_LABEL_START(*YYCURSOR) || *YYCURSOR == '{') {
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
continue;
|
|
|
|
case '{':
|
|
|
|
if (*YYCURSOR == '$') {
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
continue;
|
|
|
|
case '\\':
|
|
|
|
if (YYCURSOR < YYLIMIT) {
|
|
|
|
YYCURSOR++;
|
|
|
|
}
|
|
|
|
/* fall through */
|
|
|
|
default:
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
YYCURSOR--;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Remember how much was scanned to save rescanning */
|
|
|
|
SET_DOUBLE_QUOTES_SCANNED_LENGTH(YYCURSOR - SCNG(yy_text) - yyleng);
|
|
|
|
|
|
|
|
YYCURSOR = SCNG(yy_text) + yyleng;
|
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
BEGIN(ST_DOUBLE_QUOTES);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN('"');
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2008-07-26 23:30:28 +08:00
|
|
|
<ST_IN_SCRIPTING>b?"<<<"{TABS_AND_SPACES}({LABEL}|([']{LABEL}['])|(["]{LABEL}["])){NEWLINE} {
|
1999-04-10 04:47:29 +08:00
|
|
|
char *s;
|
2007-05-18 21:12:05 +08:00
|
|
|
int bprefix = (yytext[0] != '<') ? 1 : 0;
|
2012-03-31 02:41:44 +08:00
|
|
|
zend_heredoc_label *heredoc_label = emalloc(sizeof(zend_heredoc_label));
|
2009-03-26 20:37:54 +08:00
|
|
|
|
1999-06-04 05:06:03 +08:00
|
|
|
CG(zend_lineno)++;
|
2012-03-31 02:41:44 +08:00
|
|
|
heredoc_label->length = yyleng-bprefix-3-1-(yytext[yyleng-2]=='\r'?1:0);
|
2008-04-10 04:50:58 +08:00
|
|
|
s = yytext+bprefix+3;
|
1999-04-10 04:47:29 +08:00
|
|
|
while ((*s == ' ') || (*s == '\t')) {
|
|
|
|
s++;
|
2012-03-31 02:41:44 +08:00
|
|
|
heredoc_label->length--;
|
1999-04-10 04:47:29 +08:00
|
|
|
}
|
2008-04-10 04:50:58 +08:00
|
|
|
|
2008-07-26 23:30:28 +08:00
|
|
|
if (*s == '\'') {
|
2008-04-10 04:50:58 +08:00
|
|
|
s++;
|
2012-03-31 02:41:44 +08:00
|
|
|
heredoc_label->length -= 2;
|
2008-07-26 23:30:28 +08:00
|
|
|
|
|
|
|
BEGIN(ST_NOWDOC);
|
|
|
|
} else {
|
|
|
|
if (*s == '"') {
|
|
|
|
s++;
|
2012-03-31 02:41:44 +08:00
|
|
|
heredoc_label->length -= 2;
|
2008-07-26 23:30:28 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
BEGIN(ST_HEREDOC);
|
2008-04-10 04:50:58 +08:00
|
|
|
}
|
2008-07-26 23:30:28 +08:00
|
|
|
|
2012-03-31 02:41:44 +08:00
|
|
|
heredoc_label->label = estrndup(s, heredoc_label->length);
|
2008-07-26 23:30:28 +08:00
|
|
|
|
|
|
|
/* Check for ending label on the next line */
|
2012-03-31 02:41:44 +08:00
|
|
|
if (heredoc_label->length < YYLIMIT - YYCURSOR && !memcmp(YYCURSOR, s, heredoc_label->length)) {
|
|
|
|
YYCTYPE *end = YYCURSOR + heredoc_label->length;
|
2008-07-26 23:30:28 +08:00
|
|
|
|
|
|
|
if (*end == ';') {
|
|
|
|
end++;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (*end == '\n' || *end == '\r') {
|
|
|
|
BEGIN(ST_END_HEREDOC);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2012-03-31 02:41:44 +08:00
|
|
|
zend_ptr_stack_push(&SCNG(heredoc_label_stack), (void *) heredoc_label);
|
|
|
|
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_START_HEREDOC);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
2003-02-01 15:32:09 +08:00
|
|
|
|
1999-04-08 02:10:10 +08:00
|
|
|
|
1999-05-22 01:31:49 +08:00
|
|
|
<ST_IN_SCRIPTING>[`] {
|
|
|
|
BEGIN(ST_BACKQUOTE);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN('`');
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2007-05-18 21:12:05 +08:00
|
|
|
<ST_END_HEREDOC>{ANY_CHAR} {
|
2012-03-31 02:41:44 +08:00
|
|
|
zend_heredoc_label *heredoc_label = zend_ptr_stack_pop(&SCNG(heredoc_label_stack));
|
|
|
|
|
|
|
|
YYCURSOR += heredoc_label->length - 1;
|
|
|
|
yyleng = heredoc_label->length;
|
|
|
|
|
|
|
|
heredoc_label_dtor(heredoc_label);
|
|
|
|
efree(heredoc_label);
|
2008-07-26 23:30:28 +08:00
|
|
|
|
2007-05-18 21:12:05 +08:00
|
|
|
BEGIN(ST_IN_SCRIPTING);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_END_HEREDOC);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2005-11-27 14:39:31 +08:00
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
<ST_DOUBLE_QUOTES,ST_BACKQUOTE,ST_HEREDOC>"{$" {
|
2014-08-26 01:24:55 +08:00
|
|
|
Z_LVAL_P(zendlval) = (zend_long) '{';
|
2014-12-14 06:06:14 +08:00
|
|
|
yy_push_state(ST_IN_SCRIPTING);
|
2009-05-05 09:35:44 +08:00
|
|
|
yyless(1);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_CURLY_OPEN);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
1999-05-01 01:29:18 +08:00
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
<ST_DOUBLE_QUOTES>["] {
|
|
|
|
BEGIN(ST_IN_SCRIPTING);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN('"');
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
<ST_BACKQUOTE>[`] {
|
|
|
|
BEGIN(ST_IN_SCRIPTING);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN('`');
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
<ST_DOUBLE_QUOTES>{ANY_CHAR} {
|
|
|
|
if (GET_DOUBLE_QUOTES_SCANNED_LENGTH()) {
|
|
|
|
YYCURSOR += GET_DOUBLE_QUOTES_SCANNED_LENGTH() - 1;
|
|
|
|
SET_DOUBLE_QUOTES_SCANNED_LENGTH(0);
|
1999-04-08 02:10:10 +08:00
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
goto double_quotes_scan_done;
|
|
|
|
}
|
1999-04-08 02:10:10 +08:00
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
if (YYCURSOR > YYLIMIT) {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(END);
|
2009-05-05 09:35:44 +08:00
|
|
|
}
|
|
|
|
if (yytext[0] == '\\' && YYCURSOR < YYLIMIT) {
|
|
|
|
YYCURSOR++;
|
|
|
|
}
|
1999-04-08 02:10:10 +08:00
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
while (YYCURSOR < YYLIMIT) {
|
|
|
|
switch (*YYCURSOR++) {
|
|
|
|
case '"':
|
|
|
|
break;
|
|
|
|
case '$':
|
|
|
|
if (IS_LABEL_START(*YYCURSOR) || *YYCURSOR == '{') {
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
continue;
|
|
|
|
case '{':
|
|
|
|
if (*YYCURSOR == '$') {
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
continue;
|
|
|
|
case '\\':
|
|
|
|
if (YYCURSOR < YYLIMIT) {
|
|
|
|
YYCURSOR++;
|
|
|
|
}
|
|
|
|
/* fall through */
|
|
|
|
default:
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
YYCURSOR--;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
double_quotes_scan_done:
|
|
|
|
yyleng = YYCURSOR - SCNG(yy_text);
|
|
|
|
|
2015-03-22 03:10:19 +08:00
|
|
|
if (zend_scan_escape_string(zendlval, yytext, yyleng, '"') == FAILURE) {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ERROR);
|
2015-03-22 03:10:19 +08:00
|
|
|
}
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ENCAPSED_AND_WHITESPACE);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
|
|
|
|
<ST_BACKQUOTE>{ANY_CHAR} {
|
|
|
|
if (YYCURSOR > YYLIMIT) {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(END);
|
2009-05-05 09:35:44 +08:00
|
|
|
}
|
|
|
|
if (yytext[0] == '\\' && YYCURSOR < YYLIMIT) {
|
|
|
|
YYCURSOR++;
|
|
|
|
}
|
|
|
|
|
|
|
|
while (YYCURSOR < YYLIMIT) {
|
|
|
|
switch (*YYCURSOR++) {
|
|
|
|
case '`':
|
|
|
|
break;
|
|
|
|
case '$':
|
|
|
|
if (IS_LABEL_START(*YYCURSOR) || *YYCURSOR == '{') {
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
continue;
|
|
|
|
case '{':
|
|
|
|
if (*YYCURSOR == '$') {
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
continue;
|
|
|
|
case '\\':
|
|
|
|
if (YYCURSOR < YYLIMIT) {
|
|
|
|
YYCURSOR++;
|
|
|
|
}
|
|
|
|
/* fall through */
|
|
|
|
default:
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
YYCURSOR--;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
yyleng = YYCURSOR - SCNG(yy_text);
|
|
|
|
|
2015-03-22 03:10:19 +08:00
|
|
|
if (zend_scan_escape_string(zendlval, yytext, yyleng, '`') == FAILURE) {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ERROR);
|
2015-03-22 03:10:19 +08:00
|
|
|
}
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ENCAPSED_AND_WHITESPACE);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
<ST_HEREDOC>{ANY_CHAR} {
|
|
|
|
int newline = 0;
|
2008-02-12 17:27:45 +08:00
|
|
|
|
2012-03-31 02:41:44 +08:00
|
|
|
zend_heredoc_label *heredoc_label = zend_ptr_stack_top(&SCNG(heredoc_label_stack));
|
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
if (YYCURSOR > YYLIMIT) {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(END);
|
2008-02-12 17:27:45 +08:00
|
|
|
}
|
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
YYCURSOR--;
|
2008-02-12 17:27:45 +08:00
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
while (YYCURSOR < YYLIMIT) {
|
|
|
|
switch (*YYCURSOR++) {
|
|
|
|
case '\r':
|
|
|
|
if (*YYCURSOR == '\n') {
|
|
|
|
YYCURSOR++;
|
|
|
|
}
|
|
|
|
/* fall through */
|
|
|
|
case '\n':
|
|
|
|
/* Check for ending label on the next line */
|
2012-03-31 02:41:44 +08:00
|
|
|
if (IS_LABEL_START(*YYCURSOR) && heredoc_label->length < YYLIMIT - YYCURSOR && !memcmp(YYCURSOR, heredoc_label->label, heredoc_label->length)) {
|
|
|
|
YYCTYPE *end = YYCURSOR + heredoc_label->length;
|
2008-02-12 17:27:45 +08:00
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
if (*end == ';') {
|
|
|
|
end++;
|
|
|
|
}
|
2008-02-12 17:27:45 +08:00
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
if (*end == '\n' || *end == '\r') {
|
|
|
|
/* newline before label will be subtracted from returned text, but
|
|
|
|
* yyleng/yytext will include it, for zend_highlight/strip, tokenizer, etc. */
|
|
|
|
if (YYCURSOR[-2] == '\r' && YYCURSOR[-1] == '\n') {
|
|
|
|
newline = 2; /* Windows newline */
|
|
|
|
} else {
|
|
|
|
newline = 1;
|
|
|
|
}
|
2008-02-12 17:27:45 +08:00
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
CG(increment_lineno) = 1; /* For newline before label */
|
|
|
|
BEGIN(ST_END_HEREDOC);
|
|
|
|
|
|
|
|
goto heredoc_scan_done;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
continue;
|
|
|
|
case '$':
|
|
|
|
if (IS_LABEL_START(*YYCURSOR) || *YYCURSOR == '{') {
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
continue;
|
|
|
|
case '{':
|
|
|
|
if (*YYCURSOR == '$') {
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
continue;
|
|
|
|
case '\\':
|
|
|
|
if (YYCURSOR < YYLIMIT && *YYCURSOR != '\n' && *YYCURSOR != '\r') {
|
|
|
|
YYCURSOR++;
|
|
|
|
}
|
|
|
|
/* fall through */
|
|
|
|
default:
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
YYCURSOR--;
|
|
|
|
break;
|
2008-02-12 17:27:45 +08:00
|
|
|
}
|
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
heredoc_scan_done:
|
|
|
|
yyleng = YYCURSOR - SCNG(yy_text);
|
2008-02-12 17:27:45 +08:00
|
|
|
|
2015-03-22 03:10:19 +08:00
|
|
|
if (zend_scan_escape_string(zendlval, yytext, yyleng - newline, 0) == FAILURE) {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ERROR);
|
2015-03-22 03:10:19 +08:00
|
|
|
}
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ENCAPSED_AND_WHITESPACE);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
<ST_NOWDOC>{ANY_CHAR} {
|
|
|
|
int newline = 0;
|
|
|
|
|
2012-03-31 02:41:44 +08:00
|
|
|
zend_heredoc_label *heredoc_label = zend_ptr_stack_top(&SCNG(heredoc_label_stack));
|
|
|
|
|
2009-05-05 09:35:44 +08:00
|
|
|
if (YYCURSOR > YYLIMIT) {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(END);
|
2009-05-05 09:35:44 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
YYCURSOR--;
|
|
|
|
|
|
|
|
while (YYCURSOR < YYLIMIT) {
|
|
|
|
switch (*YYCURSOR++) {
|
|
|
|
case '\r':
|
|
|
|
if (*YYCURSOR == '\n') {
|
|
|
|
YYCURSOR++;
|
|
|
|
}
|
|
|
|
/* fall through */
|
|
|
|
case '\n':
|
|
|
|
/* Check for ending label on the next line */
|
2012-03-31 02:41:44 +08:00
|
|
|
if (IS_LABEL_START(*YYCURSOR) && heredoc_label->length < YYLIMIT - YYCURSOR && !memcmp(YYCURSOR, heredoc_label->label, heredoc_label->length)) {
|
|
|
|
YYCTYPE *end = YYCURSOR + heredoc_label->length;
|
2009-05-05 09:35:44 +08:00
|
|
|
|
|
|
|
if (*end == ';') {
|
|
|
|
end++;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (*end == '\n' || *end == '\r') {
|
|
|
|
/* newline before label will be subtracted from returned text, but
|
|
|
|
* yyleng/yytext will include it, for zend_highlight/strip, tokenizer, etc. */
|
|
|
|
if (YYCURSOR[-2] == '\r' && YYCURSOR[-1] == '\n') {
|
|
|
|
newline = 2; /* Windows newline */
|
|
|
|
} else {
|
|
|
|
newline = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
CG(increment_lineno) = 1; /* For newline before label */
|
|
|
|
BEGIN(ST_END_HEREDOC);
|
|
|
|
|
|
|
|
goto nowdoc_scan_done;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
/* fall through */
|
|
|
|
default:
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
nowdoc_scan_done:
|
|
|
|
yyleng = YYCURSOR - SCNG(yy_text);
|
|
|
|
|
|
|
|
zend_copy_value(zendlval, yytext, yyleng - newline);
|
|
|
|
HANDLE_NEWLINES(yytext, yyleng - newline);
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(T_ENCAPSED_AND_WHITESPACE);
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2007-05-18 21:12:05 +08:00
|
|
|
<ST_IN_SCRIPTING,ST_VAR_OFFSET>{ANY_CHAR} {
|
2009-05-05 09:35:44 +08:00
|
|
|
if (YYCURSOR > YYLIMIT) {
|
2015-04-05 19:50:35 +08:00
|
|
|
RETURN_TOKEN(END);
|
2009-05-05 09:35:44 +08:00
|
|
|
}
|
|
|
|
|
2001-08-11 23:56:40 +08:00
|
|
|
zend_error(E_COMPILE_WARNING,"Unexpected character in input: '%c' (ASCII=%d) state=%d", yytext[0], yytext[0], YYSTATE);
|
2008-03-17 05:06:55 +08:00
|
|
|
goto restart;
|
|
|
|
}
|
|
|
|
|
|
|
|
*/
|
1999-04-08 02:10:10 +08:00
|
|
|
}
|