From 903ae8a581fac1e6917fc3e31d2ad8fb91df80c3 Mon Sep 17 00:00:00 2001 From: ctrlaltca <> Date: Thu, 12 Jul 2012 11:21:01 +0000 Subject: standardize the use of unix eol; use svn properties to enforce native eol --- .../TextHighlighter/Text/Highlighter/PERL.php | 90 +++++++++++----------- 1 file changed, 45 insertions(+), 45 deletions(-) (limited to 'framework/3rdParty/TextHighlighter/Text/Highlighter/PERL.php') diff --git a/framework/3rdParty/TextHighlighter/Text/Highlighter/PERL.php b/framework/3rdParty/TextHighlighter/Text/Highlighter/PERL.php index ace0d37c..9e8bd752 100644 --- a/framework/3rdParty/TextHighlighter/Text/Highlighter/PERL.php +++ b/framework/3rdParty/TextHighlighter/Text/Highlighter/PERL.php @@ -1,56 +1,56 @@ - * @author Andrey Demenev - * - */ - -/** - * Auto-generated class. PERL syntax highlighting - * + * + */ + +/** + * Auto-generated class. PERL syntax highlighting + * * @author Mariusz 'kg' Jakubowski * @author Andrey Demenev - * @category Text - * @package Text_Highlighter - * @copyright 2004-2006 Andrey Demenev - * @license http://www.php.net/license/3_0.txt PHP License - * @version Release: 0.7.0 - * @link http://pear.php.net/package/Text_Highlighter - */ -class Text_Highlighter_PERL extends Text_Highlighter -{ + * @category Text + * @package Text_Highlighter + * @copyright 2004-2006 Andrey Demenev + * @license http://www.php.net/license/3_0.txt PHP License + * @version Release: 0.7.0 + * @link http://pear.php.net/package/Text_Highlighter + */ +class Text_Highlighter_PERL extends Text_Highlighter +{ var $_language = 'perl'; - /** - * Constructor - * - * @param array $options - * @access public - */ - function __construct($options=array()) - { - + /** + * Constructor + * + * @param array $options + * @access public + */ + function __construct($options=array()) + { + $this->_options = $options; $this->_regs = array ( -1 => '/((?m)^(#!)(.*))|((?m)^=\\w+)|(\\{)|(\\()|(\\[)|((use)\\s+([\\w:]*))|([& ](\\w{2,}::)+\\w{2,})|((?Us)\\b(q[wq]\\s*((\\{)|(\\()|(\\[)|(\\<)|([\\W\\S])))(?=(.*)((?(3)\\})(?(4)\\))(?(5)\\])(?(6)\\>)(?(7)\\7))))|((?Us)\\b(q\\s*((\\{)|(\\()|(\\[)|(\\<)|([\\W\\S])))(?=(.*)((?(3)\\})(?(4)\\))(?(5)\\])(?(6)\\>)(?(7)\\7))))|(#.*)|((?x)(s|tr) ([|#~`!@$%^&*-+=\\\\;:\'",.\\/?]) ((\\\\.|[^\\\\])*?) (\\2)((\\\\.|[^\\\\])*?)(\\2[ecgimosx]*))|((?x)(m) ([|#~`!@$%^&*-+=\\\\;:\'",.\\/?]) ((\\\\.|[^\\\\])*?) (\\2[ecgimosx]*))|( \\/)|(\\$#?[1-9\'`@!])|((?i)(\\$#?|[@%*])([a-z1-9_]+::)*([a-z1-9_]+|\\^(?-i)[A-Z]?(?i)))|((?i)\\$([a-z1-9_]+|\\^(?-i)[A-Z]?(?i)))|((?i)(&|\\w+)\'[\\w_\']+\\b)|((?i)(\\{)([a-z1-9]+)(\\}))|((?i)[\\$@%]#?\\{[a-z1-9]+\\})|(`)|(\')|(")|((?i)[a-z_]\\w*)|(\\d*\\.?\\d+)/', @@ -1327,8 +1327,8 @@ class Text_Highlighter_PERL extends Text_Highlighter 'missingreserved' => 'reserved', 'flowcontrol' => 'reserved', ); - $this->_defClass = 'code'; - $this->_checkDefines(); - } - + $this->_defClass = 'code'; + $this->_checkDefines(); + } + } \ No newline at end of file -- cgit v1.2.3