badline 0.5.1 → 0.6.1

data/lib/badline/vic.rb

@@ -17,6 +17,10 @@ module Badline
     attr_reader :address_bus, :display, :width, :height, :vic_bank, :column,
                 :rasterline, :dirty_lines, :model, :region
 
+    # The parts a VICE snapshot reads and sets.
+    attr_reader :registers, :display_state, :sequencer, :sprites, :character_buffer, :color_buffer,
+                :fetch_d011
+
     # Returns the byte the CPU's halted read would see, for the c-accesses
     # that run before AEC. Without it they read colour RAM.
     attr_writer :open_bus
@@ -82,6 +86,7 @@ module Badline
       @grey_dots = model == :mos8565
       @delayed_fetch = model == :mos8565
       @dma_delay_idle = model == :mos6569
+      @bank_swaps = model == :mos8565
       @address_bus = address_bus || AddressBus.new
       @vic_bank = VIC::Bank.new(@address_bus)
       @debug = debug
@@ -139,6 +144,36 @@ module Badline
       @raster_match = false
     end
 
+    # Everything the VIC holds between cycles: the beam, the fetch and
+    # g-access pipeline, the light pen and raster latches, the finished
+    # lines, the registers and the display, sequencer and sprite logic.
+    # Whether it renders is the host's, and every line comes back dirty so
+    # a front end repaints.
+    def save_state(out)
+      out.marker("VIC")
+      out.int(@column).int(@rasterline).int(@cycles).boolean(@pending_write)
+      out.int(@g_tick).ints(@g_kind).int(@g_kept_char).int(@g_kept_color).boolean(@g_display)
+      out.int(@fetch_d011).boolean(@lp_triggered).boolean(@lp_low).boolean(@raster_match)
+      out.int(@vic_bank.lines)
+      out.blob(@character_buffer).blob(@color_buffer).booleans(@sprite_ba)
+      @lines.each { |line| out.blob(line) }
+      @registers.save_state(out)
+      @display_state.save_state(out)
+      @sequencer.save_state(out)
+      @sprites.save_state(out)
+    end
+
+    def load_state(input)
+      input.marker("VIC")
+      load_beam(input)
+      load_buffers(input)
+      load_lines(input)
+      @registers.load_state(input)
+      @display_state.load_state(input)
+      @sequencer.load_state(input)
+      @sprites.load_state(input)
+    end
+
     def cycle!
       start_line! if @column.zero?
 
@@ -227,14 +262,19 @@ module Badline
         @column > DisplayState::DMA_FIRST && @column <= DisplayState::DMA_LAST + 1
     end
 
-    # BA as an REU's DMA sees it. On the line whose raster matches sprite
-    # 0's Y, where the sprite's DMA starts, the REU doesn't see BA fall on
-    # the first cycle of the sprite's window. Pinned by
+    # Whether this is the first cycle of sprite 0's BA window on the line
+    # whose raster matches its Y, where the sprite's DMA starts. An REU
+    # that moved a byte on the cycle before doesn't see BA fall here. Pinned by
     # REU/bonzai/spritetiming.
-    def reu_ba_low?
-      return false if @column == SPRITE_BA_FIRST + @sprite_shift && sprite_zero_starting?
+    def reu_ba_late?
+      @column == SPRITE_BA_FIRST + @sprite_shift && sprite_zero_starting?
+    end
 
-      ba_low?
+    # Whether BA passes straight from a bad line's window to sprite 0's on
+    # this cycle, the first of sprite 0's. An REU sees the bad line's DMA
+    # end here. Pinned by REU/reutiming2/e4-m2 and e6-m2.
+    def reu_ba_handed_on?
+      @column == DisplayState::DMA_LAST + 2 && @sprite_ba[@column] && @display_state.bad_line_condition?
     end
 
     # Light pen input level (CIA1 PB4). A falling edge triggers the latch.
@@ -288,6 +328,36 @@ module Badline
       @sequencer.render = on
     end
 
