C++ (Cpp) sv_2pv_flagsの例

コード例 #1

ファイル: mathoms.c プロジェクト: evalEmpire/piledriver

char *
Perl_sv_2pv(pTHX_ SV *sv, STRLEN *lp)
{
    PERL_ARGS_ASSERT_SV_2PV;

    return sv_2pv_flags(sv, lp, SV_GMAGIC);
}

コード例 #2

ファイル: mathoms.c プロジェクト: evalEmpire/piledriver

char *
Perl_sv_pvn_nomg(pTHX_ SV *sv, STRLEN *lp)
{
    PERL_ARGS_ASSERT_SV_PVN_NOMG;

    if (SvPOK(sv)) {
        *lp = SvCUR(sv);
        return SvPVX(sv);
    }
    return sv_2pv_flags(sv, lp, 0);
}

コード例 #3

ファイル: sv_nw.c プロジェクト: 1310701102/sl4a

char *
Perl_sv_2pv(pTHX_ register SV *sv, STRLEN *lp)
{
    return sv_2pv_flags(sv, lp, SV_GMAGIC);
}