<?php
/**
 * Bitrix Framework
 * @package bitrix
 * @subpackage main
 * @copyright 2001-2025 Bitrix
 */

class PHPParser
{
	protected static $arAllStr;

	public static function ReplString($str, $arAllStr)
	{
		self::$arAllStr = $arAllStr;

		if (preg_match("'^\x01([0-9]+)\x02$'s", $str))
		{
			return preg_replace_callback("'\x01([0-9]+)\x02's", "PHPParser::getString", $str);
		}
		if (strval(floatval($str)) == $str)
		{
			return preg_replace_callback("'\x01([0-9]+)\x02's", "PHPParser::getQuotedString", $str);
		}
		elseif ($str == "")
		{
			return "";
		}
		else
		{
			return "={" . preg_replace_callback("'\x01([0-9]+)\x02's", "PHPParser::getQuotedString", $str) . "}";
		}
	}

	public static function getString($matches)
	{
		return self::$arAllStr[$matches[1]];
	}

	public static function getQuotedString($matches)
	{
		return '"' . self::$arAllStr[$matches[1]] . '"';
	}

	public static function GetParams($params)
	{
		$arParams = [];
		$brackets = 0;
		$param_tmp = "";
		$params_l = mb_strlen($params);
		for ($i = 0; $i < $params_l; $i++)
		{
			$ch = mb_substr($params, $i, 1);
			if ($ch == "(" || $ch == "[")
			{
				$brackets++;
			}
			elseif ($ch == ")" || $ch == "]")
			{
				$brackets--;
			}
			elseif ($ch == "," && $brackets == 0)
			{
				$arParams[] = $param_tmp;
				$param_tmp = "";
				continue;
			}

			if ($brackets < 0)
			{
				break;
			}

			$param_tmp .= $ch;
		}
		if ($param_tmp <> "")
		{
			$arParams[] = $param_tmp;
		}

		return $arParams;
	}

	public static function GetParamsRec($params, &$arAllStr, &$arResult)
	{
		$found = false;
		$paramsList = "";
		if (strtolower(substr($params, 0, 6)) == 'array(')
		{
			$found = true;
			$paramsList = substr($params, 6);
		}
		elseif (str_starts_with($params, "["))
		{
			$found = true;
			$paramsList = substr($params, 1);
		}
		if ($found)
		{
			$arParams = static::GetParams($paramsList);
			foreach ($arParams as $i => $el)
			{
				if (strtolower(substr($el, 0, 6)) == 'array(' || str_starts_with($el, '['))
				{
					// no index, value is an array. We should check it first, because this array can contain '=>' operator.
					$p = false;
				}
				else
				{
					// possible index
					$p = mb_strpos($el, "=>");
				}
				if ($p === false)
				{
					// value without index
					if (is_string($arResult))
					{
						$arResult = static::ReplString($el, $arAllStr);
					}
					else
					{
						static::GetParamsRec($el, $arAllStr, $arResult[$i]);
					}
				}
				else
				{
					// value with index
					$el_ind = static::ReplString(mb_substr($el, 0, $p), $arAllStr);
					$el_val = mb_substr($el, $p + 2);
					static::GetParamsRec($el_val, $arAllStr, $arResult[$el_ind]);
				}
			}
		}
		else
		{
			$arResult = static::ReplString($params, $arAllStr);
		}
	}

