param()

Set-StrictMode -Version Latest

$ErrorActionPreference = "Stop"

Add-Type -AssemblyName System.Windows.Forms

Add-Type -AssemblyName System.Drawing

$scriptPath = $MyInvocation.MyCommand.Path

$scriptDirectory = Split-Path -Parent $scriptPath

$normalizerPath = Join-Path $scriptDirectory "bin\Release\net8.0\LeanSerpUrlNormalizer.exe"

$postprocessorPath = Join-Path $scriptDirectory "bin\Release\net8.0\ApplyApprovedOverrides.exe"

$packageGeneratorPath = Join-Path $scriptDirectory "New-LeanSerpPackage.ps1"

$pslPath = Join-Path $scriptDirectory "public_suffix_list.dat"

$approvedRulesDirectory = Join-Path $scriptDirectory "Approved-Rules"

$hostSubdomainRulesPath = Join-Path $scriptDirectory "PSL-Host-Review\Approved-Exact-Hosts\approved-psl-host-subdomains.txt"

$defaultCompiledOutput = Join-Path $env:USERPROFILE "Downloads\LeanSERP-Compiled-Output"

$defaultApprovedOutput = Join-Path $env:USERPROFILE "Downloads\LeanSERP-Compiled-Approved-Output"

$defaultPackageOutput = Join-Path $env:USERPROFILE "Downloads\LeanSERP-Packages"

$defaultLogDirectory = Join-Path $scriptDirectory "GUI-Logs"

$selectedFiles = [System.Collections.Generic.List[string]]::new()

$script:activeProcess = $null

$script:activeStage = "Idle"

$script:stopRequested = $false

$script:activeInputListPath = ""

$script:activeLogPath = ""

$script:displayedLogLineCount = 0

$script:compiledBuildPath = ""

$script:approvedBuildPath = ""

$script:packagePath = ""

$script:buildStartedAt = $null

function New-Button {

param(

[Parameter(Mandatory = $true)]

[string]$Text,

[Parameter(Mandatory = $false)]

[int]$Width = 145

)

$button = [System.Windows.Forms.Button]::new()

$button.Text = $Text

$button.Width = $Width

$button.Height = 34

$button.Margin = [System.Windows.Forms.Padding]::new(0, 0, 8, 8)

return $button

}

function Set-ClipboardText {

param(

[AllowEmptyString()]

[string]$Text,

[Parameter(Mandatory = $true)]

[string]$Description

)

if ([string]::IsNullOrWhiteSpace($Text)) {

[void][System.Windows.Forms.MessageBox]::Show(

"There is no $Description to copy.",

"LeanSERP Studio",

[System.Windows.Forms.MessageBoxButtons]::OK,

[System.Windows.Forms.MessageBoxIcon]::Information

)

return

}

try {

[System.Windows.Forms.Clipboard]::SetText($Text)

}

catch {

[void][System.Windows.Forms.MessageBox]::Show(

"Could not copy the ${Description}:`r`n$($_.Exception.Message)",

"LeanSERP Studio",

[System.Windows.Forms.MessageBoxButtons]::OK,

[System.Windows.Forms.MessageBoxIcon]::Error

)

}

}

function Quote-NativeArgument {

param(

[AllowEmptyString()]

[string]$Value

)

if ($null -eq $Value) {

return '""'

}

if ($Value.Length -gt 0 -and $Value -notmatch '[\s"]') {

return $Value

}

$escaped = $Value -replace '(\\*)"', '$1$1\"'

$escaped = $escaped -replace '(\\+)$', '$1$1'

return '"' + $escaped + '"'

}

function Test-ProcessRunning {

if ($null -eq $script:activeProcess) {

return $false

}

try {

return -not $script:activeProcess.HasExited

}

catch {

return $false

}

}

function Stop-ProcessTree {

param(

[Parameter(Mandatory = $true)]

[int]$ProcessId

)

$children = @(

Get-CimInstance -ClassName Win32_Process -Filter "ParentProcessId=$ProcessId" -ErrorAction SilentlyContinue

)

foreach ($child in $children) {

Stop-ProcessTree -ProcessId $child.ProcessId

}

try {

Stop-Process -Id $ProcessId -Force -ErrorAction Stop

}

catch {

}

}

function Get-NewestDirectory {

param(

[Parameter(Mandatory = $true)]

[string]$Root,

[Parameter(Mandatory = $true)]

[string]$Pattern,

[Parameter(Mandatory = $true)]

[datetime]$CreatedAfter

)

if (-not (Test-Path -LiteralPath $Root -PathType Container)) {

return $null

}

return @(

Get-ChildItem -LiteralPath $Root -Directory -ErrorAction SilentlyContinue |

Where-Object {

$_.Name -like $Pattern -and

$_.CreationTime -ge $CreatedAfter.AddSeconds(-5)

} |

Sort-Object LastWriteTime -Descending

) | Select-Object -First 1

}

function Get-LineCount {

param(

[Parameter(Mandatory = $true)]

[string]$Path

)

$reader = [System.IO.StreamReader]::new(

$Path,

[System.Text.UTF8Encoding]::new($false),

$true,

1048576

$form.Add_FormClosing({

param(

[object]$Sender,

[System.Windows.Forms.FormClosingEventArgs]$Event

)

if (-not (Test-ProcessRunning)) {

return

}

$choice = [System.Windows.Forms.MessageBox]::Show(

"The compiled pipeline is still running. Stop it and close Studio?",

"LeanSERP Studio",

[System.Windows.Forms.MessageBoxButtons]::YesNo,

[System.Windows.Forms.MessageBoxIcon]::Warning

)

if ($choice -ne [System.Windows.Forms.DialogResult]::Yes) {

$Event.Cancel = $true

return

}

$script:stopRequested = $true

try {

Stop-ProcessTree -ProcessId $script:activeProcess.Id

}

catch {

}

})

$form.Add_FormClosed({

$timer.Stop()

$timer.Dispose()

if ($null -ne $script:activeProcess) {

try {

if (-not $script:activeProcess.HasExited) {

Stop-ProcessTree -ProcessId $script:activeProcess.Id

}

}

catch {

}

try {

$script:activeProcess.Dispose()

}

catch {

}

$script:activeProcess = $null

}

if (

-not [string]::IsNullOrWhiteSpace($script:activeInputListPath) -and

(Test-Path -LiteralPath $script:activeInputListPath -PathType Leaf)

) {

Remove-Item `

-LiteralPath $script:activeInputListPath `

-Force `

-ErrorAction SilentlyContinue

}

$script:activeInputListPath = ""

})

Set-InterfaceRunning -Running $false

$null = $form.ShowDialog()

$form.Dispose()