Revision 88, 0.6 kB
(checked in by naoya_t, 16 years ago)
|
cabocha-gauche: added signature
|
Line | |
---|
1 | ;;; |
---|
2 | ;;; cabocha |
---|
3 | ;;; |
---|
4 | ;;; 2009.3.15 by naoya_t |
---|
5 | ;;; |
---|
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 | |
---|