# E06-S03: build the interface table fixture and its D81.
[CmdletBinding()]
param()

$ErrorActionPreference = "Stop"
$project = Split-Path $PSScriptRoot -Parent
Import-Module (Join-Path $PSScriptRoot "lib\Nova128Test.psm1") -Force
$out = Join-Path $project "build\iftable-test"
New-Item -ItemType Directory -Force -Path $out | Out-Null

$link = Invoke-Nova128Link -Name "iftable-test" -BuildDir $out `
    -Config (Join-Path $project "cfg\compiler.cfg") -Sources @(
        (Join-Path $project "src\compiler\mmu.s"),
        (Join-Path $project "src\compiler\diskio.s"),
        (Join-Path $project "src\compiler\source.s"),
        (Join-Path $project "src\compiler\lexer.s"),
        (Join-Path $project "src\compiler\names.s"),
        (Join-Path $project "src\compiler\diagnostics.s"),
        (Join-Path $project "src\compiler\parser.s"),
        (Join-Path $project "src\compiler\codegen.s"),
        (Join-Path $project "src\compiler\flow.s"),
        (Join-Path $project "src\compiler\members.s"),
        (Join-Path $project "src\compiler\sizing.s"),
        (Join-Path $project "src\compiler\emit.s"),
        (Join-Path $project "src\compiler\interfaces.s"),
        (Join-Path $project "src\compiler\types.s"),
        (Join-Path $project "src\compiler\iftables.s"),
        (Join-Path $project "src\compiler\output.s"),
        (Join-Path $project "src\runtime\startup.s"),
        (Join-Path $project "tests\compiler\iftable-test.s"))
if ((Get-Nova128Label $link.Labels "test_entry") -ne 0x1C0D) { throw "test_entry is not at `$1C0D" }

New-Nova128Disk -Path (Join-Path $out "iftable-test.d81") -Files @(
    @{ Name = "IFTTEST"; Path = $link.Program; Type = "prg" })
Write-Host ("built {0}" -f $link.Program)
Write-Host ("disk  {0}" -f (Join-Path $out "iftable-test.d81"))