Print out binary types

Author: SeanTAllen

.ci-scripts/machine-type.ps1

@@ -0,0 +1,15 @@
+Param(
+  [Parameter(HelpMessage="Architecture (native, x64).")]
+  [string]
+  $Binary = ""
+)
+
+$bytes = Get-Content $Binary -Encoding Byte
+$peOffset = [BitConverter]::ToInt32($bytes, 0x3C)
+$machine = [BitConverter]::ToUInt16($bytes, $peOffset + 4)
+switch ($machine) {
+  0x014c { Write-Output "x86" }
+  0x8664 { Write-Output "x64" }
+  0xAA64 { Write-Output "ARM64" }
+  default { Write-Output "Unknown: $machine" }
+}

.github/workflows/pr.yml

@@ -263,7 +263,7 @@ jobs:
           Expand-Archive -Force -Path C:\corral.zip -DestinationPath C:\ponyc;
           $env:PATH = 'C:\ponyc\bin;' + $env:PATH;
           .\make.ps1 -Command fetch 2>&1
-          Get-ChildItem -Path "C:\a\ponyup\ponyup\_corral\github_com_ponylang_net_ssl" -Recurse
-          Get-ChildItem -Path "C:\a\ponyup\ponyup\_corral\github_com_ponylang_crypto" -Recurse
           .\make.ps1 -Command build 2>&1
+          .\ci-scripts\machine-type.ps1 -Binary C:\a\ponyup\ponyup\build\release\ponyup.exe 2>&1
           .\make.ps1 -Command test 2>&1
+          .\ci-scripts\machine-type.ps1 -Binary C:\a\ponyup\ponyup\build\release\test.exe 2>&1