+    # Puts the beam at the start of `line`.
+    def restore_line(line)
+      @rasterline = line
+      @column = 0
+    end
+
+    # The latches a VICE snapshot holds: the raster match, the light pen's
+    # line held low and its trigger, as bits 0, 1 and 2.
+    def latch_bits = (@raster_match ? 1 : 0) | (@lp_low ? 2 : 0) | (@lp_triggered ? 4 : 0)
+
+    # Sets the latches from latch_bits, and the $D011 the next g-access
+    # holds.
+    def restore_latches(bits, fetch_d011)
+      @raster_match = bits.anybits?(1)
+      @lp_low = bits.anybits?(2)
+      @lp_triggered = bits.anybits?(4)
+      @fetch_d011 = fetch_d011
+    end
+
+    # Marks the columns BA is low for the sprites whose DMA runs.
+    def rebuild_sprite_ba
+      @sprite_ba.fill(false)
+      8.times do |n|
+        next unless @sprites[n].displaying?
+
+        @sprite_ba_tail[n].each { |c| @sprite_ba[c] = true }
+        @sprite_ba_head[n].each { |c| @sprite_ba[c] = true }
+      end
+    end
+
     # Reset the dirty flags once the frontend has consumed them.
     def clear_dirty_lines!
       @dirty_lines.fill(false)
@@ -295,6 +365,38 @@ module Badline
 
     private
 
+    def load_beam(input)
+      @column = input.int
+      @rasterline = input.int
+      @cycles = input.int
+      @pending_write = input.boolean?
+      @g_tick = input.int
+      input.ints_into(@g_kind)
+      @g_kept_char = input.int
+      @g_kept_color = input.int
+      @g_display = input.boolean?
+      @fetch_d011 = input.int
+      @lp_triggered = input.boolean?
+      @lp_low = input.boolean?
+      @raster_match = input.boolean?
+      @vic_bank.lines = input.int
+    end
+
+    def load_buffers(input)
+      input.blob_into(@character_buffer)
+      input.blob_into(@color_buffer)
+      input.booleans_into(@sprite_ba)
+    end
+
+    # The display is the finished lines one after another.
+    def load_lines(input)
+      @lines.each_with_index do |line, number|
+        input.blob_into(line)
+        @display[number * @width, @width] = line
+      end
+      @dirty_lines.fill(true)
+    end
+
     # The raster counter as $D011/$D012 read it. Every line advances on the
     # CPU cycle paired with column 62 except line 0, which the counter
     # reaches a cycle later, together with the line 0 raster compare.
@@ -407,16 +509,6 @@ module Badline
       @registers[0x15].anybits?(0x01) && @registers[0x01] == (@rasterline & 0xff)
     end
 
-    def rebuild_sprite_ba
-      @sprite_ba.fill(false)
-      8.times do |n|
-        next unless @sprites[n].displaying?
-
-        @sprite_ba_tail[n].each { |c| @sprite_ba[c] = true }
-        @sprite_ba_head[n].each { |c| @sprite_ba[c] = true }
-      end
-    end
-
     # Splits the sprite BA windows at the end of the line and marks the hook
     # columns, for a line of the region's length: 14, 15, 53, 54 and 57, and
     # the line's last column, which starts the vertical border for the line
@@ -452,6 +544,7 @@ module Badline
     # on zero data with the screen byte and colour the last g-access
     # latched, which an idle g-access clears.
     def draw!
+      @vic_bank.sample_lines if @bank_swaps
       slot = @g_tick = (@g_tick + 1) & 3
       display_state = @display_state
       access = display_state.graphics_column?(@column) && !@sequencer.vertical_closed?

data/lib/badline.rb

@@ -39,4 +39,5 @@ require "badline/cartridge"
 require "badline/kernal_trap"
 require "badline/chrout_trap"
 require "badline/media"
+require "badline/snapshot"
 require "badline/audio"

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: badline
 version: !ruby/object:Gem::Version
-  version: 0.5.1
+  version: 0.6.1
 platform: ruby
 authors:
 - Inge Jørgensen
@@ -34,8 +34,6 @@ executables:
 extensions: []
 extra_rdoc_files: []
 files:
-- ".claude/hooks/session-start.sh"
-- ".claude/settings.json"
 - CHANGELOG.md
 - CLAUDE.md
 - CODE_OF_CONDUCT.md
@@ -47,6 +45,7 @@ files:
 - exe/badline-ruby
 - lib/badline.rb
 - lib/badline/address_bus.rb
+- lib/badline/address_bus/saved_state.rb
 - lib/badline/address_bus/ultimax_pages.rb
 - lib/badline/addressable.rb
 - lib/badline/audio.rb
