Changeset 85 for lang

Timestamp:

03/13/09 14:32:45 (15 years ago)

Author:

naoya_t

Message:

removed commented-out lines

Location:

lang/gauche/mecab-gauche-0.98pre1

Files:

• mecab.c (modified) (3 diffs)
• mecablib.stub (modified) (1 diff)

lang/gauche/mecab-gauche-0.98pre1/mecab.c

@@ -12 +12 @@
 #include "mecab.h"
 
-//ScmClass *Scm_MeCabClass;
 // mecab_t
 mecab_t* unwrap_mecab_t(ScmObj obj)
@@ -94 +93 @@
 
 /*
-static void MeCab_print(ScmObj obj, ScmPort *out, ScmWriteContext *ctx)
-{
-  ScmMeCab *m = SCM_MECAB(obj);//SCM_MECAB_UNBOX(obj);
-  //  const char *queue_name = q->getName().c_str();
-  Scm_Printf(out, "#<<mecab> 0x%x>", m->m);
-}
-
-static void MeCab_cleanup(ScmObj obj)
-{
-  ScmMeCab *m = SCM_MECAB(obj);
-  if (m->m) {
-    mecab_destroy(m->m);
-    m->m = NULL;
-  }
-}
-*/
-
-/*
  * Module initialization function.
  */
@@ -125 +106 @@
     /* Create the module if it doesn't exist yet. */
     mod = SCM_MODULE(SCM_FIND_MODULE("mecab", TRUE));
-    /*
-    Scm_MeCabClass =
-        Scm_MakeForeignPointerClass(mod, "<mecab>",
-                                    MeCab_print,
-                                    MeCab_cleanup,
-                                    SCM_FOREIGN_POINTER_KEEP_IDENTITY|SCM_FOREIGN_POINTER_MAP_NULL);
-    */
+
     /* Register stub-generated procedures */
     Scm_Init_mecablib(mod);

lang/gauche/mecab-gauche-0.98pre1/mecablib.stub

@@ -21 +21 @@
 (define-type <mecab-t> "mecab_t*" "mecab_t"
   "SCM_MECABP" "unwrap_mecab_t" "wrap_mecab_t")
-;(define-type <mecab_node_t> "mecab_node_t*" "mecab_node_t"
-;  "SCM_MECABP" "unwrap_mecab_node_t" "wrap_mecab_node_t")
 (define-type <const-mecab-node-t> "const mecab_node_t*" "const mecab_node_t"
   "SCM_MECAB_NODEP" "unwrap_mecab_node_t" "wrap_mecab_node_t")