Changeset 7608 for lang/perl/Text-MeCab

Show
Ignore:
Timestamp:
03/07/08 10:01:56 (7 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:
2 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Text-MeCab/trunk/text-mecab.h

    r7570 r7608  
    2424 
    2525#define XS_STRUCT2OBJ(sv, class, obj) \ 
    26         sv_setref_pv(sv, class, (void *) obj); 
     26    if (obj == NULL) { \ 
     27        sv_setsv(sv, &PL_sv_undef); \ 
     28    } else { \ 
     29        sv_setref_pv(sv, class, (void *) obj); \ 
     30    } 
    2731 
    2832typedef mecab_t      TextMeCab; 
  • lang/perl/Text-MeCab/trunk/typemap

    r4114 r7608  
    1616OUTPUT 
    1717T_MECAB 
    18         if ($var == NULL) { 
    19             sv_setsv($arg, &PL_sv_undef); 
    20         } else { 
    21             XS_STRUCT2OBJ($arg, "Text::MeCab", $var); 
    22         } 
     18        XS_STRUCT2OBJ($arg, "Text::MeCab", $var); 
    2319 
    2420T_MECAB_NODE 
    25         if ($var == NULL) { 
    26             sv_setsv($arg, &PL_sv_undef); 
    27         } else { 
    28             XS_STRUCT2OBJ($arg, "Text::MeCab::Node", $var); 
    29         } 
     21        XS_STRUCT2OBJ($arg, "Text::MeCab::Node", $var); 
    3022 
    3123T_MECAB_NODE_CLONE 
    32         if ($var == NULL) { 
    33             sv_setsv($arg, &PL_sv_undef); 
    34         } else { 
    35             XS_STRUCT2OBJ($arg, "Text::MeCab::Node::Cloned", $var); 
    36         } 
     24        XS_STRUCT2OBJ($arg, "Text::MeCab::Node::Cloned", $var); 
    3725 
    3826