import { createWorldClock } from '../../time/worldClock.js';

export const RADAR_MAX_GAP_MS = 30 * 60_000;
export const REGIONAL_INFRARED_MAX_GAP_MS = 30 * 60_000;
export const GLOBAL_INFRARED_MAX_GAP_MS = 3 * 60 * 60_000;
export const LIGHTNING_MAX_GAP_MS = 30 * 60_000;
/** How many of a feed's latest frames say how far apart its frames come. */
const SPACING_FRAMES = 12;
/** A frame holds this many of its feed's frame spacings before it lapses. */
const SPACING_SLACK = 1.5;

/**
 * How far apart a feed's frames come: the median spacing of its latest
 * frames, in ms, or null with fewer than two. Takes UTC times or epoch ms.
 * @param {Array<string|number>} times
 * @returns {number|null}
 */
export function frameSpacingMs(times) {
  const at = [
    ...new Set(
      (times ?? [])
        .map((time) => (typeof time === 'number' ? time : Date.parse(time)))
        .filter(Number.isFinite),
    ),
  ]
    .sort((a, b) => a - b)
    .slice(-(SPACING_FRAMES + 1));
  if (at.length < 2) return null;
  const gaps = at
    .slice(1)
    .map((time, i) => time - at[i])
    .sort((a, b) => a - b);
  const middle = gaps.length >> 1;
  return gaps.length % 2 ? gaps[middle] : (gaps[middle - 1] + gaps[middle]) / 2;
}

/**
 * A product's least time, `leastMs`, held to its feed's own frame spacing:
 * never less than one and a half spacings, so a feed whose frames come an
 * hour apart covers the whole hour between them, while one with frames
 * minutes apart keeps `leastMs`.
 * @param {number} leastMs
 * @param {Array<string|number>} times
 * @returns {number}
 */
export function atLeastFrameSpacing(leastMs, times) {
  const spacing = frameSpacingMs(times);
  return spacing === null
    ? leastMs
    : Math.max(leastMs, spacing * SPACING_SLACK);
}

/** The longest play waits on a frame before it goes on without it. */
export const PLAY_WAIT_MS = 8_000;
// Playing on its own, the world does not wait on the frame it is at: that
// frame loads as play goes on. Play holds only at the next frame while the
// one before it still loads, then goes on to it once it shows, so every frame
// shows, play stops only for a load that is slow, and a frame loaded ahead
// costs play nothing.

let clocks = 0;
// How many weather clocks follow each world clock.
const followers = new WeakMap();

/**
 * Transient observed time. Products must honor the signal before installing a
 * frame. Its time is the world clock's: latest while the world is live,
 * history at the world's time otherwise. It never moves the world clock
 * itself; the world's own controls (its timeline) move time, and while the
 * world plays it stops at each next frame until that frame loads.
 */
