New-PipeScript: Adding -ParameterHelp (Fixes #172)

Author: James Brundage

New-PipeScript.ps1.ps1

@@ -7,6 +7,14 @@
         Creates new PipeScript and PowerShell ScriptBlocks.
     .EXAMPLE
         New-PipeScript -Parameter @{a='b'}
+    .EXAMPLE
+        New-PipeScript -Parameter ([Net.HttpWebRequest].GetProperties()) -ParameterHelp @{
+            Accept='
+HTTP Accept.
+
+HTTP Accept indicates what content types the web request will accept as a response.
+'
+        }
     #>
     [Alias('New-ScriptBlock')]
     param(
@@ -73,7 +81,11 @@
     # The type used for automatically generated parameters.
     # By default, ```[PSObject]```.
     [type]
-    $AutoParameterType = [PSObject]
+    $AutoParameterType = [PSObject],
+
+    # If provided, will add inline help to parameters.
+    [Collections.IDictionary]
+    $ParameterHelp    
     )
 
     begin {
@@ -84,6 +96,19 @@
         $allEndBlocks          = @()
         $allProcessBlocks      = @()
         $allHeaders            = @()
+
+        filter embedParameterHelp {
+            if ($_ -notmatch '^\s\<\#' -and $_ -notmatch '^\s\#') {
+                $commentLines = @($_ -split '(?>\r\n|\n)')
+                if ($commentLines.Count -gt 1) {
+                    '<#' + [Environment]::NewLine + "$_".Trim() + [Environment]::newLine + '#>'
+                } else {
+                    "# $_"
+                }
+            } else {
+                $_
+            }
+        }
     }
 
     process {
@@ -102,6 +127,9 @@
                         $parameterName = $EachParameter.Key
                         $ParametersToCreate[$EachParameter.Key] =
                             @(
+                                if ($parameterHelp -and $parameterHelp[$eachParameter.Key]) {
+                                    $parameterHelp[$eachParameter.Key] | embedParameterHelp
+                                }
                                 $parameterAttribute = "[Parameter(ValueFromPipelineByPropertyName)]"
                                 $parameterType
                                 '$' + $parameterName
@@ -144,6 +172,9 @@
                 # treat it as  parameter name
                 $ParametersToCreate[$Parameter] =                                         
                     @(
+                    if ($parameterHelp -and $parameterHelp[$Parameter]) {
+                        $parameterHelp[$Parameter] | embedParameterHelp
+                    }
                     "[Parameter(ValueFromPipelineByPropertyName)]"
                     "`$$Parameter"
                     ) -join [Environment]::NewLine                    
@@ -184,6 +215,9 @@
                         }
                     $ParametersToCreate[$prop.Name] =
                         @(
+                            if ($parameterHelp -and $parameterHelp[$prop.Name]) {
+                                $parameterHelp[$prop.Name] | embedParameterHelp
+                            }
                             $parameterAttribute = "[Parameter(ValueFromPipelineByPropertyName)]"
                             $parameterAttribute
                             if ($paramType -eq [boolean]) {