aboutsummaryrefslogtreecommitdiff
path: root/examples/dump-publication.scm
blob: 5b1af83df4b897df0b5daa33fe78da35e13394a3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
#! /usr/bin/env guile
!#

(use-modules (srfi srfi-1)
             (srfi srfi-26)
             (ice-9 match)
             (ice-9 regex)
             (dump strings)
             (dump sql)
             (dump triples)
             (dump special-forms))



(define %connection-settings
    (call-with-input-file (list-ref (command-line) 1)
			  read))



(define-dump dump-publication
  (tables (Publication))
  (triples
      (let ((pmid (field
                   ("IF(Publication.PubMed_ID IS NULL, '', CONVERT(Publication.PubMed_Id, INT))"
                    pmid)))
            (publication-id (field Publication Id)))
        (if (string-null? pmid)
            (string->identifier "unpublished"
                                (number->string publication-id))
            (ontology 'pubmed: pmid)))
    (set rdf:type 'fabio:ResearchPaper)
    (set fabio:hasPubMedId
         (ontology 'pubmed: (field ("IFNULL(PubMed_ID, '')" pubmedId))))
    (set dct:title (delete-substrings (field Publication Title)
                                      "Unknown"))
    (set fabio:Journal (delete-substrings (field Publication Journal)
                                          "Unknown"))
    (set prism:volume (delete-substrings (field Publication Volume)
                                                "Unknown"))
    (set fabio:page (delete-substrings (field Publication Pages)
                                       "Unknown"))
    (set prism:publicationDate (annotate-field
                                (delete-substrings (field Publication Month)
                                                   "Unknown")
                                '^^xsd:gMonth))
    (set fabio:hasPublicationYear
         (annotate-field
          (field
           ("IF(Publication.Year = 0, NULL, Publication.Year)" Year))
          '^^xsd:gYear))
    (multiset dct:creator
              ;; The authors field is a comma
              ;; separated list. Split it.
              (map string-trim (string-split (sanitize-rdf-string (field Publication Authors)) #\,)))
    (set dct:abstract
         (sanitize-rdf-string
          (field Publication Abstract)))))



(dump-with-documentation
 (name "Publications Metadata")
 (connection %connection-settings)
 (table-metadata? #f)
 (prefixes
  '(("gnt:" "<http://genenetwork.org/terms/>")
    ("fabio:" "<http://purl.org/spar/fabio/>")
    ("dct:" "<http://purl.org/dc/terms/>")
    ("prism:" "<http://prismstandard.org/namespaces/basic/2.0/>")
    ("gn:" "<http://genenetwork.org/id/>")
    ("gnc:" "<http://genenetwork.org/category/>")
    ("pubmed:" "<http://rdf.ncbi.nlm.nih.gov/pubmed/>")
    ("rdfs:" "<http://www.w3.org/2000/01/rdf-schema#>")
    ("xsd:" "<http://www.w3.org/2001/XMLSchema#>")
    ("rdf:" "<http://www.w3.org/1999/02/22-rdf-syntax-ns#>")))
 (inputs
  (list dump-publication))
 (outputs
  '(#:documentation "./docs/dump-publication.md"
    #:rdf "./verified-data/dump-publication.ttl")))