diff --git a/.github/dependabot.yml b/.github/dependabot.yml new file mode 100644 index 0000000..64284b9 --- /dev/null +++ b/.github/dependabot.yml @@ -0,0 +1,7 @@ +--- +version: 2 +updates: + - package-ecosystem: "github-actions" + directory: "/" + schedule: + interval: "monthly" diff --git a/.github/workflows/make.ps1 b/.github/workflows/make.ps1 new file mode 100644 index 0000000..63f4ae3 --- /dev/null +++ b/.github/workflows/make.ps1 @@ -0,0 +1,167 @@ +#!/usr/bin/env pwsh +############################################################################################################## + +Function Show-Usage { + " +vagrant = 'it-gro/win10-ltsc-eval' +download = 'https://microsoft.com/en-us/evalcenter' +package = 'https://learn.microsoft.com/en-us/mem/configmgr/develop/apps/how-to-create-the-windows-installer-file-msi' +shell = 'https://learn.microsoft.com/en-us/powershell' + +Usage: pwsh -File $($PSCommandPath) [OPTIONS] +Options: + build + lint +" | Out-Host +} + +Function Build-Project { + New-Variable -Option Constant -Name VAR -Value @{ + Src = 'demos' + Use = 'packages' + Pkg = 'packages\components.txt' + } + If (! (Test-Path -Path $Var.Src)) { + 'Source do not find!' | Out-Host + Exit 1 + } + If (Test-Path -Path '.gitmodules') { + & git submodule update --init --recursive --force --remote | Out-Host + ".... [[$($LastExitCode)]] git submodule update" | Out-Host + } + @( + @{ + 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 $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 + } + Exit ( + (Get-ChildItem -Filter '*.lpi' -Recurse -File –Path $Var.Src).FullName | + Sort-Object | + ForEach-Object { + $Output = (& lazbuild --build-all --recursive --no-write-project $_) + $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 Request-File { + While ($Input.MoveNext()) { + New-Variable -Option Constant -Name VAR -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 Request-URL([Switch] $Post) { + $VAR = Switch ($Post) { + True { + Return @{ + Method = 'POST' + Headers = @{ + ContentType = 'application/json' + } + Uri = 'https://postman-echo.com/post' + Body = @{ + One = '1' + } | ConvertTo-Json + } + } + False { + Return @{ + Uri = 'https://postman-echo.com/get' + } + } + } + Return (Invoke-WebRequest @VAR | ConvertFrom-Json).Headers +} + +Function Switch-Action { + $ErrorActionPreference = 'stop' + Set-PSDebug -Strict #-Trace 1 + Invoke-ScriptAnalyzer -EnableExit -Path $PSCommandPath + If ($args.count -gt 0) { + Switch ($args[0]) { + 'lint' { + Invoke-ScriptAnalyzer -EnableExit -Recurse -Path '.' + (Get-ChildItem -Filter '*.ps1' -Recurse -Path '.').FullName | + ForEach-Object { + Invoke-Formatter -ScriptDefinition $(Get-Content -Path $_ | Out-String) | + Set-Content -Path $_ + } + } + 'build' { + Build-Project + } + Default { + Show-Usage + } + } + } Else { + Show-Usage + } +} + +############################################################################################################## +Switch-Action @args diff --git a/.github/workflows/make.sh b/.github/workflows/make.sh new file mode 100644 index 0000000..0d1b486 --- /dev/null +++ b/.github/workflows/make.sh @@ -0,0 +1,98 @@ +#!/usr/bin/env bash +############################################################################################################## + +function priv_clippit +( + cat <&2 + fi + declare -i errors=0 + while read -r; do + declare -A TMP=( + [out]=$(mktemp) + ) + if (lazbuild --build-all --recursive --no-write-project "${REPLY}" > "${TMP[out]}"); then + printf '\x1b[32m\t[%s]\t%s\x1b[0m\n' "${?}" "${REPLY}" + grep --color='always' 'Linking' "${TMP[out]}" + else + printf '\x1b[31m\t[%s]\t%s\x1b[0m\n' "${?}" "${REPLY}" + grep --color='always' --extended-regexp '(Error|Fatal):' "${TMP[out]}" + ((errors+=1)) + fi 1>&2 + rm "${TMP[out]}" + done < <(find "${VAR[src]}" -type 'f' -name '*.lpi' | sort) + exit "${errors}" +) + +function priv_main +( + set -euo pipefail + if ((${#})); then + case ${1} in + build) priv_lazbuild ;; + *) priv_clippit ;; + esac + else + priv_clippit + fi +) + +############################################################################################################## +priv_main "${@}" >/dev/null diff --git a/.github/workflows/make.yml b/.github/workflows/make.yml new file mode 100644 index 0000000..006d55c --- /dev/null +++ b/.github/workflows/make.yml @@ -0,0 +1,49 @@ +--- +name: Make + +on: + schedule: + - cron: '0 0 1 * *' + push: + branches: + - "**" + pull_request: + branches: + - master + - main + +concurrency: + group: ${{ github.workflow }}-${{ github.ref }} + cancel-in-progress: true + +jobs: + build: + runs-on: ${{ matrix.os }} + timeout-minutes: 120 + strategy: + matrix: + os: + - ubuntu-latest + - windows-latest + steps: + - name: Checkout + uses: actions/checkout@v4 + with: + submodules: true + + - name: Build on Linux + if: runner.os == 'Linux' + shell: bash + run: bash .github/workflows/make.sh build + + - name: Build on Windows + if: runner.os == 'Windows' + shell: powershell + run: pwsh -File .github/workflows/make.ps1 build + + - name: Archive + if: runner.os == 'Windows' + uses: actions/upload-artifact@v4 + with: + retention-days: 1 + path: src\bin\*.exe diff --git a/.gitmodules b/.gitmodules new file mode 100644 index 0000000..a0ca6d8 --- /dev/null +++ b/.gitmodules @@ -0,0 +1,12 @@ +[submodule "packages/rutils"] + path = packages/rutils + url = git@github.com:SormJon/rutils.git +[submodule "packages/dopf"] + path = packages/dopf + url = git@github.com:pascal-libs/dopf.git +[submodule "packages/xmailer"] + path = packages/xmailer + url = git@github.com:MFernstrom/xmailer.git +[submodule "packages/brookframework"] + path = packages/brookframework + url = git@github.com:risoflora/brookframework.git diff --git a/packages/brookframework b/packages/brookframework new file mode 160000 index 0000000..9d7b784 --- /dev/null +++ b/packages/brookframework @@ -0,0 +1 @@ +Subproject commit 9d7b784ae7a4ff52485487d53d4a4c02bb667fa1 diff --git a/packages/dopf b/packages/dopf new file mode 160000 index 0000000..c103bc5 --- /dev/null +++ b/packages/dopf @@ -0,0 +1 @@ +Subproject commit c103bc5287b199d4c98f042cd18fa2f9ff91afb8 diff --git a/packages/rutils b/packages/rutils new file mode 160000 index 0000000..800c3c5 --- /dev/null +++ b/packages/rutils @@ -0,0 +1 @@ +Subproject commit 800c3c54b90bab1fb3cb8d0890579eb08cbf500f diff --git a/packages/xmailer b/packages/xmailer new file mode 160000 index 0000000..0290d2f --- /dev/null +++ b/packages/xmailer @@ -0,0 +1 @@ +Subproject commit 0290d2f81cd7db8265c125003f2e0552ade79a16