Add 'require_once' statement

Author: Jeckerson

parser/parser.h

@@ -906,6 +906,18 @@ static void xx_ret_require_statement(zval *ret, zval *expr, xx_scanner_state *st
 	parser_add_int(ret, "char", state->active_char);
 }
 
+static void xx_ret_require_once_statement(zval *ret, zval *expr, xx_scanner_state *state)
+{
+	array_init(ret);
+
+	parser_add_str(ret, "type", "require_once");
+	parser_add_zval(ret, "expr", expr);
+
+	parser_add_str(ret, "file", state->active_file);
+	parser_add_int(ret, "line", state->active_line);
+	parser_add_int(ret, "char", state->active_char);
+}
+
 static void xx_ret_fetch_statement(zval *ret, zval *expr, xx_scanner_state *state)
 {
 	array_init(ret);
@@ -1046,7 +1058,7 @@ static void xx_ret_declare_variable(zval *ret, xx_parser_token *T, zval *expr, x
 	array_init(ret);
 
 	parser_add_str_free(ret, "variable", T->token);
-	
+
 	efree(T);
 
 	if (expr) {

parser/scanner.h

@@ -97,6 +97,7 @@
 #define XX_T_TRY 397
 #define XX_T_CATCH 398
 #define XX_T_DEPRECATED 399
+#define XX_T_REQUIRE_ONCE 400
 
 /* Operators */
 #define XX_T_AT '@'

parser/scanner.re

@@ -359,6 +359,12 @@ int xx_get_token(xx_scanner_state *s, xx_scanner_token *token) {
 			return 0;
 		}
 
+		'require_once' {
+			s->active_char += sizeof("require_once")-1;
+			token->opcode = XX_T_REQUIRE_ONCE;
+			return 0;
+		}
+
 		'clone' {
 			s->active_char += sizeof("clone")-1;
 			token->opcode = XX_T_CLONE;

parser/zephir.lemon

@@ -1531,6 +1531,11 @@ xx_require_statement(R) ::= REQUIRE xx_common_expr(E) DOTCOMMA . {
 	xx_ret_require_statement(&R, &E, status->scanner_state);
 }
 
+/* require_once statement */
+xx_require_statement(R) ::= REQUIRE_ONCE xx_common_expr(E) DOTCOMMA . {
+	xx_ret_require_once_statement(&R, &E, status->scanner_state);
+}
+
 /* unset {expr} */
 xx_unset_statement(R) ::= UNSET xx_common_expr(E) DOTCOMMA . {
 	xx_ret_unset_statement(&R, &E, status->scanner_state);
@@ -1634,6 +1639,10 @@ xx_common_expr(R) ::= REQUIRE xx_common_expr(O1) . {
 	xx_ret_expr(&R, "require", &O1, NULL, NULL, status->scanner_state);
 }
 
+xx_common_expr(R) ::= REQUIRE_ONCE xx_common_expr(O1) . {
+	xx_ret_expr(&R, "require_once", &O1, NULL, NULL, status->scanner_state);
+}
+
 xx_common_expr(R) ::= CLONE xx_common_expr(O1) . {
 	xx_ret_expr(&R, "clone", &O1, NULL, NULL, status->scanner_state);
 }

tests/statements/require_once.phpt

@@ -0,0 +1,39 @@
+--TEST--
+require_once statement
+--SKIPIF--
+<?php include(__DIR__ . '/../skipif.inc'); ?>
+--FILE--
+<?php
+$code =<<<ZEP
+function test() {
+	require_once foo;
+}
+ZEP;
+
+$ir = zephir_parse_file($code, '(eval code)');
+var_dump($ir[0]["statements"][0]);
+?>
+--EXPECT--
+array(5) {
+  ["type"]=>
+  string(7) "require_once"
+  ["expr"]=>
+  array(5) {
+    ["type"]=>
+    string(8) "variable"
+    ["value"]=>
+    string(3) "foo"
+    ["file"]=>
+    string(11) "(eval code)"
+    ["line"]=>
+    int(2)
+    ["char"]=>
+    int(13)
+  }
+  ["file"]=>
+  string(11) "(eval code)"
+  ["line"]=>
+  int(3)
+  ["char"]=>
+  int(1)
+}