Perl::getRules() - Code Metrics - Inspection of "Perl definition" - kadet1090/KeyLighter - Measure and Improve Code Quality continuously with Scrutinizer

Passed

Push — master ( aeeab5...454cf7 )

by Kacper

created 2016-03-24 18:41 UTC

Perl::getRules() B

↳ Parent: Perl

Complexity

Conditions	1
Paths	1

Size

Total Lines	80
Code Lines	50

Duplication

Lines	0
Ratio	0 %

Importance

Changes	1
Bugs	0	Features	0

Metric	Value
c	1
b	0
f	0
dl	0
loc	80
rs	8.8387
cc	1
eloc	50
nc	1
nop	0

How to fix Long Method

<?php
/**
 * Highlighter
 *
 * Copyright (C) 2016, Some right reserved.
 *
 * @author Kacper "Kadet" Donat <[email protected]>
 *
 * Contact with author:
 * Xmpp: [email protected]
 * E-mail: [email protected]
 *
 * From Kadet with love.
 */

namespace Kadet\Highlighter\Language;


use Kadet\Highlighter\Matcher\CommentMatcher;
use Kadet\Highlighter\Matcher\RegexMatcher;
use Kadet\Highlighter\Matcher\SubStringMatcher;
use Kadet\Highlighter\Matcher\WordMatcher;
use Kadet\Highlighter\Parser\CloseRule;
use Kadet\Highlighter\Parser\OpenRule;
use Kadet\Highlighter\Parser\Rule;
use Kadet\Highlighter\Parser\Token\ContextualToken;
use Kadet\Highlighter\Parser\Token\LanguageToken;
use Kadet\Highlighter\Parser\Token\Token;
use Kadet\Highlighter\Parser\TokenFactory;

class Perl extends Language
{
    /**
     * Tokenization rules definition
     *
     * @return Rule[]|Rule[][]
     */
    public function getRules()
    {
        $identifier = '\w+';
        $number = '[+-]?(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?';

        return [
            'comment' => new Rule(new CommentMatcher(['#'], [])),

            'keyword' => new Rule(new WordMatcher([
                'case', 'continue', 'do', 'else', 'elsif', 'for', 'foreach',
                'if', 'last', 'my', 'next', 'our', 'redo', 'reset', 'then',
                'unless', 'until', 'while', 'use', 'print', 'new', 'BEGIN',
                'sub', 'CHECK', 'INIT', 'END', 'return', 'exit'
            ])),

            'string.single' => new Rule(new SubStringMatcher('\''), [
                'context' => ['!keyword', '!comment', '!string', '!language', '!number'],
                'factory' => new TokenFactory(ContextualToken::class),
            ]),

            'string.double' => new Rule(new SubStringMatcher('"'), [
                'context' => ['!keyword', '!comment', '!string', '!language', '!number'],
                'factory' => new TokenFactory(ContextualToken::class),
            ]),

            'keyword.escape' => new Rule(new RegexMatcher('/(\\\.)/'), [
                'context' => ['string']
            ]),

            'string.nowdoc'  => new Rule(
                new RegexMatcher('/<<\s*\'(\w+)\';(?P<string>.*?)\n\1/sm', [
                    'string' => Token::NAME,
                          0  => 'keyword.nowdoc'
                ]), ['context' => ['!comment']]
            ),

            'language.shell' => new Rule(new SubStringMatcher('`'), [
                'context' => ['!keyword.escape', '!comment', '!string', '!keyword.nowdoc'],
                'factory' => new TokenFactory(ContextualToken::class),
            ]),

            'variable.scalar' => new Rule(new RegexMatcher("/(\\\$$identifier)/")),
            'variable.array'  => new Rule(new RegexMatcher("/(\\@$identifier)/")),
            'variable.hash'   => new Rule(new RegexMatcher("/(\\%$identifier)/")),

            'variable.property'   => new Rule(new RegexMatcher("/\\\$$identifier{($identifier)}/")),

            // Stupidly named var? Perl one, for sure.
            'variable.special'   => new Rule(new RegexMatcher('/([$@%][^\s\w]+[\w]*)/')),

            'operator' => [
                new Rule(new RegexMatcher('/(-[rwxoRWXOezsfdlpSbctugkTBMAC])/')),
                new Rule(new WordMatcher([
                    'not', 'and', 'or', 'xor', 'goto', 'last', 'next', 'redo', 'dump',
                    'eq', 'ne', 'cmp', 'not', 'and', 'or', 'xor'
                ], ['atomic' => true])),
            ],

            'call' => new Rule(new RegexMatcher('/([a-z]\w+)(?:\s*\(|\s+[$%@"\'`{])/i')),

            'number' => [
                new Rule(new RegexMatcher("/(\\b|\"|')$number\\1/", [
                    0 => Token::NAME
                ]), ['priority' => 5]),
            ],

            'string.regex' => [
                new OpenRule(new RegexMatcher('#~\s*(/).*?/#m')),
                new Rule(new RegexMatcher('#\/.*(/[gimuy]{0,5})#m'), [
                    'priority' => 1,
                    'factory'  => new TokenFactory(ContextualToken::class),
                    'context'  => ['!keyword.escape', 'string.regex']
                ])
            ],

            'symbol.iterator' => [
                new Rule(new RegexMatcher('#(<\w+>)#s'))
            ]
        ];
    }

    /**
     * Unique language identifier, for example 'php'
     *
     * @return string
     */
    public function getIdentifier()
    {
        return 'perl';
    }

    public function getOpenClose()
    {
        return [
            parent::getOpenClose(),
            new CloseRule(new SubStringMatcher('__END__'), [
                'factory'  => new TokenFactory(LanguageToken::class),
                'language' => $this
            ])
        ];
    }
}