	// Parse string and check if it is a component call. Return call params array
	public static function CheckForComponent($str)
	{
		if (str_starts_with($str, "<?php"))
		{
			$str = substr($str, 5);
		}
		else
		{
			$str = substr($str, 2);
		}

		$str = substr($str, 0, -2);

		$bSlashed = false;
		$bInString = false;
		$arAllStr = [];
		$new_str = "";
		$string_tmp = "";
		$quote_ch = "";
		$i = -1;
		$length = mb_strlen($str);
		while ($i < $length - 1)
		{
			$i++;
			$ch = mb_substr($str, $i, 1);
			if (!$bInString)
			{
				if ($string_tmp != "")
				{
					$arAllStr[] = $string_tmp;
					$string_tmp = "";
					$new_str .= chr(1) . (count($arAllStr) - 1) . chr(2);
				}

				//comment
				if ($ch == "/" && $i + 1 < $length)
				{
					$ti = 0;
					if (mb_substr($str, $i + 1, 1) == "*" && ($ti = mb_strpos($str, "*/", $i + 2)) !== false)
					{
						$ti += 2;
					}
					elseif (mb_substr($str, $i + 1, 1) == "/" && ($ti = mb_strpos($str, "\n", $i + 2)) !== false)
					{
						$ti += 1;
					}

					if ($ti)
					{
						$i = $ti;
					}

					continue;
				}

				if ($ch == " " || $ch == "\r" || $ch == "\n" || $ch == "\t")
				{
					continue;
				}
			}

			if ($bInString && $ch == "\\" && !$bSlashed)
			{
				$bSlashed = true;
				continue;
			}

			if ($ch == "\"" || $ch == "'")
			{
				if ($bInString)
				{
					if (!$bSlashed && $quote_ch == $ch)
					{
						$bInString = false;
						continue;
					}
				}
				else
				{
					$bInString = true;
					$quote_ch = $ch;
					continue;
				}
			}

			$bSlashed = false;
			if ($bInString)
			{
				$string_tmp .= $ch;
				continue;
			}

			$new_str .= $ch;
		}

		if ($pos = mb_strpos($new_str, "("))
		{
			$func_name = mb_substr($new_str, 0, $pos + 1);
			if (preg_match("/^(\\\$[A-Z_][A-Z0-9_]*)(\\s*=\\s*)/i", $func_name, $arMatch))
			{
				$var_name = $arMatch[1];
				$func_name = mb_substr($func_name, mb_strlen($arMatch[0]));
			}
			else
			{
				$var_name = "";
			}
			$func_name = preg_replace("'\\\$GLOBALS\\[(\"|\\')(.+?)(\"|\\')\\]'s", "\$\\2", $func_name);
			switch (mb_strtoupper($func_name))
			{
				case '$APPLICATION->INCLUDEFILE(':
					$params = mb_substr($new_str, $pos + 1);
					$arParams = static::GetParams($params);
					$arIncludeParams = [];

					if (preg_match("/^array\\(/i", $arParams[1]))
					{
						$arParams2 = static::GetParams(mb_substr($arParams[1], 6));
						foreach ($arParams2 as $el)
						{
							$p = mb_strpos($el, "=>");
							$el_ind = static::ReplString(mb_substr($el, 0, $p), $arAllStr);
							$el_val = mb_substr($el, $p + 2);
							if (preg_match("/^array\\(/i", $el_val))
							{
								$res_ar = [];
								$arParamsN = static::GetParams(mb_substr($el_val, 6));
								foreach ($arParamsN as $param)
								{
									$res_ar[] = static::ReplString($param, $arAllStr);
								}

								$arIncludeParams[$el_ind] = $res_ar;
							}
							else
							{
								$arIncludeParams[$el_ind] = static::ReplString($el_val, $arAllStr);
							}
						}
					}
					return [
						"SCRIPT_NAME" => static::ReplString($arParams[0], $arAllStr),
						"PARAMS" => $arIncludeParams,
						"VARIABLE" => $var_name,
					];
			}
		}
		return false;
	}

