def bind

bendvy-ecs-core@0.1.0.4 · ordinary_app_machine_initialization_field.bend:30

import Base
import bendvy-ecs-core@0.1.0.4/world.bend as W
import bendvy-ecs-core@0.1.0.4/system.bend as Sys
import bendvy-ecs-core@0.1.0.4/machine_handlers.bend as H
import bendvy-ecs-core@0.1.0.4/ordinary_machine_initialization.bend as Init
import bendvy-ecs-core@0.1.0.4/ordinary_machine_initialization_marker.bend as Marker
import bendvy-ecs-core@0.1.0.4/ordinary_machine_declaration.bend as Machine
import bendvy-ecs-core@0.1.0.4/ordinary_app_machine_handler.bend as App

30def bind(~S:Data,~K:Data,~V:Data,~Q:Data,~C:Type,~R:Type,~E:Data,~runner:W.World<S,C,R,E> -> H.Invocation<V> -> Sys.Outcome<W.World<S,C,R,E>,String,Unit>,~Extra:Type,~take:R -> R & Init.State<S,K,V>,~put:R -> Init.State<S,K,V> -> R,~same:V -> V -> Bool,~requirement_same:Q -> Q -> Bool,~has:W.World<S,C,R,E> -> Q -> W.World<S,C,R,E> & Bool,~frame:W.World<S,C,R,E> -> W.World<S,C,R,E>,~initial:Machine.Declaration<S,K,V,R,Init.take_slot(~S,~K,~V,~R,~take,~put)>,app:App.Application<S,K,V,Q,C,R,E,runner,Extra>) -> Definition<S,K,V,Q,C,R,E,runner,Extra>:
31  match app:
32    case App.Recovering{result,declaration,extra,debug}:Rejected{App.Recovering{result,declaration,extra,debug}}
33    case App.Application{world,bundle,declaration,extra,debug}:bound(~S,~K,~V,~Q,~C,~R,~E,~runner,~Extra,extra,debug,Marker.bind(~S,~K,~V,~R,~take,~put,~C,~E,~Q,~runner,~same,~requirement_same,~has,~frame,~initial,declaration,bundle,world))