S669 · Ekran, giriş ve kontrollü uygulama akışı · Sınırlı model servis callsite'ı

#![allow(unexpected_cfgs)]
#![allow(dead_code)]

//! S669 Display, input and controlled application flow · Bounded model service callsite.
//!
//! Separate typed R2 gate after S668, workstream 12
//! (Display, input and controlled application flow), step 4/9.
//! It advances only the fail-closed acceptance-readiness ledger.  Supported-profile
//! runtime observations, physical observations, operator authority, external
//! acceptance and R2 field acceptance all remain explicitly absent, and the
//! module is deliberately not linked into the board-rpi5 kernel.

use crate::g8l_target_dispatch_scheduler_owner_scheduler_mutation_production_migration_lifecycle_s668_r2_ui_application_flow_preflight::S668_SEQUENCE;
use crate::g8l_target_dispatch_scheduler_owner_scheduler_mutation_production_migration_lifecycle_s576_r2_scheduler_exclusion_runtime_contract::{
    advance_s576_to_s707_model_acceptance_gate, G8lR2AcceptanceError,
    G8lR2AcceptanceGateDescriptor, G8lR2AcceptanceLedger, G8lR2AcceptanceOutcome,
    G8lR2AcceptanceStep, S576_TO_S707_LINKED_INTO_BOARD_RPI5,
};

pub const S669_SEQUENCE: usize = 669;
pub const S669_EXPECTED_PREDECESSOR: usize = S668_SEQUENCE;
pub const S669_WORKSTREAM: usize = 12;
pub const S669_BLOCK_ORDINAL: usize = 11;
pub const S669_BLOCK_STEP_COUNT: usize = 9;
pub const S669_STEP_ORDINAL: usize = 4;
pub const S669_ACCEPTANCE_DOMAIN: &str = "ui_application_flow";
pub const S669_LINKED_INTO_BOARD_RPI5: bool = S576_TO_S707_LINKED_INTO_BOARD_RPI5;
pub const S669_SUPPORTED_PROFILE_RUNTIME_OBSERVATIONS: usize = 0;
pub const S669_PHYSICAL_OBSERVATIONS: usize = 0;
pub const S669_OPERATOR_AUTHORIZATIONS: usize = 0;
pub const S669_EXTERNAL_ACCEPTANCES: usize = 0;
pub const S669_PHYSICAL_OR_DEVICE_OPERATIONS: usize = 0;
pub const S669_ACCEPTANCE_COMPLETE: bool = false;
pub const S669_R2_FIELD_ACCEPTANCE_COMPLETE: bool = false;
pub const RUNBOOK_EXECUTED_IN_S669: bool = false;

pub const S669_DESCRIPTOR: G8lR2AcceptanceGateDescriptor = G8lR2AcceptanceGateDescriptor {
    sequence: S669_SEQUENCE,
    predecessor_sequence: S669_EXPECTED_PREDECESSOR,
    workstream: S669_WORKSTREAM,
    block_ordinal: S669_BLOCK_ORDINAL,
    block_step_count: S669_BLOCK_STEP_COUNT,
    step_ordinal: S669_STEP_ORDINAL,
    acceptance_domain: S669_ACCEPTANCE_DOMAIN,
    step: G8lR2AcceptanceStep::BoundedModelCallsite,
    runtime_evidence_required: true,
    physical_evidence_required: true,
    external_authority_required: false,
};

pub type G8lS669AcceptanceGateOutcome = G8lR2AcceptanceOutcome;
pub type G8lS669AcceptanceGateError = G8lR2AcceptanceError;

pub fn service_s669_model_r2_ui_application_flow_callsite(
    ledger: &mut G8lR2AcceptanceLedger,
    caller_cpu: usize,
) -> Result<G8lS669AcceptanceGateOutcome, G8lS669AcceptanceGateError> {
    advance_s576_to_s707_model_acceptance_gate(ledger, caller_cpu, S669_DESCRIPTOR)
}

