morpheme '->entry@morpheme/canonical))
(ja-form (concord-object-get morpheme 'ja-form))
(ja-kana (concord-object-get morpheme 'ja-kana))
- (ja-conj-type (concord-object-get morpheme 'ja-conjugation-type)))
+ (ja-conj-type (concord-object-get morpheme 'ja-conjugation-type))
+ (name (concord-object-get morpheme '=name))
+ comment)
(when entry
(setq entry (concord-object-get (car entry) '=name)))
(when word-class
(if canonical-form
(concord-object-get (car canonical-form) '=name)
entry))
+ (setq comment
+ (and name
+ (nth 1 (split-string name "\t;\\s "))))
(insert
- (format "%s\t%s,%s,%s,%s,%s,*,%s,%s,%s,%s\n"
+ (format "%s\t%s,%s,%s,%s,%s,*,%s,%s,%s,%s%s\n"
(or entry "*")
(or (car word-class) "*")
(or (nth 1 word-class) "*")
(or (nth 3 word-class) "*")
(or (nth 4 word-class) "*")
(or canonical-form "*")
- ja-form ja-kana ja-conj-type))))
+ ja-form ja-kana ja-conj-type
+ (if comment
+ (format "\t; %s" comment)
+ "")))))
(defun concord-kanbun-dump-file (source dest-dir)
(with-temp-buffer