Commit 52535317 authored by MORIOKA Tomohiko's avatar MORIOKA Tomohiko
Browse files

(chise-json-char-get-info): Modify format to indicate children:

- Use char-info format for `denotation' and `subsume' even if number
  of children >= 5.
- Use char-ref format for `unified-in-usage' and
  `unified-as-component' (or other domains to indicate children).
parent 58347c08
......@@ -2253,7 +2253,7 @@
radical-strokes-spec
sound-spec
id
ret i
ret i flag
node-id
anno-id
domain code
......@@ -2287,12 +2287,16 @@
(dolist (cell (sort children-spec
(lambda (a b)
(chise-json-normalized-feature< b a))))
(setq flag nil)
(setq ret (cdr (assq 'body (cdr cell))))
(setq dest
(cons
(cons (cond
((equal (car cell) '(->denotational))
(setq flag t)
'denotation)
((equal (car cell) '(->subsumptive))
(setq flag t)
'subsume)
((equal (car cell) '(->denotational . usage))
'unified-in-usage)
......@@ -2302,7 +2306,7 @@
(caar cell))
(t
(format "%s@%s" (caar cell)(cdar cell))))
(if (< (length (setq ret (cdr (assq 'body (cdr cell))))) 5)
(if flag
(mapvector (lambda (item)
(chise-json-char-get-info
(cdr (assq 'body item))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment