def written_stamp

bendvy-ecs-core@0.1.0.3 · execution_reservation_materialization.bend:67

import Base
import bendvy-ecs-core@0.1.0.3/chunk_column.bend as Column
import bendvy-ecs-core@0.1.0.3/change_tick.bend as Tick
import bendvy-ecs-core@0.1.0.3/lifecycle.bend as L

67# Internal storage primitive, called only after whole-tree preflight and ensure.
68# Like canonical Column.swap_leaf, it preserves the displaced affine owner and
69# updates both lifecycle stamps using the captured publication tick.
70def written_stamp(~S:Data,-P:Type,values:Array<Maybe<&1,P>>,previous:Maybe<&1,P>,+index:U32,tick:Tick.Tick,wasPresent:Bool,result:Array<L.Stamp> & L.Stamp) -> Column.Column<S,P> & Maybe<&1,P>:
71  match result:
72    case (stamps,stamp):(Column.Leaf{values,Array.set(L.Stamp,stamps,index,L.after_write(True{},wasPresent,stamp,tick))},previous)