Callback to Perl from Inline::C passing and returning parameters

[BrowserUk]

Could domeone please show me how to code the equivalent of the following sub 
but using the Inline_Stack_* macros instead of the XS varients?



int callComp( SV* cmp, SV* a, SV* b ) {

        dSP;

        int rv;

        

        PUSHMARK(SP);

        XPUSHs( newSViv( SvIVX( a ) ) );

        XPUSHs( newSViv( SvIVX( b ) ) );

        PUTBACK;



        if( call_sv( cmp, G_SCALAR ) != 1 )

                croak( "Bad comparator" );

        SPAGAIN;



        rv = POPi;



        PUTBACK;

        return rv;

}



Thanks.



--------------------------------------

Protect yourself from spam, 

use http://sneakemail.com