def define_with_compilation

bendvy-ecs-core@0.1.0.3 · execution_system_registration.bend:36

import Base
import bendvy-ecs-core@0.1.0.3/world.bend as W
import bendvy-ecs-core@0.1.0.3/execution_system.bend as Sys
import bendvy-ecs-core@0.1.0.3/execution_declaration.bend as D
import bendvy-ecs-core@0.1.0.3/execution_builder.bend as Build

36def define_with_compilation(~S:Data,~WC:Type,~C:Type,~R:Type,~E:Data,~Ops:Data -> (Type -> Type) -> Type -> Type,~Local:Type,~Error:Data,~Out:Data,~declaration:Build.FrameworkProgram(~S,~WC,~C,~R,~Ops),~body:Sys.Body(~S,~Ops,~Local,~Error,~Out),~WR:Type,compilation:D.Compilation<S,WC,C,R,Ops>,world:W.World<S,WC,WR,E>,name:String,local:Local) -> D.Compilation<S,WC,C,R,Ops> & Sys.Defined<W.World<S,WC,WR,E>,Sys.Owner<S,WC,C,R,E,Ops,Local,Error,Out,declaration,body>,Local>:
37  match compilation:
38    case D.Unsupported{caps,access,recipes}:(D.Unsupported{caps,access,recipes},Sys.DefinitionRefused{world,local})
39    case D.Supported{D.Declaration{caps,+access},recipes}:retained_namespace(~S,~WC,~C,~R,~E,~Ops,~Local,~Error,~Out,~declaration,~body,~WR,D.Supported{D.Declaration{caps,access},recipes},name,D.keys(access),local,W.namespace(~S,~WC,~WR,~E,world))