update.

[chise/tomoyo-tools.git] / concord-turtle-dump.el

diff --git a/concord-turtle-dump.el b/concord-turtle-dump.el
index 7449c94..6cf3684 100644 (file)
--- a/concord-turtle-dump.el
+++ b/concord-turtle-dump.el
@@ -1,6 +1,6 @@
 ;;; concord-turtle-dump.el --- Character Database utility -*- coding: utf-8-er; -*-
 
-;; Copyright (C) 2017,2018 MORIOKA Tomohiko.
+;; Copyright (C) 2017,2018,2019 MORIOKA Tomohiko.
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: CHISE, Character Database, RDF, Turtle, ISO/IEC 10646, UCS, Unicode, MULE.
@@ -251,6 +251,8 @@
     ":reference")
    ((eq '*instance feature-name)
     ":instance")
+   ((eq '*source-file feature-name)
+    ":source-file")
    (t
     (concat ":" (chise-turtle-uri-encode-ccs-name feature-name)))))
 
@@ -507,7 +509,9 @@
                                                 al
                                                 nil 'for-sub-node)
            (setq separator lbs))
-       (setq ret (prin1-to-string cell))
+       (setq ret (if (concord-object-p cell)
+                     (concord-turtle-encode-object cell)
+                   (prin1-to-string cell)))
        (if separator
            (if (< (+ (current-column)
                      (length ret)
@@ -650,6 +654,7 @@
         )
        ((or (eq feature-name-base 'ideographic-combination)
             (eq feature-name-base '*instance)
+            (eq feature-name-base 'abstract-glyph)
             (eq feature-name-base '<-formed)
             (string-match "^\\(->\\|<-\\)[^*]*$" (symbol-name feature-name-base)))
         (concord-turtle-insert-relations value readable)