=ucs@unicode
=ucs@JP/hanazono
=gb12345
+ =ucs@cns
=zinbun-oracle =>zinbun-oracle
=daikanwa
=ruimoku-v6
==gt
==cns11643-1 ==cns11643-2 ==cns11643-3
==cns11643-4 ==cns11643-5 ==cns11643-6 ==cns11643-7
+ ==jis-x0212
==ucs@cns
- ==gt-k
==koseki
+ ==daikanwa
+ ==gt-k
==ucs@JP/hanazono
- ==shinjigen
- ==shinjigen@rev
- ==daikanwa/+p
=>>jis-x0208 =>>jis-x0213-1 =>>jis-x0213-2
=+>jis-x0208 =+>jis-x0213-1 =+>jis-x0213-2
=+>hanyo-denshi/jt
===gt
===gt-k
===ucs@ks
+ ===ucs@gb
+ =shinjigen
+ =shinjigen@1ed
+ =shinjigen/+p@rev
+ ==shinjigen
+ ==shinjigen@rev
+ ==daikanwa/+p
===daikanwa/+p
+ =>daikanwa/ho
===daikanwa/ho
))
(defun chise-turtle-encode-char (object)
(let ((ccs-list est-coded-charset-priority-list)
- ccs ret)
+ ccs ret ret2)
(if (setq ret (encode-char object '=ucs))
(chise-turtle-format-ccs-code-point '=ucs ret)
(while (and ccs-list
(setq ret (encode-char object ccs)))
(chise-turtle-format-ccs-code-point ccs ret)
)
+ ((setq ret (get-char-attribute object 'ideographic-combination))
+ (format "ideocomb:%s"
+ (mapconcat (lambda (cell)
+ (cond ((characterp cell)
+ (char-to-string cell)
+ )
+ ((setq ret2 (find-char cell))
+ (char-to-string ret2)
+ )
+ (t
+ (format "%S" cell)
+ )))
+ ret ""))
+ )
(t
(format (if est-hide-cgi-mode
"system-char-id=0x%X"
(defun char-db-turtle-insert-source-list (value &optional readable)
(let (lbs separator rest cell al cal key ret)
- (setq lbs (concat "\n" (make-string (current-column) ?\ ))
+ (setq lbs (concat " ,\n" (make-string (current-column) ?\ ))
separator nil)
(while (consp value)
(setq cell (car value))
(setq separator (format " ,%s" lbs)))
(if (characterp cell)
(insert (format "%-20s" (chise-turtle-encode-char cell)))
- (char-db-turtle-insert-char-ref cell 'ideographic-combination))
+ (char-db-turtle-insert-char-ref cell '<-formed))
(setq value (cdr value)))
nil))
)
((or (eq feature-name-base 'ideographic-combination)
(eq feature-name-base '=decomposition)
+ (eq feature-name-base '<-formed)
(string-match "^\\(->\\|<-\\)[^*]*$" (symbol-name feature-name-base)))
(char-db-turtle-insert-relations value readable)
)
@prefix chisegg: <http://rdf.chise.org/rdf/type/character/ggg/> .
@prefix domain: <http://rdf.chise.org/data/domain/> .
@prefix script: <http://rdf.chise.org/data/script/> .
+@prefix ideocomb: <http://rdf.chise.org/data/character/ideo/combination/> .
@prefix chisebib: <http://rdf.chise.org/data/bibliography/> .
@prefix ruimoku: <http://www.chise.org/est/view/article@ruimoku/rep.id=/> .
@prefix zob1959: <http://chise.zinbun.kyoto-u.ac.jp/koukotsu/rubbings/> .