	public static function GetComponentParams($instruction, $arAllStr)
	{
		if ($pos = mb_strpos($instruction, "("))
		{
			$func_name = mb_substr($instruction, 0, $pos + 1);
			if (preg_match("/(\\\$[A-Z_][A-Z0-9_]*)(\\s*=\\s*)/i", $func_name, $arMatch))
			{
				$var_name = $arMatch[1];
			}
			else
			{
				$var_name = "";
			}

			$params = mb_substr($instruction, $pos + 1);
			$arParams = static::GetParams($params);

			$arIncludeParams = [];
			$arFuncParams = [];
			if (!empty($arParams[2]))
			{
				static::GetParamsRec($arParams[2], $arAllStr, $arIncludeParams);
			}
			if (!empty($arParams[4]))
			{
				static::GetParamsRec($arParams[4], $arAllStr, $arFuncParams);
			}

			return [
				"COMPONENT_NAME" => static::ReplString($arParams[0] ?? '', $arAllStr),
				"TEMPLATE_NAME" => static::ReplString($arParams[1] ?? '', $arAllStr),
				"PARAMS" => $arIncludeParams,
				"PARENT_COMP" => $arParams[3] ?? '',
				"VARIABLE" => $var_name,
				"FUNCTION_PARAMS" => $arFuncParams,
				"RETURN_RESULT" => $arParams[5] ?? '',
			];
		}
		return [];
	}

	public static function ParseScript($scriptContent)
	{
		$arComponents = [];
		$componentNumber = -1;

		$bInComponent = false;
		$bInPHP = false;

		$bInString = false;
		$quoteChar = "";
		$bSlashed = false;

		$string = false;
		$instruction = "";

		//mb_substr is catastrophic slow, so in UTF we use array of characters
		$allChars = preg_split('//u', $scriptContent, -1, PREG_SPLIT_NO_EMPTY);

		if ($allChars === false)
		{
			return [];
		}

		$scriptContentLength = mb_strlen($scriptContent);
		$arAllStr = [];
		$ind = -1;
		while ($ind < $scriptContentLength - 1)
		{
			$ind++;
			$ch = $allChars[$ind];

			if ($bInPHP)
			{
				if (!$bInString)
				{
					if (!$bInComponent && $instruction <> '')
					{
						if (preg_match("#\\s*((\\\$[A-Z_][A-Z0-9_]*\\s*=)?\\s*\\\$APPLICATION->IncludeComponent\\s*\\()#is", $instruction, $arMatches))
						{
							$arAllStr = [];
							$bInComponent = true;
							$componentNumber++;
							$instruction = $arMatches[1];

							$arComponents[$componentNumber] = [
								"START" => ($ind - mb_strlen($arMatches[1])),
								"END" => false,
								"DATA" => [],
							];
						}
					}
					if ($string !== false)
					{
						if ($bInComponent)
						{
							$arAllStr[] = $string;
							$instruction .= chr(1) . (count($arAllStr) - 1) . chr(2);
						}
						$string = false;
					}
					if ($ch == ";")
					{
						if ($bInComponent)
						{
							$bInComponent = false;
							$arComponents[$componentNumber]["END"] = $ind + 1;
							$arComponents[$componentNumber]["DATA"] = static::GetComponentParams(preg_replace("#[ \r\n\t]#", "", $instruction), $arAllStr);
						}
						$instruction = "";
						continue;
					}
					if ($ch == "/" && $ind < $scriptContentLength - 2)
					{
						$nextChar = $allChars[$ind + 1];
						if ($nextChar == "/")
						{
							$endPos = mb_strpos($scriptContent, "\n", $ind + 2);

							if ($endPos === false)
							{
								$ind = $scriptContentLength - 1;
							}
							else
							{
								$ind = $endPos;
							}

							continue;
						}
						elseif ($nextChar == "*")
						{
							$endPos = mb_strpos($scriptContent, "*/", $ind + 2);

							if ($endPos === false)
							{
								$ind = $scriptContentLength - 1;
							}
							else
							{
								$ind = $endPos + 1;
							}

							continue;
						}
					}

					if ($ch == "\"" || $ch == "'")
					{
						$bInString = true;
						$string = "";
						$quoteChar = $ch;
						continue;
					}

					if ($ch == "?" && $ind < $scriptContentLength - 2 && $allChars[$ind + 1] == ">")
					{
						$ind += 1;
						if ($bInComponent)
						{
							$bInComponent = false;
							$arComponents[$componentNumber]["END"] = $ind - 1;
							$arComponents[$componentNumber]["DATA"] = static::GetComponentParams(preg_replace("#[ \r\n\t]#", "", $instruction), $arAllStr);
						}
						$instruction = "";
						$bInPHP = false;
						continue;
					}

					$instruction .= $ch;

					if ($ch == " " || $ch == "\r" || $ch == "\n" || $ch == "\t")
					{
						continue;
					}
				}
				else
				{
					if ($ch == "\\" && !$bSlashed)
					{
						$bSlashed = true;
						continue;
					}
					if ($ch == $quoteChar && !$bSlashed)
					{
						$bInString = false;
						continue;
					}
					$bSlashed = false;

					$string .= $ch;
				}
			}
			else
			{
				if ($ch == "<")
				{
					if ($ind < $scriptContentLength - 5 && $allChars[$ind + 1] . $allChars[$ind + 2] . $allChars[$ind + 3] . $allChars[$ind + 4] == "?php")
					{
						$bInPHP = true;
						$ind += 4;
					}
					elseif ($ind < $scriptContentLength - 2 && $allChars[$ind + 1] == "?")
					{
						$bInPHP = true;
						$ind += 1;
					}
				}
			}
		}
		return $arComponents;
	}

