xtool-mirror/Sources/PackLib/Packer.swift

import Foundation

public struct Packer: Sendable {
    public let buildSettings: BuildSettings
    public let plan: Plan

    public init(buildSettings: BuildSettings, plan: Plan) {
        self.plan = plan
        self.buildSettings = buildSettings
    }

    private func build() async throws {
        let xtoolDir = URL(fileURLWithPath: "xtool")
        let packageDir = xtoolDir.appendingPathComponent(".xtool-tmp")
        try? FileManager.default.removeItem(at: packageDir)
        try FileManager.default.createDirectory(at: packageDir, withIntermediateDirectories: true)

        let packageSwift = packageDir.appendingPathComponent("Package.swift")
        let contents = """
        // swift-tools-version: 6.0
        import PackageDescription
        let package = Package(
            name: "\(plan.product)-Builder",
            platforms: [
                .iOS("\(plan.deploymentTarget)"),
            ],
            dependencies: [
                .package(name: "RootPackage", path: "../.."),
            ],
            targets: [
                .executableTarget(
                    name: "\(plan.product)-App",
                    dependencies: [
                        .product(name: "\(plan.product)", package: "RootPackage"),
                    ]
                ),
            ]
        )\n
        """
        try Data(contents.utf8).write(to: packageSwift)
        let sources = packageDir.appendingPathComponent("Sources")
        try? FileManager.default.createDirectory(at: sources, withIntermediateDirectories: true)
        try Data().write(to: sources.appendingPathComponent("stub.c"))

        let builder = try await buildSettings.swiftPMInvocation(
            forTool: "build",
            arguments: [
                "--package-path", packageDir.path,
                "--scratch-path", ".build",
                "--product", "\(plan.product)-App",
                // resolving can cause SwiftPM to overwrite the root package deps
                // with just the deps needed for the builder package (which is to
                // say, any "dev dependencies" of the root package may be removed.)
                // fortunately we've already resolved the root package by this point
                // in order to dump the plan, so we can skip resolution here to skirt
                // the issue.
                "--disable-automatic-resolution",
                "-Xlinker", "-rpath", "-Xlinker", "@executable_path/Frameworks",
            ]
        )
        builder.standardOutput = FileHandle.standardError
        try await builder.runUntilExit()
    }

    public func pack() async throws -> URL {
        try await build()

        let output = try TemporaryDirectory(name: "\(plan.product).app")

        let binDir = URL(
            fileURLWithPath: ".build/\(buildSettings.triple)/\(buildSettings.configuration.rawValue)",
            isDirectory: true
        )

        let outputURL = output.url

        @Sendable func packFileToRoot(srcName: String) async throws {
            let srcURL = URL(fileURLWithPath: srcName)
            let destURL = outputURL.appendingPathComponent(srcURL.lastPathComponent)
            try FileManager.default.copyItem(at: srcURL, to: destURL)

            try Task.checkCancellation()
        }

        @Sendable func packFile(srcName: String, dstName: String? = nil, sign: Bool = false) async throws {
            let srcURL = URL(fileURLWithPath: srcName, relativeTo: binDir)
            let dstURL = URL(fileURLWithPath: dstName ?? srcURL.lastPathComponent, relativeTo: outputURL)
            try? FileManager.default.createDirectory(at: dstURL.deletingLastPathComponent(), withIntermediateDirectories: true)
            try FileManager.default.copyItem(at: srcURL, to: dstURL)

            try Task.checkCancellation()
        }

        try await withThrowingTaskGroup(of: Void.self) { group in
            for command in plan.resources {
                group.addTask {
                    switch command {
                    case .bundle(let package, let target):
                        try await packFile(srcName: "\(package)_\(target).bundle")
                    case .binaryTarget(let name):
                        let src = URL(fileURLWithPath: "\(name).framework/\(name)", relativeTo: binDir)
                        let magic = Data("!<arch>\n".utf8)
                        let thinMagic = Data("!<thin>\n".utf8)
                        let bytes = try FileHandle(forReadingFrom: src).read(upToCount: magic.count)
                        // if the magic matches one of these it's a static archive; don't embed it.
                        // https://github.com/apple/llvm-project/blob/e716ff14c46490d2da6b240806c04e2beef01f40/llvm/include/llvm/Object/Archive.h#L33
                        if bytes != magic && bytes != thinMagic {
                            try await packFile(srcName: "\(name).framework", dstName: "Frameworks/\(name).framework", sign: true)
                        }
                    case .library(let name):
                        try await packFile(srcName: "lib\(name).dylib", dstName: "Frameworks/lib\(name).dylib", sign: true)
                    case .root(let source):
                        try await packFileToRoot(srcName: source)
                    }
                }
            }
            if let iconPath = plan.iconPath {
                group.addTask {
                    try await packFileToRoot(srcName: iconPath)
                }
            }
            group.addTask {
                try await packFile(srcName: "\(plan.product)-App", dstName: plan.product)
            }
            group.addTask {
                var info = plan.infoPlist

                if let iconPath = plan.iconPath {
                    let iconName = URL(fileURLWithPath: iconPath).deletingPathExtension().lastPathComponent
                    info["CFBundleIconFile"] = iconName
                }

                let infoPath = outputURL.appendingPathComponent("Info.plist")
                let encodedPlist = try PropertyListSerialization.data(
                    fromPropertyList: info,
                    format: .xml,
                    options: 0
                )
                try encodedPlist.write(to: infoPath)
            }
            while !group.isEmpty {
                do {
                    try await group.next()
                } catch is CancellationError {
                    // continue
                } catch {
                    group.cancelAll()
                    throw error
                }
            }
        }

        let dest = URL(fileURLWithPath: "xtool")
            .appendingPathComponent(output.url.lastPathComponent)
        try? FileManager.default.removeItem(at: dest)
        try output.persist(at: dest)
        return dest
    }
}