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