mirror of
https://github.com/php/php-src.git
synced 2024-11-24 10:24:11 +08:00
1600 lines
33 KiB
Plaintext
1600 lines
33 KiB
Plaintext
%{
|
|
|
|
/*
|
|
+----------------------------------------------------------------------+
|
|
| Zend Engine |
|
|
+----------------------------------------------------------------------+
|
|
| Copyright (c) 1998-2001 Zend Technologies Ltd. (http://www.zend.com) |
|
|
+----------------------------------------------------------------------+
|
|
| This source file is subject to version 0.92 of the Zend license, |
|
|
| that is bundled with this package in the file LICENSE, and is |
|
|
| available at through the world-wide-web at |
|
|
| http://www.zend.com/license/0_92.txt. |
|
|
| If you did not receive a copy of the Zend license and are unable to |
|
|
| obtain it through the world-wide-web, please send a note to |
|
|
| license@zend.com so we can mail you a copy immediately. |
|
|
+----------------------------------------------------------------------+
|
|
| Authors: Andi Gutmans <andi@zend.com> |
|
|
| Zeev Suraski <zeev@zend.com> |
|
|
+----------------------------------------------------------------------+
|
|
*/
|
|
|
|
%}
|
|
|
|
%x ST_IN_SCRIPTING
|
|
%x ST_DOUBLE_QUOTES
|
|
%x ST_SINGLE_QUOTE
|
|
%x ST_BACKQUOTE
|
|
%x ST_HEREDOC
|
|
%x ST_LOOKING_FOR_PROPERTY
|
|
%x ST_LOOKING_FOR_VARNAME
|
|
%x ST_COMMENT
|
|
%x ST_ONE_LINE_COMMENT
|
|
%option stack
|
|
|
|
%{
|
|
|
|
#ifdef ZEND_WIN32
|
|
#include <io.h>
|
|
#endif
|
|
|
|
#include <errno.h>
|
|
#include "zend.h"
|
|
#include "zend_alloc.h"
|
|
#include "zend_language_parser.h"
|
|
#include "zend_compile.h"
|
|
#include "zend_language_scanner.h"
|
|
#include "zend_highlight.h"
|
|
#include "zend_constants.h"
|
|
#include "zend_variables.h"
|
|
#include "zend_operators.h"
|
|
|
|
#ifdef ZTS
|
|
# include <fstream.h>
|
|
# ifdef HAVE_STDIOSTR_H
|
|
# include <stdiostr.h>
|
|
# endif
|
|
# ifdef HAVE_STDIOSTREAM_H
|
|
# include <stdiostream.h>
|
|
# endif
|
|
# ifdef ZEND_WIN32
|
|
# include <strstrea.h>
|
|
# else
|
|
# include <strstream.h>
|
|
# endif
|
|
#endif
|
|
|
|
#ifdef HAVE_STDARG_H
|
|
# include <stdarg.h>
|
|
#endif
|
|
|
|
#ifdef HAVE_UNISTD_H
|
|
# include <unistd.h>
|
|
#endif
|
|
|
|
#ifdef ZTS
|
|
#define YY_DECL int ZendFlexLexer::lex_scan(zval *zendlval TSRMLS_DC)
|
|
#else
|
|
#define YY_DECL int lex_scan(zval *zendlval TSRMLS_DC)
|
|
#endif
|
|
|
|
#define YY_INTERACTIVE
|
|
|
|
#define ECHO { ZEND_WRITE( yytext, yyleng ); }
|
|
|
|
#ifdef ZTS
|
|
# define MY_INPUT yyinput
|
|
#else
|
|
# define MY_INPUT input
|
|
#endif
|
|
|
|
#include "zend_istdiostream.h"
|
|
|
|
#define YY_FATAL_ERROR zend_fatal_scanner_error
|
|
|
|
#define HANDLE_NEWLINES(s,l) \
|
|
do { \
|
|
char *p = (s),*boundary = p+(l); \
|
|
\
|
|
while (p<boundary) { \
|
|
if (*p == '\n') { \
|
|
CG(zend_lineno)++; \
|
|
} else if ((*p == '\r') && (p+1 < boundary) && (*(p+1) != '\n')) { \
|
|
CG(zend_lineno)++; \
|
|
} \
|
|
p++; \
|
|
} \
|
|
} while (0)
|
|
|
|
#define HANDLE_NEWLINE(c) \
|
|
{ \
|
|
if (c == '\n' || c == '\r') { \
|
|
CG(zend_lineno)++; \
|
|
} \
|
|
}
|
|
|
|
|
|
#define ZEND_IS_OCT(c) ((c)>='0' && (c)<='7')
|
|
#define ZEND_IS_HEX(c) (((c)>='0' && (c)<='9') || ((c)>='a' && (c)<='f') || ((c)>='A' && (c)<='F'))
|
|
|
|
|
|
void zend_fatal_scanner_error(char *message)
|
|
{
|
|
zend_error(E_COMPILE_ERROR, message);
|
|
}
|
|
|
|
BEGIN_EXTERN_C()
|
|
void startup_scanner(TSRMLS_D)
|
|
{
|
|
CG(heredoc) = NULL;
|
|
CG(heredoc_len)=0;
|
|
}
|
|
|
|
|
|
void shutdown_scanner(TSRMLS_D)
|
|
{
|
|
if (CG(heredoc)) {
|
|
efree(CG(heredoc));
|
|
CG(heredoc_len)=0;
|
|
}
|
|
}
|
|
END_EXTERN_C()
|
|
|
|
|
|
static inline void save_lexical_state(zend_lex_state *lex_state TSRMLS_DC)
|
|
{
|
|
#ifndef ZTS
|
|
memcpy(&lex_state->buffer_state,&YY_CURRENT_BUFFER,sizeof(YY_BUFFER_STATE));
|
|
lex_state->in = yyin;
|
|
lex_state->state = YYSTATE;
|
|
#else
|
|
lex_state->ZFL = CG(ZFL);
|
|
#endif
|
|
lex_state->filename = zend_get_compiled_filename(TSRMLS_C);
|
|
lex_state->lineno = CG(zend_lineno);
|
|
}
|
|
|
|
|
|
static inline void restore_lexical_state(zend_lex_state *lex_state TSRMLS_DC)
|
|
{
|
|
#ifndef ZTS
|
|
YY_BUFFER_STATE original_buffer_state = YY_CURRENT_BUFFER;
|
|
|
|
if (lex_state->buffer_state) {
|
|
yy_switch_to_buffer(lex_state->buffer_state);
|
|
} else {
|
|
YY_CURRENT_BUFFER = NULL;
|
|
}
|
|
|
|
yy_delete_buffer(original_buffer_state);
|
|
yyin = lex_state->in;
|
|
BEGIN(lex_state->state);
|
|
#else
|
|
delete((ZendFlexLexer *) CG(ZFL));
|
|
CG(ZFL) = lex_state->ZFL;
|
|
#endif
|
|
CG(zend_lineno) = lex_state->lineno;
|
|
zend_restore_compiled_filename(lex_state->filename);
|
|
}
|
|
|
|
|
|
BEGIN_EXTERN_C()
|
|
|
|
|
|
ZEND_API void zend_file_handle_dtor(zend_file_handle *fh)
|
|
{
|
|
switch (fh->type) {
|
|
case ZEND_HANDLE_FP:
|
|
fclose(fh->handle.fp);
|
|
break;
|
|
case ZEND_HANDLE_FILENAME:
|
|
/* We're only supposed to get here when destructing the used_files hash,
|
|
* which doesn't really contain open files, but references to their names/paths
|
|
*/
|
|
break;
|
|
#ifdef ZTS
|
|
case ZEND_HANDLE_FSTREAM:
|
|
delete ((ifstream *) fh->handle.is);
|
|
break;
|
|
case ZEND_HANDLE_STDIOSTREAM:
|
|
istdiostream *pstdiostream = (istdiostream *) fh->handle.is;
|
|
|
|
fclose(pstdiostream->rdbuf()->stdiofile());
|
|
delete pstdiostream;
|
|
break;
|
|
#endif
|
|
}
|
|
if (fh->opened_path) {
|
|
efree(fh->opened_path);
|
|
}
|
|
if (fh->free_filename && fh->filename) {
|
|
efree(fh->filename);
|
|
}
|
|
}
|
|
|
|
|
|
int zend_compare_file_handles(zend_file_handle *fh1, zend_file_handle *fh2)
|
|
{
|
|
if (fh1->type != fh2->type) {
|
|
return 0;
|
|
}
|
|
switch (fh1->type) {
|
|
case ZEND_HANDLE_FP:
|
|
return fh1->handle.fp==fh2->handle.fp;
|
|
break;
|
|
#ifdef ZTS
|
|
case ZEND_HANDLE_FSTREAM:
|
|
case ZEND_HANDLE_STDIOSTREAM:
|
|
return fh1->handle.is==fh2->handle.is;
|
|
break;
|
|
#endif
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
|
|
ZEND_API void zend_destroy_file_handle(zend_file_handle *file_handle TSRMLS_DC)
|
|
{
|
|
zend_llist_del_element(&CG(open_files), file_handle, (int (*)(void *, void *)) zend_compare_file_handles);
|
|
}
|
|
|
|
|
|
ZEND_API int open_file_for_scanning(zend_file_handle *file_handle TSRMLS_DC)
|
|
{
|
|
char *file_path=NULL;
|
|
|
|
#ifndef ZTS
|
|
switch (file_handle->type) {
|
|
case ZEND_HANDLE_FILENAME:
|
|
file_handle->handle.fp = zend_fopen(file_handle->filename, &file_handle->opened_path);
|
|
break;
|
|
case ZEND_HANDLE_FD:
|
|
file_handle->handle.fp = fdopen(file_handle->handle.fd, "r");
|
|
break;
|
|
case ZEND_HANDLE_FP:
|
|
file_handle->handle.fp = file_handle->handle.fp;
|
|
break;
|
|
}
|
|
if (!file_handle->handle.fp) {
|
|
return FAILURE;
|
|
}
|
|
|
|
file_handle->type = ZEND_HANDLE_FP;
|
|
if (file_handle->handle.fp != stdin) {
|
|
zend_llist_add_element(&CG(open_files), file_handle);
|
|
}
|
|
/* Reset the scanner for scanning the new file */
|
|
yyin = file_handle->handle.fp;
|
|
yy_switch_to_buffer(yy_create_buffer(yyin, YY_BUF_SIZE));
|
|
BEGIN(INITIAL);
|
|
#else
|
|
switch (file_handle->type) {
|
|
case ZEND_HANDLE_FD:
|
|
file_handle->handle.is = new ifstream(file_handle->handle.fd);
|
|
file_handle->type = ZEND_HANDLE_FSTREAM;
|
|
break;
|
|
case ZEND_HANDLE_FILENAME:
|
|
{
|
|
file_handle->handle.fp = zend_fopen(file_handle->filename, &file_handle->opened_path);
|
|
if (!file_handle->handle.fp) {
|
|
return FAILURE;
|
|
}
|
|
file_handle->handle.is = new istdiostream(file_handle->handle.fp);
|
|
file_handle->type = ZEND_HANDLE_STDIOSTREAM;
|
|
break;
|
|
}
|
|
case ZEND_HANDLE_FP:
|
|
if (file_handle->handle.fp==stdin) {
|
|
file_handle->handle.is = &cin;
|
|
} else {
|
|
if (!file_handle->handle.fp) {
|
|
return FAILURE;
|
|
}
|
|
file_handle->handle.is = new istdiostream(file_handle->handle.fp);
|
|
file_handle->type = ZEND_HANDLE_STDIOSTREAM;
|
|
}
|
|
break;
|
|
}
|
|
|
|
if (file_handle->handle.is->fail()) {
|
|
delete file_handle->handle.is;
|
|
return FAILURE;
|
|
}
|
|
if (file_handle->handle.is != &cin) {
|
|
zend_llist_add_element(&CG(open_files), file_handle);
|
|
}
|
|
|
|
CG(ZFL) = new ZendFlexLexer;
|
|
CG(ZFL)->switch_streams(file_handle->handle.is, &cout);
|
|
#endif
|
|
|
|
if (file_handle->opened_path) {
|
|
file_path = file_handle->opened_path;
|
|
} else {
|
|
file_path = file_handle->filename;
|
|
}
|
|
|
|
zend_set_compiled_filename(file_path);
|
|
CG(zend_lineno) = 1;
|
|
return SUCCESS;
|
|
}
|
|
END_EXTERN_C()
|
|
|
|
|
|
ZEND_API zend_op_array *compile_file(zend_file_handle *file_handle, int type TSRMLS_DC)
|
|
{
|
|
zend_lex_state original_lex_state;
|
|
zend_op_array *op_array = (zend_op_array *) emalloc(sizeof(zend_op_array));
|
|
zend_op_array *original_active_op_array = CG(active_op_array);
|
|
zend_op_array *retval=NULL;
|
|
int compiler_result;
|
|
zend_bool compilation_successful=0;
|
|
znode retval_znode;
|
|
zend_bool original_in_compilation = CG(in_compilation);
|
|
|
|
retval_znode.op_type = IS_CONST;
|
|
retval_znode.u.constant.type = IS_LONG;
|
|
retval_znode.u.constant.value.lval = 1;
|
|
retval_znode.u.constant.is_ref = 0;
|
|
retval_znode.u.constant.refcount = 1;
|
|
|
|
save_lexical_state(&original_lex_state TSRMLS_CC);
|
|
|
|
retval = op_array; /* success oriented */
|
|
|
|
if (open_file_for_scanning(file_handle TSRMLS_CC)==FAILURE) {
|
|
if (type==ZEND_REQUIRE) {
|
|
zend_message_dispatcher(ZMSG_FAILED_REQUIRE_FOPEN, file_handle->filename);
|
|
zend_bailout();
|
|
} else {
|
|
zend_message_dispatcher(ZMSG_FAILED_INCLUDE_FOPEN, file_handle->filename);
|
|
}
|
|
compilation_successful=0;
|
|
} else {
|
|
init_op_array(op_array, ZEND_USER_FUNCTION, INITIAL_OP_ARRAY_SIZE TSRMLS_CC);
|
|
CG(in_compilation) = 1;
|
|
CG(active_op_array) = op_array;
|
|
compiler_result = zendparse(TSRMLS_C);
|
|
zend_do_return(&retval_znode, 0 TSRMLS_CC);
|
|
CG(in_compilation) = original_in_compilation;
|
|
if (compiler_result==1) { /* parser error */
|
|
CG(unclean_shutdown) = 1;
|
|
retval = NULL;
|
|
}
|
|
compilation_successful=1;
|
|
}
|
|
|
|
if (retval) {
|
|
CG(active_op_array) = original_active_op_array;
|
|
if (compilation_successful) {
|
|
pass_two(op_array);
|
|
} else {
|
|
efree(op_array);
|
|
retval = NULL;
|
|
}
|
|
}
|
|
if (compilation_successful) {
|
|
restore_lexical_state(&original_lex_state TSRMLS_CC);
|
|
}
|
|
return retval;
|
|
}
|
|
|
|
|
|
zend_op_array *compile_filename(int type, zval *filename TSRMLS_DC)
|
|
{
|
|
zend_file_handle file_handle;
|
|
zval tmp;
|
|
zend_op_array *retval;
|
|
|
|
if (filename->type != IS_STRING) {
|
|
tmp = *filename;
|
|
zval_copy_ctor(&tmp);
|
|
convert_to_string(&tmp);
|
|
filename = &tmp;
|
|
}
|
|
file_handle.filename = filename->value.str.val;
|
|
file_handle.free_filename = 0;
|
|
file_handle.type = ZEND_HANDLE_FILENAME;
|
|
file_handle.opened_path = NULL;
|
|
|
|
|
|
retval = zend_compile_file(&file_handle, type TSRMLS_CC);
|
|
if (retval && file_handle.opened_path) {
|
|
int dummy = 1;
|
|
zend_hash_add(&EG(included_files), file_handle.opened_path, strlen(file_handle.opened_path)+1, (void *)&dummy, sizeof(int), NULL);
|
|
}
|
|
zend_destroy_file_handle(&file_handle TSRMLS_CC);
|
|
|
|
if (filename==&tmp) {
|
|
zval_dtor(&tmp);
|
|
}
|
|
return retval;
|
|
}
|
|
|
|
#ifndef ZTS
|
|
static inline int prepare_string_for_scanning(zval *str, char *filename)
|
|
#else
|
|
static inline int prepare_string_for_scanning(zval *str, istrstream **input_stream, char *filename TSRMLS_DC)
|
|
#endif
|
|
{
|
|
#ifndef ZTS
|
|
/* enforce two trailing NULLs for flex... */
|
|
STR_REALLOC(str->value.str.val, str->value.str.len+2);
|
|
|
|
str->value.str.val[str->value.str.len+1]=0;
|
|
|
|
yyin=NULL;
|
|
yy_scan_buffer(str->value.str.val, str->value.str.len+2);
|
|
#else
|
|
*input_stream = new istrstream(str->value.str.val, str->value.str.len);
|
|
CG(ZFL) = new ZendFlexLexer;
|
|
|
|
CG(ZFL)->switch_streams(*input_stream, &cout);
|
|
#endif
|
|
zend_set_compiled_filename(filename);
|
|
CG(zend_lineno) = 1;
|
|
return SUCCESS;
|
|
}
|
|
|
|
|
|
zend_op_array *compile_string(zval *source_string, char *filename TSRMLS_DC)
|
|
{
|
|
zend_lex_state original_lex_state;
|
|
zend_op_array *op_array = (zend_op_array *) emalloc(sizeof(zend_op_array));
|
|
zend_op_array *original_active_op_array = CG(active_op_array);
|
|
zend_op_array *retval;
|
|
zval tmp;
|
|
int compiler_result;
|
|
zend_bool original_in_compilation = CG(in_compilation);
|
|
#ifdef ZTS
|
|
istrstream *input_stream;
|
|
#endif
|
|
|
|
if (source_string->value.str.len==0) {
|
|
efree(op_array);
|
|
return NULL;
|
|
}
|
|
|
|
CG(in_compilation) = 1;
|
|
|
|
tmp = *source_string;
|
|
zval_copy_ctor(&tmp);
|
|
convert_to_string(&tmp);
|
|
source_string = &tmp;
|
|
|
|
save_lexical_state(&original_lex_state TSRMLS_CC);
|
|
#ifndef ZTS
|
|
if (prepare_string_for_scanning(source_string, filename)==FAILURE) {
|
|
#else
|
|
if (prepare_string_for_scanning(source_string, &input_stream, filename TSRMLS_CC)==FAILURE) {
|
|
#endif
|
|
efree(op_array);
|
|
retval = NULL;
|
|
} else {
|
|
init_op_array(op_array, ZEND_EVAL_CODE, INITIAL_OP_ARRAY_SIZE TSRMLS_CC);
|
|
CG(active_op_array) = op_array;
|
|
#ifndef ZTS
|
|
BEGIN(ST_IN_SCRIPTING);
|
|
#else
|
|
CG(ZFL)->BeginState(ST_IN_SCRIPTING);
|
|
#endif
|
|
compiler_result = zendparse(TSRMLS_C);
|
|
|
|
if (compiler_result==1) {
|
|
CG(active_op_array) = original_active_op_array;
|
|
CG(unclean_shutdown)=1;
|
|
retval = NULL;
|
|
} else {
|
|
zend_do_return(NULL, 0 TSRMLS_CC);
|
|
CG(active_op_array) = original_active_op_array;
|
|
pass_two(op_array);
|
|
retval = op_array;
|
|
}
|
|
restore_lexical_state(&original_lex_state TSRMLS_CC);
|
|
}
|
|
#ifdef ZTS
|
|
delete input_stream;
|
|
#endif
|
|
zval_dtor(&tmp);
|
|
CG(in_compilation) = original_in_compilation;
|
|
return retval;
|
|
}
|
|
|
|
|
|
BEGIN_EXTERN_C()
|
|
int highlight_file(char *filename, zend_syntax_highlighter_ini *syntax_highlighter_ini TSRMLS_DC)
|
|
{
|
|
zend_lex_state original_lex_state;
|
|
zend_file_handle file_handle;
|
|
|
|
file_handle.type = ZEND_HANDLE_FILENAME;
|
|
file_handle.filename = filename;
|
|
file_handle.free_filename = 0;
|
|
file_handle.opened_path = NULL;
|
|
save_lexical_state(&original_lex_state TSRMLS_CC);
|
|
if (open_file_for_scanning(&file_handle TSRMLS_CC)==FAILURE) {
|
|
zend_message_dispatcher(ZMSG_FAILED_HIGHLIGHT_FOPEN, filename);
|
|
return FAILURE;
|
|
}
|
|
zend_highlight(syntax_highlighter_ini);
|
|
zend_destroy_file_handle(&file_handle TSRMLS_CC);
|
|
restore_lexical_state(&original_lex_state TSRMLS_CC);
|
|
return SUCCESS;
|
|
}
|
|
|
|
int highlight_string(zval *str, zend_syntax_highlighter_ini *syntax_highlighter_ini, char *str_name TSRMLS_DC)
|
|
{
|
|
zend_lex_state original_lex_state;
|
|
zval tmp = *str;
|
|
#ifdef ZTS
|
|
istrstream *input_stream;
|
|
#endif
|
|
|
|
str = &tmp;
|
|
zval_copy_ctor(str);
|
|
save_lexical_state(&original_lex_state TSRMLS_CC);
|
|
#ifndef ZTS
|
|
if (prepare_string_for_scanning(str, str_name)==FAILURE) {
|
|
#else
|
|
if (prepare_string_for_scanning(str, &input_stream, str_name TSRMLS_CC)==FAILURE) {
|
|
#endif
|
|
return FAILURE;
|
|
}
|
|
zend_highlight(syntax_highlighter_ini);
|
|
restore_lexical_state(&original_lex_state TSRMLS_CC);
|
|
#ifdef ZTS
|
|
delete input_stream;
|
|
#endif
|
|
zval_dtor(str);
|
|
return SUCCESS;
|
|
}
|
|
END_EXTERN_C()
|
|
|
|
#ifdef ZTS
|
|
BEGIN_EXTERN_C()
|
|
int lex_scan(zval *zendlval TSRMLS_DC)
|
|
{
|
|
return CG(ZFL)->lex_scan(zendlval TSRMLS_CC);
|
|
}
|
|
|
|
|
|
const char *zend_get_zendtext(TSRMLS_D)
|
|
{
|
|
return CG(ZFL)->YYText();
|
|
}
|
|
|
|
|
|
int zend_get_zendleng(TSRMLS_D)
|
|
{
|
|
return CG(ZFL)->YYLeng();
|
|
}
|
|
END_EXTERN_C()
|
|
|
|
|
|
void ZendFlexLexer::BeginState(int state)
|
|
{
|
|
BEGIN(state);
|
|
}
|
|
|
|
|
|
ZendFlexLexer::~ZendFlexLexer()
|
|
{
|
|
if (yy_start_stack) {
|
|
yy_flex_free(yy_start_stack);
|
|
}
|
|
}
|
|
|
|
|
|
int yyFlexLexer::yylex()
|
|
{
|
|
fprintf(stderr, "Error: yyFlexLexer::yylex() called\n");
|
|
return -1;
|
|
}
|
|
|
|
#endif
|
|
|
|
%}
|
|
|
|
LNUM [0-9]+
|
|
DNUM ([0-9]*[\.][0-9]+)|([0-9]+[\.][0-9]*)
|
|
EXPONENT_DNUM (({LNUM}|{DNUM})[eE][+-]?{LNUM})
|
|
HNUM "0x"[0-9a-fA-F]+
|
|
LABEL [a-zA-Z_\x7f-\xff][a-zA-Z0-9_\x7f-\xff]*
|
|
WHITESPACE [ \n\r\t]+
|
|
TABS_AND_SPACES [ \t]*
|
|
TOKENS [;:,.\[\]()|^&+-/*=%!~$<>?@]
|
|
ENCAPSED_TOKENS [\[\]{}$]
|
|
ESCAPED_AND_WHITESPACE [\n\t\r #'.:;,()|^&+-/*=%!~<>?@]+
|
|
ANY_CHAR (.|[\n])
|
|
NEWLINE ("\r"|"\n"|"\r\n")
|
|
|
|
%option noyylineno
|
|
%option noyywrap
|
|
%%
|
|
|
|
<ST_IN_SCRIPTING>"exit" {
|
|
return T_EXIT;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"die" {
|
|
return T_EXIT;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"old_function" {
|
|
return T_OLD_FUNCTION;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"function"|"cfunction" {
|
|
return T_FUNCTION;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"const" {
|
|
return T_CONST;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"return" {
|
|
return T_RETURN;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"if" {
|
|
return T_IF;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"elseif" {
|
|
return T_ELSEIF;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"endif" {
|
|
return T_ENDIF;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"else" {
|
|
return T_ELSE;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"while" {
|
|
return T_WHILE;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"endwhile" {
|
|
return T_ENDWHILE;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"do" {
|
|
return T_DO;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"for" {
|
|
return T_FOR;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"endfor" {
|
|
return T_ENDFOR;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"foreach" {
|
|
return T_FOREACH;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"endforeach" {
|
|
return T_ENDFOREACH;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"declare" {
|
|
return T_DECLARE;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"enddeclare" {
|
|
return T_ENDDECLARE;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"as" {
|
|
return T_AS;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"switch" {
|
|
return T_SWITCH;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"endswitch" {
|
|
return T_ENDSWITCH;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"case" {
|
|
return T_CASE;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"default" {
|
|
return T_DEFAULT;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"break" {
|
|
return T_BREAK;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"continue" {
|
|
return T_CONTINUE;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"echo" {
|
|
return T_ECHO;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"print" {
|
|
return T_PRINT;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"class" {
|
|
return T_CLASS;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"extends" {
|
|
return T_EXTENDS;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING,ST_DOUBLE_QUOTES,ST_BACKQUOTE,ST_HEREDOC>"->" {
|
|
yy_push_state(ST_LOOKING_FOR_PROPERTY);
|
|
return T_OBJECT_OPERATOR;
|
|
}
|
|
|
|
<ST_LOOKING_FOR_PROPERTY>{LABEL} {
|
|
yy_pop_state();
|
|
zendlval->value.str.val = (char *)estrndup(yytext, yyleng);
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
return T_STRING;
|
|
}
|
|
|
|
<ST_LOOKING_FOR_PROPERTY>{ANY_CHAR} {
|
|
yyless(0);
|
|
yy_pop_state();
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"::" {
|
|
return T_PAAMAYIM_NEKUDOTAYIM;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"new" {
|
|
return T_NEW;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"var" {
|
|
return T_VAR;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"("{TABS_AND_SPACES}("int"|"integer"){TABS_AND_SPACES}")" {
|
|
return T_INT_CAST;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"("{TABS_AND_SPACES}("real"|"double"|"float"){TABS_AND_SPACES}")" {
|
|
return T_DOUBLE_CAST;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"("{TABS_AND_SPACES}"string"{TABS_AND_SPACES}")" {
|
|
return T_STRING_CAST;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"("{TABS_AND_SPACES}"array"{TABS_AND_SPACES}")" {
|
|
return T_ARRAY_CAST;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"("{TABS_AND_SPACES}"object"{TABS_AND_SPACES}")" {
|
|
return T_OBJECT_CAST;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"("{TABS_AND_SPACES}("bool"|"boolean"){TABS_AND_SPACES}")" {
|
|
return T_BOOL_CAST;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"("{TABS_AND_SPACES}("unset"){TABS_AND_SPACES}")" {
|
|
return T_UNSET_CAST;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"eval" {
|
|
return T_EVAL;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"include" {
|
|
return T_INCLUDE;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"include_once" {
|
|
return T_INCLUDE_ONCE;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"require" {
|
|
return T_REQUIRE;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"require_once" {
|
|
return T_REQUIRE_ONCE;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"use" {
|
|
return T_USE;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"global" {
|
|
return T_GLOBAL;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"isset" {
|
|
return T_ISSET;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"empty" {
|
|
return T_EMPTY;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"static" {
|
|
return T_STATIC;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"unset" {
|
|
return T_UNSET;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"=>" {
|
|
return T_DOUBLE_ARROW;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"list" {
|
|
return T_LIST;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"array" {
|
|
return T_ARRAY;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"++" {
|
|
return T_INC;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"--" {
|
|
return T_DEC;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"===" {
|
|
return T_IS_IDENTICAL;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"!==" {
|
|
return T_IS_NOT_IDENTICAL;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"==" {
|
|
return T_IS_EQUAL;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"!="|"<>" {
|
|
return T_IS_NOT_EQUAL;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"<=" {
|
|
return T_IS_SMALLER_OR_EQUAL;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>">=" {
|
|
return T_IS_GREATER_OR_EQUAL;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"+=" {
|
|
return T_PLUS_EQUAL;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"-=" {
|
|
return T_MINUS_EQUAL;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"*=" {
|
|
return T_MUL_EQUAL;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"/=" {
|
|
return T_DIV_EQUAL;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>".=" {
|
|
return T_CONCAT_EQUAL;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"%=" {
|
|
return T_MOD_EQUAL;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"<<=" {
|
|
return T_SL_EQUAL;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>">>=" {
|
|
return T_SR_EQUAL;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"&=" {
|
|
return T_AND_EQUAL;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"|=" {
|
|
return T_OR_EQUAL;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"^=" {
|
|
return T_XOR_EQUAL;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"||" {
|
|
return T_BOOLEAN_OR;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"&&" {
|
|
return T_BOOLEAN_AND;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"OR" {
|
|
return T_LOGICAL_OR;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"AND" {
|
|
return T_LOGICAL_AND;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"XOR" {
|
|
return T_LOGICAL_XOR;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"<<" {
|
|
return T_SL;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>">>" {
|
|
return T_SR;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>{TOKENS} {
|
|
return yytext[0];
|
|
}
|
|
|
|
|
|
<ST_IN_SCRIPTING>"{" {
|
|
yy_push_state(ST_IN_SCRIPTING);
|
|
return '{';
|
|
}
|
|
|
|
|
|
<ST_DOUBLE_QUOTES,ST_BACKQUOTE,ST_HEREDOC>"${" {
|
|
yy_push_state(ST_LOOKING_FOR_VARNAME);
|
|
return T_DOLLAR_OPEN_CURLY_BRACES;
|
|
}
|
|
|
|
|
|
<ST_IN_SCRIPTING>"}" {
|
|
/* This is a temporary fix which is dependant on flex and it's implementation */
|
|
if (yy_start_stack_ptr) {
|
|
yy_pop_state();
|
|
}
|
|
return '}';
|
|
}
|
|
|
|
|
|
<ST_LOOKING_FOR_VARNAME>{LABEL} {
|
|
zendlval->value.str.val = (char *) estrndup(yytext, yyleng);
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
yy_pop_state();
|
|
yy_push_state(ST_IN_SCRIPTING);
|
|
return T_STRING_VARNAME;
|
|
}
|
|
|
|
|
|
<ST_LOOKING_FOR_VARNAME>{ANY_CHAR} {
|
|
yyless(0);
|
|
yy_pop_state();
|
|
yy_push_state(ST_IN_SCRIPTING);
|
|
}
|
|
|
|
|
|
<ST_IN_SCRIPTING>{LNUM} {
|
|
errno = 0;
|
|
zendlval->value.lval = strtol(yytext, NULL, 0);
|
|
if (errno == ERANGE) { /* overflow */
|
|
zendlval->value.dval = strtod(yytext,NULL);
|
|
zendlval->type = IS_DOUBLE;
|
|
return T_DNUMBER;
|
|
} else {
|
|
zendlval->type = IS_LONG;
|
|
return T_LNUMBER;
|
|
}
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>{HNUM} {
|
|
errno = 0;
|
|
zendlval->value.lval = strtoul(yytext, NULL, 16);
|
|
if (errno == ERANGE) { /* overflow */
|
|
/* not trying strtod - it returns trash on 0x-es */
|
|
zendlval->value.lval = LONG_MAX; /* maximal long */
|
|
zend_error(E_NOTICE,"Hex number is too big: %s",yytext);
|
|
} else {
|
|
if (zendlval->value.lval < 0) {
|
|
/* maintain consistency with the old way */
|
|
zendlval->value.dval = (unsigned long) zendlval->value.lval;
|
|
zendlval->type = IS_DOUBLE;
|
|
return T_DNUMBER;
|
|
}
|
|
zendlval->type = IS_LONG;
|
|
}
|
|
zendlval->type = IS_LONG;
|
|
return T_LNUMBER;
|
|
}
|
|
|
|
<ST_DOUBLE_QUOTES,ST_BACKQUOTE,ST_HEREDOC>{LNUM}|{HNUM} { /* treat numbers (almost) as strings inside encapsulated strings */
|
|
zendlval->value.str.val = (char *)estrndup(yytext, yyleng);
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
return T_NUM_STRING;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>{DNUM}|{EXPONENT_DNUM} {
|
|
zendlval->value.dval = strtod(yytext,NULL);
|
|
zendlval->type = IS_DOUBLE;
|
|
return T_DNUMBER;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"__LINE__" {
|
|
zendlval->value.lval = CG(zend_lineno);
|
|
zendlval->type = IS_LONG;
|
|
return T_LINE;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"__FILE__" {
|
|
char *filename = zend_get_compiled_filename(TSRMLS_C);
|
|
|
|
if (!filename) {
|
|
filename = "";
|
|
}
|
|
zendlval->value.str.len = strlen(filename);
|
|
zendlval->value.str.val = estrndup(filename, zendlval->value.str.len);
|
|
zendlval->type = IS_STRING;
|
|
return T_FILE;
|
|
}
|
|
|
|
|
|
<INITIAL>(([^<]|"<"[^?%s<]){1,400})|"<s"|"<" {
|
|
zendlval->value.str.val = (char *) estrndup(yytext, yyleng);
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
HANDLE_NEWLINES(yytext, yyleng);
|
|
return T_INLINE_HTML;
|
|
}
|
|
|
|
<INITIAL>"<?"|"<script"{WHITESPACE}+"language"{WHITESPACE}*"="{WHITESPACE}*("php"|"\"php\""|"\'php\'"){WHITESPACE}*">" {
|
|
HANDLE_NEWLINES(yytext,yyleng);
|
|
if (CG(short_tags) || yyleng>2) { /* yyleng>2 means it's not <? but <script> */
|
|
zendlval->value.str.val = yytext; /* no copying - intentional */
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
BEGIN(ST_IN_SCRIPTING);
|
|
return T_OPEN_TAG;
|
|
} else {
|
|
zendlval->value.str.val = (char *) estrndup(yytext, yyleng);
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
return T_INLINE_HTML;
|
|
}
|
|
}
|
|
|
|
|
|
<INITIAL>"<%="|"<?=" {
|
|
if ((yytext[1]=='%' && CG(asp_tags)) || (yytext[1]=='?' && CG(short_tags))) {
|
|
zendlval->value.str.val = yytext; /* no copying - intentional */
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
BEGIN(ST_IN_SCRIPTING);
|
|
return T_OPEN_TAG_WITH_ECHO;
|
|
} else {
|
|
zendlval->value.str.val = (char *) estrndup(yytext, yyleng);
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
return T_INLINE_HTML;
|
|
}
|
|
}
|
|
|
|
|
|
<INITIAL>"<%" {
|
|
if (CG(asp_tags)) {
|
|
zendlval->value.str.val = yytext; /* no copying - intentional */
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
BEGIN(ST_IN_SCRIPTING);
|
|
return T_OPEN_TAG;
|
|
} else {
|
|
zendlval->value.str.val = (char *) estrndup(yytext, yyleng);
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
return T_INLINE_HTML;
|
|
}
|
|
}
|
|
|
|
|
|
<INITIAL>"<?php"([ \t]|{NEWLINE}) {
|
|
zendlval->value.str.val = yytext; /* no copying - intentional */
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
HANDLE_NEWLINE(yytext[yyleng-1]);
|
|
BEGIN(ST_IN_SCRIPTING);
|
|
return T_OPEN_TAG;
|
|
}
|
|
|
|
|
|
<INITIAL>"<?php_track_vars?>"{NEWLINE}? {
|
|
zend_error(E_WARNING, "<?php_track_vars?> is no longer supported - please use the track_vars INI directive instead");
|
|
HANDLE_NEWLINE(yytext[yyleng-1]);
|
|
zendlval->value.str.val = (char *) estrndup(yytext, yyleng);
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
return T_INLINE_HTML;
|
|
}
|
|
|
|
<ST_IN_SCRIPTING,ST_DOUBLE_QUOTES,ST_HEREDOC,ST_BACKQUOTE>"$"{LABEL} {
|
|
zendlval->value.str.val = (char *)estrndup(yytext+1, yyleng-1);
|
|
zendlval->value.str.len = yyleng-1;
|
|
zendlval->type = IS_STRING;
|
|
return T_VARIABLE;
|
|
}
|
|
|
|
|
|
<ST_IN_SCRIPTING>{LABEL} {
|
|
zendlval->value.str.val = (char *)estrndup(yytext, yyleng);
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
return T_STRING;
|
|
}
|
|
|
|
|
|
<ST_DOUBLE_QUOTES,ST_BACKQUOTE,ST_HEREDOC>{LABEL} {
|
|
zendlval->value.str.val = (char *)estrndup(yytext, yyleng);
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
return T_STRING;
|
|
}
|
|
|
|
|
|
<ST_IN_SCRIPTING>{WHITESPACE} {
|
|
zendlval->value.str.val = yytext; /* no copying - intentional */
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
HANDLE_NEWLINES(yytext,yyleng);
|
|
return T_WHITESPACE;
|
|
}
|
|
|
|
|
|
<ST_IN_SCRIPTING>"#"|"//" {
|
|
BEGIN(ST_ONE_LINE_COMMENT);
|
|
yymore();
|
|
}
|
|
|
|
<ST_ONE_LINE_COMMENT>"?"|"%"|">" {
|
|
yymore();
|
|
}
|
|
|
|
<ST_ONE_LINE_COMMENT>[^\n\r?%>]+ {
|
|
yymore();
|
|
}
|
|
|
|
<ST_ONE_LINE_COMMENT>{NEWLINE} {
|
|
zendlval->value.str.val = yytext; /* no copying - intentional */
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
BEGIN(ST_IN_SCRIPTING);
|
|
CG(zend_lineno)++;
|
|
return T_COMMENT;
|
|
}
|
|
|
|
<ST_ONE_LINE_COMMENT>"?>"|"%>" {
|
|
if (CG(asp_tags) || yytext[yyleng-2] != '%') { /* asp comment? */
|
|
zendlval->value.str.val = yytext; /* no copying - intentional */
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
yyless(yyleng-2);
|
|
BEGIN(ST_IN_SCRIPTING);
|
|
return T_COMMENT;
|
|
} else {
|
|
yymore();
|
|
}
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>"/*" {
|
|
CG(comment_start_line) = CG(zend_lineno);
|
|
BEGIN(ST_COMMENT);
|
|
yymore();
|
|
}
|
|
|
|
|
|
<ST_COMMENT>[^*]+ {
|
|
yymore();
|
|
}
|
|
|
|
<ST_COMMENT>"*/" {
|
|
HANDLE_NEWLINES(yytext, yyleng);
|
|
BEGIN(ST_IN_SCRIPTING);
|
|
return T_COMMENT;
|
|
}
|
|
|
|
<ST_COMMENT>"*" {
|
|
yymore();
|
|
}
|
|
|
|
<ST_IN_SCRIPTING>("?>"|"</script"{WHITESPACE}*">"){NEWLINE}? {
|
|
zendlval->value.str.val = yytext; /* no copying - intentional */
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
HANDLE_NEWLINES(yytext, yyleng);
|
|
BEGIN(INITIAL);
|
|
return T_CLOSE_TAG; /* implicit ';' at php-end tag */
|
|
}
|
|
|
|
|
|
<ST_IN_SCRIPTING>"%>"{NEWLINE}? {
|
|
if (CG(asp_tags)) {
|
|
BEGIN(INITIAL);
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
zendlval->value.str.val = yytext; /* no copying - intentional */
|
|
HANDLE_NEWLINES(yytext,yyleng);
|
|
return T_CLOSE_TAG; /* implicit ';' at php-end tag */
|
|
} else {
|
|
yyless(1);
|
|
return yytext[0];
|
|
}
|
|
}
|
|
|
|
|
|
<ST_IN_SCRIPTING>(["]([^$"\\]|("\\".))*["]) {
|
|
register char *s, *t;
|
|
char *end;
|
|
|
|
zendlval->value.str.val = estrndup(yytext+1, yyleng-2);
|
|
zendlval->value.str.len = yyleng-2;
|
|
zendlval->type = IS_STRING;
|
|
HANDLE_NEWLINES(yytext,yyleng);
|
|
|
|
/* convert escape sequences */
|
|
s = t = zendlval->value.str.val;
|
|
end = s+zendlval->value.str.len;
|
|
while (s<end) {
|
|
if (*s=='\\') {
|
|
s++;
|
|
if (s>=end) {
|
|
continue;
|
|
}
|
|
switch(*s) {
|
|
case 'n':
|
|
*t++ = '\n';
|
|
zendlval->value.str.len--;
|
|
break;
|
|
case 'r':
|
|
*t++ = '\r';
|
|
zendlval->value.str.len--;
|
|
break;
|
|
case 't':
|
|
*t++ = '\t';
|
|
zendlval->value.str.len--;
|
|
break;
|
|
case '\\':
|
|
case '$':
|
|
case '"':
|
|
*t++ = *s;
|
|
zendlval->value.str.len--;
|
|
break;
|
|
default:
|
|
/* check for an octal */
|
|
if (ZEND_IS_OCT(*s)) {
|
|
char octal_buf[4] = { 0, 0, 0, 0 };
|
|
|
|
octal_buf[0] = *s;
|
|
zendlval->value.str.len--;
|
|
if ((s+1)<end && ZEND_IS_OCT(*(s+1))) {
|
|
octal_buf[1] = *(++s);
|
|
zendlval->value.str.len--;
|
|
if ((s+1)<end && ZEND_IS_OCT(*(s+1))) {
|
|
octal_buf[2] = *(++s);
|
|
zendlval->value.str.len--;
|
|
}
|
|
}
|
|
*t++ = (char) strtol(octal_buf, NULL, 8);
|
|
} else if (*s=='x' && (s+1)<end && ZEND_IS_HEX(*(s+1))) {
|
|
char hex_buf[3] = { 0, 0, 0};
|
|
|
|
zendlval->value.str.len--; /* for the 'x' */
|
|
|
|
hex_buf[0] = *(++s);
|
|
zendlval->value.str.len--;
|
|
if ((s+1)<end && ZEND_IS_HEX(*(s+1))) {
|
|
hex_buf[1] = *(++s);
|
|
zendlval->value.str.len--;
|
|
}
|
|
*t++ = (char) strtol(hex_buf, NULL, 16);
|
|
} else {
|
|
*t++ = '\\';
|
|
*t++ = *s;
|
|
}
|
|
break;
|
|
}
|
|
s++;
|
|
} else {
|
|
*t++ = *s++;
|
|
}
|
|
}
|
|
*t = 0;
|
|
|
|
return T_CONSTANT_ENCAPSED_STRING;
|
|
}
|
|
|
|
|
|
<ST_IN_SCRIPTING>([']([^'\\]|("\\".))*[']) {
|
|
register char *s, *t;
|
|
char *end;
|
|
|
|
zendlval->value.str.val = estrndup(yytext+1, yyleng-2);
|
|
zendlval->value.str.len = yyleng-2;
|
|
zendlval->type = IS_STRING;
|
|
HANDLE_NEWLINES(yytext,yyleng);
|
|
|
|
/* convert escape sequences */
|
|
s = t = zendlval->value.str.val;
|
|
end = s+zendlval->value.str.len;
|
|
while (s<end) {
|
|
if (*s=='\\') {
|
|
s++;
|
|
if (s>=end) {
|
|
continue;
|
|
}
|
|
switch(*s) {
|
|
case '\\':
|
|
case '\'':
|
|
*t++ = *s;
|
|
zendlval->value.str.len--;
|
|
break;
|
|
default:
|
|
*t++ = '\\';
|
|
*t++ = *s;
|
|
break;
|
|
}
|
|
s++;
|
|
} else {
|
|
*t++ = *s++;
|
|
}
|
|
}
|
|
*t = 0;
|
|
|
|
return T_CONSTANT_ENCAPSED_STRING;
|
|
}
|
|
|
|
|
|
<ST_IN_SCRIPTING>["] {
|
|
BEGIN(ST_DOUBLE_QUOTES);
|
|
return '\"';
|
|
}
|
|
|
|
|
|
<ST_IN_SCRIPTING>"<<<"{TABS_AND_SPACES}{LABEL}{NEWLINE} {
|
|
char *s;
|
|
CG(zend_lineno)++;
|
|
CG(heredoc_len) = yyleng-3-1-(yytext[yyleng-2]=='\r'?1:0);
|
|
s = yytext+3;
|
|
while ((*s == ' ') || (*s == '\t')) {
|
|
s++;
|
|
CG(heredoc_len)--;
|
|
}
|
|
CG(heredoc) = estrndup(s, CG(heredoc_len));
|
|
BEGIN(ST_HEREDOC);
|
|
return T_START_HEREDOC;
|
|
}
|
|
|
|
|
|
<ST_IN_SCRIPTING>[`] {
|
|
BEGIN(ST_BACKQUOTE);
|
|
return '`';
|
|
}
|
|
|
|
|
|
<ST_IN_SCRIPTING>['] {
|
|
BEGIN(ST_SINGLE_QUOTE);
|
|
return '\'';
|
|
}
|
|
|
|
|
|
<ST_HEREDOC>^{LABEL}(";")?{NEWLINE} {
|
|
int label_len;
|
|
unsigned char unput_semicolon;
|
|
|
|
CG(zend_lineno)++;
|
|
if (yytext[yyleng-2]=='\r') {
|
|
label_len = yyleng-2;
|
|
} else {
|
|
label_len = yyleng-1;
|
|
}
|
|
|
|
if (yytext[label_len-1]==';') {
|
|
label_len--;
|
|
unput_semicolon=1;
|
|
} else{
|
|
unput_semicolon=0;
|
|
}
|
|
|
|
if (label_len==CG(heredoc_len) && !memcmp(yytext, CG(heredoc), label_len)) {
|
|
zendlval->value.str.val = estrndup(yytext, yyleng); /* unput destroys yytext */
|
|
zendlval->value.str.len = yyleng;
|
|
if (unput_semicolon) {
|
|
unput(';');
|
|
}
|
|
efree(CG(heredoc));
|
|
CG(heredoc)=NULL;
|
|
CG(heredoc_len)=0;
|
|
BEGIN(ST_IN_SCRIPTING);
|
|
return T_END_HEREDOC;
|
|
} else {
|
|
zendlval->value.str.val = (char *)estrndup(yytext, yyleng);
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
return T_STRING;
|
|
}
|
|
}
|
|
|
|
|
|
<ST_DOUBLE_QUOTES,ST_BACKQUOTE,ST_HEREDOC>{ESCAPED_AND_WHITESPACE} {
|
|
HANDLE_NEWLINES(yytext,yyleng);
|
|
zendlval->value.str.val = (char *) estrndup(yytext, yyleng);
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
return T_ENCAPSED_AND_WHITESPACE;
|
|
}
|
|
|
|
<ST_SINGLE_QUOTE>([^'\\]|\\[^'\\])+ {
|
|
HANDLE_NEWLINES(yytext,yyleng);
|
|
zendlval->value.str.val = (char *) estrndup(yytext, yyleng);
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
return T_ENCAPSED_AND_WHITESPACE;
|
|
}
|
|
|
|
|
|
<ST_DOUBLE_QUOTES>[`]+ {
|
|
zendlval->value.str.val = (char *) estrndup(yytext, yyleng);
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
return T_ENCAPSED_AND_WHITESPACE;
|
|
}
|
|
|
|
|
|
<ST_BACKQUOTE>["]+ {
|
|
zendlval->value.str.val = (char *) estrndup(yytext, yyleng);
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
return T_ENCAPSED_AND_WHITESPACE;
|
|
}
|
|
|
|
|
|
<ST_DOUBLE_QUOTES,ST_BACKQUOTE,ST_HEREDOC>"$"[^a-zA-Z_\x7f-\xff{] {
|
|
zendlval->value.lval = (long) yytext[0];
|
|
if (yyleng == 2) {
|
|
yyless(1);
|
|
}
|
|
return T_CHARACTER;
|
|
}
|
|
|
|
|
|
<ST_DOUBLE_QUOTES,ST_BACKQUOTE,ST_HEREDOC>{ENCAPSED_TOKENS} {
|
|
zendlval->value.lval = (long) yytext[0];
|
|
return yytext[0];
|
|
}
|
|
|
|
<ST_DOUBLE_QUOTES,ST_BACKQUOTE,ST_HEREDOC>"{$" {
|
|
zendlval->value.lval = (long) yytext[0];
|
|
yy_push_state(ST_IN_SCRIPTING);
|
|
yyless(1);
|
|
return T_CURLY_OPEN;
|
|
}
|
|
|
|
|
|
<ST_SINGLE_QUOTE>"\\'" {
|
|
zendlval->value.lval = (long) '\'';
|
|
return T_CHARACTER;
|
|
}
|
|
|
|
<ST_SINGLE_QUOTE>"\\\\" {
|
|
zendlval->value.lval = (long)'\\';
|
|
return T_CHARACTER;
|
|
}
|
|
|
|
<ST_DOUBLE_QUOTES>"\\\"" {
|
|
zendlval->value.lval = (long) '"';
|
|
return T_CHARACTER;
|
|
}
|
|
|
|
<ST_BACKQUOTE>"\\`" {
|
|
zendlval->value.lval = (long) '`';
|
|
return T_CHARACTER;
|
|
}
|
|
|
|
<ST_DOUBLE_QUOTES,ST_BACKQUOTE,ST_HEREDOC>"\\"[0-7]{1,3} {
|
|
zendlval->value.lval = strtol(yytext+1, NULL, 8);
|
|
return T_CHARACTER;
|
|
}
|
|
|
|
<ST_DOUBLE_QUOTES,ST_BACKQUOTE,ST_HEREDOC>"\\x"[0-9A-Fa-f]{1,2} {
|
|
zendlval->value.lval = strtol (yytext+2, NULL, 16);
|
|
return T_CHARACTER;
|
|
}
|
|
|
|
<ST_DOUBLE_QUOTES,ST_BACKQUOTE,ST_HEREDOC>"\\"{ANY_CHAR} {
|
|
switch (yytext[1]) {
|
|
case 'n':
|
|
zendlval->value.lval = (long) '\n';
|
|
break;
|
|
case 't':
|
|
zendlval->value.lval = (long) '\t';
|
|
break;
|
|
case 'r':
|
|
zendlval->value.lval = (long) '\r';
|
|
break;
|
|
case '\\':
|
|
zendlval->value.lval = (long) '\\';
|
|
break;
|
|
case '$':
|
|
zendlval->value.lval = (long) yytext[1];
|
|
break;
|
|
case '{':
|
|
zendlval->value.lval = (long) yytext[1];
|
|
break;
|
|
default:
|
|
zendlval->value.str.val = estrndup(yytext,yyleng);
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
return T_BAD_CHARACTER;
|
|
break;
|
|
}
|
|
return T_CHARACTER;
|
|
}
|
|
|
|
|
|
<ST_HEREDOC>["'`]+ {
|
|
zendlval->value.str.val = (char *) estrndup(yytext, yyleng);
|
|
zendlval->value.str.len = yyleng;
|
|
zendlval->type = IS_STRING;
|
|
return T_ENCAPSED_AND_WHITESPACE;
|
|
}
|
|
|
|
|
|
<ST_DOUBLE_QUOTES>["] {
|
|
BEGIN(ST_IN_SCRIPTING);
|
|
return '\"';
|
|
}
|
|
|
|
|
|
<ST_BACKQUOTE>[`] {
|
|
BEGIN(ST_IN_SCRIPTING);
|
|
return '`';
|
|
}
|
|
|
|
|
|
<ST_SINGLE_QUOTE>['] {
|
|
BEGIN(ST_IN_SCRIPTING);
|
|
return '\'';
|
|
}
|
|
|
|
|
|
<ST_DOUBLE_QUOTES,ST_BACKQUOTE,INITIAL,ST_IN_SCRIPTING,ST_LOOKING_FOR_PROPERTY><<EOF>> {
|
|
return 0;
|
|
}
|
|
|
|
<ST_COMMENT><<EOF>> {
|
|
zend_error(E_COMPILE_WARNING,"Unterminated comment starting line %d", CG(comment_start_line));
|
|
return 0;
|
|
}
|
|
|
|
|
|
|
|
<ST_IN_SCRIPTING,INITIAL,ST_DOUBLE_QUOTES,ST_BACKQUOTE,ST_SINGLE_QUOTE,ST_HEREDOC>{ANY_CHAR} {
|
|
zend_error(E_COMPILE_WARNING,"Unexpected character in input: '%c' (ASCII=%d) state=%d",yytext[0],yytext[0],YYSTATE);
|
|
}
|