#148 #146 - dns:supersense -> wn:lexfile

kuhumcst · Nov 29, 2024 · 388b430 · 388b430
1 parent e203b0d
commit 388b430
Show file tree

Hide file tree

Showing 3 changed files with 22 additions and 3 deletions.
diff --git a/src/main/dk/cst/dannet/db/bootstrap.clj b/src/main/dk/cst/dannet/db/bootstrap.clj
@@ -249,6 +249,22 @@
       (println "... adding" (count triples-to-add) "supersenses")
       (db/safe-add! g triples-to-add))))
 
+(defn rename-supersense->lexfile!
+  [dataset]
+  (let [g              (db/get-graph dataset prefix/dn-uri)
+        model          (db/get-model dataset prefix/dn-uri)
+        ms             (q/run g '[:bgp
+                                  [?synset :dns/supersense ?supersense]])
+        triples-to-add (map (fn [{:syms [?synset ?supersense]}]
+                              [?synset :wn/lexfile ?supersense])
+                            ms)]
+    (txn/transact-exec model
+      (println "... removing" (count ms) "supersense rels")
+      (db/remove! model '[_ :dns/supersense _]))
+    (txn/transact-exec g
+      (println "... adding" (count triples-to-add) "lexfile rels")
+      (db/safe-add! g triples-to-add))))
+
 (defn fix-verb-creation-supersenses!
   [dataset]
   (let [g                 (db/get-graph dataset prefix/dn-uri)

diff --git a/src/main/dk/cst/dannet/web/resources.clj b/src/main/dk/cst/dannet/web/resources.clj
@@ -633,8 +633,7 @@
 
   ;; Test for existence of duplicate ontotypes
   (->> (q/run (:graph @db) '[:bgp
-                             [?s1 :dns/ontologicalType ?o1]
-                             [?s1 :dns/ontologicalType ?o2]])
+                             [?synset :dns/supersense ?supersense]])
        (filter (fn [{:syms [?o1 ?o2]}] (not= ?o1 ?o2))))
 
   ;; 51 cases of true duplicates
@@ -664,6 +663,8 @@
   ;; Find unlabeled senses (count: 0)
   (count (q/run (:graph @db) op/unlabeled-senses))
 
+  (dk.cst.dannet.db.bootstrap/rename-supersense->lexfile! (:dataset @db))
+
   ;; Testing autocompletion
   (autocomplete* "sar")
   (autocomplete* "spo")

diff --git a/src/main/dk/cst/dannet/web/section.cljc b/src/main/dk/cst/dannet/web/section.cljc
@@ -21,8 +21,9 @@
          :lexinfo/partOfSpeech
          :wn/partOfSpeech
          :dns/sentiment
-         :dns/ontologicalType
          :skos/definition
+         :wn/lexfile
+         :dns/ontologicalType
          :wn/definition
          :rdfs/comment
          :lexinfo/senseExample
@@ -33,6 +34,7 @@
    [semantic-title
     (some-fn (prefix/with-prefix 'wn :except #{:wn/partOfSpeech
                                                :wn/definition
+                                               :wn/lexfile
                                                :wn/example})
              (comp #{:dns/usedFor
                      :dns/usedForObject