Changeset 168 for trunk/src/xml

Timestamp:

12/10/09 14:44:47 (15 years ago)

Author:

lgiessmann

Message:

all topic-stubs of a fragment are exported explicitely if they do own more than one psi or another identifier

File:

• trunk/src/xml/rdf/exporter.lisp (modified) (2 diffs)

trunk/src/xml/rdf/exporter.lisp ¶

@@ -570 +570 @@
   "Exports TM-Fragments as RDF/XML data."
   (topic-to-rdf-elem (topic construct))
-  ;all stubs are exported implicitely by references of the topic or associations
+  (map 'list #'(lambda(top)
+                 (when (or (> (length (psis top)) 1)
+                           (item-identifiers top)
+                           (locators top))
+                   (topic-to-rdf-stub-elem top)))
+       (referenced-topics construct))
+  ;all other stubs are exported implicitely by references of the main topic or associations
   (map 'list #'to-rdf-elem (intersection (list-tm-associations) (associations construct))))
 
@@ -613 +619 @@
 
 
+(defun topic-to-rdf-stub-elem (construct)
+  "Exports a topic as a stub."
+  (declare (TopicC construct))
+  (cxml:with-element "rdf:Description"
+    (let ((psi (get-reifier-psi construct))
+          (ii (item-identifiers construct))
+          (sl (locators construct)))
+      (if psi
+          (if (reified construct)
+              (let ((reifier-uri (get-reifier-uri construct)))
+                (if reifier-uri
+                    (cxml:attribute "rdf:about" (concatenate 'string "#" (get-reifier-uri construct)))
+                    (cxml:attribute "rdf:about" (uri psi))))
+              (cxml:attribute "rdf:about" (uri psi)))
+          (cxml:attribute "rdf:nodeID" (make-object-id construct)))
+      (map 'list #'to-rdf-elem (remove psi (psis construct)))
+      (map 'list #'to-rdf-elem sl)
+      (map 'list #'to-rdf-elem ii))))
+
+
 (defgeneric to-rdf-string (construct)
   (:documentation "Prints the string representation of a Fragment element as RDF/XML"))