| … | |
… | |
| 991 | CODE: |
991 | CODE: |
| 992 | RETVAL = self->max_size; |
992 | RETVAL = self->max_size; |
| 993 | OUTPUT: |
993 | OUTPUT: |
| 994 | RETVAL |
994 | RETVAL |
| 995 | |
995 | |
| 996 | #if 0 //TODO |
|
|
| 997 | |
|
|
| 998 | void filter_cbor_object (CBOR *self, SV *cb = &PL_sv_undef) |
|
|
| 999 | PPCODE: |
|
|
| 1000 | { |
|
|
| 1001 | SvREFCNT_dec (self->cb_object); |
|
|
| 1002 | self->cb_object = SvOK (cb) ? newSVsv (cb) : 0; |
|
|
| 1003 | |
|
|
| 1004 | XPUSHs (ST (0)); |
|
|
| 1005 | } |
|
|
| 1006 | |
|
|
| 1007 | void filter_cbor_single_key_object (CBOR *self, SV *key, SV *cb = &PL_sv_undef) |
|
|
| 1008 | PPCODE: |
|
|
| 1009 | { |
|
|
| 1010 | if (!self->cb_sk_object) |
|
|
| 1011 | self->cb_sk_object = newHV (); |
|
|
| 1012 | |
|
|
| 1013 | if (SvOK (cb)) |
|
|
| 1014 | hv_store_ent (self->cb_sk_object, key, newSVsv (cb), 0); |
|
|
| 1015 | else |
|
|
| 1016 | { |
|
|
| 1017 | hv_delete_ent (self->cb_sk_object, key, G_DISCARD, 0); |
|
|
| 1018 | |
|
|
| 1019 | if (!HvKEYS (self->cb_sk_object)) |
|
|
| 1020 | { |
|
|
| 1021 | SvREFCNT_dec (self->cb_sk_object); |
|
|
| 1022 | self->cb_sk_object = 0; |
|
|
| 1023 | } |
|
|
| 1024 | } |
|
|
| 1025 | |
|
|
| 1026 | XPUSHs (ST (0)); |
|
|
| 1027 | } |
|
|
| 1028 | |
|
|
| 1029 | #endif |
|
|
| 1030 | |
|
|
| 1031 | void encode (CBOR *self, SV *scalar) |
996 | void encode (CBOR *self, SV *scalar) |
| 1032 | PPCODE: |
997 | PPCODE: |
| 1033 | PUTBACK; scalar = encode_cbor (scalar, self); SPAGAIN; |
998 | PUTBACK; scalar = encode_cbor (scalar, self); SPAGAIN; |
| 1034 | XPUSHs (scalar); |
999 | XPUSHs (scalar); |
| 1035 | |
1000 | |
| … | |
… | |
| 1047 | EXTEND (SP, 2); |
1012 | EXTEND (SP, 2); |
| 1048 | PUSHs (sv); |
1013 | PUSHs (sv); |
| 1049 | PUSHs (sv_2mortal (newSVuv (offset - SvPVX (cborstr)))); |
1014 | PUSHs (sv_2mortal (newSVuv (offset - SvPVX (cborstr)))); |
| 1050 | } |
1015 | } |
| 1051 | |
1016 | |
| 1052 | #if 0 |
|
|
| 1053 | |
|
|
| 1054 | void DESTROY (CBOR *self) |
|
|
| 1055 | CODE: |
|
|
| 1056 | SvREFCNT_dec (self->cb_sk_object); |
|
|
| 1057 | SvREFCNT_dec (self->cb_object); |
|
|
| 1058 | |
|
|
| 1059 | #endif |
|
|
| 1060 | |
|
|
| 1061 | PROTOTYPES: ENABLE |
1017 | PROTOTYPES: ENABLE |
| 1062 | |
1018 | |
| 1063 | void encode_cbor (SV *scalar) |
1019 | void encode_cbor (SV *scalar) |
| 1064 | PPCODE: |
1020 | PPCODE: |
| 1065 | { |
1021 | { |
