X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fchiset.git;a=blobdiff_plain;f=char-db-turtle.el;h=e15d08b8225f39ba2b34e3d0a158673ea09d932d;hp=2b54d2aa4f20c25ef750539c59ffec0ed05e92ad;hb=HEAD;hpb=4a2d7b7156666b59ae69bceca453ed77f5f0e928

diff --git a/char-db-turtle.el b/char-db-turtle.el
index 2b54d2a..7334165 100644
--- a/char-db-turtle.el
+++ b/char-db-turtle.el
@@ -1,6 +1,6 @@
 ;;; char-db-turtle.el --- Character Database utility -*- coding: utf-8-er; -*-
 
-;; Copyright (C) 2017 MORIOKA Tomohiko.
+;; Copyright (C) 2017, 2018 MORIOKA Tomohiko.
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: CHISE, Character Database, RDF, Turtle, ISO/IEC 10646, UCS, Unicode, MULE.
@@ -103,6 +103,7 @@
     =>gt-k
     =>>ucs@iso =>>ucs@unicode
     =>>ucs@jis =>>ucs@cns =>>ucs@ks
+    =>>mj
     =>>gt-k
     =>>hanyo-denshi/ks
     ==mj
@@ -132,6 +133,7 @@
     ==ucs-itaiji-002
     ==ucs-itaiji-003
     ==ucs-itaiji-005
+    ==ucs-itaiji-006
     ==ucs-var-002
     ==ucs@JP/hanazono
     ==daikanwa/+2p
@@ -150,6 +152,7 @@
     =>ucs-itaiji-005
     =>ucs-itaiji-006
     =>ucs-itaiji-007
+    =>ucs-itaiji-001@iwds-1
     ==>ucs@bucs
     =big5
     =>cbeta
@@ -223,6 +226,8 @@
 		   "._.")
 		  ((eq c ?=)
 		   ".:.")
+		  ((eq c ?|)
+		   "._cmp_.")
 		  (t
 		   (char-to-string c))))
 	       (www-uri-encode-feature-name feature-name)
@@ -489,7 +494,7 @@
   )
 
 (defun char-db-turtle-insert-metadata (name value)
-  (let (col indent)
+  (let (col indent ret)
     (insert (format "%-7s " name))
     (cond
      ((or (eq name :sources)
@@ -502,6 +507,16 @@
 	(insert (format " ,\n%schisebib:%s" indent
 			(chise-turtle-uri-encode-ccs-name source))))
       nil)
+     ((eq name :references)
+      (setq ret (car value))
+      (setq ret (plist-get (nth 1 ret) :ref))
+      (setq col (current-column))
+      (setq indent (make-string col ?\ ))
+      (insert (format "<%s>" ret))
+      (dolist (refspec (cdr value))
+	(setq ret (plist-get (nth 1 refspec) :ref))
+	(insert (format " ,\n%s<%s>" indent ret)))
+      nil)
      (t
       (insert (format "%S" value))
       nil))))