def relation_accesses

bendvy-ecs-core@0.1.0.4 · ordinary_app_linked_cleanup_system.bend:28

import Base
import bendvy-ecs-core@0.1.0.4/relation_failure_reader.bend as Ord
import bendvy-ecs-core@0.1.0.4/relation_types.bend as G

28def relation_accesses(~S:Data,declarations:List<&2,Ord.Declaration<S>>) -> List<&2,String>:
29  match declarations:
30    case []:[]
31    case Ord.Declaration{G.Descriptor{_,name,_,_}} <> rest:String.concat([name,":write"]) <> relation_accesses(~S,rest)