PS_Completers

1.1.1

completers/sed_completer/sed_completer.ps1

Set-StrictMode -Version 2.0

if (-not (Get-Variable -Name SedCompletionCatalog -Scope Script -ErrorAction Ignore)) {
    $script:SedCompletionCatalog = @{
        Initialized        = $false
        ProbedExecutable   = $false
        ExecutablePath     = $null
        HelpOptionTokens   = @()
        OptionDefinitions  = @()
        OptionTokenMap     = @{}
        OptionSuggestions  = @()
        LocalesInitialized = $false
        LocaleEntries      = @()
        ScriptHints        = @(
            @{ Text = 's///'; ToolTip = 'Substitute text' }
            @{ Text = 'p'; ToolTip = 'Print the current pattern space' }
            @{ Text = 'd'; ToolTip = 'Delete the current pattern space' }
            @{ Text = 'q'; ToolTip = 'Quit sed' }
        )
        LineLengthHints    = @('40', '70', '72', '80', '120')
        InPlaceSuffixHints = @('.bak', '.orig', '.old', '~')
    }
}

function New-SedCompletionResult {
    param(
        [string]$CompletionText,
        [string]$ResultType = 'ParameterValue',
        [string]$ToolTip = $CompletionText,
        [string]$ListItemText = $CompletionText
    )

    if ([string]::IsNullOrWhiteSpace($ListItemText)) {
        $ListItemText = $CompletionText
    }

    if ([string]::IsNullOrWhiteSpace($ToolTip)) {
        $ToolTip = $CompletionText
    }

    [System.Management.Automation.CompletionResult]::new(
        $CompletionText,
        $ListItemText,
        $ResultType,
        $ToolTip
    )
}

function New-SedStringSet {
    return ,([System.Collections.Generic.HashSet[string]]::new([System.StringComparer]::Ordinal))
}

function New-SedStringObjectMap {
    return ,([System.Collections.Generic.Dictionary[string, object]]::new([System.StringComparer]::Ordinal))
}

function Get-SedCurrentToken {
    param(
        [string]$Line,
        [int]$CursorPosition,
        [string]$Fallback = ''
    )

    if ([string]::IsNullOrWhiteSpace($Line)) {
        return $Fallback
    }

    $safeCursor = [Math]::Min([Math]::Max($CursorPosition, 0), $Line.Length)
    $prefix = $Line.Substring(0, $safeCursor)
    if ($prefix -match '\s$') {
        return ''
    }

    $tokenStart = 0
    $inSingleQuote = $false
    $inDoubleQuote = $false

    for ($index = 0; $index -lt $prefix.Length; $index++) {
        $character = $prefix[$index]
        if (($character -eq '`') -and $inDoubleQuote -and (($index + 1) -lt $prefix.Length)) {
            $index++
            continue
        }

        if (($character -eq "'") -and -not $inDoubleQuote) {
            if ($inSingleQuote -and (($index + 1) -lt $prefix.Length) -and ($prefix[$index + 1] -eq "'")) {
                $index++
                continue
            }

            $inSingleQuote = -not $inSingleQuote
            continue
        }

        if (($character -eq '"') -and -not $inSingleQuote) {
            $inDoubleQuote = -not $inDoubleQuote
            continue
        }

        if ([char]::IsWhiteSpace($character) -and -not $inSingleQuote -and -not $inDoubleQuote) {
            $tokenStart = $index + 1
        }
    }

    if ($tokenStart -lt $prefix.Length) {
        return $prefix.Substring($tokenStart)
    }

    $Fallback
}

function Get-SedQuoteCharacter {
    param([string]$InputText)

    if ([string]::IsNullOrEmpty($InputText)) {
        return $null
    }

    if ($InputText.StartsWith("'", [System.StringComparison]::Ordinal)) {
        return "'"
    }

    if ($InputText.StartsWith('"', [System.StringComparison]::Ordinal)) {
        return '"'
    }

    $null
}

function Remove-SedOuterQuotes {
    param([string]$InputText)

    $quoteCharacter = Get-SedQuoteCharacter -InputText $InputText
    if ($null -eq $quoteCharacter) {
        return $InputText
    }

    $unquoted = $InputText.Substring(1)
    if ($unquoted.EndsWith($quoteCharacter, [System.StringComparison]::Ordinal)) {
        $unquoted = $unquoted.Substring(0, $unquoted.Length - 1)
    }

    if ($quoteCharacter -eq "'") {
        return $unquoted.Replace("''", "'")
    }

    if ($quoteCharacter -eq '"') {
        return $unquoted.Replace('`"', '"')
    }

    $unquoted
}

