From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 16 Dec 2019 10:54:59 +0000 (+0900)
Subject: (chise-turtle-uri-encode-feature-name): Use ":source-file" for
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=20074baec59a6d0e306530cdc232fa9371e50ab9;p=chise%2Ftomoyo-tools.git

(chise-turtle-uri-encode-feature-name): Use ":source-file" for
`*source-file'.
(concord-turtle-insert-list): Use `concord-turtle-encode-object' to
encode Concord-object.
---

diff --git a/concord-turtle-dump.el b/concord-turtle-dump.el
index cddfe03..e4023ae 100644
--- a/concord-turtle-dump.el
+++ b/concord-turtle-dump.el
@@ -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)