def snapshot

bendvy-ecs-core@0.1.0.4 · ordinary_app_condition_schedule.bend:69

import Base
import bendvy-ecs-core@0.1.0.4/world.bend as W
import bendvy-ecs-core@0.1.0.4/ordinary_app_schedule_description.bend as Named
import bendvy-ecs-core@0.1.0.4/ordinary_app_observation_data.bend as DTO
import bendvy-ecs-core@0.1.0.4/ordinary_app_registration_fields.bend as Fields
import bendvy-ecs-core@0.1.0.4/ordinary_condition_declaration.bend as Condition

69# Return App with optional detached schedule/condition descriptions.
70# Disabled observation returns None; enabled names come from the same ordinary
71# program. Does not evaluate predicates or advance system reader cursors.
72def snapshot(~S:Data,~C:Type,~R:Type,~E:Data,~H:Type,~Rows:Data,~observe:W.World<S,C,R,E> -> W.World<S,C,R,E> & DTO.Observation<Rows>,~fold:H -> H & List<&2,Fields.Fields<S>>,~Ids:Data,~declaration:Condition.Program<S,C,R,E,Ids>,app:Application<S,C,R,E,H,Rows,observe,fold,Ids,declaration>) -> Application<S,C,R,E,H,Rows,observe,fold,Ids,declaration> & Maybe<&2,Description<S,Rows>>:
73  match app:
74    case Application{scheduled,program}:observed(~S,~C,~R,~E,~H,~Rows,~observe,~fold,~Ids,~declaration,program,Named.snapshot(~S,~C,~R,~E,~H,~Rows,~observe,~fold,scheduled))