function ConvertTo-SedQuotedValue {
    param(
        [string]$Value,
        [string]$QuoteCharacter
    )

    if ([string]::IsNullOrWhiteSpace($Value)) {
        return $Value
    }

    $effectiveQuote = $QuoteCharacter
    if ([string]::IsNullOrEmpty($effectiveQuote)) {
        $effectiveQuote = '"'
    }

    if (($effectiveQuote -eq "'") -and $Value.Contains("'")) {
        $effectiveQuote = '"'
    }

    if ($effectiveQuote -eq '"') {
        $escapedValue = $Value.Replace('`', '``').Replace('$', '`$').Replace('"', '`"')
        return '"' + $escapedValue + '"'
    }

    if ($effectiveQuote -eq "'") {
        return "'" + $Value.Replace("'", "''") + "'"
    }

    '"' + $Value + '"'
}

function Get-SedExecutablePath {
    param([string]$CommandName = 'sed')

    if ($script:SedCompletionCatalog.ProbedExecutable) {
        return $script:SedCompletionCatalog.ExecutablePath
    }

    $script:SedCompletionCatalog.ProbedExecutable = $true

    $candidates = @()
    if (-not [string]::IsNullOrWhiteSpace($CommandName)) {
        $leafName = Split-Path -Leaf $CommandName
        if (-not [string]::IsNullOrWhiteSpace($leafName)) {
            $candidates += $leafName
        }
    }

    $candidates += @('sed.exe', 'sed')

    foreach ($candidate in ($candidates | Select-Object -Unique)) {
        $command = Get-Command -Name $candidate -ErrorAction Ignore
        if ($command) {
            $script:SedCompletionCatalog.ExecutablePath = $command.Source
            break
        }
    }

    $script:SedCompletionCatalog.ExecutablePath
}

function Get-SedHelpText {
    param([string]$CommandName = 'sed')

    $executablePath = Get-SedExecutablePath -CommandName $CommandName
    if ([string]::IsNullOrWhiteSpace($executablePath)) {
        return ''
    }

    try {
        (($null | & $executablePath --help 2>$null | ForEach-Object { $_ -replace '\e\[[0-9;?]*[ -/]*[@-~]', '' }) -join "`n")
    } catch {
        ''
    }
}

function Get-SedHelpValueKind {
    param([string]$Placeholder)

    switch -Regex ($Placeholder) {
        '^script$' { return 'ScriptText' }
        '^script-file$' { return 'SourceFile' }
        '^SUFFIX$' { return 'InPlaceSuffix' }
        '^N$' { return 'LineLength' }
        '^locale-name$' { return 'Locale' }
        '^$' { return 'None' }
        default { return 'Text' }
    }
}

function ConvertFrom-SedHelpText {
    # Parses GNU sed's option table into definitions shaped like Get-SedStaticOptionDefinitions,
    # so options the static table does not know (--follow-symlinks on stock builds) stay reachable.
    param([string]$HelpText)

    if ([string]::IsNullOrWhiteSpace($HelpText)) {
        return @()
    }

    $groups = New-Object System.Collections.Generic.List[hashtable]
    $current = $null

    foreach ($line in ($HelpText -split "`r?`n")) {
        if ($line -match '^\s{2,6}(?<spec>-\S.*?)(?:\s{3,}(?<inline>\S.*))?\s*$') {
            $spec = $Matches['spec']
            $inline = $Matches['inline']
            $tokens = New-Object System.Collections.Generic.List[string]
            $valueMode = 'None'
            $placeholder = ''
            $hasShort = $false
            $hasLong = $false

            foreach ($part in ($spec -split ',\s+')) {
                if ($part -notmatch '^(?<token>--?[A-Za-z][A-Za-z0-9\-]*)(?<rest>.*)$') {
                    continue
                }

                $token = $Matches['token']
                $rest = $Matches['rest']
                [void]$tokens.Add($token)
                if ($token.StartsWith('--', [System.StringComparison]::Ordinal)) { $hasLong = $true } else { $hasShort = $true }

                if ($rest -match '^\[=?(?<value>[^\]]+)\]') {
                    if ($valueMode -eq 'None') { $valueMode = 'Optional' }
                    if (-not $placeholder) { $placeholder = $Matches['value'] }
                } elseif ($rest -match '^(?:=|\s+)(?<value>\S+)') {
                    $valueMode = 'Required'
                    if (-not $placeholder) { $placeholder = $Matches['value'] }
                }
            }

            if ($tokens.Count -eq 0) {
                $current = $null
                continue
            }

            $valueKind = Get-SedHelpValueKind -Placeholder $placeholder
            $current = @{
                Canonical            = $tokens[0]
                Tokens               = @($tokens.ToArray())
                Description          = if ($inline) { $inline.Trim() } else { '' }
                ValueMode            = $valueMode
                ValueKind            = $valueKind
                Placeholder          = $placeholder
                ShortAllowsSeparate  = $hasShort -and ($valueMode -eq 'Required')
                ShortAllowsAttached  = $hasShort -and ($valueMode -ne 'None')
                LongAllowsSeparate   = $hasLong -and ($valueMode -eq 'Required')
                LongAllowsEquals     = $hasLong -and ($valueMode -ne 'None')
                ExplicitScriptSource = $valueKind -in @('ScriptText', 'SourceFile')
            }
            [void]$groups.Add($current)
            continue
        }

        if ($null -ne $current -and $line -match '^\s{8,}(?<text>\S.*?)\s*$') {
            $text = $Matches['text']
            $current.Description = if ($current.Description) { $current.Description + ' ' + $text } else { $text }
            continue
        }

        $current = $null
    }

    @($groups.ToArray())
}

