From 45662839565f6482e7f034a07ae373bbeaeb9713 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Wed, 14 Jan 2026 16:45:31 +0300 Subject: Add RDF end-points for resolving RDF urls. Signed-off-by: Munyoki Kilyungi --- web/webserver.scm | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) (limited to 'web') diff --git a/web/webserver.scm b/web/webserver.scm index 0c0bdd1..e2412d2 100644 --- a/web/webserver.scm +++ b/web/webserver.scm @@ -327,6 +327,31 @@ otherwise search for set/group data" #\n) (render-json (get-id-data (list->string name)))) (rest (render-json "NOP"))))) + ;; RDF End-points + (('GET "v1" "id" id) + (receive (sparql-header sparql-resp) + (sparql-http-get + (or (getenv "SPARQL-ENDPOINT") "http://localhost:8890/sparql/") + (sparql-by-term 'gn id)) + (list '((content-type text/html)) + (lambda (port) + (put-string port sparql-resp))))) + (('GET "v1" "category" category) + (receive (sparql-header sparql-resp) + (sparql-http-get + (or (getenv "SPARQL-ENDPOINT") "http://localhost:8890/sparql/") + (sparql-by-term 'gnc category)) + (list '((content-type text/html)) + (lambda (port) + (put-string port sparql-resp))))) + (('GET "v1" "term" term) + (receive (sparql-header sparql-resp) + (sparql-http-get + (or (getenv "SPARQL-ENDPOINT") "http://localhost:8890/sparql/") + (sparql-by-term 'gnt term)) + (list '((content-type text/html)) + (lambda (port) + (put-string port sparql-resp))))) (_ (not-found (request-uri request))))) (define (request-path-components request) -- cgit 1.4.1