Commands/New-PipeScript.ps1.ps1
|
function New-PipeScript { <# .Synopsis Creates new PipeScript. .Description Creates new PipeScript and PowerShell ScriptBlocks. This allow you to create scripts dynamically. .EXAMPLE # Without any parameters, this will make an empty script block New-PipeScript # Should -BeOfType([ScriptBlock]) .EXAMPLE # We can use -AutoParameter to automatically populate parameters: New-PipeScript -ScriptBlock { $x + $y} -AutoParameter .EXAMPLE # We can use -AutoParameter and -AutoParameterType to automatically make all parameters a specific type: New-PipeScript -ScriptBlock { $x, $y } -AutoParameter -AutoParameterType double .EXAMPLE # We can provide a -FunctionName to make a function. # New-PipeScript transpiles the scripts it generates, so this will also declare the function. New-PipeScript -ScriptBlock { Get-Random -Min 1 -Max 20 } -FunctionName ANumberBetweenOneAndTwenty ANumberBetweenOneAndTwenty # Should -BeLessThan 21 .EXAMPLE # We can provide parameters as a dictionary. New-PipeScript -Parameter @{"foo"=@{ Name = "foo" Help = 'Foobar' Attributes = "Mandatory","ValueFromPipelineByPropertyName" Aliases = "fubar" Type = "string" }} .EXAMPLE # We can provide parameters from .NET reflection. # We can provide additional parameter help with -ParameterHelp New-PipeScript -Parameter ([Net.HttpWebRequest].GetProperties()) -ParameterHelp @{ Accept=' HTTP Accept. HTTP Accept indicates what content types the web request will accept as a response. ' } .EXAMPLE # If a .NET type has XML Documentation, this can generate parameter help. New-PipeScript -FunctionName New-TableControl -Parameter ( [Management.Automation.TableControl].GetProperties() ) -Process { New-Object Management.Automation.TableControl -Property $psBoundParameters } -Synopsis 'Creates a table control' Get-Help New-TableControl -Parameter * .EXAMPLE $CreatedCommands = [Management.Automation.TableControl], [Management.Automation.TableControlColumnHeader], [Management.Automation.TableControlRow], [Management.Automation.TableControlColumn], [Management.Automation.DisplayEntry] | New-PipeScript -Noun { $_.Name } -Verb New -Alias { "Get-$($_.Name)", "Set-$($_.Name)" } -Synopsis { "Creates, Changes, or Gets $($_.Name)" } New-TableControl -Headers @( New-TableControlColumnHeader -Label "First" -Alignment Left -Width 10 New-TableControlColumnHeader -Label "Second" -Alignment Center -Width 20 New-TableControlColumnHeader -Label "Third" -Alignment Right -Width 20 ) -Rows @( New-TableControlRow -Columns @( New-TableControlColumn -DisplayEntry ( New-DisplayEntry First Property ) New-TableControlColumn -DisplayEntry ( New-DisplayEntry Second Property ) New-TableControlColumn -DisplayEntry ( New-DisplayEntry Third Property ) ) ) #> [Alias('New-ScriptBlock')] [CmdletBinding(PositionalBinding=$false)] param( # An input object. # This can be anything, and in a few special cases, this can become the script. # If the InputObject is a `[ScriptBlock]`, this will be treated as if it was the -Process parameter. # If the InputObject is a `[Type]`, this will create a script to work with that type. [vfp()] $InputObject, # Defines one or more parameters for a ScriptBlock. # Parameters can be defined in a few ways: # * As a ```[Collections.Dictionary]``` of Parameters # * As the ```[string]``` name of an untyped parameter. # * As a ```[ScriptBlock]``` containing only parameters. [Parameter(ValueFromPipelineByPropertyName)] [Alias('Parameters','Property','Properties')] $Parameter, # The dynamic parameter block. [Parameter(ValueFromPipelineByPropertyName)] [ValidateScriptBlock(NoBlocks, NoParameters)] [Alias('DynamicParameterBlock')] [ScriptBlock] $DynamicParameter, # The begin block. [Parameter(ValueFromPipelineByPropertyName)] [ValidateScriptBlock(NoBlocks, NoParameters)] [Alias('BeginBlock')] [ScriptBlock] $Begin, # The process block. # If a [ScriptBlock] is piped in and this has not been provided, # -Process will be mapped to that script. [Parameter(ValueFromPipelineByPropertyName)] [Alias('ProcessBlock','ScriptBlock')] [ScriptBlock] $Process, # The end block. [Parameter(ValueFromPipelineByPropertyName)] [ValidateScriptBlock(NoBlocks, NoParameters)] [Alias('EndBlock')] [ScriptBlock] $End, # The script header. [Parameter(ValueFromPipelineByPropertyName)] [string] $Header, # If provided, will automatically create parameters. # Parameters will be automatically created for any unassigned variables. [Alias('AutoParameterize','AutoParameters')] [switch] $AutoParameter, # The type used for automatically generated parameters. # By default, ```[PSObject]```. [type] $AutoParameterType = [PSObject], # If provided, will add inline help to parameters. [Collections.IDictionary] $ParameterHelp, <# If set, will weakly type parameters generated by reflection. 1. Any parameter type implements IList should be made a [PSObject[]] 2. Any parameter that implements IDictionary should be made an [Collections.IDictionary] 3. Booleans should be made into [switch]es 4. All other parameter types should be [PSObject] #> [Alias('WeakType', 'WeakParameters', 'WeaklyTypedParameters', 'WeakProperties', 'WeaklyTypedProperties')] [switch] $WeaklyTyped, # The name of the function to create. [vbn()] [string] $FunctionName, # The verb of the function to create. This implies a -FunctionName. [vbn()] [string] $Verb, # The noun of the function to create. This implies a -FunctionName. [vbn()] [string] $Noun, # The type or namespace the function to create. This will be ignored if -FunctionName is not passed. # If the function type is not function or filter, it will be treated as a function namespace. [Alias('FunctionNamespace','CommandNamespace')] [string] $FunctionType = 'function', # A description of the script's functionality. If provided with -Synopsis, will generate help. [vbn()] [string] $Description, # A short synopsis of the script's functionality. If provided with -Description, will generate help. [vbn()] [Alias('Summary')] [string] $Synopsis, # A list of examples to use in help. Will be ignored if -Synopsis and -Description are not passed. [Alias('Examples')] [string[]] $Example, # A list of links to use in help. Will be ignored if -Synopsis and -Description are not passed. [Alias('Links')] [string[]] $Link, # A list of attributes to declare on the scriptblock. [string[]] $Attribute, # A list of potential aliases for the command. [vbn()] [Alias('Aliases')] [string[]] $Alias, # If set, will try not to create mandatory parameters. [switch] $NoMandatory, # If set, will not transpile the created code. [switch] $NoTranspile, # A Reference Object. # This can be used for properties that are provided from a JSON Schema or OpenAPI definition or some similar structure. # It will take a slash based path to a component or property and use that as it's value. $ReferenceObject ) begin { $ParametersToCreate = [Ordered]@{} $parameterScriptBlocks = @() $allDynamicParameters = @() $allBeginBlocks = @() $allEndBlocks = @() $allProcessBlocks = @() $allHeaders = @() ${?<EmptyParameterBlock>} = '^[\s\r\n]{0,}param\(' -replace '\)[\s\r\n]{0,}$' 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 { $_ } } filter psuedoTypeToRealType { switch ($_) { string { [string] } integer { [int] } number { [double]} boolean { [switch] } array { [PSObject[]] } object { [PSObject] } default { if ($_ -as [type]) { $_ -as [type] } } } } filter oneOfTheseProperties { foreach ($arg in $args) { if ($_.$arg) { return $_.$arg } } } # Default 'NoEnd' to false. # We'll check this at the beginning of the end to make sure we need to run the code in the end block. $NoEnd = $false } process { $myParameters = [Ordered]@{} + $psBoundParameters # If the input was a dictionary if ($InputObject -is [Collections.IDictionary]) { # make it a custom object. $InputObject = [PSCustomObject]$InputObject $myCmd = $MyInvocation.MyCommand # Since we're too late to do a `[ValueFromPipelineByPropertyName]` binding to the parameters, # do it ourselves by walking over each parameter. :nextParameter foreach ($param in $myCmd.Parameters.Values) { if ($null -ne $inputObject.($param.Name)) { # If the -InputObject contains a parameter name # bind it by setting the variable $ExecutionContext.SessionState.PSVariable.Set($param.Name, $inputObject.($param.Name)) } else { # Otherwise, check each of the aliases for this parameter foreach ($paramAlias in $param.Aliases) { # and if the -InputObject has that alias if ($null -ne $inputObject.$paramAlias) { # bind it by setting the variable. $ExecutionContext.SessionState.PSVariable.Set($param.Name, $inputObject.$paramAlias) continue nextParameter } } } } } # If the inputobject is a [Type] if ($InputObject -is [Type]) { if (-not $myParameters['Parameter']) { $myParameters['Parameter'] = $parameter = @( $InputObject.GetProperties() @{ "InputObject"= @{ Name="InputObject" Attribute='ValueFromPipeline' Type=$InputObject } "ArgumentList" = @{ Name="ArgumentList" Attribute="ValueFromRemainingArguments" Type=[PSObject[]] } "PassThru" = @{ Name = 'PassThru' Type=[switch] } } ) } # If we didn't supply any script, make one. if (-not ($myParameters['Process'] -or $myParameters['Begin'] -or $myParameters['End'] -or $myParameters['DynamicParameter'] )) { $myParameters['Attribute'] = '[CmdletBinding(PositionalBinding=$false)]' $begin = $myParameters['Begin'] = [scriptblock]::create( "`$FunctionBaseType = [$($InputObject.FullName -replace '^\.System')]" ) $Process = $myParameters['Process'] = { $invocationName = $MyInvocation.InvocationName if ($invocationName -match '^(?>New|Add)') { if ($FunctionBaseType::new.OverloadDefinitions -like '*()') { $InputObject = $FunctionBaseType::new() } elseif ($ArgumentList) { $InputObject = $FunctionBaseType::new.Invoke($ArgumentList) } $invocationName = 'Set' $PassThru = $true } switch -regex ($invocationName) { "^Set" { # If we're setting, foreach ($in in $InputObject) { foreach ($paramName in ([Management.Automation.CommandMetaData]$MyInvocation.MyCommand).Parameters.Keys) { # change any property on that object if ( $paramName -ne 'InputObject' -and $myParameters.Contains($paramName) -and $in.GetType().GetProperty($paramName) ) { $in.$paramName = $myParameters[$paramName] } } if ($PassThru) { $in } } } default { foreach ($variable in Get-Variable) { if ($variable.Value -is $FunctionBaseType) { $variable.Value } } } } } } # Here's a slight rub: # We'd like to be able to pipe multiple types in. # If that's the case, we want to return/declare multiple functions # So by calling ourselves recursively here, we can do that without moving all of the code from the end block $myParameters.Remove('InputObject') New-PipeScript @myParameters $noEnd = $true return } if ($Synopsis) { if (-not $Description) { $Description = $Synopsis } function indentHelpLine { foreach ($line in $args -split '(?>\r\n|\n)') { (' ' * 4) + $line.TrimEnd() } } $helpHeader = @( "<#" ".Synopsis" indentHelpLine $Synopsis ".Description" indentHelpLine $Description foreach ($helpExample in $Example) { ".Example" indentHelpLine $helpExample } foreach ($helplink in $Link) { ".Link" indentHelpLine $helplink } "#>" ) -join [Environment]::Newline $allHeaders += $helpHeader } if ($Alias) { $allHeaders += "[Alias('$($alias -replace "'","''" -join "','")')]" } if ($Attribute) { $allHeaders += $Attribute } # If -Parameter was passed, we will need to define parameters. if ($parameter) { # We may also effectively want to recurse thru these values # (that is, a parameter can imply the existence of other parameters) # So, instead of going thru a normal list, we're putting everything into a queue $parameterQueue = [Collections.Queue]::new(@($parameter)) $parameterList = [Collections.Generic.List[PSObject]]::new() foreach ($param in $parameter) { $null = $parameterList.Add($param) } while ($parameterList.Count) { $param = $parameterList[0] $parameterList.RemoveAt(0) # this will end up populating an [Ordered] dictionary, $parametersToCreate. # However, for ease of use, -Parameter can be very flexible. # The -Parameter can be a dictionary of parameters. if ($Param -is [Collections.IDictionary]) { $parameterType = '' # If it is, walk thur each parameter in the dictionary foreach ($EachParameter in $Param.GetEnumerator()) { # Continue past any parameters we already have if ($ParametersToCreate.Contains($EachParameter.Key)) { continue } # If the parameter is a string and the value is not a variable if ($EachParameter.Value -is [string] -and $EachParameter.Value -notlike '*$*') { $parameterName = $EachParameter.Key $ParametersToCreate[$EachParameter.Key] = @( if ($parameterHelp -and $parameterHelp[$eachParameter.Key]) { $parameterHelp[$eachParameter.Key] | embedParameterHelp } $parameterAttribute = "[Parameter(ValueFromPipelineByPropertyName)]" $parameterType '$' + $parameterName ) -ne '' } # If the value is a string and the value contains variables elseif ($EachParameter.Value -is [string]) { # embed it directly. $ParametersToCreate[$EachParameter.Key] = $EachParameter.Value } # If the value is a ScriptBlock elseif ($EachParameter.Value -is [ScriptBlock]) { # Embed it $ParametersToCreate[$EachParameter.Key] = # If there was a param block on the script block if ($EachParameter.Value.Ast.ParamBlock) { # embed the parameter block (except for the param keyword) $EachParameter.Value.Ast.ParamBlock.Extent.ToString() -replace ${?<EmptyParameterBlock>} } else { # Otherwise '[Parameter(ValueFromPipelineByPropertyName)]' + ( $EachParameter.Value.ToString() -replace "\`$$($eachParameter.Key)[\s\r\n]$" -replace # Replace any trailing variables ${?<EmptyParameterBlock>} # then replace any empty param blocks. ) } } # If the value was an array elseif ($EachParameter.Value -is [Object[]]) { $ParametersToCreate[$EachParameter.Key] = # join it's elements by newlines $EachParameter.Value -join [Environment]::Newline } elseif ($EachParameter.Value -is [Collections.IDictionary] -or $EachParameter.Value -is [PSObject]) { # This is the "easy" way to specify a lot of advanced properties: # A hashtable of hashtables/PSObjects, where the keys are made as convenient and exhaustive as possible: $parameterMetadata = $EachParameter.Value $parameterName = $EachParameter.Key if ($parameterMetadata.Name) { $parameterName = $parameterMetadata.Name } $parameterAttributeParts = @() $ParameterOtherAttributes = @() # Attributes can be in .Attribute/.Attributes $attrs = @($parameterMetadata | oneOfTheseProperties Attribute Attributes) # Aliases can be in .Alias/.Aliases [string[]]$aliases = @($parameterMetadata | oneOfTheseProperties Alias Aliases) # Help can be in .Help/.Description/.Synopsis/.Summary [string]$parameterHelpText = $parameterMetadata | oneOfTheseProperties Help Description Synopsis Summary # Bindings can be in .Binding/.Bindings/.DefaultBinding/.DefaultBindingProperty. $Bindings = @( $parameterMetadata | oneOfTheseProperties Binding Bindings DefaultBinding DefaultBindingProperty ) # Ambient values can be in .AmbientValue/.CoerceValue $AmbientValue = @( $parameterMetadata | oneOfTheseProperties AmbientValue CoerceValue ) # Metadata can be in .Metadata/.ReflectionMetadata/.ParameterMetadata $parameterMetadataProperties = @( $parameterMetadata | oneOfTheseProperties Metadata ReflectionMetadata ParameterMetadata ) # Valid Values can be found in .ValidValue/.ValidValues/.ValidateSet $parameterValidValues = @( $parameterMetadata | oneOfTheseProperties ValidValue ValidValues ValidateSet ) $parameterValidPattern = @( $parameterMetadata | oneOfTheseProperties ValidatePattern Pattern Regex ) # Default values can be found in .DefaultValue/.Default $parameterDefaultValue = @( $parameterMetadata | oneOfTheseProperties DefaultValue Default ) $aliasAttribute = @(foreach ($aka in $aliases) { $aka -replace "'","''" }) -join "','" if ($aliasAttribute) { $aliasAttribute = "[Alias('$aliasAttribute')]" } if ($parameterValidValues) { $attrs += "[ValidateSet('$($parameterValidValues -replace "'","''" -join "','")')]" } if ($parameterValidPattern) { $attrs += "[ValidatePattern('$($parameterValidPattern -replace "'","''")')]" } if ($Bindings) { foreach ($bindingProperty in $Bindings) { $attrs += "[ComponentModel.DefaultBindingProperty('$bindingProperty')]" } } if ($parameterMetadataProperties) { foreach ($pmdProp in $parameterMetadataProperties) { if ($pmdProp -is [Collections.IDictionary]) { foreach ($mdKv in $pmdProp.GetEnumerator()) { $attrs += "[Reflection.AssemblyMetadata('$($mdKv.Key)', '$($mdKv.Value -replace "',''")')]" } } } } if ($AmbientValue) { foreach ($ambient in $AmbientValue) { if ($ambient -is [scriptblock]) { $attrs += "[ComponentModel.AmbientValue({$ambient})]" } } } foreach ($attr in $attrs) { if ($attr -notmatch '^\[') { $parameterAttributeParts += $attr } else { $ParameterOtherAttributes += $attr } } if ( ($parameterMetadata.Mandatory -or $parameterMetadata.required) -and ($parameterAttributeParts -notmatch 'Mandatory') -and -not $NoMandatory) { $parameterAttributeParts = @('Mandatory') + $parameterAttributeParts } $parameterType = $parameterMetadata | oneOfTheseProperties Type ParameterType $ParametersToCreate[$parameterName] = @( if ($ParameterHelpText) { $ParameterHelpText | embedParameterHelp } if ($parameterAttributeParts) { "[Parameter($($parameterAttributeParts -join ','))]" } if ($aliasAttribute) { $aliasAttribute } if ($ParameterOtherAttributes) { $ParameterOtherAttributes } $PsuedoType = $parameterType | psuedoTypeToRealType if ($PsuedoType) { $parameterType = $PsuedoType switch ($parameterType) { [bool] { [switch]} [array] { [PSObject[]] } [object] { [PSObject] } } if ($parameterType -eq [bool]) { "[switch]" } elseif ($parameterType -eq [array]) { "[PSObject[]]" } else { if ($WeaklyTyped) { if ($parameterType.GetInterface -and $parameterType.GetInterface([Collections.IDictionary])) { "[Collections.IDictionary]" } elseif ($parameterType.GetInterface -and $parameterType.GetInterface([Collections.IList])) { "[PSObject[]]" } else { "[PSObject]" } } else { if ($parameterType.IsGenericType -and $parameterType.GetInterface -and $parameterType.GetInterface(([Collections.IList])) -and $parameterType.GenericTypeArguments.Count -eq 1 ) { "[$($parameterType.GenericTypeArguments[0].Fullname -replace '^System\.')[]]" } else { "[$($parameterType.FullName -replace '^System\.')]" } } } } elseif ($parameterType) { "[PSTypeName('$($parameterType -replace '^System\.')')]" } '$' + ($parameterName -replace '^$') + $( if ($parameterDefaultValue) { if ($parameterDefaultValue -is [scriptblock]) { if ($parameterType -eq [scriptblock]) { "= {$ParameterDefaultValue}" } else { "= `$($ParameterDefaultValue)" } } elseif ($parameterDefaultValue -is [string]) { "= `$('$($parameterDefaultValue -replace "'","''")')" } elseif ($parameterDefaultValue -is [bool] -or $parameterDefaultValue -is [switch]) { "= `$$($parameterDefaultValue -as [bool])" } } ) ) -join [Environment]::newLine } } } # If the parameter was a string elseif ($Param -is [string]) { # treat it as parameter name $ParametersToCreate[$Param] = @( if ($parameterHelp -and $parameterHelp[$Param]) { $parameterHelp[$Param] | embedParameterHelp } "[Parameter(ValueFromPipelineByPropertyName)]" "`$$Param" ) -join [Environment]::NewLine } # If the parameter is a [ScriptBlock] elseif ($Param -is [scriptblock]) { # add it to a list of parameter script blocks. $parameterScriptBlocks += if ($Param.Ast.ParamBlock) { $Param } } elseif ($param -is [Management.Automation.CommandInfo] -or $param -is [Management.Automation.CommandMetaData]) { if ($param -isnot [Management.Automation.CommandMetaData]) { $param = $param -as [Management.Automation.CommandMetaData] } if ($param) { $proxyParamBlock = [Management.Automation.ProxyCommand]::GetParamBlock($param) $proxyParamBlock = $proxyParamBlock -replace '\$\{(?<N>\w+)\}','$$${N}' if ($NoMandatory) { $proxyParamBlock = $proxyParamBlock -replace 'Mandatory=\$true', 'Mandatory=$$false' } $parameterScriptBlocks += [scriptblock]::Create(("param(" + $proxyParamBlock + ")")) } } # If the -Parameter was provided via reflection elseif ($Param -is [Reflection.PropertyInfo] -or $Param -as [Reflection.PropertyInfo[]] -or $Param -is [Reflection.ParameterInfo] -or $Param -as [Reflection.ParameterInfo[]] -or $Param -is [Reflection.MethodInfo] -or $Param -as [Reflection.MethodInfo[]] ) { # Find an XML documentation file for the type, if available if (-not $Script:FoundXmlDocsForAssembly) { $Script:FoundXmlDocsForAssembly = @{} } if (-not $Script:FoundXmlDocsForType) { $Script:FoundXmlDocsForType = @{} } $declaringType = $param.DeclaringType $declaringAssembly = $param.DeclaringType.Assembly if (-not $Script:FoundXmlDocsForAssembly[$declaringAssembly]) { $likelyXmlLocation = $declaringAssembly.Location -replace '\.dll$', '.xml' if (Test-Path $likelyXmlLocation) { $Script:FoundXmlDocsForAssembly[$declaringAssembly] = [IO.File]::ReadAllText($likelyXmlLocation) -as [xml] } } if ($Script:FoundXmlDocsForAssembly[$declaringAssembly] -and -not $Script:FoundXmlDocsForType[$declaringType]) { $Script:FoundXmlDocsForType[$declaringType] = foreach ($node in $Script:FoundXmlDocsForAssembly[$declaringAssembly].SelectNodes("//member")) { if ($node.Name -like "*$($declaringType.FullName)*") { $node } } } # check to see if it's a method if ($Param -is [Reflection.MethodInfo] -or $Param -as [Reflection.MethodInfo[]]) { $Param = @(foreach ($methodInfo in $Param) { $methodInfo.GetParameters() # if so, reflect the method's parameters }) } # Walk over each parameter and turn it into a dictionary of dictionaries $propertiesToParameters = [Ordered]@{} foreach ($prop in $Param) { # If it is a property info that cannot be written, skip. if ($prop -is [Reflection.PropertyInfo] -and -not $prop.CanWrite) { continue } # Determine the reflected parameter type. $paramType = if ($prop.ParameterType) { $prop.ParameterType } elseif ($prop.PropertyType) { $prop.PropertyType } else { [PSObject] } $NewParamName = $prop.Name $NewParameterInfo = [Ordered]@{ Name = $NewParamName Attribute = @('ValueFromPipelineByPropertyName') ParameterType = $paramType } if ($ParameterHelp -and $ParameterHelp[$prop.Name]) { $NewParameterInfo.Help = $ParameterHelp[$prop.Name] } elseif ($Script:FoundXmlDocsForType[$declaringType]) { $lookingForString = @("$prop" -split ' ')[-1] $foundXmlDocsForProp = foreach ($docXmlNode in $Script:FoundXmlDocsForType[$declaringType]) { if ($docXmlNode.Name.EndsWith($lookingForString)) { $docXmlNode break } } if ($foundXmlDocsForProp -and $foundXmlDocsForProp.Summary -is [string]) { $NewParameterInfo.Help = $foundXmlDocsForProp.Summary $null = $null } } $propertiesToParameters[$NewParamName] = $NewParameterInfo } $parameterList.Insert(0,$propertiesToParameters) } elseif ($Param -is [PSObject]) { $paramIsReference = $param.'$ref' if ($paramIsReference -and $ReferenceObject) { $ptr = $ReferenceObject $objectPath = $paramIsReference -replace '^#' -replace '^/' -split '[/\.]' -ne '' foreach ($op in $objectPath) { $ptr = $ptr.$op } if ($ptr) { $parameterList.Insert(0,$ptr) } continue } # If there's a parameter name and schema, we can turn this into something useful. if ($param.Name -and $param.schema) { $newParameterInfo = [Ordered]@{name=$param.Name} if ($param.description) { $newParameterInfo.Description = $param.Description } if ($param.schema.type) { $newParameterInfo.ParameterType = $param.schema.type | psuedoTypeToRealType } if (($param.required -or $param.Mandatory) -and -not $NoMandatory) { $newParameterInfo.Mandatory = $true } $parameterList.Insert(0, [Ordered]@{$param.Name=$newParameterInfo}) } } } } # If there is header content, if ($header) { $allHeaders += $Header } # dynamic parameters, if ($DynamicParameter) { $allDynamicParameters += $DynamicParameter } # begin, if ($Begin) { $allBeginBlocks += $begin } if ($InputObject -is [scriptblock] -and -not $myParameters['Process']) { $process = $InputObject } # process, if ($process) { if ($process.BeginBlock -or $process.ProcessBlock -or $process.DynamicParameterBlock -or $Process.ParamBlock) { if ($process.DynamicParameterBlock) { $allDynamicParameters += $process.DynamicParameterBlock } if ($process.ParamBlock) { $parameterScriptBlocks += $Process } if ($Process.BeginBlock) { $allBeginBlocks += $Process.BeginBlock -replace ${?<EmptyParameterBlock>} } if ($process.ProcessBlock) { $allProcessBlocks += $process.ProcessBlock } if ($process.EndBlock) { $allEndBlocks += $Process.EndBlock -replace ${?<EmptyParameterBlock>} } } else { $allProcessBlocks += $process -replace ${?<EmptyParameterBlock>} } } # or end blocks. if ($end) { # accumulate them. $allEndBlocks += $end } # If -AutoParameter was passed if ($AutoParameter) { # Find all of the variable expressions within -Begin, -Process, and -End $variableDefinitions = $Begin, $Process, $End | Where-Object { $_ } | Search-PipeScript -AstType VariableExpressionAST | Select-Object -ExpandProperty Result foreach ($var in $variableDefinitions) { # Then, see where those variables were assigned $assigned = $var.GetAssignments() # (if they were assigned, keep moving) if ($assigned) { continue } # If there were not assigned $varName = $var.VariablePath.userPath.ToString() # add it to the list of parameters to create. $ParametersToCreate[$varName] = @( @( "[Parameter(ValueFromPipelineByPropertyName)]" "[$($AutoParameterType.FullName -replace '^System\.')]" "$var" ) -join [Environment]::NewLine ) } } } end { if ($NoEnd) { return } # Take all of the accumulated parameters and create a parameter block $newParamBlock = "param(" + [Environment]::newLine + $(@(foreach ($toCreate in $ParametersToCreate.GetEnumerator()) { $toCreate.Value -join [Environment]::NewLine }) -join (',' + [Environment]::NewLine)) + [Environment]::NewLine + ')' # If any parameters were passed in as ```[ScriptBlock]```s, if ($parameterScriptBlocks) { $parameterScriptBlocks += [ScriptBlock]::Create($newParamBlock) # join them with the new parameter block. $newParamBlock = $parameterScriptBlocks | Join-PipeScript -IncludeBlockType param } # If we did not provide a function name, if ((-not $FunctionName) -and $verb -and $noun # and we provided a verb and a noun ) { $FunctionName = "$Verb-$Noun" # set the function name. } # If we provided a -FunctionName, we'll be declaring a function. $functionDeclaration = # If the -FunctionType is function or filter if ($functionName -and $functionType -in 'function', 'filter') { # we declare it naturally. "$functionType $FunctionName {" } elseif ($FunctionName) { # Otherwise, we declare it as a command namespace "$functionType function $functionName {" # (which means we have to transpile). $NoTranspile = $false } # Create the script block by combining together the provided parts. $ScriptToBe = "$(if ($functionDeclaration) { "$functionDeclaration"}) $($allHeaders -join [Environment]::Newline) $newParamBlock $(if ($allDynamicParameters) { @(@("dynamicParam {") + $allDynamicParameters + '}') -join [Environment]::Newline }) $(if ($allBeginBlocks) { @(@("begin {") + $allBeginBlocks + '}') -join [Environment]::Newline }) $(if ($allProcessBlocks) { @(@("process {") + $allProcessBlocks + '}') -join [Environment]::Newline }) $(if ($allEndBlocks -and -not $allBeginBlocks -and -not $allProcessBlocks) { $allEndBlocks -join [Environment]::Newline } elseif ($allEndBlocks) { @(@("end {") + $allEndBlocks + '}') -join [Environment]::Newline }) $(if ($functionDeclaration) { '}'}) " $createdScriptBlock = [scriptblock]::Create($ScriptToBe) # If -NoTranspile was passed, if ($createdScriptBlock -and $NoTranspile) { $createdScriptBlock # output the script as-is } elseif ($createdScriptBlock) { # otherwise $createdScriptBlock | .>PipeScript # output the transpiled script. } } } |