def component

bendvy-ecs-core@0.1.0.4 · ordinary_app_leaf_run.bend:19

import Base
import bendvy-ecs-core@0.1.0.4/change_tick.bend as Tick
import bendvy-ecs-core@0.1.0.4/ordinary_app_records.bend as Leaf
import bendvy-ecs-core@0.1.0.4/ordinary_app_registration_fields.bend as Stored
import bendvy-ecs-core@0.1.0.4/ordinary_app_dispatch_result.bend as D
import bendvy-ecs-core@0.1.0.4/world.bend as W
import bendvy-ecs-core@0.1.0.4/system.bend as Sys

19def component(~S:Data,~C:Type,~R:Type,~E:Data,~H:Type,~CE:Data,~RA:Type,~RE:Data,~RO:Type,~runner:W.World<S,C,R,E> -> (Unit & Maybe<&2,Tick.Tick>) -> Sys.Outcome<W.World<S,C,R,E>,CE,List<&2,Unit>>,put:Leaf.Record<S,Stored.Token<Sys.Registry<S,C,R,E,Unit & Maybe<&2,Tick.Tick>,CE,List<&2,Unit>,runner>>> -> H,convert:Sys.Outcome<W.World<S,C,R,E>,CE,List<&2,Unit>> -> Sys.Outcome<W.World<S,C,R,E>,D.Error<CE,RE>,D.Output<Unit,RO>>,rejected:(Unit & Maybe<&2,Tick.Tick>) -> D.Arguments<Unit,RA>,record:Leaf.Record<S,Stored.Token<Sys.Registry<S,C,R,E,Unit & Maybe<&2,Tick.Tick>,CE,List<&2,Unit>,runner>>>,world:W.World<S,C,R,E>) -> D.DispatchResult<S,C,R,E,H,D.Arguments<Unit,RA>,D.Error<CE,RE>,D.Output<Unit,RO>>:
20  match record:
21    case Leaf.Record{token,+fields}:invoke(~S,~C,~R,~E,~H,~(Unit & Maybe<&2,Tick.Tick>),~CE,~List<&2,Unit>,~runner,~RA,~CE,~RE,~RO,put,convert,rejected,Leaf.Record{token,fields},world,(Unit{},current_cursor(~S,fields)))