Revision 88, 0.6 kB
(checked in by naoya_t, 16 years ago)
|
cabocha-gauche: added signature
|
Rev | Line | |
---|
[86] | 1 | ;;; |
---|
| 2 | ;;; cabocha |
---|
| 3 | ;;; |
---|
[88] | 4 | ;;; 2009.3.15 by naoya_t |
---|
| 5 | ;;; |
---|
[86] | 6 | |
---|
| 7 | (define-module cabocha |
---|
| 8 | (export <cabocha> |
---|
| 9 | cabocha? |
---|
| 10 | cabocha-new cabocha-new2 |
---|
| 11 | cabocha-destroy |
---|
| 12 | cabocha-destroyed? |
---|
| 13 | |
---|
| 14 | cabocha-sparse-tostr cabocha-sparse-tostr2 |
---|
| 15 | cabocha-strerror |
---|
| 16 | )) |
---|
| 17 | |
---|
| 18 | (select-module cabocha) |
---|
| 19 | |
---|
| 20 | ;; Loads extension |
---|
| 21 | (dynamic-load "cabocha") |
---|
| 22 | |
---|
| 23 | ;; |
---|
| 24 | ;; Put your Scheme definitions here |
---|
| 25 | ;; |
---|
| 26 | (define-macro (cabocha? obj) `(is-a? ,obj <cabocha>)) |
---|
| 27 | |
---|
| 28 | (define-method write-object ((m <cabocha>) out) |
---|
| 29 | (format out "#<cabocha>")) |
---|
| 30 | |
---|
| 31 | (define-reader-ctor '<cabocha> |
---|
| 32 | (lambda args (apply cabocha-new args))) |
---|
| 33 | |
---|
| 34 | |
---|
| 35 | ;; Epilogue |
---|
| 36 | (provide "cabocha") |
---|
| 37 | |
---|
| 38 | |
---|