1			<?php
2			/**
3			* Highlighter
4			*
5			* Copyright (C) 2016, Some right reserved.
6			*
7			* @author Kacper "Kadet" Donat <[email protected]>
8			*
9			* Contact with author:
10			* Xmpp: [email protected]
11			* E-mail: [email protected]
12			*
13			* From Kadet with love.
14			*/
15
16			namespace Kadet\Highlighter\Language;
17
18
19			use Kadet\Highlighter\Matcher\CommentMatcher;
20			use Kadet\Highlighter\Matcher\RegexMatcher;
21			use Kadet\Highlighter\Matcher\SubStringMatcher;
22			use Kadet\Highlighter\Matcher\WordMatcher;
23			use Kadet\Highlighter\Parser\CloseRule;
24			use Kadet\Highlighter\Parser\OpenRule;
25			use Kadet\Highlighter\Parser\Rule;
26			use Kadet\Highlighter\Parser\Token\ContextualToken;
27			use Kadet\Highlighter\Parser\Token\LanguageToken;
28			use Kadet\Highlighter\Parser\Token\Token;
29			use Kadet\Highlighter\Parser\TokenFactory;
30
31			class Perl extends Language
32			{
33			/**
34			* Tokenization rules definition
35			*
36			* @return Rule[]\|Rule[][]
37			*/
38			public function getRules()
39			{
40			$identifier = '\w+';
41			$number = '[+-]?(?=\d\|\.\d)\d(\.\d)?([Ee]([+-]?\d+))?';
42
43			return [
44			'comment' => new Rule(new CommentMatcher(['#'], [])),
45
46			'keyword' => new Rule(new WordMatcher([
47			'case', 'continue', 'do', 'else', 'elsif', 'for', 'foreach',
48			'if', 'last', 'my', 'next', 'our', 'redo', 'reset', 'then',
49			'unless', 'until', 'while', 'use', 'print', 'new', 'BEGIN',
50			'sub', 'CHECK', 'INIT', 'END', 'return', 'exit'
51			])),
52
53			'string.single' => new Rule(new SubStringMatcher('\''), [
54			'context' => ['!keyword', '!comment', '!string', '!language', '!number'],
55			'factory' => new TokenFactory(ContextualToken::class),
56			]),
57
58			'string.double' => new Rule(new SubStringMatcher('"'), [
59			'context' => ['!keyword', '!comment', '!string', '!language', '!number'],
60			'factory' => new TokenFactory(ContextualToken::class),
61			]),
62
63			'keyword.escape' => new Rule(new RegexMatcher('/(\\\.)/'), [
64			'context' => ['string']
65			]),
66
67			'string.nowdoc' => new Rule(
68			new RegexMatcher('/<<\s\'(\w+)\';(?P<string>.?)\n\1/sm', [
69			'string' => Token::NAME,
70			0 => 'keyword.nowdoc'
71			]), ['context' => ['!comment']]
72			),
73
74			'language.shell' => new Rule(new SubStringMatcher('`'), [
75			'context' => ['!keyword.escape', '!comment', '!string', '!keyword.nowdoc'],
76			'factory' => new TokenFactory(ContextualToken::class),
77			]),
78
79			'variable.scalar' => new Rule(new RegexMatcher("/(\\\$$identifier)/")),
80			'variable.array' => new Rule(new RegexMatcher("/(\\@$identifier)/")),
81			'variable.hash' => new Rule(new RegexMatcher("/(\\%$identifier)/")),
82
83			'variable.property' => new Rule(new RegexMatcher("/\\\$$identifier{($identifier)}/")),
84
85			// Stupidly named var? Perl one, for sure.
86			'variable.special' => new Rule(new RegexMatcher('/([$@%][^\s\w]+[\w]*)/')),
87
88			'operator' => [
89			new Rule(new RegexMatcher('/(-[rwxoRWXOezsfdlpSbctugkTBMAC])/')),
90			new Rule(new WordMatcher([
91			'not', 'and', 'or', 'xor', 'goto', 'last', 'next', 'redo', 'dump',
92			'eq', 'ne', 'cmp', 'not', 'and', 'or', 'xor'
93			], ['atomic' => true])),
94			],
95
96			'call' => new Rule(new RegexMatcher('/([a-z]\w+)(?:\s*\(\|\s+[$%@"\'`{])/i')),
97
98			'number' => [
99			new Rule(new RegexMatcher("/(\\b\|\"\|')$number\\1/", [
100			0 => Token::NAME
101			]), ['priority' => 5]),
102			],
103
104			'string.regex' => [
105			new OpenRule(new RegexMatcher('#~\s(/).?/#m')),
106			new Rule(new RegexMatcher('#\/.*(/[gimuy]{0,5})#m'), [
107			'priority' => 1,
108			'factory' => new TokenFactory(ContextualToken::class),
109			'context' => ['!keyword.escape', 'string.regex']
110			])
111			],
112
113			'symbol.iterator' => [
114			new Rule(new RegexMatcher('#(<\w+>)#s'))
115			]
116			];
117			}
118
119			/**
120			* Unique language identifier, for example 'php'
121			*
122			* @return string
123			*/
124			public function getIdentifier()
125			{
126			return 'perl';
127			}
128
129			public function getOpenClose()
130			{
131			return [
132			parent::getOpenClose(),
133			new CloseRule(new SubStringMatcher('__END__'), [
134			'factory' => new TokenFactory(LanguageToken::class),
135			'language' => $this
136			])
137			];
138			}
139			}

kadet1090 / KeyLighter

Push — master ( aeeab5...454cf7 )

Perl::getRules() B

Complexity

Size

Duplication

Importance

How to fix Long Method

Long Method

Duplication Side-by-Side

Filter issues like