root/lang/gauche/cabocha-gauche-0.60pre4/cabocha.scm @ 88

;;;
;;; cabocha
;;;
;;;  2009.3.15 by naoya_t
;;;

(define-module cabocha
  (export <cabocha>
                  cabocha?
                  cabocha-new cabocha-new2
                  cabocha-destroy
                  cabocha-destroyed?

                  cabocha-sparse-tostr cabocha-sparse-tostr2
                  cabocha-strerror
          ))

(select-module cabocha)

;; Loads extension
(dynamic-load "cabocha")

;;
;; Put your Scheme definitions here
;;
(define-macro (cabocha? obj) `(is-a? ,obj <cabocha>))

(define-method write-object ((m <cabocha>) out)
  (format out "#<cabocha>"))

(define-reader-ctor '<cabocha>
  (lambda args (apply cabocha-new args)))


;; Epilogue
(provide "cabocha")