从XS访问存储在perl对象（祝福散列）中的值
我有一个像这样的perl对象（祝福哈希的引用）。
sub funcname {
#some code
}
my $o = My::Class->new();
$o->{internal_data} = &funcname; #I know it is not nice
$o->{internal_data}/* at some point in XS code */
SV *obj = ... /* $o value passed to a XS function */
SV *func;
...
/* here I do not know how to load $o->{internal_data} value into func */
...
call_sv(func,G_SCALAR);
没有找到相关结果
已邀请:
2 个回复
枫湃揩乾纲
将从参考中获取哈希值（如），将其转换为，/将从哈希中获取。SV* self; SV* obj_sv; HV* obj_hv; SV** callback_ptr; SV* callback; self = ...; SvGETMAGIC(self); if (!SvROK(self)) croak("Not a reference"); obj_sv = SvRV(self); if (SvTYPE(obj_sv) != SVt_PVHV) croak("Not a reference to a hash"); obj_hv = MUTABLE_HV(obj_sv); callback_ptr = hv_fetchs(obj_hv, "internal_data", 0); if (!callback_ptr) croak("Malformed object"); callback = *callback_ptr;断跑胺弄萎