mecab

MeCab wrapper for chicken scheme.

install

git clone https://github.com/h8gi/mecab-chicken
cd mecab-chicken
chicken-install -s
csi
(use mecab)

usage

[procedure] (mecab-new #!optional (args "")) => mecab

[procedure] (mecab-parse mecab str #!optional (type 'node)) => result type = ‘node | ‘string

[procedure] (mecab-nbest-init mecab str)

example

(use mecab)
(let* ([mecab (mecab-new)]
       [input "腹が減って上手く動けない。"])
  (printf "INPUT: ~A~%" input)
  (printf "OUTPUT: ~%~A~%" (mecab-sparse->string mecab input))
  (mecab-check mecab))

(let* ([mecab (mecab-new)]
       [input "ご飯を食べたら体調が良くなった。"]
       [node (mecab-sparse->node mecab input)])
  (printf "INPUT: ~A~%" input)
  (pp (node->list node))
  (mecab-check mecab))