export function createWeatherClock({
  now = Date.now,
  setTimeout = globalThis.setTimeout,
  clearTimeout = globalThis.clearTimeout,
  world = createWorldClock({ now }),
} = {}) {
  const registry = new Map();
  const listeners = new Set();
  let mode = 'latest';
  let target = null;
  // The world time last applied.
  let seen = 'latest';
  const releases = new Map();
  let generation = 0;
  let pending = null;
  // This clock's name on the world, for its holds and its gate.
  const holdId = `weather:${++clocks}`;
  // While the world plays, the hold on it at the next frame as the one before
  // it loads, and the timer that lets play go on should that frame never
  // come; and whether the move to the next frame waits on it.
  let waiting = null;
  let waitTimer = null;
  let deferred = false;
  const stopWaiting = () => {
    const release = waiting;
    waiting = null;
    if (waitTimer !== null) clearTimeout(waitTimer);
    waitTimer = null;
    release?.();
  };
  const startWaiting = () => {
    if (waiting || destroyed || !registry.size) return;
    waiting = world.wait(holdId);
    waitTimer = setTimeout(() => {
      waitTimer = null;
      stopWaiting();
      // The frame that never came gives way to the one play is at.
      if (deferred) void transition();
    }, PLAY_WAIT_MS);
  };
  // Playing on its own, the world waits for frames as they load.
  const worldPlaysOn = (state = world.getState()) =>
    state.playing && !state.live && !state.stepping;
  let destroyed = false;
  const timesFor = (product) =>
    [...new Set(product.getTimes())]
      .filter((time) => Number.isFinite(Date.parse(time)))
      .sort((a, b) => Date.parse(a) - Date.parse(b));
  const getTimeline = () =>
    [
      ...new Set(
        [...registry.values()].flatMap(({ product }) =>
          product.isSuspended() ? [] : timesFor(product),
        ),
      ),
    ].sort((a, b) => Date.parse(a) - Date.parse(b));
  function selectFor(id, time) {
    const product = registry.get(id)?.product;
    if (!product) return null;
    const at = Date.parse(time);
    return (
      timesFor(product).findLast((candidate) => {
        const age = at - Date.parse(candidate);
        return age >= 0 && age <= product.maxGapMs;
      }) ?? null
    );
  }
  const selectedFor = (product) =>
    mode === 'latest'
      ? (timesFor(product).at(-1) ?? null)
      : selectFor(product.id, target);
  const getState = () => ({
    mode,
    target,
    // Frames come on one after another as the world plays on through them,
    // so the next is worth loading ahead.
    advancing: worldPlaysOn(),
    timeline: getTimeline(),
    products: [...registry.values()].map(({ product }) => ({
      id: product.id,
      shown: product.getShownTime() ?? null,
      selected: selectedFor(product),
      suspended: Boolean(product.isSuspended()),
    })),
  });
  const notify = () => {
    if (!destroyed) for (const listener of listeners) listener(getState());
  };
  const selections = () =>
    [...registry.values()].map(({ product }) => selectedFor(product)).join();
  let applied = null;
  function transition() {
    if (destroyed) return Promise.resolve(false);
    const owner = ++generation;
    // A scrub drops what loads and moves on; play goes on as this loads.
    applied = selections();
    deferred = false;
    stopWaiting();
    for (const entry of registry.values()) entry.controller?.abort();
    // Start all products together; a rejection must not skip the settle barrier.
    const tasks = [...registry.values()].map((entry) => {
      entry.controller = new AbortController();
      const { signal } = entry.controller;
      const time = selectedFor(entry.product);
      return Promise.resolve().then(() => {
        if (signal.aborted || owner !== generation || destroyed) return false;
        return entry.product.apply(time, { signal });
      });
    });
    const result = Promise.allSettled(tasks).then(() => {
      if (destroyed || owner !== generation) return false;
      stopWaiting();
      pending = null;
      notify();
      // Play held at the next frame for this one goes on to it.
      if (deferred) void transition();
      return true;
    });
    pending = result;
    notify();
    return result;
  }
  const api = {
    register(product) {
      if (destroyed) return () => {};
      if (registry.has(product.id))
        throw new Error(`Duplicate weather product: ${product.id}`);
      const entry = { product, controller: null };
      registry.set(product.id, entry);
      // The product moves with the world clock, and its frames are time the
      // world clock's timeline can show while it is on, suspended or not, so
      // the way back to live stays on screen. Both calls notify the world's
      // listeners, which may destroy this clock: the release is in place
      // first, and anything acquired after a destroy is let go at once.
      let unhold = null;
      let uncover = null;
      const release = () => {
        uncover?.();
        unhold?.();
        uncover = unhold = null;
      };
      releases.set(product.id, release);
      unhold = world.hold(product.id);
      if (!destroyed)
        uncover = world.register({
          id: product.id,
          coverage: () => {
            const marks = timesFor(product).map((time) => Date.parse(time));
            return marks.length
              ? { start: marks[0], end: marks.at(-1), marks }
              : null;
          },
        });
      if (destroyed) {
        release();
        return () => {};
      }
      void api.refresh();
      return () => {
        if (registry.get(product.id) !== entry) return;
        entry.controller?.abort();
        registry.delete(product.id);
        releases.get(product.id)?.();
        releases.delete(product.id);
        void api.refresh();
      };
    },
    getTimeline,
    selectFor,
    /**
     * The world clock this clock follows. Time moves there, through the same
     * seek, play and live the world's timeline uses, never through this clock.
     */
    world,
    refresh() {
      if (destroyed) return Promise.resolve(false);
      // New frames, or products added or dropped, and with them the next.
      world.coverageChanged();
      gated = undefined;
      gateNext(world.getState());
      if (mode === 'history') return transition();
      notify();
      return Promise.resolve(true);
    },
    getState,
    subscribe(listener) {
      if (!destroyed) listeners.add(listener);
      return () => listeners.delete(listener);
    },
    destroy() {
      if (destroyed) return;
      destroyed = true;
      ++generation;
      stopWaiting();
      world.gate(holdId, null);
      unfollowWorld();
      // The last weather clock leaves the world live, as a new one expects.
      const left = followers.get(world) - 1;
      followers.set(world, left);
      if (left === 0) world.goLive();
      for (const release of releases.values()) release();
      releases.clear();
      for (const entry of registry.values()) entry.controller?.abort();
      registry.clear();
      listeners.clear();
      pending = null;
    },
  };
  // Follow the world clock. A move (a seek, play going on) applies only when
  // it changes the mode or a product's frame.
  function followWorld(state) {
    if (destroyed) return;
    gateNext(state);
    // Play starting or stopping changes whether the next frame loads ahead.
    const playsOn = worldPlaysOn(state);
    const playChanged = playsOn !== playedOn;
    playedOn = playsOn;
    const nextMode = state.live ? 'latest' : 'history';
    const nextTarget = state.live
      ? null
      : new Date(Math.floor(state.timeMs)).toISOString();
    const key = nextTarget ?? 'latest';
    if (key === seen) {
      if (playChanged) notify();
      return;
    }
    seen = key;
    const modeChanged = nextMode !== mode;
    mode = nextMode;
    target = nextTarget;
    if (!modeChanged && selections() === applied) {
      // Back at the frame that loads, play need not hold for it.
      if (deferred) {
        deferred = false;
        stopWaiting();
      }
      // Played through, the time moves each frame with nothing new to show:
      // listeners hear of the frames as they change.
      if (!playsOn || playChanged) notify();
      return;
    }
    // Playing on into the next frame while the one before it loads, the
    // world holds here until that one shows.
    if (!modeChanged && pending && playsOn) {
      deferred = true;
      startWaiting();
      notify();
      return;
    }
    void transition();
  }
  // Playing on its own, the world stops at each next frame to load it rather
  // than run past frames between its ticks.
  let gated = null;
  let playedOn = false;
  function gateNext(state) {
    const next = worldPlaysOn(state)
      ? (getTimeline()
          .map((time) => Date.parse(time))
          .find((time) => time > Math.floor(state.timeMs)) ?? null)
      : null;
    if (next === gated) return;
    gated = next;
    world.gate(holdId, next);
  }
  const unfollowWorld = world.subscribe(followWorld);
  followers.set(world, (followers.get(world) ?? 0) + 1);
  followWorld(world.getState());
  return api;
}