	// Components 2. Parse string and check if it is a component call. Return call params array
	public static function CheckForComponent2($str)
	{
		if (str_starts_with($str, "<?php"))
		{
			$str = substr($str, 5);
		}
		else
		{
			$str = substr($str, 2);
		}

		$str = substr($str, 0, -2);

		$bSlashed = false;
		$bInString = false;
		$arAllStr = [];
		$new_str = "";
		$string_tmp = "";
		$quote_ch = "";
		$i = -1;
		$length = mb_strlen($str);
		while ($i < $length - 1)
		{
			$i++;
			$ch = mb_substr($str, $i, 1);
			if (!$bInString)
			{
				if ($string_tmp != "")
				{
					$arAllStr[] = $string_tmp;
					$string_tmp = "";
					$new_str .= chr(1) . (count($arAllStr) - 1) . chr(2);
				}

				//comment
				if ($ch == "/" && $i + 1 < $length)
				{
					$ti = 0;
					if (mb_substr($str, $i + 1, 1) == "*" && ($ti = mb_strpos($str, "*/", $i + 2)) !== false)
					{
						$ti += 1;
					}
					elseif (mb_substr($str, $i + 1, 1) == "/" && ($ti = mb_strpos($str, "\n", $i + 2)) !== false)
					{
						$ti += 0;
					}

					if ($ti)
					{
						$i = $ti;
					}

					continue;
				}

				if ($ch == " " || $ch == "\r" || $ch == "\n" || $ch == "\t")
				{
					continue;
				}
			}

			if ($bInString && $ch == "\\" && !$bSlashed)
			{
				$bSlashed = true;
				continue;
			}

			if ($ch == "\"" || $ch == "'")
			{
				if ($bInString)
				{
					if (!$bSlashed && $quote_ch == $ch)
					{
						$bInString = false;
						continue;
					}
				}
				else
				{
					$bInString = true;
					$quote_ch = $ch;
					continue;
				}
			}

			$bSlashed = false;
			if ($bInString)
			{
				$string_tmp .= $ch;
				continue;
			}

			$new_str .= $ch;
		}

		if ($pos = mb_strpos($new_str, "("))
		{
			$func_name = mb_substr($new_str, 0, $pos + 1);
			if (preg_match("/^(\\\$[A-Z_][A-Z0-9_]*)(\\s*=\\s*)/i", $func_name, $arMatch))
			{
				$var_name = $arMatch[1];
				$func_name = mb_substr($func_name, mb_strlen($arMatch[0]));
			}
			else
			{
				$var_name = "";
			}

			self::$arAllStr = $arAllStr;
			$func_name = preg_replace_callback("'\x01([0-9]+)\x02's", "PHPParser::getString", $func_name);

			$isComponent2Begin = false;
			$arIncludeComponentFunctionStrings = self::getComponentFunctionStrings();
			foreach ($arIncludeComponentFunctionStrings as $functionName)
			{
				$component2Begin = mb_strtoupper($functionName) . '(';
				if (mb_strtoupper($func_name) == $component2Begin)
				{
					$isComponent2Begin = true;
					break;
				}
			}
			if ($isComponent2Begin)
			{
				$params = mb_substr($new_str, $pos + 1);
				$arParams = static::GetParams($params);

				$arIncludeParams = [];
				$arFuncParams = [];
				static::GetParamsRec($arParams[2], $arAllStr, $arIncludeParams);
				static::GetParamsRec($arParams[4], $arAllStr, $arFuncParams);

				return [
					"COMPONENT_NAME" => static::ReplString($arParams[0], $arAllStr),
					"TEMPLATE_NAME" => static::ReplString($arParams[1], $arAllStr),
					"PARAMS" => $arIncludeParams,
					"PARENT_COMP" => $arParams[3],
					"VARIABLE" => $var_name,
					"FUNCTION_PARAMS" => $arFuncParams,
				];
			}
		}
		return false;
	}

