Get-RegEx.ps1
|
function Get-RegEx { <# .Synopsis Gets Regular Expressions .Description Gets saved Regular Expressions. .Example Get-RegEx .Example Get-RegEx -Name NextWord .Example @(Get-RegEx | # Gets all saved Regular Expressions as a Markdown table Sort-Object Name | ForEach-Object -Begin { '|Name|Description|IsGenerator|' '|:---|:----------|:----------|' } -Process { $desc = $_.Description -replace '[\[\{\(]', '\$0' $desc= if ($desc) {$desc | ?<NewLine> -Replace '<br/>'} else { ''} "|$($_.Name)|$desc|$($_.IsGenerator)|" }) -join [Environment]::NewLine .Link Use-RegEx .Link New-RegEx #> [OutputType([PSObject])] param( # The Name of the Regular Expression. [Parameter(ValueFromPipelineByPropertyName=$true)] [string[]]$Name, # The path to one or more files or folders containing regular expressions. # Files should be named $Name.regex.txt [Parameter(ValueFromPipelineByPropertyName=$true)] [Alias('Fullname')] [string[]]$FilePath, # If provided, will get regular expressions from any number of already imported modules. [string[]] $FromModule, # How the expression will be returned. [ValidateSet('Metadata', 'File','Pattern','Hashtable', 'String','Variable','Alias', 'Script','Lambda','Engine', 'Embedded')] [string] $As = 'MetaData', # If provided, will rename -RegEx commands with the provided -Noun. # This option is only valid when -As is Engine. # It prevents name conflicts with Irregular. [string] $Noun ) begin { $myModule = $MyInvocation.MyCommand.Module } process { #region Determine the Path List $pathList = & { if ($FilePath) { # If any file paths were provided foreach ($fp in $filePath){ # resolve them $ExecutionContext.SessionState.Path.GetResolvedPSPathFromPSPath($fp) } return # and use just this pathlist. } if ($FromModule) { # If -FromModule was passed, $loadedModules = Get-Module # get all loaded modules. $loadedModuleNames = foreach ($lm in $loadedModules) { # get their names $lm.Name } $OkModules = foreach ($fm in $fromModule) { # filter the ones that are OK $loadedModuleNames -like $fm } foreach ($lm in $loadedModules) { if ($OkModules -contains $lm.Name) { $lm | Split-Path } } } } #endregion Determine the Path List if (-not $script:_RegexLibraryMetaData) { return } #region Get RegEx files @(if ($pathList) { $byPath = @(foreach ($_ in $script:_RegexLibraryMetaData.Values) { if ($_.Path) {$_ } }) | Group-Object Path -AsHashTable $pathList = $pathList | Select-Object -Unique @(foreach ($p in $pathList) { if ([IO.Directory]::Exists($p) -or [IO.File]::Exists($p)) { @(if ([IO.File]::Exists($p)) { [IO.FileInfo]$p } elseif ([IO.Directory]::Exists($p)) { ([IO.DirectoryInfo]"$p").EnumerateFiles('*', 'AllDirectories') }) } }) | & { process { if (-not $byPath.ContainsKey($_.Fullname)) { return } if ($Name) { :nextFile foreach ($bp in $byPath[$_.FullName]) { foreach ($n in $name) { if ($bp.Name -like $n) { $bp continue nextFile } } } } else { $byPath[$_.FullName] } } } } elseif ($name) { :nextItem foreach ($kv in $script:_RegexLibraryMetaData.GetEnumerator()) { foreach ($n in $name) { if ($kv.Key -like $n) { $kv.Value continue nextItem } } } } else { $script:_RegexLibraryMetaData.Values | Sort-Object Name }) | & { #region Get -As begin { if ('Hashtable', 'Script', 'Lambda' -contains $as) { $outHt = [Text.StringBuilder]::new('@{').AppendLine() $defineAliases = [Collections.ArrayList]::new() } } process { $regex = $_ if ($regex.IsGenerator) { $regexScript = $ExecutionContext.SessionState.InvokeCommand.GetCommand($regex.Path, 'ExternalScript') } if ($as -eq 'MetaData') { $_ } elseif ($as -eq 'File') { [IO.FileInfo]$_.Path } elseif ($as -eq 'Alias') { "Set-Alias ?<$($_.Name)> Use-RegEx" } elseif ($as -eq 'String') { if ($_.Pattern -as [Regex]) { $_.Pattern.ToString() } elseif ($_.IsGenerator) { $regexScript.ScriptContents } } elseif ('Pattern', 'Variable', 'Hashtable', 'Script','Lambda' -contains $as) { $def = if ($_.IsGenerator) { "{$($regexScript.ScriptContents)}" } else { "[Regex]::new(@' $($_.Pattern) '@, 'IgnoreCase,IgnorePatternWhitespace', '00:00:05') " } if ($as -eq 'Pattern') { $def } elseif ($as -eq 'Variable') { "`$$($regex.Name) = $def" } elseif ('Hashtable', 'Script', 'Lambda' -contains $as) { $null = $outHt.AppendLine(" $($regex.Name) = $def").AppendLine() } if ($as -eq 'Script') { $null = $defineAliases.Add("Set-Alias ?<$($_.Name)> UseRegEx") } elseif ($as -eq 'Lambda') { $null = $defineAliases.Add("`${?<$($_.Name)>} = `$UseRegex") } } } end { if ($as -eq 'Script') { @( "`$script:_RegexLibrary = $($outHt.AppendLine('}'))" 'function UseRegex {' $ExecutionContext.SessionState.InvokeCommand.GetCommand('Use-RegEx','Function').ScriptBlock '}' ($defineAliases | Sort-Object) -join [Environment]::NewLine ) -join [Environment]::NewLine } elseif ($as -eq 'Embedded') { @( " #region Irregular Embedded [$($myModule.version)] : $($myModule.PrivateData.PSData.ProjectURI) `$ImportRegex = {" $ExecutionContext.SessionState.InvokeCommand.GetCommand('Import-RegEx','Function').ScriptBlock '}' "`$UseRegex = {" $ExecutionContext.SessionState.InvokeCommand.GetCommand('Use-RegEx','Function').ScriptBlock '}' "#endregion Irregular Engine [$($myModule.version)] : $($myModule.PrivateData.PSData.ProjectURI)" '. $ImportRegex $(if ($psScriptRoot) { $psScriptRoot } else { $pwd })' ' foreach ($k in $script:_RegexLibrary.Keys) { $executionContext.SessionState.PSVariable.Set("?<$k>", $useRegex) } ' ) -join [Environment]::NewLine } elseif ($as -eq 'Engine') { if (-not $Noun) { $PSCmdlet.WriteError( [Management.Automation.ErrorRecord]::new( [Exception]::new("Must provide -Noun when using -As Engine" ), "Missing.Noun", 'NotSpecified', $null) ) return } @( " #region Irregular Engine [$($myModule.version)] : $($myModule.PrivateData.PSData.ProjectURI) `$ImportRegex = {" $ExecutionContext.SessionState.InvokeCommand.GetCommand('Import-RegEx','Function').ScriptBlock '}' "function Use-$Noun {" $ExecutionContext.SessionState.InvokeCommand.GetCommand('Use-RegEx','Function').ScriptBlock '}' "#endregion Irregular Engine [$($myModule.version)] : $($myModule.PrivateData.PSData.ProjectURI)" '. $ImportRegex $(if ($psScriptRoot) { $psScriptRoot } else { $pwd })' @" foreach (`$k in `$script:_RegexLibrary.Keys) { Set-Alias "?<`$k>" Use-$noun } "@ ) -join [Environment]::NewLine } elseif ($as -eq 'Lambda') { @("`$script:_RegexLibrary = $($outHt.AppendLine('}'))" "`$UseRegex = {" $ExecutionContext.SessionState.InvokeCommand.GetCommand('Use-RegEx','Function').ScriptBlock '}' ($defineAliases | Sort-Object) -join [Environment]::NewLine ) -join [Environment]::NewLine } elseif ($as -eq 'Hashtable') { $outHt.AppendLine('}').ToString() } } #endregion Get -As } #endregion Get RegEx files } } |