function Get-SedStaticOptionDefinitions {
    @(
        @{
            Canonical = '-n'
            Tokens = @('-n', '--quiet', '--silent')
            Description = 'Suppress automatic printing of pattern space'
            ValueMode = 'None'
            ValueKind = 'None'
        }
        @{
            Canonical = '--debug'
            Tokens = @('--debug')
            Description = 'Annotate program execution'
            ValueMode = 'None'
            ValueKind = 'None'
        }
        @{
            Canonical = '-e'
            Tokens = @('-e', '--expression')
            Description = 'Add the script to the commands to be executed'
            ValueMode = 'Required'
            ValueKind = 'ScriptText'
            ShortAllowsSeparate = $true
            ShortAllowsAttached = $true
            LongAllowsSeparate = $true
            LongAllowsEquals = $true
            ExplicitScriptSource = $true
        }
        @{
            Canonical = '-f'
            Tokens = @('-f', '--file')
            Description = 'Add the contents of script-file to the commands to be executed'
            ValueMode = 'Required'
            ValueKind = 'SourceFile'
            ShortAllowsSeparate = $true
            ShortAllowsAttached = $true
            LongAllowsSeparate = $true
            LongAllowsEquals = $true
            ExplicitScriptSource = $true
        }
        @{
            Canonical = '-i'
            Tokens = @('-i', '--in-place')
            Description = 'Edit files in place; optional suffix creates backup files'
            ValueMode = 'Optional'
            ValueKind = 'InPlaceSuffix'
            ShortAllowsSeparate = $false
            ShortAllowsAttached = $true
            LongAllowsSeparate = $false
            LongAllowsEquals = $true
        }
        @{
            Canonical = '-b'
            Tokens = @('-b', '--binary')
            Description = 'Open files in binary mode'
            ValueMode = 'None'
            ValueKind = 'None'
        }
        @{
            Canonical = '-C'
            Tokens = @('-C', '--ignore-locale')
            Description = 'Ignore system locale and operate in the default C locale'
            ValueMode = 'None'
            ValueKind = 'None'
        }
        @{
            Canonical = '--locale'
            Tokens = @('--locale')
            Description = 'Use the specified locale name'
            ValueMode = 'Required'
            ValueKind = 'Locale'
            LongAllowsSeparate = $true
            LongAllowsEquals = $true
        }
        @{
            Canonical = '-l'
            Tokens = @('-l', '--line-length')
            Description = 'Specify the desired line-wrap length for the l command'
            ValueMode = 'Required'
            ValueKind = 'LineLength'
            ShortAllowsSeparate = $true
            ShortAllowsAttached = $true
            LongAllowsSeparate = $true
            LongAllowsEquals = $true
        }
        @{
            Canonical = '--posix'
            Tokens = @('--posix')
            Description = 'Disable all GNU extensions'
            ValueMode = 'None'
            ValueKind = 'None'
        }
        @{
            Canonical = '-E'
            Tokens = @('-E', '-r', '--regexp-extended')
            Description = 'Use extended regular expressions in the script'
            ValueMode = 'None'
            ValueKind = 'None'
        }
        @{
            Canonical = '-s'
            Tokens = @('-s', '--separate')
            Description = 'Consider files as separate instead of one continuous stream'
            ValueMode = 'None'
            ValueKind = 'None'
        }
        @{
            Canonical = '--sandbox'
            Tokens = @('--sandbox')
            Description = 'Disable e/r/w commands in sandbox mode'
            ValueMode = 'None'
            ValueKind = 'None'
        }
        @{
            Canonical = '-u'
            Tokens = @('-u', '--unbuffered')
            Description = 'Load and flush smaller chunks of data'
            ValueMode = 'None'
            ValueKind = 'None'
        }
        @{
            Canonical = '-z'
            Tokens = @('-z', '--null-data', '--zero-terminated')
            Description = 'Separate lines by NUL characters'
            ValueMode = 'None'
            ValueKind = 'None'
        }
        @{
            Canonical = '--help'
            Tokens = @('--help')
            Description = 'Display help and exit'
            ValueMode = 'None'
            ValueKind = 'None'
        }
        @{
            Canonical = '--version'
            Tokens = @('--version')
            Description = 'Output version information and exit'
            ValueMode = 'None'
            ValueKind = 'None'
        }
    )
}

