//! system/services/volume-manager — the storage layer's policy home
//! (docs/file-system-development/storage-architecture.md). Beside the device
//! manager: that owns the DEVICE tree, this owns the VOLUME layer. It probes a
//! storage provider's partition table, confines each filesystem to its
//! partition, spawns one filesystem per volume, and answers that filesystem's
//! startup hello with the range-confined block channel — so the filesystem
//! never finds its storage by name and never sees the whole device. It
//! supervises the filesystems it spawns, exactly as the device manager
//! supervises drivers.
//!
//! This increment (V3b) is the flip: the FAT service stops acquiring its own
//! volume and is spawned here instead, confined to its partition, and handed
//! its channel over the volume-manager protocol. Single volume for now; the
//! mount map (volumes.csv) and multi-volume land next.

const std = @import("std");
const channel = @import("channel");
const device_manager_protocol = @import("device-manager-protocol");
const volume_manager_protocol = @import("volume-manager-protocol");
const driver = @import("driver");
const ipc = @import("ipc");
const block = @import("block");
const memory = @import("memory");
const logging = @import("logging");
const process = @import("process");
const service = @import("service");
const time = @import("time");
const envelope = @import("envelope");
const partition = @import("partition.zig");

const Serve = volume_manager_protocol.Protocol.Provider(void);
const Invocation = envelope.Invocation;
const Answer = envelope.Answer;

/// The single volume this increment handles: its provider channel, its block
/// sub-range, its identity, the id it is addressed by, and the filesystem
/// process serving it (0 until spawned; reset on death for respawn).
const Volume = struct {
    storage: block.Device,
    base_lba: u64,
    block_count: u64,
    identity: u64,
    id: u64,
    filesystem_pid: u32 = 0,
};

/// The filesystem binary a probed volume is served by. The signature->binary
/// map (filesystems.csv) lands with the identity ladder; for now every FAT-shaped
/// volume gets the FAT service.
const filesystem_binary = "/system/services/fat";
const volume_id: u64 = 1;

var service_endpoint: ipc.Handle = 0;
var manager_handle: ?ipc.Handle = null;
var bounce: memory.DmaRegion = undefined;
var bounce_ready = false;
var probed = false;
var volume: ?Volume = null;
const probe_retry_ms = 500;

fn acquireStorage() ?block.Device {
    const manager = manager_handle orelse opened: {
        const handle = channel.openEndpoint("device-manager") orelse return null;
        manager_handle = handle;
        break :opened handle;
    };
    const Entry = device_manager_protocol.ChildEntry;
    var start: u64 = 0;
    while (true) {
        const enumerate = envelope.Header{ .operation = envelope.operation_enumerate, .target = start };
        var reply: [device_manager_protocol.message_maximum]u8 = undefined;
        const length = ipc.call(manager, std.mem.asBytes(&enumerate), &reply) catch return null;
        const status = envelope.statusOf(reply[0..length]) orelse return null;
        if (status.status != 0) return null;
        const carried = @min(@as(usize, status.len), length -| envelope.prefix_size);
        const tail = reply[envelope.prefix_size..][0..carried];
        const count = tail.len / @sizeOf(Entry);
        if (count == 0) return null;
        var index: usize = 0;
        while (index < count) : (index += 1) {
            const entry = std.mem.bytesToValue(Entry, tail[index * @sizeOf(Entry) ..][0..@sizeOf(Entry)]);
            if (entry.device_id == device_manager_protocol.no_device) continue;
            if ((entry.identity >> 16) & 0xff != 0x08 or (entry.identity >> 8) & 0xff != 0x06) continue;
            const exchanged = driver.helloOn(manager, .consumer, entry.device_id, null, true) orelse return null;
            const provider = exchanged.channel orelse continue;
            return .{ .endpoint = provider };
        }
        start += count;
    }
}

