__UNDEFINED__

/* concatenating with "" ensures that only literal strings are accepted as argument * note that STR_WITH_LEN() can't be used as argument to macros or functions that * under some configurations might be macros */

__UNDEFINED__ STR_WITH_LEN(s) (s ""), (sizeof(s)-1)

__UNDEFINED__ newSVpvs(str) newSVpvn(str "", sizeof(str) - 1) __UNDEFINED__ sv_catpvs(sv, str) sv_catpvn(sv, str "", sizeof(str) - 1) __UNDEFINED__ sv_setpvs(sv, str) sv_setpvn(sv, str "", sizeof(str) - 1) __UNDEFINED__ hv_fetchs(hv, key, lval) hv_fetch(hv, key "", sizeof(key) - 1, lval) __UNDEFINED__ hv_stores(hv, key, val) hv_store(hv, key "", sizeof(key) - 1, val, 0)

void newSVpvs() PPCODE: XPUSHs(newSVpvs("newSVpvs")); XSRETURN(1);

void sv_catpvs(sv) SV *sv PPCODE: sv_catpvs(sv, "sv_catpvs");

void sv_setpvs(sv) SV *sv PPCODE: sv_setpvs(sv, "sv_setpvs");

void hv_fetchs(hv) SV *hv PREINIT: SV **s; PPCODE: s = hv_fetchs((HV *) SvRV(hv), "hv_fetchs", 0); XPUSHs(sv_mortalcopy(*s)); XSRETURN(1);

void hv_stores(hv, sv) SV *hv SV *sv PPCODE: hv_stores((HV *) SvRV(hv), "hv_stores", SvREFCNT_inc(sv));

my $x = 'foo';

ok(Devel::PPPort::newSVpvs(), "newSVpvs");

Devel::PPPort::sv_catpvs($x); ok($x, "foosv_catpvs");

Devel::PPPort::sv_setpvs($x); ok($x, "sv_setpvs");

my %h = ('hv_fetchs' => 42); Devel::PPPort::hv_stores(\%h, 4711); ok(scalar keys %h, 2); ok(exists $h{'hv_stores'}); ok($h{'hv_stores'}, 4711); ok(Devel::PPPort::hv_fetchs(\%h), 42);