Changeset 172 for trunk/src/xml/rdf

Timestamp:

12/12/09 00:29:01 (15 years ago)

Author:

lgiessmann

Message:

added some more beauty to the xtm-importers in the reification-sections :-)

File:

• trunk/src/xml/rdf/importer.lisp (modified) (5 diffs)

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

@@ -355 +355 @@
                            (list :instance-of role-type-2
                                  :player sub-top))))
-        ;(when reifier-id
-          ;(make-reification reifier-id sub-top super-top
-        ;                   assoc-type start-revision tm
-        ;                   :document-id document-id))
         (let ((assoc
                (add-to-topicmap
@@ -400 +396 @@
                            (list :instance-of roletype-2
                                  :player instance-top))))
-        ;(when reifier-id
-        ;  (make-reification reifier-id instance-top type-top
-        ;                   assoc-type start-revision tm
-        ;                   :document-id document-id))
         (let ((assoc
                (add-to-topicmap
@@ -510 +502 @@
                            (list :instance-of role-type-2
                                  :player top))))
-          ;(when ID
-          ;  (make-reification ID top player-1 type-top start-revision
-        ;                     tm :document-id document-id))
           (let ((assoc
                  (add-to-topicmap tm (make-construct 'AssociationC
@@ -560 +549 @@
                                         :document-id document-id)))
     (add-reifier reifiable-construct reifier-topic)))
-
-;(defun make-reification (reifier-id subject object predicate start-revision tm
-;                        &key document-id)
-;  "Creates a reification construct."
-;  (declare (string reifier-id))
-;  (declare ((or OccurrenceC TopicC) object))
-;  (declare (TopicC subject predicate))
-;  (declare (TopicMapC tm))
-;  (elephant:ensure-transaction (:txn-nosync t)
-;    (let ((reifier (make-topic-stub reifier-id nil nil nil start-revision tm
-;                                   :document-id document-id))
-;         (predicate-arc (make-topic-stub *rdf-predicate* nil nil nil
-;                                         start-revision
-;                                         tm :document-id document-id))
-;         (object-arc (make-topic-stub *rdf-object* nil nil nil start-revision
-;                                      tm :document-id document-id))
-;         (subject-arc (make-topic-stub *rdf-subject* nil nil nil
-;                                       start-revision
-;                                       tm :document-id document-id))
-;         (statement (make-topic-stub *rdf-statement* nil nil nil start-revision
-;                                     tm :document-id document-id)))
-;      (make-instance-of-association reifier statement nil start-revision tm
-;                                   :document-id document-id)
-;      (make-association-with-nodes reifier subject subject-arc tm
-;                                  start-revision :document-id document-id)
-;      (make-association-with-nodes reifier predicate predicate-arc
-;                                  tm start-revision :document-id document-id)
-;      (if (typep object 'd:TopicC)
-;         (make-association-with-nodes reifier object object-arc
-;                                      tm start-revision
-;                                      :document-id document-id)
-;         (make-construct 'd:OccurrenceC
-;                         :start-revision start-revision
-;                         :topic reifier
-;                         :themes (themes object)
-;                         :instance-of (instance-of object)
-;                         :charvalue (charvalue object)
-;                         :datatype (datatype object))))))
 
 
@@ -629 +580 @@
                                  :datatype datatype)))
             (when ID
-              ;(make-reification ID top occurrence type-top start-revision
-        ;                       xml-importer::tm :document-id document-id))
               (make-reification ID occurrence start-revision xml-importer::tm
                                 :document-id document-id))