use aselsan_microkernel_simulation::g8l_target_dispatch_scheduler_owner_scheduler_mutation_production_migration_lifecycle_s576_r2_scheduler_exclusion_runtime_contract::{
    advance_s576_to_s707_model_acceptance_gate,
    canonical_s576_to_s707_acceptance_descriptor, G8lR2AcceptanceAnchor,
    G8lR2AcceptanceError, G8lR2AcceptanceLedger, G8lR2AcceptanceOutcome,
    S575_PHYSICAL_REPEAT_SEQUENCE, S576_CANONICAL_ANCHOR, S576_FIRST_SEQUENCE,
    S707_LAST_SEQUENCE,
};
use aselsan_microkernel_simulation::g8l_target_dispatch_scheduler_owner_scheduler_mutation_production_migration_lifecycle_s669_r2_ui_application_flow_callsite as gate;

fn r2_anchor() -> G8lR2AcceptanceAnchor {
    S576_CANONICAL_ANCHOR
}

fn acceptance_ledger() -> G8lR2AcceptanceLedger {
    G8lR2AcceptanceLedger::from_s575(1, r2_anchor()).unwrap()
}

fn advance_before(ledger: &mut G8lR2AcceptanceLedger, sequence: usize) {
    for predecessor in S576_FIRST_SEQUENCE..sequence {
        let descriptor = canonical_s576_to_s707_acceptance_descriptor(predecessor).unwrap();
        assert!(matches!(
            advance_s576_to_s707_model_acceptance_gate(ledger, 1, descriptor),
            Ok(G8lR2AcceptanceOutcome::Advanced(_))
        ));
    }
}

#[test]
fn s669_descriptor_is_exact_and_canonical() {
    assert_eq!(gate::S669_SEQUENCE, 669);
    assert_eq!(gate::S669_EXPECTED_PREDECESSOR, 668);
    assert_eq!(gate::S669_WORKSTREAM, 12);
    assert_eq!(gate::S669_BLOCK_ORDINAL, 11);
    assert_eq!(gate::S669_BLOCK_STEP_COUNT, 9);
    assert_eq!(gate::S669_STEP_ORDINAL, 4);
    assert_eq!(gate::S669_ACCEPTANCE_DOMAIN, "ui_application_flow");
    assert_eq!(gate::S669_DESCRIPTOR.external_authority_required, false);
    assert!(gate::S669_DESCRIPTOR.physical_evidence_required);
    assert_eq!(
        canonical_s576_to_s707_acceptance_descriptor(669),
        Some(gate::S669_DESCRIPTOR)
    );
}

#[test]
fn s669_is_cpu1_scoped_and_waits_for_exact_predecessor() {
    let mut ledger = acceptance_ledger();
    assert_eq!(
        gate::service_s669_model_r2_ui_application_flow_callsite(&mut ledger, 0),
        Err(G8lR2AcceptanceError::WrongCpu)
    );
    assert_eq!(
        ledger.last_completed_sequence(),
        S575_PHYSICAL_REPEAT_SEQUENCE
    );
    if 669 == S576_FIRST_SEQUENCE {
        let future = canonical_s576_to_s707_acceptance_descriptor(577).unwrap();
        assert!(matches!(
            advance_s576_to_s707_model_acceptance_gate(&mut ledger, 1, future),
            Ok(G8lR2AcceptanceOutcome::AwaitingPredecessor {
                expected_predecessor: 576,
                observed_predecessor: 575,
                ..
            })
        ));
    } else {
        assert!(matches!(
            gate::service_s669_model_r2_ui_application_flow_callsite(&mut ledger, 1),
            Ok(G8lR2AcceptanceOutcome::AwaitingPredecessor {
                sequence: 669,
                expected_predecessor: 668,
                observed_predecessor: 575,
            })
        ));
    }
}

#[test]
fn s669_advances_once_with_non_acceptance_receipt() {
    let mut ledger = acceptance_ledger();
    advance_before(&mut ledger, 669);
    let G8lR2AcceptanceOutcome::Advanced(receipt) =
        gate::service_s669_model_r2_ui_application_flow_callsite(&mut ledger, 1).unwrap()
    else {
        panic!("S669 must advance")
    };
    assert_eq!((receipt.sequence, receipt.predecessor_sequence), (669, 668));
    assert_eq!(
        (
            receipt.workstream,
            receipt.block_ordinal,
            receipt.step_ordinal
        ),
        (12, 11, 4)
    );
    assert_eq!(receipt.acceptance_domain, "ui_application_flow");
    assert_eq!(receipt.completed_block_count, 10);
    assert_eq!(receipt.anchor_sequence, 575);
    assert_eq!(receipt.physical_repeat_sequence, 575);
    assert!(receipt.source_gate_complete);
    assert!(receipt.runtime_evidence_required);
    assert!(receipt.physical_evidence_required);
    assert_eq!(receipt.new_supported_profile_runtime_observations, 0);
    assert_eq!(receipt.new_physical_observations, 0);
    assert_eq!(receipt.retained_physical_observations, 2);
    assert!(!receipt.visible_scanout_observed);
    assert!(!receipt.physical_input_observed);
    assert!(!receipt.cross_profile_coverage_complete);
    assert!(!receipt.operator_authority_received);
    assert!(!receipt.external_authority_received);
    assert!(!receipt.linked_into_board_rpi5);
    assert!(!receipt.acceptance_complete);
    assert!(!receipt.r2_field_acceptance_complete);
    assert!(!receipt.runbook_executed);
}