function Initialize-SedLocaleCache {
    if ($script:SedCompletionCatalog.LocalesInitialized) {
        return
    }

    $script:SedCompletionCatalog.LocalesInitialized = $true

    $seen = @{}
    $entries = New-Object System.Collections.Generic.List[object]
    $cultureTypes = [System.Globalization.CultureTypes]::SpecificCultures -bor [System.Globalization.CultureTypes]::NeutralCultures

    foreach ($culture in [System.Globalization.CultureInfo]::GetCultures($cultureTypes)) {
        $name = $culture.Name
        if ([string]::IsNullOrWhiteSpace($name)) {
            continue
        }

        foreach ($candidate in @($name, ($name -replace '-', '_'))) {
            if ([string]::IsNullOrWhiteSpace($candidate) -or ($candidate -eq 'POSIX')) {
                continue
            }

            if ($seen.ContainsKey($candidate)) {
                continue
            }

            $seen[$candidate] = $true
            [void]$entries.Add(
                [pscustomobject]@{
                    Text = $candidate
                    ToolTip = 'Locale name ({0})' -f $culture.DisplayName
                }
            )
        }
    }

    $script:SedCompletionCatalog.LocaleEntries = @($entries.ToArray() | Sort-Object Text -Unique)
}

function Initialize-SedCompletionCatalog {
    param([string]$CommandName = 'sed')

    if ($script:SedCompletionCatalog.Initialized) {
        return
    }

    $helpText = Get-SedHelpText -CommandName $CommandName
    $helpDefinitions = @(ConvertFrom-SedHelpText -HelpText $helpText)
    $helpTokens = @($helpDefinitions | ForEach-Object { $_.Tokens })
    $helpTokenMap = New-SedStringSet
    foreach ($token in $helpTokens) {
        [void]$helpTokenMap.Add($token)
    }

    $supplementalTokenMap = New-SedStringSet
    [void]$supplementalTokenMap.Add('--zero-terminated')

    $definitions = New-Object System.Collections.Generic.List[hashtable]
    $tokenMap = New-SedStringObjectMap
    $suggestions = New-Object System.Collections.Generic.List[object]

    foreach ($definition in Get-SedStaticOptionDefinitions) {
        $tokens = New-Object System.Collections.Generic.List[string]
        foreach ($token in @($definition.Tokens)) {
            if (($helpTokens.Count -eq 0) -or $helpTokenMap.Contains($token) -or $supplementalTokenMap.Contains($token)) {
                [void]$tokens.Add($token)
            }
        }

        if ($tokens.Count -eq 0) {
            continue
        }

        $resolvedDefinition = @{}
        foreach ($key in $definition.Keys) {
            if ($key -eq 'Tokens') {
                $resolvedDefinition[$key] = @($tokens.ToArray())
            } else {
                $resolvedDefinition[$key] = $definition[$key]
            }
        }

        [void]$definitions.Add($resolvedDefinition)

        foreach ($token in $resolvedDefinition.Tokens) {
            $tokenMap[$token] = $resolvedDefinition
            [void]$suggestions.Add(
                [pscustomobject]@{
                    CompletionText = $token
                    ToolTip = $resolvedDefinition.Description
                }
            )
        }
    }

    # Help is additive: any option the installed build documents but the static table lacks is
    # synthesized from its synopsis line, so the static table is only an offline fallback.
    foreach ($helpDefinition in $helpDefinitions) {
        $known = $false
        foreach ($token in @($helpDefinition.Tokens)) {
            if ($tokenMap.ContainsKey($token)) {
                $known = $true
                break
            }
        }

        if ($known) {
            continue
        }

        [void]$definitions.Add($helpDefinition)
        foreach ($token in @($helpDefinition.Tokens)) {
            $tokenMap[$token] = $helpDefinition
            [void]$suggestions.Add(
                [pscustomobject]@{
                    CompletionText = $token
                    ToolTip = if ($helpDefinition.Description) { $helpDefinition.Description } else { $token }
                }
            )
        }
    }

    $script:SedCompletionCatalog.HelpOptionTokens = $helpTokens
    $script:SedCompletionCatalog.OptionDefinitions = @($definitions.ToArray())
    $script:SedCompletionCatalog.OptionTokenMap = $tokenMap
    $script:SedCompletionCatalog.OptionSuggestions = @($suggestions.ToArray())
    $script:SedCompletionCatalog.Initialized = $true
}

