Copy Page

You are not logged in. Any changes you make will be marked as anonymous. You may want to Log In if you already have an account. You can also Sign Up for a new account.

<div><table class="wysiwyg-macro" data-macro-name="unmigrated-inline-wiki-markup" data-macro-parameters="atlassian-macro-output-type=BLOCK" style="background-image: url(/plugins/servlet/confluence/placeholder/macro-heading?definition=e3VubWlncmF0ZWQtaW5saW5lLXdpa2ktbWFya3VwOmF0bGFzc2lhbi1tYWNyby1vdXRwdXQtdHlwZT1CTE9DS30&amp;locale=en_GB&amp;version=2); background-repeat: no-repeat;" data-macro-body-type="PLAIN_TEXT"><tr><td class="wysiwyg-macro-body"><pre>{iframe:src=http://update.sonarsource.org/plugins/delphi.html|width=700|height=250|frameborder=0}
Your browser does not support iframes.
{iframe}</pre></td></tr></table><div> </div><h1>Description / Features</h1><div>This plugin is donation of <a href="http://www.sabreairlinesolutions.com/home/">Sabre Airline Solutions</a></div>Delphi Sonar plugin enables analysis of projects written using Delphi or Pascal. It was tested with projects written in Delphi 6, 7, 2006 and XE.It is using grammar in ANTLR v3 format. It is extended on grammar found at <a href="http://www.dragonkiller.nl/Delphi/delphi2009.txt">http://www.dragonkiller.nl/Delphi/delphi2009.txt</a>It is compatible with the <a class="confluence-link" href="/display/SONAR/Issues+Report+Plugin" data-linked-resource-id="230398911" data-linked-resource-type="page" data-linked-resource-default-alias="Issues Report Plugin" data-base-url="http://docs.codehaus.org">Issues Report plugin</a> to run pre-commit local analysis.<h1>Installation</h1><ol><li>Install the Delphi plugin through the <a href="http://docs.codehaus.org/display/SONAR/Update+Center">Update Center</a> or download it into the SONAR_HOME/extensions/plugins directory</li><li>Restart the Sonar server</li></ol><h1>Usage</h1><h3>Run a Sonar Analysis with the Sonar Runner (Recommended Way)</h3>To launch a Sonar analysis of your Delphi project, use the <a href="http://docs.codehaus.org/display/SONAR/Analyzing+with+Sonar+Runner">Sonar Runner</a>.A sample project is available on github that can be <a class="external-link" href="https://github.com/SonarSource/sonar-examples" rel="nofollow">browsed</a> or <a class="external-link" href="https://github.com/SonarSource/sonar-examples/zipball/master" rel="nofollow">downloaded</a>: /projects/languages/delphi/delphi-sonar-runner.<h3>Run a Sonar Analysis with the other Analyzers</h3><a href="http://docs.codehaus.org/display/SONAR/Analyzing+with+Maven">Maven</a> and <a href="http://docs.codehaus.org/display/SONAR/Analyzing+with+Ant+Task">Ant</a> can also be used to launch analysis on Delphi projects.</div>You can find a sample project in &quot;src/Sample/SampleProject&quot;. It contains an Ant script, which you can use to do the analysis. You must have ANT installed.Install the Delphi plugin on your Sonar instance, and type &quot;ant sonar&quot; from sample project directory in order to try the plugin.<h1>Metrics</h1>See <a class="confluence-link" href="/display/SONAR/Metric+definitions" data-linked-resource-id="230397406" data-linked-resource-type="page" data-linked-resource-default-alias="Metric definitions" data-base-url="http://docs.codehaus.org">Metrics documentation page</a>.<h1>IMPLEMENTED FEATURES</h1><ol><li>Counting lines of code, statements, number of files</li><li>Counting number of classes, number of packages, methods, accessors</li><li>Counting number of public API (methods, classes and fields)</li><li>Counting comments ratio, comment lines (including blank lines)</li><li>CPD (code duplication, how many lines, block and in how many files)</li><li>Code Complexity (per method, class, file; complexity distribution over methods, classes and files)</li><li>LCOM4 and RFC</li><li>Code colorization</li><li>Unit tests reports</li><li>Assembler syntax in grammar</li><li>Include statement</li><li>Parsing preprocessor statements</li><li>Rules</li><li>Code coverage reports</li><li>Source code highlight for unit tests</li><li>“Dead” code recognition</li><li>Unused files recognition</li></ol><h1>NOT IMPLEMENTED FEATURES (TODO)</h1><ol><li>Package tangle index</li></ol><h1>CODE ASSUMPTIONS</h1><ol><li>Grammar has problems with recognizing certain identifiers. When we add whitespace (“ “) at several places, everything works fine. It was difficult to solve this problem from the grammar level, so it is solved in DelphiSourceSanitizer class. It adds whitespaces where there are needed in parsed file, and grammar works fine. It is used for: <ol><li>Colon, “:” -&gt; “ :”</li><li>Array range, “x..y” -&gt; “x .. y”</li></ol></li><li>Grammar is NOT case insensitive, but Delphi code is. Plugin deals with it by DelphiSourceSanitizer class, which feeds ANTLR parser lowercase characters (the “LA” method)</li><li>Number of classes includes: classes, records</li><li>Directory is count as a package. Number of packages equals number of directories.</li><li>Preprocessor definitions between {$if xxx} and {$ifend} are removed (DefineResolver class).</li><li>Sources imported to Sonar are parsed through IncludeResolver class. It means, that the source will be lowercased and unknown preprocessor definitions will be cut out.</li></ol><h1>GRAMMAR ASSUMPTIONS</h1>All assumptions in grammar file are commented with //ASSUMPTION comment.<ol><li>“ident” rule – was extended, now it uses some keywords that were used as variable names in source code, ex. “name”, “readonly”, “index”. If you use more keywords as variable names or function names, you should extend the rule further.</li><li>The grammar has problem with proper recognizing identifier that ends with “:” (“e:” does not work, does not recognize “e” as identifier), see code assumption 1 for solution.</li><li>The grammar has problem with proper array range recognizing (“array[1..2]” does not work), see code assumption 1 for solution.</li><li>The grammar is not case-insensitive, and it should be. For parsing files using ANTLRWorks, convert them to lowercase. Plugin deals with it automatically, by AntlrNoCaseFileStream class.</li></ol><h1>MOST COMMON GRAMMAR PROBLEMS (FIXED):</h1>Below is the list of the most common grammar problems. You can also look at file GrammarTest.pas to get more detailed information.<ol><li>On e: exception do</li><li>Name = procedure (x: integer) of object;</li><li>Using keywords as variable names (ex. continue,  message, name, db)</li><li>Array[1..2]</li><li>@address = someProcedure(x,y);</li><li>(expression).namespace.ident = x;</li><li>Default function argument values crashed AbstractAnalyser</li><li>Inherited;</li><li>if (tempstr[1] in ['0' .. '9', 'a' .. 'z'] = false) then</li><li>str: string[3];</li><li>function tfilewriter.writebytes(var ibytes; isize : dword) : boolean;</li><li>DetailedDescription    : array of Byte;</li><li>ferrorlist : tlist&lt;string&gt;;</li><li>Delphi complier does not require “;” at the end of except statement:</li></ol>On e: exception doBeginEnd<h1>DEBUGGING GRAMMAR FROM ANTLRWORKS</h1>If you want to debug grammar from AntlrWorks, do the following:<ol><li>Convert file to be parsed to lowercase</li><li>Apply all transformations mentioned in code assumption 1.</li><li>Use more Java heap space while running AntlrWorks, ex. 1024M (java –Xmx1024m)</li></ol><h1>DUNIT  TESTS</h1>You should put transformed DUnit xml files to directory specified in build.xml file, under sonar.surefire.reportsPath parameter. You can specify multiply directories separated by ‘,’. Then all specified directories will be parsed. The path can be either absolute or relative to the project main path.The xml files should be renamed with “TEST-“ prefix, example: “dunit.xml” -&gt; “TEST-dunit.xml”.<h1>CODE COVERAGE WITH AQTIME</h1>CodeCoverageSensor class is responsible for running CC analysis. It creates a parser that connects to specified data base holding AQTime generated CC report. Connection properties can be specified in a build.xml or pom.xml file (see below). If parser can’t connect to the data base, analysis is skipped.You can specify exclude directories in build xml file, under sonar.delphi.codecoverage.excluded parameter. The files in specified directories will be not checked for code coverage.<h1>DELPHICSOURCESANITIZER CLASS</h1>This class prepares source code for parsing. It does the following:-          Parse preprocessor definitions (using DefineResolver class)-          Add include files (using IncludeResolver class)-          “Fix” the code as explained in code assumption 1 (using SourceFixcerResolver class).-          Feed ANTLR parser with lowercase characters (code assumption 2).To properly do this things, the class firstly searches for areas that should not be parsed: comments and single quoted strings. Why? For example, you can have such piece of code:<pre>X := 5;    //{$include file.inc}</pre><pre>S := ‘my {$include file.inc} string’;</pre>Without recognizing which areas to exclude, the parser would simply copy-paste the file “file.inc” into a comment or a string, and this would produce an error.<h1>ANT BUILD.XML / MAVEN POM.XML</h1>There are few additional project parameters that you can set in Ant’s build.xml.<table class="confluenceTable"><tbody><tr><td class="confluenceTd">KEY</td><td class="confluenceTd">DESCRIPTION</td><td class="confluenceTd">EXAMPLE</td></tr><tr><td class="confluenceTd">sonar.delphi.sources.excluded</td><td class="confluenceTd">Excluded directories, they won’t be parsed and metrics won’t be calculated for them. Path’s can be relative to main project directory or absolute. Separate them with ‘,’.Default value is “”.</td><td class="confluenceTd">&lt;property key=&quot;sonar.delphi.sources.excluded &quot; value=&quot;excluded\directory, another\excluded,c:\something&quot; /&gt; </td></tr><tr><td class="confluenceTd">sonar.delphi.codecoverage.excluded</td><td class="confluenceTd">Code coverage excluded directories list. Files in those directories will not be checked for code coverage. Default value is “”.</td><td class="confluenceTd">&lt;property key=&quot;sonar.delphi.codecoverage.excluded&quot; value=&quot;cc\test\excluded,c:\sth&quot; /&gt;</td></tr><tr><td class="confluenceTd">sonar.delphi.sources.include</td><td class="confluenceTd">Path to include directories for files included with {$include} or {$i} directive.Default value is “”.</td><td class="confluenceTd">&lt;property key=&quot;sonar.delphi.sources.include&quot; value=&quot;includes_dir,includes_dir2&quot; /&gt;</td></tr><tr><td class="confluenceTd">sonar.delphi.sources.include.extend</td><td class="confluenceTd">Should we extend (copy-paste) include files? Possible values are “true” or “false”.  Default value is “true”.</td><td class="confluenceTd">&lt;property key=&quot;sonar.delphi.sources.include.extend&quot; value=&quot;true&quot;&gt;</td></tr><tr><td class="confluenceTd">sonar.delphi.sources.projects</td><td class="confluenceTd">Project file. If provided, will be parsed for include lookup path, project source files and preprocessor definitions. Default value is “”.</td><td class="confluenceTd">&lt;property key=&quot; sonar.delphi.sources.project&quot; value=&quot;projects\myProject.dproj&quot;&gt;</td></tr><tr><td class="confluenceTd">sonar.delphi.sources.workgroup</td><td class="confluenceTd">Workgroup file. If provided, will be parsed, then all *.dproj files found in workgroup file will be parsed.</td><td class="confluenceTd">&lt;property key=&quot; sonar.delphi.sources.workgroup&quot; value=&quot;projects\All.groupproj&quot;&gt;</td></tr><tr><td class="confluenceTd">sonar.delphi.codecoverage.aqtime.jdbc.driver</td><td class="confluenceTd">Class name for JDBC driver. Default value is “net.sourceforge.jtds.jdbc.Driver”</td><td class="confluenceTd">&lt;property key=&quot;sonar.delphi.codecoverage.aqtime.jdbc.driver&quot; value=&quot;net.sourceforge.jtds.jdbc.Driver&quot; /&gt;</td></tr><tr><td class="confluenceTd">sonar.delphi.codecoverage.aqtime.jdbc.url</td><td class="confluenceTd">Database connection url. Default value is “”.</td><td class="confluenceTd">&lt;property key=&quot;sonar.delphi.codecoverage.aqtime.jdbc.url&quot; value=&quot;<a>jdbc:jtds:sqlserver://localhost</a>&quot; /&gt;</td></tr><tr><td class="confluenceTd">sonar.delphi.codecoverage.aqtime.jdbc.user</td><td class="confluenceTd">Database user name. Default value is “”.</td><td class="confluenceTd">&lt;property key=&quot;sonar.delphi.codecoverage.aqtime.jdbc.user&quot; value=&quot;admin&quot; /&gt;</td></tr><tr><td class="confluenceTd">sonar.delphi.codecoverage.aqtime.jdbc.password</td><td class="confluenceTd">Database user password. Default value is “”.</td><td class="confluenceTd">&lt;property key=&quot;sonar.delphi.codecoverage.aqtime.jdbc.password&quot; value=&quot;pass&quot; /&gt;</td></tr><tr><td colspan="1" class="confluenceTd">sonar.delphi.codecoverage.aqtime.jdbc.prefix</td><td colspan="1" class="confluenceTd">Database prefix for connecting to AQTime database. Default value is &quot;&quot;.</td><td colspan="1" class="confluenceTd">&lt;property key=&quot;sonar.delphi.codecoverage.aqtime.jdbc.prefix&quot;   value=&quot;CC.dbo.&quot; /&gt;</td></tr></tbody></table> <h1>CUSTOM PMD RULES</h1>If you want to make a custom PMD rule, you can do it in two ways:WRITE YOUR OWN CLASSCreate rule class, that extends from org.sonar.plugins.delphi.pmd.rules.DelphiRule class. You will need to overload visit(DelphiPMDNode node, Object data) method. You will have the current ast tree node and whole ast tree to your disposal. If you want to save a violation, invoke addViolation(Object data, DelphiPMDNode node) method.If you want to initialize some class variables at start of each file, overload the init() method. Look at the org.sonar.plugins.delphi.pmd.rules package for sample classes.After you write your class, modify the “rules.xml” and “default-delphi-profile.xml”, simply add your class to the list.WRITE XPATH SENTENCEYou can write an XPath sentence which will parse the whole file. Open the “rules.xml” file, copy one of the XPath rules already available and change the “xpath” property to your XPath string. Don’t forget to add the rule to “default-delphi-profile.xml”. That’s it!<h1>IMPLEMENTED RULES</h1>For full summary (description, examples) of custom PMD rules, do the following: execute Sonar -&gt; Configuration -&gt; Default Delphi Profile and browse the rules under Delphi profile.List of implemented rules, as follows:<table class="confluenceTable"><tbody><tr><td class="confluenceTd">RULE NAME</td><td class="confluenceTd">RULE PRIORITY</td></tr><tr><td class="confluenceTd">1.       Then Try Rule (you should place ‘begin’ before ‘try’)</td><td class="confluenceTd">3</td></tr><tr><td class="confluenceTd">2.       One Class Per File Rule (one class per file permitted)</td><td class="confluenceTd">3</td></tr><tr><td class="confluenceTd">3.       Inherited Method With No Code Rule (method that only inherits behavior)</td><td class="confluenceTd">2</td></tr><tr><td class="confluenceTd">4.       Empty Except Block Rule (empty ‘except’ block, catching no exceptions)</td><td class="confluenceTd">1</td></tr><tr><td class="confluenceTd">5.       Empty Interface Rule (empty interface)</td><td class="confluenceTd">2</td></tr><tr><td class="confluenceTd">6.       Empty Then Statement Rule (empty ‘then’ statement)</td><td class="confluenceTd">2</td></tr><tr><td class="confluenceTd">7.       Empty Begin Statement Rule (empty ‘begin’ .. ‘end’ statement)</td><td class="confluenceTd">2</td></tr><tr><td class="confluenceTd">8.       Empty Else Statement Rule (empty ‘else’ statement)</td><td class="confluenceTd">2</td></tr><tr><td class="confluenceTd">9.       Too Long Method Rule (method too long, above certain line limit)</td><td class="confluenceTd">3</td></tr><tr><td class="confluenceTd">10.   Too Many Arguments Rule (to many function/procedure arguments)</td><td class="confluenceTd">3</td></tr><tr><td class="confluenceTd">11.   Too Many Variables Rule (to many variables in a function/procedure)</td><td class="confluenceTd">3</td></tr><tr><td class="confluenceTd">12.   No Semi After Overload Rule (no semicolon ‘;’ after ‘overload’ keyword)</td><td class="confluenceTd">4</td></tr><tr><td class="confluenceTd">13.   No Function Return Type Rule (function with no return type specified)</td><td class="confluenceTd">3</td></tr><tr><td class="confluenceTd">14.   Interface Name Rule (interface name should begin with ‘I’ letter)</td><td class="confluenceTd">4</td></tr><tr><td class="confluenceTd">15.   Class Name Rule (class name should begin with ‘T’ letter)</td><td class="confluenceTd">4</td></tr><tr><td class="confluenceTd">16.   Record Name Rule (record name should begin with ‘T’ letter)</td><td class="confluenceTd">4</td></tr><tr><td class="confluenceTd">17.   Catching General Exception Rule (catching Exception class in ‘except’ statement)</td><td class="confluenceTd">3</td></tr><tr><td class="confluenceTd">18.   Raising General Exception Rule (raising Exception class in ‘raise’ statement)</td><td class="confluenceTd">3</td></tr><tr><td class="confluenceTd">19.   Avoid Out Parameter Rule (using ‘out’ arguments)</td><td class="confluenceTd">4</td></tr><tr><td class="confluenceTd">20.   If True Rule (convert ‘if(x=true) then’ to ‘if (x) then’)</td><td class="confluenceTd">4</td></tr><tr><td class="confluenceTd">21.   If Not False Rule (convert ‘if not (x = false) then’ to ‘if (x) then’</td><td class="confluenceTd">4</td></tr><tr><td class="confluenceTd">22.   Public Field Rule (class fields should NOT be public)</td><td class="confluenceTd">4</td></tr><tr><td class="confluenceTd">23.   Avoid Unused Method Parameters Rule (avoid making function arguments that are not used in body)</td><td class="confluenceTd">3</td></tr><tr><td class="confluenceTd">24.   No Interface Guid (no Guid at interface)</td><td class="confluenceTd">5</td></tr><tr><td class="confluenceTd">25.   If Assigned And Free (before calling ‘Free’ you don’t need to check for variable assignment ‘x &lt;&gt; nil’)</td><td class="confluenceTd">4</td></tr><tr><td class="confluenceTd">26.   Project File No Functions Rule (.dpr file should not contain procedures or functions)</td><td class="confluenceTd">3</td></tr><tr><td class="confluenceTd">27.   Project File No Variables Rule (.dpr file should not contain variables)</td><td class="confluenceTd">3</td></tr><tr><td class="confluenceTd">28.   Type Alias Rule (avoid using type aliases)</td><td class="confluenceTd">4</td></tr><tr><td class="confluenceTd">29.   Uppercase Reserved Keywords Rule (avoid using uppercase reserved keywords)</td><td class="confluenceTd">5</td></tr><tr><td class="confluenceTd">30.   Mixed Names Rule (avoid case mixing names of functions / variables)</td><td class="confluenceTd">4</td></tr><tr><td class="confluenceTd">31.   Unused Unit Rule (searches for units that are not referenced in other units)</td><td class="confluenceTd">3</td></tr><tr><td class="confluenceTd">32.   Unused Function Rule (searches for functions/procedures that are not used by other functions/procedures)</td><td class="confluenceTd">3</td></tr><tr><td class="confluenceTd">33.   Constructor Without Inherited Statement Rule (constructor does not contain ‘inherited’ statement)</td><td class="confluenceTd">2</td></tr><tr><td class="confluenceTd">34.   Destructor Without Inherited Statement Rule (destructor  does not contain ‘inherited’ statement)</td><td class="confluenceTd">2</td></tr><tr><td class="confluenceTd">35.   No ‘begin’ after ‘do Statement Rule </td><td class="confluenceTd">4</td></tr><tr><td class="confluenceTd">36.   ‘With’ after ‘do’ statement Rule</td><td class="confluenceTd">3</td></tr></tbody></table> <h1>FUTURE WORK</h1><ol><li>The org.sonar.squid.text.delphi package was copy-pasted from org.sonar.squid.text with modifications to work with Delphi source code. Hence some duplications are present. The whole package should be refactored, so duplications could be removed.</li><li>We made a &quot;hack&quot; of PMD engine to make it run with Delphi code. When we made it, PMD didn't allow to work with other than Java code. Refactoring steps should be taken to migrate it to newest available version (with multi-language support).</li></ol>