#[test]
fn s669_replay_is_idempotent_and_historical_reentry_does_not_mutate() {
    let mut ledger = acceptance_ledger();
    advance_before(&mut ledger, 669);
    let G8lR2AcceptanceOutcome::Advanced(receipt) =
        gate::service_s669_model_r2_ui_application_flow_callsite(&mut ledger, 1).unwrap()
    else {
        panic!("advance")
    };
    assert_eq!(
        gate::service_s669_model_r2_ui_application_flow_callsite(&mut ledger, 1),
        Ok(G8lR2AcceptanceOutcome::Retained(receipt))
    );
    if 669 < S707_LAST_SEQUENCE {
        let next = canonical_s576_to_s707_acceptance_descriptor(669 + 1).unwrap();
        assert!(matches!(
            advance_s576_to_s707_model_acceptance_gate(&mut ledger, 1, next),
            Ok(G8lR2AcceptanceOutcome::Advanced(_))
        ));
        assert_eq!(
            gate::service_s669_model_r2_ui_application_flow_callsite(&mut ledger, 1),
            Ok(G8lR2AcceptanceOutcome::AlreadyCompleted {
                requested_sequence: 669,
                last_completed_sequence: 669 + 1,
            })
        );
    }
}

#[test]
fn s669_open_claim_boundary_is_preserved() {
    assert_eq!(gate::S669_SUPPORTED_PROFILE_RUNTIME_OBSERVATIONS, 0);
    assert_eq!(gate::S669_PHYSICAL_OBSERVATIONS, 0);
    assert_eq!(gate::S669_OPERATOR_AUTHORIZATIONS, 0);
    assert_eq!(gate::S669_EXTERNAL_ACCEPTANCES, 0);
    assert_eq!(gate::S669_PHYSICAL_OR_DEVICE_OPERATIONS, 0);
    assert!(!gate::S669_ACCEPTANCE_COMPLETE);
    assert!(!gate::S669_R2_FIELD_ACCEPTANCE_COMPLETE);
    assert!(!gate::S669_LINKED_INTO_BOARD_RPI5);
    assert!(!gate::RUNBOOK_EXECUTED_IN_S669);
}

#[test]
fn s669_is_simulation_only_and_adds_no_production_callsite() {
    const TARGET: &str = "g8l_target_dispatch_scheduler_owner_scheduler_mutation_production_migration_lifecycle_s669_r2_ui_application_flow_callsite";
    let source = include_str!("../../kernel/src/g8l_target_dispatch_scheduler_owner_scheduler_mutation_production_migration_lifecycle_s669_r2_ui_application_flow_callsite.rs");
    let kernel_registry = include_str!("../../kernel/src/main.rs");
    let simulation_registry = include_str!("../src/lib.rs");
    let exceptions = include_str!("../../kernel/src/arch/aarch64/exceptions.rs");
    assert!(source.contains("pub const S669_DESCRIPTOR"));
    assert_eq!(
        simulation_registry
            .matches(&format!("pub mod {TARGET};"))
            .count(),
        1
    );
    assert_eq!(
        kernel_registry.matches(&format!("mod {TARGET};")).count(),
        0
    );
    assert_eq!(exceptions.matches(TARGET).count(), 0);
    assert_eq!(exceptions.matches("service_s669_").count(), 0);
}

