/* SPDX-License-Identifier: LicenseRef-Starship-1.0
 * Copyright (c) 2023-2026 Robert A. James
 */
/* test_physics_l2.c -- v3/src/physics_execution_hooks.c on the host (#188): the rolling window
 * records a word's execution only while the live config's L2 (rolling window) is on -- L8's toggle,
 * as L4 is -- and, with no config yet, records it. It recorded whatever the card said (Captain Bob,
 * 2026-11-12: "Wire L2, keep L7 on").
 *
 * What the hook calls outside itself is defined here: the rolling window's recorder counts.
 */
#include "harness.h"
#include "vm.h"
#include "physics_execution_hooks.h"
#include "physics_metadata.h"
#include "platform_time.h"
#include "profiler.h"
#include "rolling_window_of_truth.h"
#include "ssm_jacquard.h"
#include <stdlib.h>
#include <string.h>

static unsigned recorded;
int rolling_window_record_execution(RollingWindowOfTruth *window, uint32_t word_id)
{
    (void)window; (void)word_id; recorded++; return 0;
}
void physics_metadata_apply_linear_decay(DictEntry *entry, uint64_t elapsed_ticks, VM *vm)
{
    (void)entry; (void)elapsed_ticks; (void)vm;
}
void physics_metadata_touch(DictEntry *entry, cell_t execution_heat, uint64_t now_ns)
{
    (void)entry; (void)execution_heat; (void)now_ns;
}
void profiler_word_exit(const DictEntry *entry) { (void)entry; }
void sf_mutex_lock(sf_mutex_t *mutex) { (void)mutex; }
void sf_mutex_unlock(sf_mutex_t *mutex) { (void)mutex; }
void vm_heartbeat_run_cycle(VM *vm) { (void)vm; }

static sf_time_ns_t clock_ns(void) { return 1000u; }
static sf_time_backend_t backend;
const sf_time_backend_t *sf_time_backend = &backend;

static unsigned run(VM *vm, DictEntry *w)   /* one execution of w: how many times was it recorded */
{
    recorded = 0;
    physics_pre_execute(vm, w, NULL);
    return recorded;
}

int main(void)
{
    VM *vm = calloc(1, sizeof *vm);
    DictEntry w;
    ssm_config_t cfg;
    unsigned n;

    backend.get_monotonic_ns = clock_ns;
    CHECK(vm != 0, "a VM");
    if (!vm) return DONE();
    memset(&w, 0, sizeof w);
    w.word_id = 7;
    memset(&cfg, 0, sizeof cfg);

    vm->ssm_config = NULL;
    n = run(vm, &w);
    CHECK(n == 1u, "no config yet: the execution is recorded (%u)", n);

    vm->ssm_config = &cfg;
    cfg.L2_rolling_window = 1;
    n = run(vm, &w);
    CHECK(n == 1u, "L2 on: the execution is recorded (%u)", n);

    cfg.L2_rolling_window = 0;
    n = run(vm, &w);
    CHECK(n == 0u, "#188: L2 off: the execution is not recorded (%u times)", n);

    free(vm);
    return DONE();
}