Re: [SEMI-OT] perl_tie_hash valid reference?

2003-06-23 Thread Philippe M. Chiasson 
On Wed, 2003-06-18 at 11:48, dorian wrote:
 greetings all,
 
 i was wondering if anyone could tell me if the function perl_tie_hash
 in perl_util.c in the mod_perl 1.27 source could be considered
 usual reference material for binding a table-like object to a
 hash(ref) in XS? if not, perchance someone could point me at some
 literature (or source) on the subject?

Yes, or even more authoritative example can be found in man perlguts
SV *mytie() {
   HV *hash;
   HV *stash;
   SV *tie;
   hash = newHV();
   tie = newRV_noinc((SV*)newHV());
   stash = gv_stashpv(MyTie, TRUE);
   sv_bless(tie, stash);
   hv_magic(hash, (GV*)tie, PERL_MAGIC_tied);
   newRV_noinc(hash);
   return hash;
}


 thanks in advance,
 
 .dorian
-- 

Philippe M. Chiasson /gozer\@(cpan|ectoplasm)\.org/ 88C3A5A5 (122FF51B/C634E37B)
http://gozer.ectoplasm.org/F9BF E0C2 480E 7680 1AE5 3631 CB32 A107 88C3 A5A5
Q: It is impossible to make anything foolproof because fools are so ingenious.
perl -e'$$=\${gozer};{$_=unpack(P7,pack(L,$$));/^JAm_pH\n$/print||$$++redo}'



signature.asc
Description: This is a digitally signed message part

[SEMI-OT] perl_tie_hash valid reference?

2003-06-17 Thread dorian 
greetings all,

i was wondering if anyone could tell me if the function perl_tie_hash
in perl_util.c in the mod_perl 1.27 source could be considered
usual reference material for binding a table-like object to a
hash(ref) in XS? if not, perchance someone could point me at some
literature (or source) on the subject?

thanks in advance,

.dorian