Hello,
I have been unsuccessful in getting the piddle values when I store them
in a hash so, I am asking to the list.
This works OK:
test_pdl (array)
pdl *array
CODE:
PDL -> converttype (&array, PDL_D, 1) ;
when I do: test_pdl ($piddle) ;
but when I do:
%hash {"A"} = $piddle ;
test_pdl (\%hash) ;
and
test_h (hash)
HV *hash
HE *he ;
pdl *p_pdl ;
CODE:
if (hv_exists_ent (hash, "A", 0)) {
he = hv_fetch_ent (hash, "A", 0, FALSE) ;
if (he) {
if (SvTYPE (HeVAL (he)) == SVt_RV) {
p_pdl = (pdl*) newRV_inc (SvRV (HeVAL (he))) ;
or
p_pdl = (pdl*) SvRV (HeVAL (he)) ;
PDL -> converttype (&p_pdl, PDL_D, 1) ;
}
}
}
What would the way of doing ?
Thank for your help.
---
==========================================================================
Patrick DUPRÉ | |
Department of Chemistry | | Phone: (44)-(0)-1904-434384
The University of York | | Fax: (44)-(0)-1904-432516
Heslington | |
York YO10 5DD United Kingdom | | email: pd520@york.ac.uk
==========================================================================
|