Add prefix removal for class names and variable names

src/main/php/PHPMD/Rule/Naming/LongClassName.php

@@ -26,10 +26,18 @@
 use PHPMD\Utility\Strings;
 
 /**
- * This rule checks if an interface or class name exceeds the configured length excluding certain configured suffixes
+ * This rule checks if an interface or class name exceeds the configured length
+ * excluding certain configured prefixes and suffixes
  */
 class LongClassName extends AbstractRule implements ClassAware, InterfaceAware, TraitAware, EnumAware
 {
+    /**
+     * Temporary cache of configured prefixes to subtract
+     *
+     * @var string[]|null
+     */
+    protected $subtractPrefixes;
+
     /**
      * Temporary cache of configured suffixes to subtract
      *
@@ -47,12 +55,35 @@ public function apply(AbstractNode $node)
     {
         $threshold = $this->getIntProperty('maximum');
         $classOrInterfaceName = $node->getName();
-        if (Strings::lengthWithoutSuffixes($classOrInterfaceName, $this->getSubtractSuffixList()) <= $threshold) {
+        $length = Strings::lengthWithoutPrefixesAndSuffixes(
+            $classOrInterfaceName,
+            $this->getSubtractPrefixList(),
+            $this->getSubtractSuffixList()
+        );
+
+        if ($length <= $threshold) {
             return;
         }
         $this->addViolation($node, array($classOrInterfaceName, $threshold));
     }
 
+    /**
+     * Gets array of prefixes from property
+     *
+     * @return string[]
+     */
+    protected function getSubtractPrefixList()
+    {
+        if ($this->subtractPrefixes === null) {
+            $this->subtractPrefixes = Strings::splitToList(
+                $this->getStringProperty('subtract-prefixes', ''),
+                ','
+            );
+        }
+
+        return $this->subtractPrefixes;
+    }
+
     /**
      * Gets array of suffixes from property
      *

src/main/php/PHPMD/Rule/Naming/LongVariable.php

@@ -31,6 +31,13 @@
  */
 class LongVariable extends AbstractRule implements ClassAware, MethodAware, FunctionAware, TraitAware
 {
+    /**
+     * Temporary cache of configured prefixes to subtract
+     *
+     * @var string[]|null
+     */
+    protected $subtractPrefixes;
+
     /**
      * Temporary cache of configured suffixes to subtract
      *
@@ -109,7 +116,11 @@ protected function checkMaximumLength(AbstractNode $node)
     {
         $threshold = $this->getIntProperty('maximum');
         $variableName = $node->getImage();
-        $lengthWithoutDollarSign = Strings::lengthWithoutSuffixes($variableName, $this->getSubtractSuffixList()) - 1;
+        $lengthWithoutDollarSign = Strings::lengthWithoutPrefixesAndSuffixes(
+            \ltrim($variableName, '$'),
+            $this->getSubtractPrefixList(),
+            $this->getSubtractSuffixList()
+        );
         if ($lengthWithoutDollarSign <= $threshold) {
             return;
         }
@@ -184,6 +195,20 @@ protected function isNotProcessed(AbstractNode $node)
         return !isset($this->processedVariables[$node->getImage()]);
     }
 
+    /**
+     * Gets array of suffixes from property
+     *
+     * @return string[]
+     */
+    protected function getSubtractPrefixList()
+    {
+        if ($this->subtractPrefixes === null) {
+            $this->subtractPrefixes = Strings::splitToList($this->getStringProperty('subtract-prefixes', ''), ',');
+        }
+
+        return $this->subtractPrefixes;
+    }
+
     /**
      * Gets array of suffixes from property
      *

src/main/php/PHPMD/Utility/Strings.php

@@ -33,6 +33,23 @@ class Strings
      */
     public static function lengthWithoutSuffixes($stringName, array $subtractSuffixes)
     {
+        return static::lengthWithoutPrefixesAndSuffixes($stringName, array(), $subtractSuffixes);
+    }
+
+    /**
+     * Returns the length of the given string, excluding at most one suffix
+     *
+     * @param string $stringName String to calculate the length for.
+     * @param array $subtractPrefixes List of prefixes to exclude from the calculated length.
+     * @param array $subtractSuffixes List of suffixes to exclude from the calculated length.
+     * @return int The length of the string, without suffix, if applicable.
+     */
+    public static function lengthWithoutPrefixesAndSuffixes(
+        $stringName,
+        array $subtractPrefixes,
+        array $subtractSuffixes
+    ) {
+
         $stringLength = strlen($stringName);
 
         foreach ($subtractSuffixes as $suffix) {
@@ -43,6 +60,14 @@ public static function lengthWithoutSuffixes($stringName, array $subtractSuffixe
             }
         }
 
+        foreach ($subtractPrefixes as $prefix) {
+            $prefixLength = strlen($prefix);
+            if (strncmp($stringName, $prefix, $prefixLength) === 0) {
+                $stringLength -= $prefixLength;
+                break;
+            }
+        }
+
         return $stringLength;
     }
 

src/main/resources/rulesets/naming.xml

@@ -19,6 +19,7 @@ The Naming Ruleset contains a collection of rules about names - too long, too sh
         <priority>3</priority>
         <properties>
             <property name="maximum" description="The class name length reporting threshold" value="40"/>
+            <property name="subtract-prefixes" description="Comma-separated list of prefixes that will not count in the length of the class name. Only the first matching prefix will be subtracted." value=""/>
             <property name="subtract-suffixes" description="Comma-separated list of suffixes that will not count in the length of the class name. Only the first matching suffix will be subtracted." value=""/>
         </properties>
         <example>
@@ -29,6 +30,10 @@ class ATooLongClassNameThatHintsAtADesignProblem {
 
 interface ATooLongInterfaceNameThatHintsAtADesignProblem {
 
+}
+
+class ClassGroupPrefixesThatIsUsedForGrouping {
+
 }
 ]]>
         </example>
@@ -99,12 +104,14 @@ Detects when a field, formal or local variable is declared with a long name.
         <priority>3</priority>
         <properties>
             <property name="maximum" description="The variable length reporting threshold" value="20"/>
+            <property name="subtract-prefixes" description="Comma-separated list of prefixes that will not count in the length of the variable name. Only the first matching prefix will be subtracted." value=""/>
             <property name="subtract-suffixes" description="Comma-separated list of suffixes that will not count in the length of the variable name. Only the first matching suffix will be subtracted." value=""/>
         </properties>
         <example>
             <![CDATA[
 class Something {
     protected $reallyLongIntName = -3; // VIOLATION - Field
+    protected $hungarianUintArrOptions = []; // VIOLATION - Field
     public static function main( array $interestingArgumentsList[] ) { // VIOLATION - Formal
         $otherReallyLongName = -5; // VIOLATION - Local
         for ($interestingIntIndex = 0; // VIOLATION - For

src/site/rst/rules/naming.rst

@@ -21,13 +21,21 @@ Example: ::
 
   }
 
+  class ClassGroupPrefixesThatIsUsedForGrouping {
+
+  }
+
 This rule has the following properties:
 
 +-----------------------------------+---------------+------------------------------------------------------------+
 | Name                              | Default Value | Description                                                |
 +===================================+===============+============================================================+
 | maximum                           | 40            | The class name length reporting threshold.                 |
 +-----------------------------------+---------------+------------------------------------------------------------+
+| subtract-prefixes                 |               | Comma-separated list of prefixes that will not count in    |
+|                                   |               | the length of the class name. Only the first matching      |
+|                                   |               | prefix will be subtracted.                                 |
++-----------------------------------+---------------+------------------------------------------------------------+
 | subtract-suffixes                 |               | Comma-separated list of suffixes that will not count in    |
 |                                   |               | the length of the class name. Only the first matching      |
 |                                   |               | suffix will be subtracted.                                 |
@@ -101,6 +109,7 @@ Example: ::
 
   class Something {
       protected $reallyLongIntName = -3; // VIOLATION - Field
+      protected $hungarianUintArrOptions = []; // VIOLATION - Field
       public static function main( array $interestingArgumentsList[] ) { // VIOLATION - Formal
           $otherReallyLongName = -5; // VIOLATION - Local
           for ($interestingIntIndex = 0; // VIOLATION - For
@@ -117,6 +126,11 @@ This rule has the following properties:
 +===================================+===============+===========================================+
 | maximum                           | 20            | The variable length reporting threshold   |
 +-----------------------------------+---------------+-------------------------------------------+
+| subtract-prefixes                 |               | Comma-separated list of prefixes that will|
+|                                   |               | not count in the length of the variable   |
+|                                   |               | name. Only the first matching prefix will |
+|                                   |               | be subtracted.                            |
++-----------------------------------+---------------+-------------------------------------------+
 | subtract-suffixes                 |               | Comma-separated list of suffixes that will|
 |                                   |               | not count in the length of the variable   |
 |                                   |               | name. Only the first matching suffix will |

src/test/php/PHPMD/Rule/Naming/LongClassNameTest.php

@@ -147,4 +147,19 @@ public function testRuleAppliesToClassNameLengthWithoutSuffixSubtracted()
         $rule->setReport($this->getReportWithOneViolation());
         $rule->apply($this->getClass());
     }
+
+    /**
+     * Tests that the rule applies to class name length (43) below threshold (40)
+     * not matching configured prefix length (15)
+     *
+     * @return void
+     */
+    public function testRuleAppliesToClassNameWithPrefixMatched()
+    {
+        $rule = new LongClassName();
+        $rule->addProperty('maximum', 45);
+        $rule->addProperty('subtract-prefixes', 'testRule,testRuleApplies');
+        $rule->setReport($this->getReportWithNoViolation());
+        $rule->apply($this->getClass());
+    }
 }

src/test/php/PHPMD/Rule/Naming/LongVariableTest.php

@@ -368,4 +368,18 @@ public function testRuleAppliesToVariableNameWithEmptySubtractSuffixes()
         $rule->setReport($this->getReportWithOneViolation());
         $rule->apply($this->getClass());
     }
+
+    /**
+     * testRuleAppliesToVariableNameFollowingHungarianNotation
+     *
+     * @return void
+     */
+    public function testRuleAppliesToVariableNameFollowingHungarianNotation()
+    {
+        $rule = new LongVariable();
+        $rule->addProperty('maximum', 12);
+        $rule->addProperty('subtract-prefixes', 'arru8');
+        $rule->setReport($this->getReportWithNoViolation());
+        $rule->apply($this->getClass());
+    }
 }

src/test/php/PHPMD/Utility/StringsTest.php

@@ -87,6 +87,30 @@ public function testLengthWithoutSuffixesStringWithPrefixMatchShouldNotSubtract(
         static::assertSame(11, Strings::lengthWithoutSuffixes('FooUnitTest', array('Foo', 'Bar')));
     }
 
+    /**
+     * Tests the lengthWithoutSuffixes() method that a Prefix should be matched
+     *
+     * @return void
+     */
+    public function testlengthWithPrefixesAndSuffixesStringWithPrefixMatchShouldSubtract()
+    {
+        static::assertSame(11, Strings::lengthWithoutSuffixes('FooUnitTest', array('Foo', 'Bar')));
+        static::assertSame(8, Strings::lengthWithoutSuffixes('UnitTestFoo', array('Foo', 'Bar')));
+    }
+
+    /**
+     * Tests the lengthWithoutPrefixesAndSuffixes() method that a Prefix should not be matched in order
+     *
+     * @return void
+     */
+    public function testlengthWithPrefixesAndSuffixesStringWithPrefixesMatchShouldSubtractInOrder()
+    {
+        $prefixes = array('Foo', 'Bar');
+        $suffixes = array('Foo', 'FooUnit');
+        $length = Strings::lengthWithoutPrefixesAndSuffixes('FooUnitTest', $suffixes, $prefixes);
+        static::assertSame(8, $length);
+    }
+
     /**
      * Tests the splitToList() method with an empty separator
      *

src/test/resources/files/Rule/Naming/LongClassName/testRuleAppliesToClassNameWithPrefixMatched.php

@@ -0,0 +1,24 @@
+<?php
+/**
+ * This file is part of PHP Mess Detector.
+ *
+ * Copyright (c) Manuel Pichler <mapi@phpmd.org>.
+ * All rights reserved.
+ *
+ * Licensed under BSD License
+ * For full copyright and license information, please see the LICENSE file.
+ * Redistributions of files must retain the above copyright notice.
+ *
+ * @author Manuel Pichler <mapi@phpmd.org>
+ * @copyright Manuel Pichler. All rights reserved.
+ * @license https://opensource.org/licenses/bsd-license.php BSD License
+ * @link http://phpmd.org/
+ */
+
+/**
+ * Class name length: 43
+ */
+class testRuleAppliesToClassNameWithPrefixMatched
+{
+
+}

src/test/resources/files/Rule/Naming/LongVariable/testRuleAppliesToVariableNameFollowingHungarianNotation.php

@@ -0,0 +1,21 @@
+<?php
+/**
+ * This file is part of PHP Mess Detector.
+ *
+ * Copyright (c) Manuel Pichler <mapi@phpmd.org>.
+ * All rights reserved.
+ *
+ * Licensed under BSD License
+ * For full copyright and license information, please see the LICENSE file.
+ * Redistributions of files must retain the above copyright notice.
+ *
+ * @author Manuel Pichler <mapi@phpmd.org>
+ * @copyright Manuel Pichler. All rights reserved.
+ * @license https://opensource.org/licenses/bsd-license.php BSD License
+ * @link http://phpmd.org/
+ */
+
+class testRuleAppliesToVariableNameFollowingHungarianNotation
+{
+    private $arru8NumberList;
+}