@@ -59,8 +58,6 @@ files:
 - lib/badline/audio/pcm_writer.rb
 - lib/badline/audio/playback.rb
 - lib/badline/audio/renderer.rb
-- lib/badline/audio/sdl_sink.rb
-- lib/badline/audio/stream.rb
 - lib/badline/audio/terminal.rb
 - lib/badline/audio/wav.rb
 - lib/badline/cartridge.rb
@@ -96,41 +93,57 @@ files:
 - lib/badline/cia.rb
 - lib/badline/cia/interrupt_register.rb
 - lib/badline/cia/serial.rb
+- lib/badline/cia/state.rb
 - lib/badline/cia/timer.rb
 - lib/badline/color_memory.rb
 - lib/badline/computer.rb
+- lib/badline/computer/attachments.rb
+- lib/badline/computer/saved_state.rb
 - lib/badline/control_ports.rb
 - lib/badline/cpu.rb
 - lib/badline/cpu/addressing.rb
+- lib/badline/cpu/boundary.rb
+- lib/badline/cpu/core.rb
 - lib/badline/cpu/microcode.rb
 - lib/badline/cpu/operations.rb
+- lib/badline/cpu/saved_state.rb
 - lib/badline/cpu/stack_operations.rb
 - lib/badline/cycleable.rb
 - lib/badline/datasette.rb
 - lib/badline/debug_register.rb
 - lib/badline/drive1541.rb
 - lib/badline/drive1541/bus.rb
+- lib/badline/drive1541/cpu.rb
 - lib/badline/drive1541/disk.rb
+- lib/badline/drive1541/disk_state.rb
 - lib/badline/drive1541/disk_via.rb
 - lib/badline/drive1541/gcr.rb
 - lib/badline/drive1541/idle.rb
 - lib/badline/drive1541/mechanism.rb
+- lib/badline/drive1541/mechanism_state.rb
 - lib/badline/drive1541/orbit.rb
 - lib/badline/drive1541/rotation.rb
 - lib/badline/drive1541/sector_reader.rb
 - lib/badline/drive1541/serial_port.rb
 - lib/badline/drive1541/sleep.rb
 - lib/badline/drive1541/track.rb
-- lib/badline/gui.rb
-- lib/badline/gui/application.rb
-- lib/badline/gui/drive_led_pane.rb
-- lib/badline/gui/gamepads.rb
-- lib/badline/gui/joy_map.rb
-- lib/badline/gui/key_map.rb
-- lib/badline/gui/palette.rb
-- lib/badline/gui/pane.rb
-- lib/badline/gui/screen_pane.rb
-- lib/badline/gui/window.rb
+- lib/badline/ffi.rb
+- lib/badline/frontend.rb
+- lib/badline/frontend/app.rb
+- lib/badline/frontend/audio_sink.rb
+- lib/badline/frontend/boot.rb
+- lib/badline/frontend/controls.rb
+- lib/badline/frontend/drive_led.rb
+- lib/badline/frontend/frame_rate.rb
+- lib/badline/frontend/gamepads.rb
+- lib/badline/frontend/keys.rb
+- lib/badline/frontend/pacer.rb
+- lib/badline/frontend/pad_port.rb
+- lib/badline/frontend/screen.rb
+- lib/badline/frontend/screenshot.rb
+- lib/badline/frontend/snapshots.rb
+- lib/badline/frontend/sound.rb
+- lib/badline/frontend/timeline.rb
 - lib/badline/iec_bus.rb
 - lib/badline/input.rb
 - lib/badline/input/mouse1351.rb
@@ -169,6 +182,10 @@ files:
 - lib/badline/media/true_drive.rb
 - lib/badline/memory.rb
 - lib/badline/options.rb
+- lib/badline/options/event.rb
+- lib/badline/options/help.rb
+- lib/badline/options/option.rb
+- lib/badline/options/table.rb
 - lib/badline/ram_expansion.rb
 - lib/badline/ram_expansion/banking.rb
 - lib/badline/ram_expansion/plus256k.rb
@@ -177,7 +194,9 @@ files:
 - lib/badline/region.rb
 - lib/badline/reu.rb
 - lib/badline/reu/dma.rb
+- lib/badline/reu/dma/saved_state.rb
 - lib/badline/reu/ram.rb
+- lib/badline/reu/saved_state.rb
 - lib/badline/reu/trigger.rb
 - lib/badline/rom.rb
 - lib/badline/roms/README
