in reply to XS N' void (*f) (void)
static SV * fp = (SV*) NULL; void call_funky() { dSP; if(fp == (SV*) NULL) return; PUSHMARK(SP); perl_call_sv(fp, G_DISCARD); } MODULE = sometin PACKAGE = somethin void funky(f) SV * f CODE: if (fp == (SV*)NULL) fp = newSVsv(f); else SvSetSV(fp, f);
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: XS N' void (*f) (void)
by tye (Sage) on Dec 23, 2000 at 03:15 UTC |