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