@@ -189,18 +208,36 @@ files:
 - lib/badline/roms/eapi/eapi-am29f040-14
 - lib/badline/roms/kernal.rom
 - lib/badline/sdl.rb
-- lib/badline/sdl/events.rb
-- lib/badline/sdl/functions.rb
 - lib/badline/sid.rb
 - lib/badline/sid/catch_up.rb
 - lib/badline/sid/decimator.rb
 - lib/badline/sid/envelope.rb
+- lib/badline/sid/envelope/state.rb
 - lib/badline/sid/filter.rb
 - lib/badline/sid/voice.rb
 - lib/badline/sid/waveform.rb
 - lib/badline/sid/waveform/combined.rb
 - lib/badline/sid/waveform/fast_forward.rb
 - lib/badline/sid/waveform/noise_writeback.rb
+- lib/badline/sid/waveform/state.rb
+- lib/badline/snapshot.rb
+- lib/badline/snapshot/container.rb
+- lib/badline/snapshot/fields.rb
+- lib/badline/snapshot/image.rb
+- lib/badline/snapshot/machine_state.rb
+- lib/badline/snapshot/setup.rb
+- lib/badline/snapshot/state.rb
+- lib/badline/snapshot/vice.rb
+- lib/badline/snapshot/vice/c64_mem.rb
+- lib/badline/snapshot/vice/cias.rb
+- lib/badline/snapshot/vice/cias_import.rb
+- lib/badline/snapshot/vice/main_cpu.rb
+- lib/badline/snapshot/vice/peripherals.rb
+- lib/badline/snapshot/vice/restore.rb
+- lib/badline/snapshot/vice/sid_extended.rb
+- lib/badline/snapshot/vice/sid_registers.rb
+- lib/badline/snapshot/vice/vicii.rb
+- lib/badline/snapshot/vice/vicii_import.rb
 - lib/badline/status.rb
 - lib/badline/storage.rb
 - lib/badline/storage/crt_file.rb
@@ -220,6 +257,7 @@ files:
 - lib/badline/storage/song_lengths.rb
 - lib/badline/storage/t64.rb
 - lib/badline/storage/tap.rb
+- lib/badline/storage/unavailable.rb
 - lib/badline/time_of_day.rb
 - lib/badline/traps.rb
 - lib/badline/version.rb
@@ -228,6 +266,7 @@ files:
 - lib/badline/via/fast_forward.rb
 - lib/badline/via/interrupt_register.rb
 - lib/badline/via/shift_register.rb
+- lib/badline/via/state.rb
 - lib/badline/via/timer1.rb
 - lib/badline/via/timer2.rb
 - lib/badline/vic.rb
@@ -242,13 +281,15 @@ files:
 - lib/badline/vic/registers.rb
 - lib/badline/vic/sequencer.rb
 - lib/badline/vic/sequencer_output.rb
+- lib/badline/vic/sequencer_state.rb
 - lib/badline/vic/sprite.rb
 - lib/badline/vic/sprite/internal_bus.rb
+- lib/badline/vic/sprite/saved_state.rb
 - lib/badline/vic/sprite/shifter.rb
 - lib/badline/vic/sprite/timing.rb
 - lib/badline/vic/sprites.rb
+- lib/badline/vic/sprites_state.rb
 - packaging/homebrew/badline.rb
-- vendor/.gitkeep
 homepage: https://github.com/elektronaut/badline
 licenses:
 - MIT

data/.claude/hooks/session-start.sh

