|
Revision 88, 1.0 kB
(checked in by naoya_t, 17 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 */ |
|---|
