From 93d7856dc4522478064738c8bb713a7709f6e31b Mon Sep 17 00:00:00 2001
From: Mau Zsofia Abraham <zsofia.abraham@oeaw.ac.at>
Date: Mon, 13 May 2024 13:51:08 +0200
Subject: [PATCH] Label endpoints

---
 vicav.xqm                     | 40 ++++++++++++++++++++++++++++++-----
 xslt/data_words-json.xslt     | 31 +++++++++++++++++++++++++++
 xslt/feature_labels-json.xslt | 32 ++++++++++++++++++++++++++++
 3 files changed, 98 insertions(+), 5 deletions(-)
 create mode 100644 xslt/data_words-json.xslt
 create mode 100644 xslt/feature_labels-json.xslt

diff --git a/vicav.xqm b/vicav.xqm
index ed516a2a..f109a5c6 100644
--- a/vicav.xqm
+++ b/vicav.xqm
@@ -1430,13 +1430,30 @@ declare function vicav:_get_sample_markers() {
 declare
 %rest:path("/vicav/feature_labels")
 %rest:GET
-
+%rest:produces("application/xml")
+%rest:produces("application/json")
+%rest:produces('application/problem+json')   
+%rest:produces('application/problem+xml')
 function vicav:get_feature_labels() {
+    api-problem:or_result (prof:current-ns(),
+    vicav:_get_feature_labels#0, [], map:merge((cors:header(()), vicav:return_content_header()))
+  )
+};
+
+declare
+function vicav:_get_feature_labels() {
+    let $accept-header := try { request:header("ACCEPT") } catch basex:http { 'application/xhtml+xml' }
+   
     let $features := collection('vicav_lingfeatures' || vicav:get_project_db())/descendant::tei:TEI//tei:cit[@type="featureSample"]
     let $out := for $ana in distinct-values($features/@ana)
         return <feature ana="{$ana}">{$features[./@ana = $ana][1]/tei:lbl/text()}</feature>
 
-    return
+
+    return if (matches($accept-header, '[+/]json'))
+    then let $renderedJson := xslt:transform(<_>{$out}</_>,
+        'xslt/feature_labels-json.xslt')
+    return serialize($renderedJson, map {"method": "json"})
+    else
         (web:response-header(map {'method': 'xml'}, map:merge((cors:header(()), vicav:return_content_header()))),
         <features>{$out}</features>)
 };
@@ -1468,12 +1485,20 @@ declare
 %rest:path("/vicav/data_words")
 %rest:query-param("type", "{$type}")
 %rest:GET
+%rest:produces("application/xml")
+%rest:produces("application/json")
+%rest:produces('application/problem+json')   
+%rest:produces('application/problem+xml')
+function vicav:get_data_words($type as xs:string*) {
+    api-problem:or_result (prof:current-ns(),
+    vicav:_get_data_words#1, [$type], map:merge((cors:header(()), vicav:return_content_header()))
+  )
+};
 
-function vicav:get_sample_words($type as xs:string*) {
+declare function vicav:_get_data_words($type as xs:string*) {
+    let $accept-header := try { request:header("ACCEPT") } catch basex:http { 'application/xhtml+xml' }
     let $type := if ($type = () or $type = '') then 'samples' else $type
 
-
-
     let $persons := if ($type = 'samples') then 
         for $w in collection('vicav_' || $type || vicav:get_project_db())/tei:teiCorpus/tei:TEI/tei:text/tei:body/tei:div[@type="sampleText"]/tei:p/tei:s//tei:w/tei:fs/tei:f[@name="wordform"]/text()
         return replace(normalize-space($w), '[\s&#160;]', '')
@@ -1489,6 +1514,11 @@ function vicav:get_sample_words($type as xs:string*) {
         </word>
     
     return
+    if (matches($accept-header, '[+/]json'))
+    then let $renderedJson := xslt:transform(<_>{$out}</_>,
+        'xslt/data_words-json.xslt')
+        return serialize($renderedJson, map {"method": "json"})
+    else 
         (web:response-header(map {'method': 'xml'}, map:merge((cors:header(()), vicav:return_content_header()))),
         <words>{$out}</words>)
 };
diff --git a/xslt/data_words-json.xslt b/xslt/data_words-json.xslt
new file mode 100644
index 00000000..921120ea
--- /dev/null
+++ b/xslt/data_words-json.xslt
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+    xmlns:xd="http://www.oxygenxml.com/ns/doc/xsl"
+    xmlns:_="urn:_"
+    xmlns:xs="http://www.w3.org/2001/XMLSchema"
+    xmlns:err="http://www.w3.org/2005/xqt-errors"
+    exclude-result-prefixes="xd _ xs err"
+    version="3.1">
+    <xd:doc scope="stylesheet">
+        <xd:desc>
+            <xd:p><xd:b>Created on:</xd:b> May 9, 2024</xd:p>
+            <xd:p><xd:b>Author:</xd:b>Maura Zsofia Abraham</xd:p>
+            <xd:p></xd:p>
+        </xd:desc>
+    </xd:doc>
+        
+    <xsl:template match="/">
+        <json arrays="json">
+          <xsl:apply-templates select=".//word"/>
+        </json>
+    </xsl:template>
+
+    <xd:doc>
+        <xd:desc>One word</xd:desc>
+    </xd:doc>
+    <xsl:template match="word">
+        <_ type="string">
+            <xsl:value-of select="."/>
+        </_>
+    </xsl:template>
+</xsl:stylesheet>
\ No newline at end of file
diff --git a/xslt/feature_labels-json.xslt b/xslt/feature_labels-json.xslt
new file mode 100644
index 00000000..6e7d90c4
--- /dev/null
+++ b/xslt/feature_labels-json.xslt
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+    xmlns:xd="http://www.oxygenxml.com/ns/doc/xsl"
+    xmlns:_="urn:_"
+    xmlns:xs="http://www.w3.org/2001/XMLSchema"
+    xmlns:err="http://www.w3.org/2005/xqt-errors"
+    exclude-result-prefixes="xd _ xs err"
+    version="3.1">
+    <xd:doc scope="stylesheet">
+        <xd:desc>
+            <xd:p><xd:b>Created on:</xd:b> May 9, 2024</xd:p>
+            <xd:p><xd:b>Author:</xd:b>Maura Zsofia Abraham</xd:p>
+            <xd:p></xd:p>
+        </xd:desc>
+    </xd:doc>
+        
+    <xsl:template match="/">
+        <json arrays="json">
+          <xsl:apply-templates select=".//feature"/>
+        </json>
+    </xsl:template>
+
+    <xd:doc>
+        <xd:desc>One marker</xd:desc>
+    </xd:doc>
+    <xsl:template match="feature">
+        <_ type="object">
+            <value><xsl:value-of select="@ana" /></value>
+            <label><xsl:value-of select="."/></label>
+        </_>
+    </xsl:template>
+</xsl:stylesheet>
\ No newline at end of file