actor-scene_list_by_speaking_role.xq

declare namespace tei = "http://www.tei-c.org/ns/1.0";

(: for each actor, give a list of the scenes that they appear in :)


for $actor in //tei:div2[@type="scene"]//tei:sp/tei:speaker/tei:w

let $scene := concat($actor/ancestor::tei:div1/tei:head/normalize-space(.), ', ', $actor/ancestor::tei:div2/tei:head/normalize-space(.))

group by $actor

order by count(distinct-values($scene)) descending


return 
<actor name="{$actor}">

 {
 for $s in distinct-values($scene)
   return
   <scene>
   {$s}
   </scene>
 }
</actor>