Revision 88, 1.0 kB
(checked in by naoya_t, 16 years ago)
|
cabocha-gauche: added signature
|
Rev | Line | |
---|
[86] | 1 | /* |
---|
| 2 | * cabocha.h |
---|
[88] | 3 | * |
---|
| 4 | * 2009.3.15 by naoya_t |
---|
| 5 | * |
---|
[86] | 6 | */ |
---|
| 7 | |
---|
| 8 | /* Prologue */ |
---|
| 9 | #ifndef GAUCHE_CABOCHA_H |
---|
| 10 | #define GAUCHE_CABOCHA_H |
---|
| 11 | |
---|
| 12 | #include <gauche.h> |
---|
| 13 | #include <gauche/extend.h> |
---|
| 14 | |
---|
| 15 | SCM_DECL_BEGIN |
---|
| 16 | |
---|
| 17 | /* CaboCha_t wrapper */ |
---|
| 18 | typedef struct ScmCaboChaRec { |
---|
| 19 | SCM_HEADER; |
---|
| 20 | cabocha_t *c; /* NULL if closed */ |
---|
| 21 | } ScmCaboCha; |
---|
| 22 | SCM_CLASS_DECL(Scm_CaboChaClass); |
---|
| 23 | #define SCM_CLASS_CABOCHA (&Scm_CaboChaClass) |
---|
| 24 | #define SCM_CABOCHA(obj) ((ScmCaboCha*)(obj)) |
---|
| 25 | #define SCM_CABOCHAP(obj) (SCM_XTYPEP(obj, SCM_CLASS_CABOCHA)) |
---|
| 26 | extern cabocha_t* unwrap_cabocha_t(ScmObj obj); |
---|
| 27 | extern ScmObj wrap_cabocha_t(cabocha_t *m); |
---|
| 28 | |
---|
| 29 | /* APIs with (int argc, char **argv) */ |
---|
| 30 | typedef cabocha_t *(*cabocha_func_with_args)(int argc, char **argv); |
---|
| 31 | typedef int (*int_func_with_args)(int argc, char **argv); |
---|
| 32 | extern cabocha_t *cabocha_call_cabocha_func(cabocha_func_with_args fn, ScmObj args); |
---|
| 33 | extern int cabocha_call_int_func(int_func_with_args fn, ScmObj args); |
---|
| 34 | |
---|
| 35 | /* Epilogue */ |
---|
| 36 | SCM_DECL_END |
---|
| 37 | |
---|
| 38 | #endif /* GAUCHE_CABOCHA_H */ |
---|