function Get-SedOptionDefinition {
    param([string]$Token)

    if ([string]::IsNullOrWhiteSpace($Token)) {
        return $null
    }

    if ($script:SedCompletionCatalog.OptionTokenMap.ContainsKey($Token)) {
        return $script:SedCompletionCatalog.OptionTokenMap[$Token]
    }

    $null
}

function New-SedParseState {
    @{
        EndOfOptions = $false
        PendingSeparateOption = $null
        ExplicitScriptSource = $false
        ImplicitScriptConsumed = $false
    }
}

function Update-SedStateFromValue {
    param(
        [hashtable]$State,
        [hashtable]$Definition,
        [string]$Value
    )

    if ($null -eq $Definition) {
        return
    }

    if ($Definition.ContainsKey('ExplicitScriptSource') -and $Definition.ExplicitScriptSource) {
        $State.ExplicitScriptSource = $true
    }
}

function Update-SedStateFromOption {
    param(
        [hashtable]$State,
        [hashtable]$Definition
    )

    if ($null -eq $Definition) {
        return
    }
}

function Resolve-SedShortCluster {
    # Walks a bundled short word ('-ne', '-si.bak') the way getopt does: flag letters continue,
    # and the first letter that takes a value ends the walk and owns the rest as its attached value.
    # Returns $null when the word holds an unknown letter or no value-taking letter.
    param([string]$Token)

    for ($index = 1; $index -lt $Token.Length; $index++) {
        $definition = Get-SedOptionDefinition -Token ('-' + $Token[$index])
        if ($null -eq $definition) {
            return $null
        }

        if ($definition.ValueMode -ne 'None') {
            return @{
                Definition = $definition
                Prefix     = $Token.Substring(0, $index + 1)
                Value      = $Token.Substring($index + 1)
            }
        }
    }

    $null
}

function Parse-SedShortCompletedToken {
    param(
        [string]$Token,
        [hashtable]$State
    )

    if ([string]::IsNullOrWhiteSpace($Token) -or ($Token.Length -lt 2)) {
        return
    }

    $definition = Get-SedOptionDefinition -Token $Token
    if ($definition) {
        switch ($definition.ValueMode) {
            'Required' {
                if ($definition.ContainsKey('ShortAllowsSeparate') -and $definition.ShortAllowsSeparate) {
                    $State.PendingSeparateOption = $definition.Canonical
                }
            }
            'Optional' {
                Update-SedStateFromOption -State $State -Definition $definition
            }
            default {
                Update-SedStateFromOption -State $State -Definition $definition
            }
        }

        return
    }

    if ($Token.Length -le 2) {
        return
    }

    $cluster = Resolve-SedShortCluster -Token $Token
    if ($null -eq $cluster) {
        return
    }

    $attachedDefinition = $cluster.Definition
    if ($cluster.Value) {
        if ($attachedDefinition.ContainsKey('ShortAllowsAttached') -and $attachedDefinition.ShortAllowsAttached) {
            Update-SedStateFromValue -State $State -Definition $attachedDefinition -Value $cluster.Value
        }

        return
    }

    # The value-taking letter ended the cluster ('-ne'), so a required value is the next word.
    if (($attachedDefinition.ValueMode -eq 'Required') -and $attachedDefinition.ContainsKey('ShortAllowsSeparate') -and $attachedDefinition.ShortAllowsSeparate) {
        $State.PendingSeparateOption = $attachedDefinition.Canonical
    }
}

function Update-SedParseState {
    param([string[]]$CompletedTokens)

    $state = New-SedParseState

    foreach ($token in @($CompletedTokens)) {
        if ([string]::IsNullOrWhiteSpace($token)) {
            continue
        }

        if ($state.PendingSeparateOption) {
            $pendingDefinition = Get-SedOptionDefinition -Token $state.PendingSeparateOption
            Update-SedStateFromValue -State $state -Definition $pendingDefinition -Value $token
            $state.PendingSeparateOption = $null
            continue
        }

        if (-not $state.EndOfOptions -and ($token -eq '--')) {
            $state.EndOfOptions = $true
            continue
        }

        if (-not $state.EndOfOptions) {
            if ($token.StartsWith('--', [System.StringComparison]::Ordinal)) {
                $equalsIndex = $token.IndexOf('=')
                $optionToken = if ($equalsIndex -ge 0) { $token.Substring(0, $equalsIndex) } else { $token }
                $definition = Get-SedOptionDefinition -Token $optionToken

                if ($definition) {
                    switch ($definition.ValueMode) {
                        'Required' {
                            if (($equalsIndex -ge 0) -and $definition.ContainsKey('LongAllowsEquals') -and $definition.LongAllowsEquals) {
                                $valueText = $token.Substring($equalsIndex + 1)
                                Update-SedStateFromValue -State $state -Definition $definition -Value $valueText
                            } elseif ($definition.ContainsKey('LongAllowsSeparate') -and $definition.LongAllowsSeparate) {
                                $state.PendingSeparateOption = $definition.Canonical
                            }
                        }
                        'Optional' {
                            if (($equalsIndex -ge 0) -and $definition.ContainsKey('LongAllowsEquals') -and $definition.LongAllowsEquals) {
                                $valueText = $token.Substring($equalsIndex + 1)
                                Update-SedStateFromValue -State $state -Definition $definition -Value $valueText
                            } else {
                                Update-SedStateFromOption -State $state -Definition $definition
                            }
                        }
                        default {
                            Update-SedStateFromOption -State $state -Definition $definition
                        }
                    }

                }

                # An unrecognised long option is still an option, never the implicit script.
                continue
            } elseif ($token.StartsWith('-', [System.StringComparison]::Ordinal) -and ($token -ne '-')) {
                Parse-SedShortCompletedToken -Token $token -State $state
                continue
            }
        }

        if (-not $state.ExplicitScriptSource -and -not $state.ImplicitScriptConsumed) {
            $state.ImplicitScriptConsumed = $true
            continue
        }
    }

    $state
}

