original-compliance-map.xqy

declare function gs:doc-compliance-map($uri as xs:string)
{
  let $query := cts:document-query($uri)
  let $map := map:map()

  let $doc := gs:highlight($uri, 'a')
  let $header1 :=
    for $s in $doc/document/body//(section|subsection)
    where fn:contains($s/fn:data(compliance), $TERM1)
    return fn:count($s)

  let $header2 :=
    for $s in $doc/document/body//(section|subsection)
    where fn:contains($s/fn:data(compliance), $TERM2)
    return fn:count($s)

  let $header3 :=
    for $s in $doc/document/body//(section|subsection)
    where fn:contains($s/fn:data(compliance), $TERM3)
    return fn:count($s)

  let $val1 := fn:sum($header1)
  let $val2 := fn:sum($header2)
  let $val3 := fn:sum($header3)

  let $_ :=
    (
      map:put($map, $TERM1, $val1),
      map:put($map, $TERM2, $val2),
      map:put($map, $TERM3, $val3)
    )
  return $map
};