@@ -1,57 +0,0 @@
-#!/bin/bash
-# Prepares a Claude Code on the web container to run `bundle exec rubocop`
-# and `bundle exec rspec`. The regression suites need vendor/ and aren't set
-# up here.
-set -euo pipefail
-
-if [ "${CLAUDE_CODE_REMOTE:-}" != "true" ]; then
-  exit 0
-fi
-
-cd "${CLAUDE_PROJECT_DIR:-$(dirname "$0")/../..}"
-
-# The SDL specs open libSDL2 through Fiddle, so only the runtime library is
-# needed, as in CI.
-if ! ldconfig -p | grep 'libSDL2-2\.0\.so\.0' >/dev/null; then
-  export DEBIAN_FRONTEND=noninteractive
-  apt-get update -qq
-  apt-get install -y -qq libsdl2-2.0-0 >/dev/null
-fi
-
-# The image ships Ruby 3.3 and an rbenv. Install the newest Ruby 4.0.x, as
-# CI's ruby-version "4.0" picks, from the prebuilt binaries setup-ruby uses,
-# unless a 4.0 is installed already.
-export RBENV_ROOT=/opt/rbenv
-export PATH="$RBENV_ROOT/bin:$RBENV_ROOT/shims:$PATH"
-ruby_version=$(rbenv versions --bare | grep -E '^4\.0\.[0-9]+$' | sort -V | tail -1 || true)
-if [ -z "$ruby_version" ]; then
-  ruby_version=$(curl -fsSL https://raw.githubusercontent.com/ruby/setup-ruby/master/ruby-builder-versions.json |
-    ruby -rjson -e 'puts JSON.parse($stdin.read)["ruby"].grep(/\A4\.0\.\d+\z/).max_by { Gem::Version.new(_1) }')
-  # The binaries only run from the prefix they were built with, so unpack
-  # there and link it into rbenv.
-  . /etc/os-release
-  prefix="/opt/hostedtoolcache/Ruby/$ruby_version/x64"
-  mkdir -p "$prefix"
-  if curl -fsSL "https://github.com/ruby/ruby-builder/releases/download/ruby-$ruby_version/ruby-$ruby_version-ubuntu-$VERSION_ID-x64.tar.gz" |
-      tar -xz -C "$prefix" --strip-components=1; then
-    ln -sfn "$prefix" "$RBENV_ROOT/versions/$ruby_version"
-  else
-    # No binary for this Ubuntu release: build from source, which takes minutes.
-    rm -rf "$prefix"
-    git -C "$RBENV_ROOT/plugins/ruby-build" pull --ff-only -q || true
-    MAKE_OPTS="-j$(nproc)" rbenv install --skip-existing "$ruby_version"
-  fi
-fi
-rbenv global "$ruby_version"
-rbenv rehash
-
-# Put rbenv's shims ahead of /usr/local/bin/ruby for the session.
-if [ -n "${CLAUDE_ENV_FILE:-}" ]; then
-  {
-    echo "export RBENV_ROOT=$RBENV_ROOT"
-    echo "export PATH=\"$RBENV_ROOT/bin:$RBENV_ROOT/shims:\$PATH\""
-  } >> "$CLAUDE_ENV_FILE"
-fi
-
-# Bundler switches to the version Gemfile.lock was bundled with.
-bundle install --jobs "$(nproc)"

data/.claude/settings.json

@@ -1,14 +0,0 @@
-{
-  "hooks": {
-    "SessionStart": [
-      {
-        "hooks": [
-          {
-            "type": "command",
-            "command": "$CLAUDE_PROJECT_DIR/.claude/hooks/session-start.sh"
-          }
-        ]
-      }
-    ]
-  }
-}

data/lib/badline/audio/sdl_sink.rb

@@ -1,70 +0,0 @@
-# frozen_string_literal: true
-
-module Badline
-  module Audio
-    # The host's audio device, fed through SDL's queue: mono signed 16-bit
-    # samples go in at the device's rate and SDL plays them out behind us.
-    class SDLSink
-      class Error < Playback::DeviceError; end
-
-      # int freq; Uint16 format; Uint8 channels, silence; Uint16 samples,
-      # padding; Uint32 size; then the callback and userdata pointers.
-      SPEC_LAYOUT = "lSCCSSLQQ"
-
-      attr_reader :rate
-
-      # With `exact_rate` false SDL may pick the device's own rate instead,
-      # which #rate then reports.
-      def initialize(rate:, exact_rate: false, buffer: 1024)
-        load_sdl
-        check(SDL::InitSubSystem.call(SDL::INIT_AUDIO))
-        @device = open_device(rate, exact_rate ? 0 : SDL::AUDIO_ALLOW_FREQUENCY_CHANGE, buffer)
-      end
-
-      def queue(samples)
-        data = samples.pack("s*")
-        check(SDL::QueueAudio.call(@device, data, data.bytesize))
-      end
-
-      def queued_seconds = SDL::GetQueuedAudioSize.call(@device).fdiv(2 * rate)
-
-      def start = SDL::PauseAudioDevice.call(@device, 0)
-
-      def pause = SDL::PauseAudioDevice.call(@device, 1)
-
-      def clear = SDL::ClearQueuedAudio.call(@device)
-
-      def close
-        return unless @device
-
-        SDL::CloseAudioDevice.call(@device)
-        SDL::QuitSubSystem.call(SDL::INIT_AUDIO)
-        @device = nil
-      end
-
-      private
-
-      def open_device(rate, allowed_changes, buffer)
-        wanted = [rate, SDL::AUDIO_S16SYS, 1, 0, buffer, 0, 0, 0, 0].pack(SPEC_LAYOUT)
-        obtained = "\0".b * 32
-        device = SDL::OpenAudioDevice.call(nil, 0, wanted, obtained, allowed_changes)
-        raise Error, SDL.error if device.zero?
-
-        @rate = obtained.unpack1("l")
-        device
-      end
-
-      def load_sdl
-        require "badline/sdl"
-      rescue SDL::Error => e
-        raise Error, e.message
-      end
-
-      def check(result)
-        raise Error, SDL.error if result.negative?
-
-        result
-      end
-    end
-  end
-end

