generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-10-18 19:48:46 +02:00
Code Issues Projects Releases Wiki Activity

support $Data::MessagePack::PreferredInteger for Data::Model

Browse Source
This commit is contained in:
Tokuhiro Matsuno
2009-07-02 14:25:48 +09:00
parent c2a63b2c54
commit 601209c83c
4 changed files with 69 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
perl/pack.c
View File

@@ -51,6 +51,16 @@ void need(enc_t *enc, STRLEN len)
}
}
static int looks_like_int(const char *str, size_t len) {
int i;
for (i=0; i<len; i++) {
if (!isDIGIT(str[i])) {
return 0;
}
}
return 1;
}
static void _msgpack_pack_sv(enc_t *enc, SV* val) {
if (val==NULL) {
msgpack_pack_nil(enc);
@@ -121,6 +131,13 @@ static void _msgpack_pack_sv(enc_t *enc, SV* val) {
if (SvPOKp(val)) {
STRLEN len;
char * cval = SvPV(val, len);
SV* pref_int = get_sv("Data::MessagePack::PreferredInteger", 0);
if (pref_int && SvTRUE(pref_int) && looks_like_int(cval, len) && SvUV(val) < U32_MAX) {
PACK_WRAPPER(uint32)(enc, SvUV(val));
return;
}
msgpack_pack_raw(enc, len);
msgpack_pack_raw_body(enc, cval, len);
return;