Belin.Cli

5.0.1

src/Text/ConvertTo-Encoding.psm1

using namespace System.Diagnostics.CodeAnalysis
using namespace System.Text
using module ./Test-IsExcluded.psm1

<#
.SYNOPSIS
    The list of binary file extensions.
#>
$BinaryExtensions = @()

<#
.SYNOPSIS
    The list of text file extensions.
#>
$TextExtensions = @()

<#
.SYNOPSIS
    Converts the encoding of input files.
.INPUTS
    A string that contains a path, but not a literal path.
.OUTPUTS
    The log messages.
#>
function ConvertTo-Encoding {
    [CmdletBinding(DefaultParameterSetName = "Path")]
    [OutputType([string])]
    [SuppressMessage("PSReviewUnusedParameter", "Exclude")]
    param (
        # The path to the files to convert.
        [Parameter(Mandatory, ParameterSetName = "Path", Position = 0, ValueFromPipeline)]
        [SupportsWildcards()]
        [string[]] $Path,

        # The literal path to the files to convert.
        [Parameter(Mandatory, ParameterSetName = "LiteralPath")]
        [ValidateScript({ Test-Path $_ -IsValid }, ErrorMessage = "The specified literal path is invalid.")]
        [string[]] $LiteralPath,

        # The destination encoding.
        [Parameter(Mandatory)]
        [ValidateSet("Latin1", "UTF-8")]
        [string] $Encoding,

        # The list of folders to exclude from the processing.
        [ValidateNotNull()]
        [string[]] $Exclude = @(".git", "node_modules", "ps_modules", "vendor"),

        # A pattern used to filter the list of files to be processed.
        [string] $Filter = "",

        # Value indicating whether to process the input path recursively.
        [switch] $Recurse
    )

    begin {
        $resources = Join-Path $PSScriptRoot ../../res/Text
        if (-not $Script:BinaryExtensions) { $Script:BinaryExtensions = Get-Content "$resources/BinaryExtensions.json" | ConvertFrom-Json }
        if (-not $Script:TextExtensions) { $Script:TextExtensions = Get-Content "$resources/TextExtensions.json" | ConvertFrom-Json }
    }

    process {
        $sourceEncoding = [Encoding]::GetEncoding($Encoding -eq "Latin1" ? "UTF-8" : "Latin1")
        $destinationEncoding = [Encoding]::GetEncoding($Encoding)

        $parameters = @{ File = $true; Recurse = $Recurse }
        if ($Filter) { $parameters.Filter = $Filter }

        $files = $PSCmdlet.ParameterSetName -eq "LiteralPath" ? (Get-ChildItem -LiteralPath $LiteralPath @parameters) : (Get-ChildItem $Path @parameters)
        foreach ($file in $files.Where{ -not (Test-IsExcluded $_ -Exclude $Exclude) }) {
            $extension = Split-Path $file.Name -Extension
            $isBinary = $extension -and ($extension.Substring(1) -in $Script:BinaryExtensions)
            if ($isBinary) { continue }

            $bytes = Get-Content $file.FullName -AsByteStream
            if (-not $bytes) { continue }

            $isText = $extension -and ($extension.Substring(1) -in $Script:TextExtensions)
            if ((-not $isText) -and ([Array]::IndexOf[byte]($bytes, 0, 0, [Math]::Min($bytes.Count, 8000)) -gt 0)) { continue }

            "Converting: $file"
            Set-Content $file.FullName ([Encoding]::Convert($sourceEncoding, $destinationEncoding, $bytes)) -AsByteStream
        }
    }
}