add make.ps1

Author: theavege

.github/workflows/make.yml

@@ -21,6 +21,7 @@ jobs:
       matrix:
         os:
           - ubuntu-latest
+          - windows-latest
     steps:
     - name: Checkout
       uses: actions/checkout@v4
@@ -31,3 +32,8 @@ jobs:
       if: runner.os == 'Linux'
       shell: bash
       run: bash -x make.sh build
+
+    - name: Build on Windows
+      if: runner.os == 'Windows'
+      shell: powershell
+      run: pwsh -File make.ps1 build

make.ps1

@@ -0,0 +1,96 @@
+#!/usr/bin/env pwsh
+##############################################################################################################
+
+Function PrivClipper {
+    Return "
+Usage: pwsh -File $($PSCommandPath) [OPTIONS]
+Options:
+    build   Build program
+"
+}
+
+Function PrivWget {
+    ForEach ($REPLY in $args) {
+        $params = @{
+            Uri = $REPLY
+            OutFile = (Split-Path -Path $REPLY -Leaf).Split('?')[0]
+        }
+        Invoke-WebRequest @params | Out-Null
+        Return $params.OutFile
+    }
+}
+
+Function PrivMsiexec {
+    While ($Input.MoveNext()) {
+        $params = @{}
+        Switch ((Split-Path -Path $Input.Current -Leaf).Split('.')[-1]) {
+            'msi' {
+                $params = @{
+                    FilePath = 'msiexec'
+                    ArgumentList = '/passive', '/package', $Input.Current
+                }
+            }
+            'exe' {
+                $params = @{
+                    FilePath = $Input.Current
+                    ArgumentList = '/SP-', '/VERYSILENT', '/SUPPRESSMSGBOXES', '/NORESTART'
+                }
+            }
+        }
+        Start-Process -PassThru -Wait @params
+        Remove-Item $Input.Current
+    }
+}
+
+Function PrivLazBuild {
+    $VAR = @{
+        Cmd = 'lazbuild'
+        Url = 'https://netix.dl.sourceforge.net/project/lazarus/Lazarus%20Windows%2064%20bits/Lazarus%203.6/lazarus-3.6-fpc-3.2.2-win64.exe?viasf=1'
+        Path = "C:\Lazarus"
+    }
+    If (-not (Get-Command $VAR.Cmd -ea 'continue')) {
+        PrivWget $VAR.Url | PrivMsiexec
+        $env:PATH+=";$($VAR.Path)"
+        Get-Command $VAR.Cmd
+    }
+    If ( Test-Path -Path 'use\components.txt' ) {
+        Start-Process -Wait -FilePath 'git' -ArgumentList 'submodule', 'update', '--recursive', '--init'
+        Start-Process -Wait -FilePath 'git' -ArgumentList 'submodule', 'update', '--recursive', '--remote'
+        Get-Content -Path 'use\components.txt' | ForEach-Object {
+            If (-not (Start-Process -ea 'continue' -Wait -FilePath 'lazbuild' -ArgumentList '--verbose-pkgsearch', $_)) -and
+                (-not (Start-Process -ea 'continue' -Wait -FilePath 'lazbuild' -ArgumentList '--add-package', $_)) -and
+                (-not (Test-Path -Path 'use\components.txt')) {
+                    $OutFile = PrivWget "https://packages.lazarus-ide.org/$($_).zip"
+                    Expand-Archive -Path $OutFile -DestinationPath "use\$($_)" -Force
+                    Remove-Item $OutFile
+            }
+        }
+        Get-ChildItem -Filter '*.lpk' -Recurse -File –Path 'use' | ForEach-Object {
+            Start-Process -Wait -FilePath 'lazbuild' -ArgumentList '--add-package-link', $_.Name
+        }
+    }
+    Get-ChildItem -Filter '*.lpi' -Recurse -File –Path 'src' | ForEach-Object {
+        Start-Process -Wait -FilePath 'lazbuild' -ArgumentList '--no-write-project', '--recursive', '--build-mode=release', $_.Name
+    }
+}
+
+Function PrivMain {
+    $ErrorActionPreference = 'stop'
+    Set-PSDebug -Strict -Trace 1
+    Invoke-ScriptAnalyzer -EnableExit -Path $PSCommandPath
+    If ($args.count -gt 0) {
+        Switch ($args[0]) {
+            'build' {
+                PrivLazBuild
+            }
+            Default {
+                PrivClipper
+            }
+        }
+    } Else {
+        PrivClipper
+    }
+}
+
+##############################################################################################################
+PrivMain @args

make.sh

@@ -9,26 +9,46 @@ Options:
 EOF
 )
 
-function pub_build
+function priv_lazbuild
 (
-    find 'src' -type 'f' -name '*.lpi' -exec lazbuild --recursive --build-mode=release {} \;
-)
-
-function priv_main
-(
-    set -euo pipefail
     if ! (which lazbuild); then
         source '/etc/os-release'
         case ${ID:?} in
             debian | ubuntu)
                 sudo apt-get update
                 sudo apt-get install -y lazarus
-            ;;
+                ;;
         esac
     fi
+    if [[ -f 'use/components.txt' ]]; then
+        git submodule update --init --recursive
+        git submodule update --recursive --remote
+        while read -r; do
+            if ! (lazbuild --verbose-pkgsearch "${REPLY}") ||
+                ! (lazbuild --add-package "${REPLY}") ||
+                ! [[ -f "use/${REPLY}" ]]; then
+                        declare -A VAR=(
+                            [url]="https://packages.lazarus-ide.org/${REPLY}.zip"
+                            [out]=$(mktemp)
+                        )
+                        wget --output-document "${VAR[out]}" "${VAR[url]}"
+                        unzip -o "${VAR[out]}" -d "use/${REPLY}"
+                        rm --verbose "${VAR[out]}"
+            fi
+        done < 'use/components.txt'
+        find 'use' -type 'f' -name '*.lpk' -exec lazbuild --add-package-link {} +
+    fi
+    find 'src' -type 'f' -name '*.lpi' \
+        -exec lazbuild --no-write-project --recursive --no-write-project --build-mode=release {} + 1>&2
+)
+
+function priv_main
+(
+    set -euo pipefail
     if ((${#})); then
         case ${1} in
-            build) pub_build 1>&2 ;;
+            build) priv_lazbuild ;;
+            *) priv_clippit ;;
         esac
     else
         priv_clippit