2009-04-15 12:55:41 +09:00
|
|
|
#ifdef __cplusplus
|
|
|
|
|
extern "C" {
|
|
|
|
|
#endif
|
|
|
|
|
#include "EXTERN.h"
|
|
|
|
|
#include "perl.h"
|
|
|
|
|
#include "XSUB.h"
|
2009-04-15 13:09:05 +09:00
|
|
|
#define NEED_newCONSTSUB
|
2009-04-15 12:55:41 +09:00
|
|
|
#include "ppport.h"
|
|
|
|
|
#ifdef __cplusplus
|
|
|
|
|
};
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
XS(xs_pack);
|
|
|
|
|
XS(xs_unpack);
|
|
|
|
|
XS(xs_unpacker_new);
|
|
|
|
|
XS(xs_unpacker_execute);
|
|
|
|
|
XS(xs_unpacker_execute_limit);
|
|
|
|
|
XS(xs_unpacker_is_finished);
|
|
|
|
|
XS(xs_unpacker_data);
|
|
|
|
|
XS(xs_unpacker_reset);
|
|
|
|
|
|
|
|
|
|
XS(boot_Data__MessagePack) {
|
|
|
|
|
dXSARGS;
|
|
|
|
|
HV * stash;
|
|
|
|
|
|
|
|
|
|
newXS("Data::MessagePack::pack", xs_pack, __FILE__);
|
|
|
|
|
newXS("Data::MessagePack::unpack", xs_unpack, __FILE__);
|
|
|
|
|
stash = gv_stashpvn("Data::MessagePack", strlen("Data::MessagePack"), TRUE);
|
|
|
|
|
newCONSTSUB(stash, "true", &PL_sv_yes);
|
|
|
|
|
newCONSTSUB(stash, "false", &PL_sv_no);
|
|
|
|
|
|
|
|
|
|
newXS("Data::MessagePack::Unpacker::new", xs_unpacker_new, __FILE__);
|
|
|
|
|
newXS("Data::MessagePack::Unpacker::execute", xs_unpacker_execute, __FILE__);
|
|
|
|
|
newXS("Data::MessagePack::Unpacker::execute_limit", xs_unpacker_execute_limit, __FILE__);
|
|
|
|
|
newXS("Data::MessagePack::Unpacker::is_finished", xs_unpacker_is_finished, __FILE__);
|
|
|
|
|
newXS("Data::MessagePack::Unpacker::data", xs_unpacker_data, __FILE__);
|
|
|
|
|
newXS("Data::MessagePack::Unpacker::reset", xs_unpacker_reset, __FILE__);
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
