make.ps1

#!/usr/bin/env pwsh
##############################################################################################################

Function Show-Usage {
    "
Usage: pwsh -File $($PSCommandPath) [OPTIONS]
Options:
    build   Build program
" | Out-Host
}

Function Request-File {
    While ($Input.MoveNext()) {
        New-Variable -Name VAR -Option Constant -Value @{
            Uri = $Input.Current
            OutFile = (Split-Path -Path $Input.Current -Leaf).Split('?')[0]
        }
        Invoke-WebRequest @VAR
        Return $VAR.OutFile
    }
}

Function Install-Program {
    While ($Input.MoveNext()) {
        Switch ((Split-Path -Path $Input.Current -Leaf).Split('.')[-1]) {
            'msi' {
                & msiexec /passive /package $Input.Current | Out-Null
            }
            Default {
                & ".\$($Input.Current)" /SP- /VERYSILENT /SUPPRESSMSGBOXES /NORESTART | Out-Null
            }
        }
        Remove-Item $Input.Current
    }
}

Function Build-Project {
    @(
        @{
            Cmd = 'lazbuild'
            Url = 'https://fossies.org/windows/misc/lazarus-3.6-fpc-3.2.2-win64.exe'
            Path = "C:\Lazarus"
        }
    ) | Where-Object { ! (Test-Path -Path $_.Path) } |
        ForEach-Object {
            $_.Url | Request-File | Install-Program
            $Env:PATH+=";$($_.Path)"
            (Get-Command $_.Cmd).Source | Out-Host
        }
    If (Test-Path -Path '.gitmodules') {
        & git submodule update --init --recursive --force --remote | Out-Host
        ".... [[$($LastExitCode)]] git submodule update" | Out-Host
    }
    New-Variable -Name VAR -Option Constant -Value @{
        Src = 'src'
        Use = 'use'
        Pkg = 'use\components.txt'
    }
    If (Test-Path -Path $VAR.Use) {
        If (Test-Path -Path $VAR.Pkg) {
            Get-Content -Path $VAR.Pkg |
                Where-Object {
                    ! (Test-Path -Path "$($VAR.Use)\$($_)") &&
                    ! (& lazbuild --verbose-pkgsearch $_ ) &&
                    ! (& lazbuild --add-package $_)
                } | ForEach-Object {
                    Return @{
                        Uri = "https://packages.lazarus-ide.org/$($_).zip"
                        Path = "$($VAR.Use)\$($_)"
                        OutFile = (New-TemporaryFile).FullName
                    }
                } | ForEach-Object -Parallel {
                    Invoke-WebRequest -OutFile $_.OutFile -Uri $_.Uri
                    Expand-Archive -Path $_.OutFile -DestinationPath $_.Path
                    Remove-Item $_.OutFile
                    Return ".... download $($_.Uri)"
                } | Out-Host
        }
        (Get-ChildItem -Filter '*.lpk' -Recurse -File –Path $VAR.Use).FullName |
            ForEach-Object {
                & lazbuild --add-package-link $_ | Out-Null
                Return ".... [$($LastExitCode)] add package link $($_)"
            } | Out-Host
    }
    If (Test-Path -Path $Var.Src) {
        Exit (
            (Get-ChildItem -Filter '*.lpi' -Recurse -File –Path $Var.Src).FullName |
                Sort-Object |
                ForEach-Object {
                    $Output = (& lazbuild --build-all --recursive --no-write-project --build-mode='release' $_)
                    $Result = @(".... [$($LastExitCode)] build project $($_)")
                    $exitCode = Switch ($LastExitCode) {
                        0 {
                            $Result += $Output | Select-String -Pattern 'Linking'
                            0
                        }
                        Default {
                            $Result += $Output | Select-String -Pattern 'Error:', 'Fatal:'
                            1
                        }
                    }
                    $Result | Out-Host
                    Return $exitCode
                } | Measure-Object -Sum
        ).Sum
    }
}

Function Switch-Action {
    $ErrorActionPreference = 'stop'
    Set-PSDebug -Strict #-Trace 1
    Invoke-ScriptAnalyzer -EnableExit -Path $PSCommandPath
    If ($args.count -gt 0) {
        Switch ($args[0]) {
            'build' {
                Build-Project
            }
            Default {
                Show-Usage
            }
        }
    } Else {
        Show-Usage
    }
}

##############################################################################################################
Switch-Action @args