#[test]
fn s669_descriptor_mutation_fails_before_ledger_advance() {
    let mut ledger = acceptance_ledger();
    advance_before(&mut ledger, 669);
    let before = ledger.last_completed_sequence();
    let mut drift = gate::S669_DESCRIPTOR;
    drift.block_ordinal += 1;
    assert_eq!(
        advance_s576_to_s707_model_acceptance_gate(&mut ledger, 1, drift),
        Err(G8lR2AcceptanceError::DescriptorDrift)
    );
    assert_eq!(ledger.last_completed_sequence(), before);
}

#[test]
fn s669_rejects_missing_s575_pass_premature_acceptance_and_anchor_drift() {
    let mut without_repeat: G8lR2AcceptanceAnchor = S576_CANONICAL_ANCHOR;
    without_repeat.physical_repeat_observed = false;
    assert_eq!(
        G8lR2AcceptanceLedger::from_s575(1, without_repeat).err(),
        Some(G8lR2AcceptanceError::MissingS575PhysicalPass)
    );
    let mut unauthorized: G8lR2AcceptanceAnchor = S576_CANONICAL_ANCHOR;
    unauthorized.authorization_received = false;
    assert_eq!(
        G8lR2AcceptanceLedger::from_s575(1, unauthorized).err(),
        Some(G8lR2AcceptanceError::MissingS575PhysicalPass)
    );
    let mut overclaimed: G8lR2AcceptanceAnchor = S576_CANONICAL_ANCHOR;
    overclaimed.r2_field_acceptance_complete = true;
    assert_eq!(
        G8lR2AcceptanceLedger::from_s575(1, overclaimed).err(),
        Some(G8lR2AcceptanceError::PrematureAcceptanceClaim)
    );
    let mut scanout: G8lR2AcceptanceAnchor = S576_CANONICAL_ANCHOR;
    scanout.visible_scanout_observed = true;
    assert_eq!(
        G8lR2AcceptanceLedger::from_s575(1, scanout).err(),
        Some(G8lR2AcceptanceError::PrematureAcceptanceClaim)
    );
    let mut drifted: G8lR2AcceptanceAnchor = S576_CANONICAL_ANCHOR;
    drifted.repeat_status = "RED";
    assert_eq!(
        G8lR2AcceptanceLedger::from_s575(1, drifted).err(),
        Some(G8lR2AcceptanceError::S575AnchorDrift)
    );
    assert_eq!(
        G8lR2AcceptanceLedger::from_s575(0, S576_CANONICAL_ANCHOR).err(),
        Some(G8lR2AcceptanceError::WrongCpu)
    );
}

  {
    id: "g8l-s669-r2-ui-application-flow-callsite-partial",
    sequence: 669,
    slug: "r2_ui_application_flow_callsite",
    title: "Display, input and controlled application flow · Bounded model service callsite",
    titleTr: "Ekran, giriş ve kontrollü uygulama akışı · Sınırlı model servis callsite'ı",
    workstream: 12,
    focusedTests: 8,
    sourceBytes: 2874,
    sourceSha256: "e6a7135b829792b00a0d6d5a4ec4f97d1574ea736a04d7134573b58121e03afa",
    testBytes: 9232,
    testSha256: "578e54d55c09fac0c129938f5686d7deae06a8a6847696e1d301e1ccc8aba160",
    blockOrdinal: 11,
    blockCount: 14,
    blockTitle: "Display, input and controlled application flow",
    blockTitleTr: "Ekran, giriş ve kontrollü uygulama akışı",
    blockStepCount: 9,
    stepOrdinal: 4,
    stepTitle: "Bounded model service callsite",
    stepTitleTr: "Sınırlı model servis callsite'ı",
    externalAuthorityRequired: false,
    acceptance: "S669, R1→R2 geçişinin 12. iş kolundaki Ekran, giriş ve kontrollü uygulama akışı bloğunun 4/9 Sınırlı model servis callsite'ı adımını exact S668 predecessor sonrasında ayrı typed descriptor ile fail-closed olarak kaydeder.",
    retainedBoundary: "Bu yalnız fail-closed software readiness kaydıdır; supported-profile runtime observation=0, physical observation=0, operatör yetkisi=0, dış kabul=0, acceptance_complete=false, r2_field_acceptance_complete=false, board-rpi5 kernel'e link=false ve RUNBOOK_EXECUTED_IN_S669=NO kalır. Bu iş kolu dış kabul otoritesi gerektirmez; fiziksel gözlem yine de zorunludur.",
  },