Adding support of php 8.0

Author: Dr-Alex

src-php/EMT.Lib.php

@@ -197,9 +197,9 @@ public static function remove_html_tags($text, $allowableTag = null)
     public static function safe_tag_chars($text, $way)
     {
     	if ($way) 
-        	$text = preg_replace_callback('/(\<\/?)([^<>]+?)(\>)/s', create_function('$m','return (strlen($m[1])==1 && substr(trim($m[2]), 0, 1) == \'-\' && substr(trim($m[2]), 1, 1) != \'-\')? $m[0] : $m[1].( substr(trim($m[2]), 0, 1) === "a" ? "%%___"  : ""  ) . EMT_Lib::encrypt_tag(trim($m[2]))  . $m[3];'), $text);
+        	$text = preg_replace_callback('/(\<\/?)([^<>]+?)(\>)/s', EMT_Lib::create_function('$m','return (strlen($m[1])==1 && substr(trim($m[2]), 0, 1) == \'-\' && substr(trim($m[2]), 1, 1) != \'-\')? $m[0] : $m[1].( substr(trim($m[2]), 0, 1) === "a" ? "%%___"  : ""  ) . EMT_Lib::encrypt_tag(trim($m[2]))  . $m[3];'), $text);
         else
-        	$text = preg_replace_callback('/(\<\/?)([^<>]+?)(\>)/s', create_function('$m','return (strlen($m[1])==1 && substr(trim($m[2]), 0, 1) == \'-\' && substr(trim($m[2]), 1, 1) != \'-\')? $m[0] : $m[1].( substr(trim($m[2]), 0, 3) === "%%___" ? EMT_Lib::decrypt_tag(substr(trim($m[2]), 4)) : EMT_Lib::decrypt_tag(trim($m[2])) ) . $m[3];'), $text);	
+        	$text = preg_replace_callback('/(\<\/?)([^<>]+?)(\>)/s', EMT_Lib::create_function('$m','return (strlen($m[1])==1 && substr(trim($m[2]), 0, 1) == \'-\' && substr(trim($m[2]), 1, 1) != \'-\')? $m[0] : $m[1].( substr(trim($m[2]), 0, 3) === "%%___" ? EMT_Lib::decrypt_tag(substr(trim($m[2]), 4)) : EMT_Lib::decrypt_tag(trim($m[2])) ) . $m[3];'), $text);	
         return $text;
     }
 
@@ -212,7 +212,7 @@ public static function safe_tag_chars($text, $way)
      */
     public static function decode_internal_blocks($text)
     {
-    	$text = preg_replace_callback('/'.EMT_Lib::INTERNAL_BLOCK_OPEN.'([a-zA-Z0-9\/=]+?)'.EMT_Lib::INTERNAL_BLOCK_CLOSE.'/s', create_function('$m','return EMT_Lib::decrypt_tag($m[1]);'), $text);	
+    	$text = preg_replace_callback('/'.EMT_Lib::INTERNAL_BLOCK_OPEN.'([a-zA-Z0-9\/=]+?)'.EMT_Lib::INTERNAL_BLOCK_CLOSE.'/s', EMT_Lib::create_function('$m','return EMT_Lib::decrypt_tag($m[1]);'), $text);	
         return $text;
     }
 
@@ -341,6 +341,15 @@ public static function strpos_ex(&$haystack, $needle, $offset = null)
     	return strpos($haystack, $needle, $offset);    	
     }
 