	// Parse file and return all PHP blocks in array
	public static function ParseFile($filesrc, $limit = false)
	{
		$arScripts = [];
		$p = 0;
		$nLen = mb_strlen($filesrc);
		while (($p = mb_strpos($filesrc, "<?", $p)) !== false)
		{
			$i = $p + 2;
			$bSlashed = false;
			$bInString = false;
			$quote_ch = "";
			while ($i < $nLen - 1)
			{
				$i++;
				$ch = mb_substr($filesrc, $i, 1);
				if (!$bInString)
				{
					//comment
					if ($ch == "/" && $i + 1 < $nLen)
					{
						//php tag
						$posnext = mb_strpos($filesrc, "?>", $i);
						if ($posnext === false)
						{
							//no final tag
							break;
						}
						$posnext += 2;

						$ti = 0;
						if (mb_substr($filesrc, $i + 1, 1) == "*" && ($ti = mb_strpos($filesrc, "*/", $i + 2)) !== false)
						{
							$ti += 2;
						}
						elseif (mb_substr($filesrc, $i + 1, 1) == "/" && ($ti = mb_strpos($filesrc, "\n", $i + 2)) !== false)
						{
							$ti += 1;
						}

						if ($ti)
						{
							// begin ($i) and end ($ti) of comment
							// проверим что раньше конец скрипта или конец комментария (например в одной строке "//comment ? >")
							if ($ti > $posnext && mb_substr($filesrc, $i + 1, 1) != "*")
							{
								// скрипт закончился раньше комментария
								// вырежем скрипт
								$arScripts[] = [$p, $posnext, mb_substr($filesrc, $p, $posnext - $p)];
								break;
							}
							else
							{
								// комментарий закончился раньше скрипта
								$i = $ti - 1;
							}
						}
						continue;
					}

					if ($ch == "?" && $i + 1 < $nLen && mb_substr($filesrc, $i + 1, 1) == ">")
					{
						$i = $i + 2;
						$arScripts[] = [$p, $i, mb_substr($filesrc, $p, $i - $p)];
						break;
					}
				}

				if ($bInString && $ch == "\\" && !$bSlashed)
				{
					$bSlashed = true;
					continue;
				}

				if ($ch == "\"" || $ch == "'")
				{
					if ($bInString)
					{
						if (!$bSlashed && $quote_ch == $ch)
						{
							$bInString = false;
						}
					}
					else
					{
						$bInString = true;
						$quote_ch = $ch;
					}
				}

				$bSlashed = false;
			}
			if ($i >= $nLen)
			{
				break;
			}
			if ($limit && count($arScripts) == $limit)
			{
				break;
			}
			$p = $i;
		}
		return $arScripts;
	}

	public static function PreparePHP($str)
	{
		if (str_starts_with($str, "={") && str_ends_with($str, "}") && mb_strlen($str) > 3)
		{
			return substr($str, 2, -1);
		}

		return '"' . EscapePHPString($str) . '"';
	}