data/lib/badline/audio/stream.rb

@@ -1,117 +0,0 @@
-# frozen_string_literal: true
-
-module Badline
-  module Audio
-    # Plays a running machine's SID through a sink, for the window: #feed
-    # queues whatever the SID recorded since the last call, once a frame,
-    # and #pace holds the machine to the device's clock.
-    #
-    # The device starts once the queue holds `ahead` seconds. Below real time
-    # the queue runs dry, and the device then stops until it holds `ahead`
-    # again, so the sound stutters with silent gaps rather than slowing
-    # down; `on_underrun` hears about the first time. A frame that would
-    # take the queue past `limit` seconds, as an unpaced machine above real
-    # time makes, is dropped whole.
-    class Stream
-      AHEAD = 0.08
-      LIMIT = 0.25
-
-      attr_reader :underruns, :dropped
-
-      # What #pace reads the time from and sleeps on: #now and #sleep.
-      attr_writer :clock
-
-      def initialize(sink, sid, ahead: AHEAD, limit: LIMIT, on_underrun: nil)
-        @sink = sink
-        @sid = sid
-        @ahead = ahead
-        @limit = limit
-        @on_underrun = on_underrun
-        @clock = Clock.new
-        @next_frame = nil
-        @started = false
-        @muted = false
-        @underruns = 0
-        @dropped = 0
-        sid.record(rate: sink.rate)
-      end
-
-      def rate = @sink.rate
-
-      def muted? = @muted
-
-      def playing? = @started
-
-      # Muting drops the queue; unmuting fills it to `ahead` again before
-      # the device restarts.
-      def toggle_mute
-        @muted = !@muted
-        return unless @muted
-
-        halt
-        @sink.clear
-      end
-
-      def feed
-        samples = @sid.drain_samples
-        return if @muted || samples.empty?
-
-        queued = @sink.queued_seconds
-        return @dropped += samples.size if queued + samples.size.fdiv(rate) > @limit
-
-        underrun! if @started && queued.zero?
-        @sink.queue(samples)
-        start if @sink.queued_seconds >= @ahead
-      end
-
-      # Waits out the frame just run. While the device plays, that is until
-      # it has played the queue down to `ahead`, so the machine runs at the
-      # device's rate and the queue neither drifts dry nor grows. Muted or
-      # filling up, the clock paces frames `seconds` apart instead.
-      def pace(seconds)
-        return wait_for_device if playing?
-
-        now = @clock.now
-        @next_frame = now if @next_frame.nil? || @next_frame < now
-        @clock.sleep(@next_frame - now)
-        @next_frame += seconds
-      end
-
-      def close = @sink.close
-
-      private
-
-      def start
-        return if @started
-
-        @started = true
-        @sink.start
-      end
-
-      def wait_for_device
-        @next_frame = nil
-        while (excess = @sink.queued_seconds - @ahead).positive?
-          @clock.sleep([excess, 0.001].max)
-        end
-      end
-
-      def halt
-        @started = false
-        @sink.pause
-      end
-
-      def underrun!
-        @underruns += 1
-        @on_underrun&.call if @underruns == 1
-        halt
-      end
-
-      # The host's monotonic clock.
-      class Clock
-        def now = Process.clock_gettime(Process::CLOCK_MONOTONIC)
-
-        def sleep(seconds) = Kernel.sleep(seconds)
-      end
-    end
-  end
-end