new scripts

Author: jsinglet

scripts/PSCodingStandards/Get-LanguageForPath.ps1

@@ -0,0 +1,17 @@
+function Get-LanguageForPath {
+    param([Parameter(Mandatory)] 
+        [string]
+        $Path)
+
+    $parts = $Path -split '/'
+
+    $Language = $parts[0]
+
+    foreach($L in $AVAILABLE_LANGUAGES){
+        if($Language -eq $L){
+            return $L
+        }
+    }
+
+    throw "Unsupported Language: $Language"
+}

scripts/PSCodingStandards/Get-RuleForPath.ps1

@@ -0,0 +1,83 @@
+# takes paths like this: 
+# c/cert/src/rules/DCL39-C/InformationLeakageAcrossTrustBoundariesC.ql
+# c/common/test/rules/informationleakageacrossboundaries/InformationLeakageAcrossBoundaries.expected
+# c/common/test/rules/informationleakageacrossboundaries/InformationLeakageAcrossBoundaries.ql
+# c/common/test/rules/informationleakageacrossboundaries/arrays.c
+# c/common/test/rules/informationleakageacrossboundaries/interprocedural.c
+# c/common/test/rules/informationleakageacrossboundaries/multilayer.c
+# c/common/test/rules/informationleakageacrossboundaries/test.c
+# c/misra/src/rules/RULE-18-8/VariableLengthArrayTypesUsed.ql
+# c/misra/src/rules/RULE-8-12/ValueImplicitEnumerationConstantNotUnique.ql
+# c/misra/test/rules/RULE-18-8/VariableLengthArrayTypesUsed.expected
+# c/misra/test/rules/RULE-18-8/test.c
+# c/misra/test/rules/RULE-8-12/ValueImplicitEnumerationConstantNotUnique.expected
+# c/misra/test/rules/RULE-8-12/test.c
+# cpp/cert/src/rules/DCL55-CPP/InformationLeakageAcrossTrustBoundaries.ql
+# cpp/common/test/rules/informationleakageacrossboundaries/InformationLeakageAcrossBoundaries.expected
+# cpp/common/test/rules/informationleakageacrossboundaries/InformationLeakageAcrossBoundaries.ql
+# cpp/common/test/rules/informationleakageacrossboundaries/InformationLeakageAcrossTrustBoundaries.expected
+# cpp/common/test/rules/informationleakageacrossboundaries/arrays.cpp
+# cpp/common/test/rules/informationleakageacrossboundaries/inheritance.cpp
+# cpp/common/test/rules/informationleakageacrossboundaries/interprocedural.cpp
+# cpp/common/test/rules/informationleakageacrossboundaries/multilayer.cpp
+# cpp/common/test/rules/informationleakageacrossboundaries/test.cpp
+
+# And produces one or more rules for it. It does this by loading every rule
+# and computing the test directory for it. This test directory is then 
+# used to see if a) it is a substring of the supplied path or if b) it 
+# is a substring of the path once the substitution `/src/` -> `/test/` is
+# applied  
+
+function Get-RuleForPath {
+    param([Parameter(Mandatory)] 
+        [string]
+        $Path,
+        [ValidateSet('c', 'cpp')]
+        [string]
+        $Language
+        ) 
+
+    # load all the queries for all languages 
+    $allQueries = @()
+    $queriesToCheck = @()
+
+    # load all the queries 
+    foreach ($s in $AVAILABLE_SUITES) {
+        $allQueries += Get-RulesInSuite -Suite $s -Language $Language
+    }
+
+    $modifiedPathWithReplacement = Join-Path (Resolve-Path . -Relative) $Path 
+    # repalce "src" with "test" to make it match up
+    $sep = [IO.Path]::DirectorySeparatorChar
+    $modifiedPathWithReplacement = $modifiedPathWithReplacement.Replace( ($sep + "src" + $sep + "rules"), ($sep + "test" + $sep + "rules"))    
+    $modifiedPath = Join-Path (Resolve-Path . -Relative) $Path 
+
+    
+    $matchingRules = @()
+
+    # for each query, create the test directory 
+    foreach($q in $allQueries){
+
+        # get test directory
+        $testDirectory = (Get-TestDirectory -RuleObject $q -Language $Language)
+        # resolve path to be compatible 
+        $testPath = Join-Path (Resolve-Path . -Relative) $testDirectory
+
+        # see if the TEST directory is a substring of the full path 
+        if($modifiedPath.StartsWith($testPath)){
+            $matchingRules += $q 
+            continue 
+        }
+
+        if($modifiedPathWithReplacement.StartsWith($testPath)){
+            $matchingRules += $q 
+            continue 
+        }
+    }
+
+    if($matchingRules.Count -gt 0){
+        return $matchingRules
+    }
+
+    throw "Path does not appear to be part of a rule."
+}

scripts/PSCodingStandards/Get-RulesInPackageAndSuite.ps1

@@ -6,8 +6,12 @@ function Get-RulesInPackageAndSuite {
         $Package,
         [Parameter(Mandatory)] 
         [string]
-        $Suite
-    )
+        $Suite,
+        [Parameter(Mandatory)] 
+        [ValidateSet('c', 'cpp')]
+        [string]
+        $Language
+        )
 
     $rulesInPackage = @()
 
@@ -30,6 +34,7 @@ function Get-RulesInPackageAndSuite {
         $queries | Add-Member -NotePropertyName __memberof_suite -NotePropertyValue $Suite
         $queries | Add-Member -NotePropertyName __memberof_package -NotePropertyValue $Package.BaseName
         $queries | Add-Member -NotePropertyName __memberof_rule -NotePropertyValue $n.Name 
+        $queries | Add-Member -NotePropertyName __memberof_language -NotePropertyValue $Language 
 
         $rulesInPackage += $queries 
     }

scripts/PSCodingStandards/Get-RulesInSuite.ps1

@@ -13,7 +13,7 @@ function Get-RulesInSuite {
 
     foreach ($p in Get-Packages -Language $Language) {
         Write-Host "Reading package: [$Language/$Suite/$($p.BaseName)]"        
-        $tmpQueries += Get-RulesInPackageAndSuite -Package $p -Suite $Suite 
+        $tmpQueries += Get-RulesInPackageAndSuite -Package $p -Suite $Suite -Language $Language
     }
 
     return $tmpQueries