Changeset 89 for lang/gauche/cabocha-gauche-0.60pre4/cabocha.c

Timestamp:

03/19/09 08:01:04 (17 years ago)

Author:

naoya_t

Message:

cabocha: +tree +token +chunk

Files:

• lang/gauche/cabocha-gauche-0.60pre4/cabocha.c (modified) (3 diffs)

lang/gauche/cabocha-gauche-0.60pre4/cabocha.c

@@ -9 +9 @@
 #include <gauche/extend.h>
 
+#include <mecab.h>
+#include "mecab.h"
 #include <cabocha.h>
 #include "cabocha.h"
@@ -25 +27 @@
 }
 
+// cabocha_tree_t
+cabocha_tree_t* unwrap_cabocha_tree_t(ScmObj obj)
+{
+  return SCM_CABOCHA_TREE(obj)->ctree;
+}
+ScmObj wrap_cabocha_tree_t(cabocha_tree_t *ctree)
+{
+  ScmCaboChaTree *obj = SCM_NEW(ScmCaboChaTree);
+  SCM_SET_CLASS(obj, SCM_CLASS_CABOCHA_TREE);
+  obj->ctree = ctree;
+  return SCM_OBJ(obj);
+}
+
+// cabocha_chunk_t
+cabocha_chunk_t* unwrap_cabocha_chunk_t(ScmObj obj)
+{
+  return SCM_CABOCHA_CHUNK(obj)->cchunk;
+}
+ScmObj wrap_cabocha_chunk_t(cabocha_chunk_t *cchunk)
+{
+  ScmCaboChaChunk *obj = SCM_NEW(ScmCaboChaChunk);
+  SCM_SET_CLASS(obj, SCM_CLASS_CABOCHA_CHUNK);
+  obj->cchunk = cchunk;
+  return SCM_OBJ(obj);
+}
+
+// cabocha_token_t
+cabocha_token_t* unwrap_cabocha_token_t(ScmObj obj)
+{
+  return SCM_CABOCHA_TOKEN(obj)->ctok;
+}
+ScmObj wrap_cabocha_token_t(cabocha_token_t *ctok)
+{
+  ScmCaboChaToken *obj = SCM_NEW(ScmCaboChaToken);
+  SCM_SET_CLASS(obj, SCM_CLASS_CABOCHA_TOKEN);
+  obj->ctok = ctok;
+  return SCM_OBJ(obj);
+}
+
+/* mecab_node_t */
+const mecab_node_t* unwrap_mecab_node_t(ScmObj obj)
+{
+  return SCM_MECAB_NODE(obj)->mn;
+}
+ScmObj wrap_mecab_node_t(const mecab_node_t *mn)
+{
+  ScmMeCabNode *obj = SCM_NEW(ScmMeCabNode);
+  SCM_SET_CLASS(obj, SCM_CLASS_MECAB_NODE);
+  obj->mn = mn;
+  return SCM_OBJ(obj);
+}
 
 /* APIs with (int argc, char **argv) */
@@ -67 +120 @@
 }
 
+ScmObj Scm_MakeStringList(const char **strs, int size)
+{
+  if (size==0) return SCM_NIL;
+  ScmObj p = Scm_Cons(SCM_MAKE_STR_COPYING(strs[size-1]),SCM_NIL);
+  for (int i=size-2; i>=0; i--) {
+    p = Scm_Cons(SCM_MAKE_STR_COPYING(strs[i]), p);
+  }
+  return p;
+}
+
 /*
  * Module initialization function.