/// Spawn the filesystem for `v`, confine it to the volume's range, and record
/// its pid. The confinement is defined for the fresh pid BEFORE the filesystem
/// runs, so its first read is already bounded; the volume manager is the
/// confinement controller (it defines the first range on the device).
fn spawnFilesystem(v: *Volume) void {
    const pid = process.spawnSupervised(filesystem_binary, &.{"1"}, service_endpoint) orelse {
        _ = logging.write("volume-manager: could not spawn the filesystem\n");
        return;
    };
    if (!v.storage.defineRange(pid, v.base_lba, v.block_count)) {
        _ = logging.write("volume-manager: could not confine the filesystem to its volume\n");
        _ = process.kill(pid);
        return;
    }
    v.filesystem_pid = pid;
    std.log.info("volume 0x{x} -> {s} (pid {d}), lba {d}, {d} blocks", .{ v.identity, filesystem_binary, pid, v.base_lba, v.block_count });
}

fn tryProbe() void {
    if (probed) return;
    if (!bounce_ready) {
        bounce = memory.dmaAlloc(512, memory.dma_coherent | memory.dma_shareable) orelse return;
        bounce_ready = true;
    }
    const device = acquireStorage() orelse return;
    if (bounce.handle) |handle| {
        if (!device.attach(handle)) return;
        _ = ipc.close(handle);
        bounce.handle = null;
    }
    const geometry = device.geometry() orelse return;
    if (!device.read(0, 1, bounce.physical)) return;
    const sector: [*]const u8 = @ptrFromInt(bounce.virtual);
    const found = partition.firstVolume(sector[0..512], geometry.block_count) orelse {
        _ = logging.write("volume-manager: no volume found on the storage device\n");
        probed = true;
        return;
    };
    volume = .{ .storage = device, .base_lba = found.base_lba, .block_count = found.block_count, .identity = found.identity, .id = volume_id };
    probed = true;
    spawnFilesystem(&volume.?);
}

/// A filesystem announces itself for the volume it was spawned to serve. Reply
/// with that volume's block channel (already range-confined to this filesystem's
/// badge) as the call's returned capability. No channel means the volume is not
/// ready — the filesystem retries.
fn onHello(_: void, invocation: Invocation(volume_manager_protocol.Hello), _: Answer(void)) isize {
    const v = volume orelse return 0; // not probed yet — retryable, no cap
    if (invocation.target != v.id) return 0; // unknown volume — retryable
    if (invocation.sender != v.filesystem_pid) {
        // Not the filesystem we spawned for this volume. Refuse: only the
        // confined filesystem gets the channel.
        std.log.info("refused hello for volume {d} from process {d}", .{ invocation.target, invocation.sender });
        return -envelope.EPERM;
    }
    service.replyWithCapability(v.storage.endpoint);
    std.log.info("handed volume {d} to pid {d}", .{ v.id, invocation.sender });
    return 0;
}

const handlers = Serve.Handlers{ .hello = onHello };

fn onMessage(message: []const u8, out: []u8, sender: u32, arrived: *ipc.Arrival) usize {
    // No verb takes a capability up, so the turn closes whatever arrives.
    return Serve.dispatch({}, handlers, message, sender, arrived.peek(), out);
}

fn initialise(endpoint: ipc.Handle) bool {
    service_endpoint = endpoint;
    _ = logging.write("volume-manager: starting, waiting for a storage device\n");
    _ = process.subscribeExits(endpoint);
    tryProbe();
    if (!probed) _ = time.timerOnce(endpoint, probe_retry_ms);
    return true;
}

fn onNotification(badge: u64) void {
    const got = ipc.Received{ .len = 0, .badge = badge, .cap = null };
    if (got.isTimer()) {
        tryProbe();
        if (!probed) _ = time.timerOnce(service_endpoint, probe_retry_ms);
        return;
    }
    // A filesystem died. Its old range is reclaimed by the driver on the same
    // death; respawn it, confined afresh to the same volume (a fresh pid, a
    // fresh range). The reap-and-rebuild the device manager proved, one layer up.
    if (got.isChildExit()) {
        const dead = got.childProcessId();
        if (volume) |*v| {
            if (v.filesystem_pid == dead) {
                v.filesystem_pid = 0;
                std.log.info("filesystem for volume {d} died; respawning", .{v.id});
                spawnFilesystem(v);
            }
        }
    }
}

pub fn main(init: process.Init) void {
    _ = init;
    service.run(volume_manager_protocol.message_maximum, .{
        .service = "volume-manager",
        .init = initialise,
        .on_message = onMessage,
        .on_notification = onNotification,
    });
}