Re: Encode from XS

[Dan Kogai]

On Saturday, Aug 9, 2003, at 00:08 Asia/Tokyo, Simon Cozens wrote:
This is sad and I ought to know the answer, but...

Can someone give me a few quick examples of creating Encode::XS objects
to do simple transcoding, from XS?
You should check the source of PerlIO::encoding 
(ext/PerlIO/encoding/encoding.xs) to see how to do so via XS.  But I 
don't think you'd call it simple.  Let me quote a few lines from there;

        PUSHMARK(sp);
        XPUSHs(e->enc);
        XPUSHs(e->dataSV);
        XPUSHs(e->chk);
        PUTBACK;
        if (call_method("decode", G_SCALAR) != 1) {
            Perl_die(aTHX_ "panic: decode did not return a value");
        }
        SPAGAIN;
        uni = POPs;
See?  It does exactly what you would call an ordinary perl 
(sub|method)s from XS; you push arguments into the stack, call_method() 
and pop the result.  In other words, there is no shortcut -- yet.

Dan the Encode Maintainer