def machine_observe

bendvy-ecs-core@0.1.0.4 · ordinary_app_resource_field_declaration.bend:97

import Base
import bendvy-ecs-core@0.1.0.4/machine.bend as Machine
import bendvy-ecs-core@0.1.0.4/ordinary_machine_declaration.bend as MachineDecl
import bendvy-ecs-core@0.1.0.4/inspector.bend as Inspect
import bendvy-ecs-core@0.1.0.4/world.bend as W

97# Advanced observation route for the declared machine's current value.
98# Returns (World, CurrentView), including Unavailable when the slot has no value;
99# uses a fresh inspector cursor and does not run queued transitions.
100def machine_observe(~S:Data,~K:Data,~V:Data,~C:Type,~R:Type,~E:Data,~take:R -> R & Machine.Slot<S,K,V>,~machine:MachineDecl.Declaration<S,K,V,R,take>,world:W.World<S,C,R,E>) -> W.World<S,C,R,E> & Machine.CurrentView<S,K,V>:
101  machine_presented(~S,~K,~V,~C,~R,~E,MachineDecl.get(~Inspect.Frame<S,C,R,E>,~S,~K,~V,~MachineDecl.inspect(~S,~K,~V,~C,~R,~E,~take,~machine),Inspect.Frame{world,None{}}))