	// Return PHP string of component call params
	public static function ReturnPHPStr($arVals, $arParams)
	{
		$res = "";
		$un = md5(uniqid());
		$i = 0;
		foreach ($arVals as $key => $val)
		{
			$i++;
			$comm = ($arParams[$key]["NAME"] <> '' ? "$un|$i|// " . $arParams[$key]["NAME"] : "");
			$res .= "\r\n\t\"" . $key . "\"\t=>\t";
			if (is_array($val) && count($val) > 1)
			{
				$res .= "array(" . $comm . "\r\n";
			}

			if (is_array($val) && count($val) > 1)
			{
				$zn = '';
				foreach ($val as $p)
				{
					if ($zn != '')
					{
						$zn .= ",\r\n";
					}
					$zn .= "\t\t\t\t\t" . static::PreparePHP($p);
				}
				$res .= $zn . "\r\n\t\t\t\t),";
			}
			elseif (is_array($val))
			{
				$res .= "array(" . static::PreparePHP($val[0]) . ")," . $comm;
			}
			else
			{
				$res .= static::PreparePHP($val) . "," . $comm;
			}
		}

		$max = 0;
		$lngth = [];
		for ($j = 1; $j <= $i; $j++)
		{
			$p = mb_strpos($res, "$un|$j|");
			$pn = mb_strrpos(mb_substr($res, 0, $p), "\n");
			$l = ($p - $pn);
			$lngth[$j] = $l;
			if ($max < $l)
			{
				$max = $l;
			}
		}

		for ($j = 1; $j <= $i; $j++)
		{
			$res = str_replace($un . "|$j|", str_repeat("\t", intval(($max - $lngth[$j] + 7) / 8)), $res);
		}

		return trim($res, " \t,\r\n");
	}

	public static function ReturnPHPStrRec($arVal, $level, $comm = "")
	{
		$result = "";
		$pref = str_repeat("\t", $level + 1);
		if (is_array($arVal))
		{
			$result .= "[" . (($level == 1) ? $comm : "") . "\n";
			foreach ($arVal as $key => $value)
			{
				$result .= $pref . "\t" . ((intval($key) . "|" == $key . "|") ? $key : static::PreparePHP($key)) . " => " . static::ReturnPHPStrRec($value, $level + 1);
			}
			$result .= $pref . "],\n";
		}
		else
		{
			$result .= static::PreparePHP($arVal) . "," . (($level == 1) ? $comm : "") . "\n";
		}
		return $result;
	}

	// Components 2. Return PHP string of component call params
	public static function ReturnPHPStr2($arVals, $arParams = [])
	{
		$res = "";
		foreach ($arVals as $key => $val)
		{
			$res .= "\t\t\"" . EscapePHPString($key) . "\" => ";
			$comm = (!empty($arParams[$key]["NAME"]) ? "\t// " . $arParams[$key]["NAME"] : "");
			$res .= static::ReturnPHPStrRec($val, 1, $comm);
		}

		return trim($res, " \t,\r\n");
	}

	public static function FindComponent($component_name, $filesrc, $src_line)
	{
		/* parse source file for PHP code */
		$arComponents = static::ParseScript($filesrc);

		/* identify the component by line number */
		$arComponent = false;
		for ($i = 0, $cnt = count($arComponents); $i < $cnt; $i++)
		{
			$nLineFrom = substr_count(mb_substr($filesrc, 0, $arComponents[$i]["START"]), "\n") + 1;
			$nLineTo = substr_count(mb_substr($filesrc, 0, $arComponents[$i]["END"]), "\n") + 1;

			if ($nLineFrom <= $src_line && $nLineTo >= $src_line)
			{
				if ($arComponents[$i]["DATA"]["COMPONENT_NAME"] == $component_name)
				{
					$arComponent = $arComponents[$i];
					break;
				}
			}
			if ($nLineTo > $src_line)
			{
				break;
			}
		}
		return $arComponent;
	}

