def components

bendvy-ecs-core@0.1.0.4 · ordinary_dump_render.bend:6

import Base
import bendvy-ecs-core@0.1.0.4/schema_fragments.bend as Fragment
import bendvy-ecs-core@0.1.0.4/ordinary_dump_filter.bend as Filter

6# Selected handles only reach this stage. Entries remain the sole schema key list.
7def components(~S:Data,pairs:List<&1,Fragment.Entry<S> & Maybe<&2,String>>) -> List<&2,Filter.Value>:
8  match pairs:
9    case []:[]
10    case (Fragment.Entry{Fragment.Component{},key,_},Some{text}) <> rest:Filter.Value{key,text} <> components(~S,rest)
11    case _ <> rest:components(~S,rest)