New upstream version 5.6.0~beta2+dfsgupstream/5.6.0_beta2+dfsg

1 files changed, 168 insertions, 0 deletions

diff --git a/sapi/phpdbg/phpdbg_parser.y b/sapi/phpdbg/phpdbg_parser.y
new file mode 100644
index 000000000..4a84504e2
--- /dev/null
+++ b/sapi/phpdbg/phpdbg_parser.y
@@ -0,0 +1,168 @@
+%error-verbose
+%{
+ 
+/*
+ * phpdbg_parser.y
+ * (from php-src root)
+ * flex sapi/phpdbg/dev/phpdbg_lexer.l
+ * bison sapi/phpdbg/dev/phpdbg_parser.y
+ */
+ 
+#include "phpdbg.h"
+#include "phpdbg_cmd.h"
+#include "phpdbg_utils.h"
+#include "phpdbg_cmd.h"
+#include "phpdbg_prompt.h"
+
+#define YYSTYPE phpdbg_param_t
+
+#include "phpdbg_parser.h"
+#include "phpdbg_lexer.h"
+
+ZEND_EXTERN_MODULE_GLOBALS(phpdbg);
+
+int yyerror(phpdbg_param_t *stack, yyscan_t scanner, const char *msg) {
+	TSRMLS_FETCH();
+    phpdbg_error("Parse Error: %s", msg);
+    {
+    	const phpdbg_param_t *top = stack;
+    	
+    	while (top) {
+    		phpdbg_param_debug(
+    			top, "--> ");
+    		top = top->next;
+    	}
+    }
+    return 0;
+}
+%}
+ 
+%code requires {
+#include "phpdbg.h"
+#ifndef YY_TYPEDEF_YY_SCANNER_T
+#define YY_TYPEDEF_YY_SCANNER_T
+typedef void* yyscan_t;
+#endif
+}
+%output  "sapi/phpdbg/phpdbg_parser.c"
+%defines "sapi/phpdbg/phpdbg_parser.h"
+ 
+%define api.pure
+%lex-param   { yyscan_t scanner }
+%parse-param { phpdbg_param_t *stack }
+%parse-param { yyscan_t scanner }
+
+%token T_EVAL	 	"eval"
+%token T_RUN	 	"run"
+%token T_SHELL		"shell"
+%token T_IF			"if (condition)"
+%token T_TRUTHY		"truthy (true, on, yes or enabled)"
+%token T_FALSY		"falsy (false, off, no or disabled)"
+%token T_STRING		"string (some input, perhaps)"
+%token T_COLON		": (colon)"
+%token T_DCOLON		":: (double colon)"
+%token T_POUND		"# (pound sign)"
+%token T_PROTO		"protocol (file://)"
+%token T_DIGITS	 			"digits (numbers)"
+%token T_LITERAL 			"literal (string)"
+%token T_ADDR	 			"address"
+%token T_OPCODE				"opcode"
+%token T_ID		 			"identifier (command or function name)"
+%token T_INPUT	 			"input (input string or data)"
+%token T_UNEXPECTED 		"input"
+%%
+
+input
+    : parameters
+    | /* nothing */
+    ;
+
+parameters
+	: parameter								{ phpdbg_stack_push(stack, &$1); }
+	| parameters parameter					{ phpdbg_stack_push(stack, &$2); }
+	;
+
+parameter
+	: T_ID T_COLON T_DIGITS					{ 	
+		$$.type = FILE_PARAM;
+		$$.file.name = $2.str;
+		$$.file.line = $3.num;
+	}
+	| T_ID T_COLON T_POUND T_DIGITS 		{
+		$$.type = NUMERIC_FILE_PARAM;
+		$$.file.name = $1.str;
+		$$.file.line = $4.num;
+	}
+	| T_PROTO T_ID T_COLON T_DIGITS			{
+		$$.type = FILE_PARAM;
+		$$.file.name = malloc($1.len + 
+							  $2.len + 1);
+		if ($$.file.name) {
+			memcpy(&$$.file.name[0], $1.str, $1.len);
+			memcpy(&$$.file.name[$1.len], $2.str, $2.len);
+			$$.file.name[$1.len + $2.len] = '\0';
+		}
+		$$.file.line = $4.num;
+	}
+	| T_PROTO T_ID T_COLON T_POUND T_DIGITS			{
+		$$.type = NUMERIC_FILE_PARAM;
+		$$.file.name = malloc($1.len + 
+							  $2.len + 1);
+		if ($$.file.name) {
+			memcpy(&$$.file.name[0], $1.str, $1.len);
+			memcpy(&$$.file.name[$1.len], $2.str, $2.len);
+			$$.file.name[$1.len + $2.len] = '\0';
+		}
+		$$.file.line = $5.num;
+	}
+	| T_ID T_DCOLON T_ID					{ 
+		$$.type = METHOD_PARAM;
+		$$.method.class = $1.str;
+		$$.method.name = $3.str;
+	}
+	| T_ID T_DCOLON T_ID T_POUND T_DIGITS	{ 
+		$$.type = NUMERIC_METHOD_PARAM;
+		$$.method.class = $1.str;
+		$$.method.name = $3.str;
+		$$.num = $5.num; 
+	}
+	| T_ID T_POUND T_DIGITS					{
+		$$.type = NUMERIC_FUNCTION_PARAM;
+		$$.str = $1.str;
+		$$.len = $1.len;
+		$$.num = $3.num; 
+	}
+	| T_IF T_INPUT							{ 
+		$$.type = COND_PARAM; 
+		$$.str = $2.str;
+		$$.len = $2.len;
+	}
+	| T_EVAL T_INPUT                        { 
+		$$.type = EVAL_PARAM; 
+		$$.str = $2.str;
+		$$.len = $2.len;
+	}
+	| T_SHELL T_INPUT						{ 	
+		$$.type = SHELL_PARAM; 
+		$$.str = $2.str;
+		$$.len = $2.len;
+	}
+	| T_RUN			{
+		$$.type = RUN_PARAM;
+		$$.len = 0;
+	}
+	| T_RUN T_INPUT						{ 	
+		$$.type = RUN_PARAM; 
+		$$.str = $2.str;
+		$$.len = $2.len;
+	}
+	| T_OPCODE								{ $$ = $1; }
+	| T_ADDR								{ $$ = $1; }
+	| T_LITERAL								{ $$ = $1; }
+	| T_TRUTHY								{ $$ = $1; }
+	| T_FALSY								{ $$ = $1; }
+	| T_DIGITS								{ $$ = $1; }
+	| T_ID									{ $$ = $1; }
+	;
+
+%%