	public static function getPhpChunks($filesrc, $limit = false)
	{
		$chunks = [];
		$chunk = '';
		$php = false;
		if (function_exists("token_get_all"))
		{
			foreach (token_get_all($filesrc) as $token)
			{
				if ($php)
				{
					if (is_array($token))
					{
						$chunk .= $token[1];
						if ($token[0] === T_CLOSE_TAG)
						{
							$chunks[] = $chunk;
							$chunk = '';
							$php = false;
							if ($limit && count($chunks) == $limit)
							{
								break;
							}
						}
					}
					else
					{
						$chunk .= $token;
					}
				}
				else
				{
					if (is_array($token))
					{
						if ($token[0] === T_OPEN_TAG || $token[0] === T_OPEN_TAG_WITH_ECHO)
						{
							$chunk .= $token[1];
							$php = true;
						}
					}
				}
			}
		}
		else
		{
			foreach (static::ParseFile($filesrc, $limit) as $chunk)
			{
				$chunks[] = $chunk[2];
			}
		}

		if ($php && $chunk != '')
		{
			$chunks[] = $chunk;
		}

		return $chunks;
	}

	public static function getPageTitle($filesrc, $prolog = false)
	{
		if ($prolog === false)
		{
			$chunks = static::getPhpChunks($filesrc, 1);
			if (!empty($chunks))
			{
				$prolog = &$chunks[0];
			}
			else
			{
				$prolog = '';
			}
		}

		$title = false;

		if ($prolog != '')
		{
			if (preg_match("/\\\$APPLICATION->SetTitle\\s*\\(\\s*\"(.*?)(?<!\\\\)\"\\s*\\);/is", $prolog, $regs))
			{
				$title = UnEscapePHPString($regs[1]);
			}
			elseif (preg_match("/\\\$APPLICATION->SetTitle\\s*\\(\\s*'(.*?)(?<!\\\\)'\\s*\\);/is", $prolog, $regs))
			{
				$title = UnEscapePHPString($regs[1]);
			}
			elseif (preg_match("'<title[^>]*>([^>]+)</title[^>]*>'i", $prolog, $regs))
			{
				$title = $regs[1];
			}
		}

		if (!$title && preg_match("'<title[^>]*>([^>]+)</title[^>]*>'i", $filesrc, $regs))
		{
			$title = $regs[1];
		}

		return $title;
	}

	public static function getComponentFunctionStrings()
	{
		return [
			'$APPLICATION->IncludeComponent',
			'EventMessageThemeCompiler::includeComponent',
		];
	}

	public static function buildComponentCode(array $component, ?string $templateName = null, ?array $parameters = null): string
	{
		if ($templateName === null)
		{
			$templateName = $component['DATA']['TEMPLATE_NAME'];
		}
		if ($parameters === null)
		{
			$parameters = $component['DATA']['PARAMS'];
		}

		$functionParams = '';
		if (!empty($component['DATA']['FUNCTION_PARAMS']))
		{
			$functionParams = ",\n"
				. "\t[\n"
				. "\t\t" . static::ReturnPHPStr2($component['DATA']['FUNCTION_PARAMS']) . "\n"
				. "\t]";
		}
		elseif (!empty($component['DATA']['RETURN_RESULT']))
		{
			$functionParams = ",\n\t[]";
		}

		$code = ($component['DATA']['VARIABLE'] ? $component['DATA']['VARIABLE'] . ' = ' : '')
			. "\$APPLICATION->IncludeComponent(\n"
			. "\t\"" . $component['DATA']['COMPONENT_NAME'] . "\", \n"
			. "\t\"" . $templateName . "\", \n"
			. "\t[\n"
			. "\t\t" . static::ReturnPHPStr2($parameters) . "\n"
			. "\t],\n"
			. "\t" . (!empty($component['DATA']['PARENT_COMP']) ? $component['DATA']['PARENT_COMP'] : 'false')
			. $functionParams
			. (!empty($component['DATA']['RETURN_RESULT']) ? ",\n\t" . $component['DATA']['RETURN_RESULT'] : '')
			. "\n);";

		return $code;
	}
}