function Get-SedPathCompletions {
    param(
        [string]$InputText,
        [string]$AttachedPrefix = '',
        [string[]]$PreferredExtensions = @()
    )

    $text = if ($null -eq $InputText) { '' } else { $InputText }
    $quoteCharacter = Get-SedQuoteCharacter -InputText $text
    $trimmedInput = Remove-SedOuterQuotes -InputText $text

    if ([string]::IsNullOrWhiteSpace($trimmedInput)) {
        $parent = '.'
        $leaf = ''
    } elseif (Test-Path -LiteralPath $trimmedInput -PathType Container) {
        $parent = $trimmedInput
        $leaf = ''
    } else {
        $parent = Split-Path -Path $trimmedInput -Parent
        if ([string]::IsNullOrWhiteSpace($parent)) {
            $parent = '.'
        }

        $leaf = Split-Path -Path $trimmedInput -Leaf
    }

    $filter = if ([string]::IsNullOrWhiteSpace($leaf)) { '*' } else { "$leaf*" }
    $quoteResult = -not [string]::IsNullOrEmpty($quoteCharacter)

    $preferredMap = @{}
    foreach ($extension in @($PreferredExtensions)) {
        if ([string]::IsNullOrWhiteSpace($extension)) {
            continue
        }

        $preferredMap[$extension] = $true
    }

    $items = @(Get-ChildItem -Path $parent -Filter $filter -ErrorAction SilentlyContinue)
    $sortedItems = @(
        $items | Sort-Object `
            @{ Expression = { -not $_.PSIsContainer } }, `
            @{ Expression = {
                    if ($_.PSIsContainer) {
                        0
                    } elseif ($preferredMap.ContainsKey($_.Extension)) {
                        0
                    } else {
                        1
                    }
                }
            }, `
            @{ Expression = { $_.Name } }
    )

    foreach ($item in $sortedItems) {
        $completionText = if (-not [System.IO.Path]::IsPathRooted($trimmedInput)) {
            if ($parent -eq '.') {
                $item.Name
            } else {
                Join-Path -Path $parent -ChildPath $item.Name
            }
        } else {
            $item.FullName
        }

        if ($item.PSIsContainer -and -not $completionText.EndsWith([System.IO.Path]::DirectorySeparatorChar)) {
            $completionText += [System.IO.Path]::DirectorySeparatorChar
        }

        if ($quoteResult -or ($completionText -match '\s')) {
            $completionText = ConvertTo-SedQuotedValue -Value $completionText -QuoteCharacter $quoteCharacter
        }

        $toolTip = if ($item.PSIsContainer) {
            'Directory: {0}' -f $item.FullName
        } else {
            $item.FullName
        }

        New-SedCompletionResult -CompletionText ($AttachedPrefix + $completionText) -ResultType 'ParameterValue' -ToolTip $toolTip
    }
}

function Get-SedSimpleValueCompletions {
    param(
        [object[]]$Values,
        [string]$CurrentWord,
        [string]$AttachedPrefix = ''
    )

    $rawWord = if ($null -eq $CurrentWord) { '' } else { $CurrentWord }
    $quoteCharacter = Get-SedQuoteCharacter -InputText $rawWord
    $word = Remove-SedOuterQuotes -InputText $rawWord

    foreach ($value in @($Values)) {
        $text = if ($value -is [string]) { $value } else { $value.Text }
        $toolTip = if ($value -is [string]) { $value } else { $value.ToolTip }
        if ([string]::IsNullOrWhiteSpace($word) -or $text.StartsWith($word, [System.StringComparison]::OrdinalIgnoreCase)) {
            $completionText = if ($quoteCharacter) { ConvertTo-SedQuotedValue -Value $text -QuoteCharacter $quoteCharacter } else { $text }
            New-SedCompletionResult -CompletionText ($AttachedPrefix + $completionText) -ResultType 'ParameterValue' -ToolTip $toolTip
        }
    }
}

function Get-SedInPlaceSuffixCompletions {
    param(
        [string]$CurrentWord,
        [string]$AttachedPrefix = ''
    )

    $hints = @($script:SedCompletionCatalog.InPlaceSuffixHints | ForEach-Object {
            [pscustomobject]@{ Text = $_; ToolTip = ('Use backup suffix {0}' -f $_) }
        })
    Get-SedSimpleValueCompletions -Values $hints -CurrentWord $CurrentWord -AttachedPrefix $AttachedPrefix
}

function Get-SedLocaleCompletions {
    param(
        [string]$CurrentWord,
        [string]$AttachedPrefix = ''
    )

    Initialize-SedLocaleCache
    Get-SedSimpleValueCompletions -Values $script:SedCompletionCatalog.LocaleEntries -CurrentWord $CurrentWord -AttachedPrefix $AttachedPrefix
}

function Get-SedScriptHintCompletions {
    param(
        [string]$CurrentWord,
        [string]$AttachedPrefix = ''
    )

    Get-SedSimpleValueCompletions -Values $script:SedCompletionCatalog.ScriptHints -CurrentWord $CurrentWord -AttachedPrefix $AttachedPrefix
}

function Get-SedValueCompletions {
    param(
        [hashtable]$Definition,
        [string]$CurrentWord,
        [string]$AttachedPrefix = ''
    )

    if ($null -eq $Definition) {
        return @()
    }

    switch ($Definition.ValueKind) {
        'ScriptText' {
            return @(Get-SedScriptHintCompletions -CurrentWord $CurrentWord -AttachedPrefix $AttachedPrefix)
        }
        'SourceFile' {
            return @(Get-SedPathCompletions -InputText $CurrentWord -AttachedPrefix $AttachedPrefix -PreferredExtensions @('.sed'))
        }
        'Locale' {
            return @(Get-SedLocaleCompletions -CurrentWord $CurrentWord -AttachedPrefix $AttachedPrefix)
        }
        'LineLength' {
            return @(Get-SedSimpleValueCompletions -Values $script:SedCompletionCatalog.LineLengthHints -CurrentWord $CurrentWord -AttachedPrefix $AttachedPrefix)
        }
        'InPlaceSuffix' {
            return @(Get-SedInPlaceSuffixCompletions -CurrentWord $CurrentWord -AttachedPrefix $AttachedPrefix)
        }
        'None' {
            return @()
        }
        default {
            $placeholder = if ($Definition.ContainsKey('Placeholder') -and $Definition.Placeholder) { '<' + $Definition.Placeholder + '>' } else { '<value>' }
            return @(New-SedCompletionResult -CompletionText ($AttachedPrefix + $placeholder) -ResultType 'ParameterValue' -ToolTip $Definition.Description)
        }
    }
}

function Get-SedOptionCompletions {
    param([string]$CurrentWord)

    $word = if ($null -eq $CurrentWord) { '' } else { $CurrentWord }
    $results = New-Object System.Collections.Generic.List[System.Management.Automation.CompletionResult]
    $seen = New-SedStringSet

    if ([string]::IsNullOrWhiteSpace($word) -or '--'.StartsWith($word, [System.StringComparison]::Ordinal)) {
        [void]$seen.Add('--')
        [void]$results.Add(
            (New-SedCompletionResult -CompletionText '--' -ResultType 'ParameterName' -ToolTip 'End option parsing')
        )
    }

    foreach ($candidate in $script:SedCompletionCatalog.OptionSuggestions) {
        if ($candidate.CompletionText.StartsWith($word, [System.StringComparison]::Ordinal)) {
            if ($seen.Contains($candidate.CompletionText)) {
                continue
            }

            [void]$seen.Add($candidate.CompletionText)
            [void]$results.Add(
                (New-SedCompletionResult -CompletionText $candidate.CompletionText -ResultType 'ParameterName' -ToolTip $candidate.ToolTip)
            )
        }
    }

    @($results.ToArray())
}

function Get-SedPositionalCompletions {
    param(
        [hashtable]$State,
        [string]$CurrentWord
    )

    if (-not $State.ExplicitScriptSource -and -not $State.ImplicitScriptConsumed) {
        return @()
    }

    @(Get-SedPathCompletions -InputText $CurrentWord)
}

function Complete-SedNative {
    param(
        [string]$WordToComplete,
        [System.Management.Automation.Language.CommandAst]$CommandAst,
        [int]$CursorPosition
    )

    [object[]]$commandElements = @($CommandAst.CommandElements)
    if ($commandElements.Count -eq 0) {
        return
    }

    Initialize-SedCompletionCatalog -CommandName $commandElements[0].Extent.Text

    # PowerShell splits an attached short value at the parameter boundary ('-i.bak' becomes
    # [-i][.bak]), so rebuild words from adjacent extents and locate the one under the cursor.
    $words = New-Object System.Collections.Generic.List[object]
    foreach ($element in ($commandElements | Select-Object -Skip 1)) {
        $extent = $element.Extent
        if (($words.Count -gt 0) -and ($words[$words.Count - 1].End -eq $extent.StartOffset)) {
            $words[$words.Count - 1].Text += $extent.Text
            $words[$words.Count - 1].End = $extent.EndOffset
        } else {
            [void]$words.Add([pscustomobject]@{ Start = $extent.StartOffset; End = $extent.EndOffset; Text = $extent.Text })
        }
    }

    $currentWordEntry = $null
    foreach ($word in $words) {
        if (($word.Start -lt $CursorPosition) -and ($CursorPosition -le $word.End)) {
            $currentWordEntry = $word
            break
        }
    }

    $effectiveCurrentToken = if ($null -ne $currentWordEntry) {
        $currentWordEntry.Text.Substring(0, [Math]::Min($currentWordEntry.Text.Length, $CursorPosition - $currentWordEntry.Start))
    } elseif ([string]::IsNullOrEmpty($WordToComplete)) {
        ''
    } else {
        $WordToComplete
    }
    $currentWord = $effectiveCurrentToken

    [object[]]$completedTokens = @(
        $words | Where-Object {
            if ($null -ne $currentWordEntry) { $_.End -le $currentWordEntry.Start } else { $_.End -le $CursorPosition }
        } | ForEach-Object { $_.Text }
    )

    $state = Update-SedParseState -CompletedTokens $completedTokens

    if ($state.PendingSeparateOption) {
        $pendingDefinition = Get-SedOptionDefinition -Token $state.PendingSeparateOption
        return @(Get-SedValueCompletions -Definition $pendingDefinition -CurrentWord $currentWord)
    }

    if (
        -not $state.EndOfOptions -and
        [string]::IsNullOrEmpty($currentWord) -and
        -not $state.ExplicitScriptSource -and
        -not $state.ImplicitScriptConsumed
    ) {
        return @(Get-SedOptionCompletions -CurrentWord $currentWord)
    }

    if (-not $state.EndOfOptions -and $effectiveCurrentToken.StartsWith('--', [System.StringComparison]::Ordinal)) {
        $equalsIndex = $effectiveCurrentToken.IndexOf('=')
        if ($equalsIndex -ge 0) {
            $optionToken = $effectiveCurrentToken.Substring(0, $equalsIndex)
            $valueText = $effectiveCurrentToken.Substring($equalsIndex + 1)
            $definition = Get-SedOptionDefinition -Token $optionToken
            if ($definition -and $definition.ContainsKey('LongAllowsEquals') -and $definition.LongAllowsEquals) {
                return @(Get-SedValueCompletions -Definition $definition -CurrentWord $valueText -AttachedPrefix ($optionToken + '='))
            }
        }

        return @(Get-SedOptionCompletions -CurrentWord $effectiveCurrentToken)
    }

    if (-not $state.EndOfOptions -and $effectiveCurrentToken.StartsWith('-', [System.StringComparison]::Ordinal) -and ($effectiveCurrentToken -ne '-')) {
        if ($effectiveCurrentToken.Length -gt 2) {
            $cluster = Resolve-SedShortCluster -Token $effectiveCurrentToken
            if ($cluster -and $cluster.Value -and $cluster.Definition.ContainsKey('ShortAllowsAttached') -and $cluster.Definition.ShortAllowsAttached) {
                return @(Get-SedValueCompletions -Definition $cluster.Definition -CurrentWord $cluster.Value -AttachedPrefix $cluster.Prefix)
            }
        }

        return @(Get-SedOptionCompletions -CurrentWord $effectiveCurrentToken)
    }

    if (-not $state.EndOfOptions -and ($effectiveCurrentToken -eq '-')) {
        return @(Get-SedOptionCompletions -CurrentWord $effectiveCurrentToken)
    }

    @(Get-SedPositionalCompletions -State $state -CurrentWord $currentWord)
}

Register-ArgumentCompleter -Native -CommandName @('sed', 'sed.exe') -ScriptBlock {
    param($wordToComplete, $commandAst, $cursorPosition)

    Complete-SedNative -WordToComplete $wordToComplete -CommandAst $commandAst -CursorPosition $cursorPosition
}