+    public static function create_function($args, $code) {
+		if (version_compare(PHP_VERSION, '7.0.0') < 0) {
+			return create_function($args, $code);
+		}
+		$closure = false;
+		eval('$closure = function('.$args.') { '.$code.' }; ');
+		return $closure;
+	}
+    
     public static function _process_selector_pattern(&$pattern)
 	{
 		if($pattern===false) return;
@@ -649,13 +658,13 @@ public static function html_char_entity_to_unicode($entity)
 	public static function convert_html_entities_to_unicode(&$text)
 	{
 		$text = preg_replace_callback("/\&#([0-9]+)\;/", 
-				create_function('$m', 'return EMT_Lib::_getUnicodeChar(intval($m[1]));')
+				EMT_Lib::create_function('$m', 'return EMT_Lib::_getUnicodeChar(intval($m[1]));')
 				, $text);
 		$text = preg_replace_callback("/\&#x([0-9A-F]+)\;/", 
-				create_function('$m', 'return EMT_Lib::_getUnicodeChar(hexdec($m[1]));')
+				EMT_Lib::create_function('$m', 'return EMT_Lib::_getUnicodeChar(hexdec($m[1]));')
 				, $text);
 		$text = preg_replace_callback("/\&([a-zA-Z0-9]+)\;/", 
-				create_function('$m', '$r = EMT_Lib::html_char_entity_to_unicode($m[1]); return $r ? $r : $m[0];')
+				EMT_Lib::create_function('$m', '$r = EMT_Lib::html_char_entity_to_unicode($m[1]); return $r ? $r : $m[0];')
 				, $text);
 	}
 
@@ -701,7 +710,7 @@ public static function url_regex() {
 URLREGEX;
 		*/
 		return <<<URLREGEX
-#(?i)\b((?:[a-z][\w-]+:(?:/{1,3}|[a-z0-9%])|www\d{0,3}[.]|[a-z0-9.\-]+[.][a-z]{2,4}/)(?:[^\s()<>]+|\(([^\s()<>]+|(\([^\s()<>]+\)))*\))+(?:\(([^\s()<>]+|(\([^\s()<>]+\)))*\)|[^\s`!()\[\]{};:'".,<>?«»“”‘’]))#iS
+#(?i)\b((?:[a-z][\w-]+:(?:/{1,3}|[a-z0-9%])|www\d{0,3}[.]|[a-z0-9.\-]+[.][a-z]{2,4}/)(?:[^\s()<>]+|\(([^\s()<>]+|(\([^\s()<>]+\)))*\))+(?:\(([^\s()<>]+|(\([^\s()<>]+\)))*\)|[^\s`!()\[\]{};:'".,<>?«»“”‘’]))#iSu
 URLREGEX;
 
 		/*

src-php/EMT.Tret.Quote.php

@@ -130,7 +130,7 @@ protected function build_sub_quotations()
 							if($__ax)
 							{
 								$k = preg_replace_callback("/(^|[^0-9])([0-9]+)\&raquo\;/ui", 
-									create_function('$m','global $__ax,$__ay; $__ay++; if($__ay==$__ax){ return $m[1].$m[2]."″";} return $m[0];'), 
+									EMT_Lib::create_function('$m','global $__ax,$__ay; $__ay++; if($__ay==$__ax){ return $m[1].$m[2]."″";} return $m[0];'), 
 									$k);
 								$amount = 1;
 							}

src-php/EMT.Tret.php

@@ -208,7 +208,7 @@ private function apply_rule($rule)
 					}
 					$this->error('Функция '.$rule['function'].' из правила '.$rule['id']. " не найдена");
 				} else {
-					$this->_text = preg_replace_callback($rule['pattern'],  create_function('$m', $rule['function']), $this->_text);
+					$this->_text = preg_replace_callback($rule['pattern'],  EMT_Lib::create_function('$m', $rule['function']), $this->_text);
 					$this->log('Замена с использованием preg_replace_callback с инлайн функцией из правила '.$rule['id']);
 					return;
 				}

src-php/EMT.php

@@ -253,7 +253,7 @@ public function safe_blocks($text, $way, $show = true)
     		$safeblocks = true === $way ? $this->_safe_blocks : array_reverse($this->_safe_blocks);
        		foreach ($safeblocks as $block) 
        		{
-        		$text = preg_replace_callback("/({$block['open']})(.+?)({$block['close']})/s",   create_function('$m','return $m[1].'.$safeType . '.$m[3];')   , $text);
+        		$text = preg_replace_callback("/({$block['open']})(.+?)({$block['close']})/s",   EMT_Lib::create_function('$m','return $m[1].'.$safeType . '.$m[3];')   , $text);
         	}
     	}