Changeset 7608 for lang/perl/Text-MeCab

Timestamp:

03/07/08 10:01:56 (5 years ago)

Author:

daisuke

Message:

lang/perl/Text-MeCab?; factor out the check for NULL into XS_STRUCT2OBJ

Location:

lang/perl/Text-MeCab/trunk

Files:

• text-mecab.h (modified) (1 diff)
• typemap (modified) (1 diff)

lang/perl/Text-MeCab/trunk/text-mecab.h

@@ -24 +24 @@
 
 #define XS_STRUCT2OBJ(sv, class, obj) \
-        sv_setref_pv(sv, class, (void *) obj);
+    if (obj == NULL) { \
+        sv_setsv(sv, &PL_sv_undef); \
+    } else { \
+        sv_setref_pv(sv, class, (void *) obj); \
+    }
 
 typedef mecab_t      TextMeCab;

lang/perl/Text-MeCab/trunk/typemap

@@ -16 +16 @@
 OUTPUT
 T_MECAB
-        if ($var == NULL) {
-            sv_setsv($arg, &PL_sv_undef);
-        } else {
-            XS_STRUCT2OBJ($arg, "Text::MeCab", $var);
-        }
+        XS_STRUCT2OBJ($arg, "Text::MeCab", $var);
 
 T_MECAB_NODE
-        if ($var == NULL) {
-            sv_setsv($arg, &PL_sv_undef);
-        } else {
-            XS_STRUCT2OBJ($arg, "Text::MeCab::Node", $var);
-        }
+        XS_STRUCT2OBJ($arg, "Text::MeCab::Node", $var);
 
 T_MECAB_NODE_CLONE
-        if ($var == NULL) {
-            sv_setsv($arg, &PL_sv_undef);
-        } else {
-            XS_STRUCT2OBJ($arg, "Text::MeCab::Node::Cloned", $var);
-        }
+        XS_STRUCT2OBJ($arg, "Text::MeCab::Node::Cloned", $var);