100 lines
3.0 KiB
C
100 lines
3.0 KiB
C
|
/*
|
||
|
|
* Copyright (c) 2017 Lev Walkin <vlm@lionet.info>.
|
||
|
|
* All rights reserved.
|
||
|
|
* Redistribution and modifications are permitted subject to BSD license.
|
||
|
|
*/
|
||
|
|
#ifndef ASN_DISABLE_OER_SUPPORT
|
||
|
|
|
||
|
|
#include <asn_internal.h>
|
||
|
|
#include <NativeInteger.h>
|
||
|
|
#include <errno.h>
|
||
|
|
|
||
|
|
asn_dec_rval_t
|
||
|
|
NativeInteger_decode_oer(const asn_codec_ctx_t *opt_codec_ctx,
|
||
|
|
const asn_TYPE_descriptor_t *td,
|
||
|
|
const asn_oer_constraints_t *constraints,
|
||
|
|
void **nint_ptr, const void *ptr, size_t size) {
|
||
|
|
const asn_INTEGER_specifics_t *specs =
|
||
|
|
(const asn_INTEGER_specifics_t *)td->specifics;
|
||
|
|
asn_dec_rval_t rval = {RC_OK, 0};
|
||
|
|
long *native = (long *)*nint_ptr;
|
||
|
|
INTEGER_t tmpint;
|
||
|
|
INTEGER_t *tmpintptr = &tmpint;
|
||
|
|
|
||
|
|
memset(&tmpint, 0, sizeof(tmpint));
|
||
|
|
|
||
|
|
if(!native) {
|
||
|
|
native = (long *)(*nint_ptr = CALLOC(1, sizeof(*native)));
|
||
|
|
if(!native) ASN__DECODE_FAILED;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* OPTIMIZATION: Encode directly rather than passing through INTEGER.
|
||
|
|
* Saves a memory allocation.
|
||
|
|
*/
|
||
|
|
rval = INTEGER_decode_oer(opt_codec_ctx, td, constraints,
|
||
|
|
(void **)&tmpintptr, ptr, size);
|
||
|
|
if(rval.code != RC_OK) {
|
||
|
|
ASN_STRUCT_FREE_CONTENTS_ONLY(asn_DEF_INTEGER, &tmpint);
|
||
|
|
return rval;
|
||
|
|
}
|
||
|
|
|
||
|
|
if(specs && specs->field_unsigned) {
|
||
|
|
unsigned long ul;
|
||
|
|
int ok = asn_INTEGER2ulong(&tmpint, &ul) == 0;
|
||
|
|
ASN_STRUCT_FREE_CONTENTS_ONLY(asn_DEF_INTEGER, &tmpint);
|
||
|
|
if(ok) {
|
||
|
|
*native = ul;
|
||
|
|
} else {
|
||
|
|
rval.code = RC_FAIL;
|
||
|
|
return rval;
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
long l;
|
||
|
|
int ok = asn_INTEGER2long(&tmpint, &l) == 0;
|
||
|
|
ASN_STRUCT_FREE_CONTENTS_ONLY(asn_DEF_INTEGER, &tmpint);
|
||
|
|
if(ok) {
|
||
|
|
*native = l;
|
||
|
|
} else {
|
||
|
|
rval.code = RC_FAIL;
|
||
|
|
return rval;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return rval;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Encode as Canonical OER.
|
||
|
|
*/
|
||
|
|
asn_enc_rval_t
|
||
|
|
NativeInteger_encode_oer(const asn_TYPE_descriptor_t *td,
|
||
|
|
const asn_oer_constraints_t *constraints,
|
||
|
|
const void *sptr, asn_app_consume_bytes_f *cb,
|
||
|
|
void *app_key) {
|
||
|
|
const asn_INTEGER_specifics_t *specs =
|
||
|
|
(const asn_INTEGER_specifics_t *)td->specifics;
|
||
|
|
INTEGER_t tmpint;
|
||
|
|
long native;
|
||
|
|
|
||
|
|
if(!sptr) ASN__ENCODE_FAILED;
|
||
|
|
|
||
|
|
native = *(const long *)sptr;
|
||
|
|
memset(&tmpint, 0, sizeof(tmpint));
|
||
|
|
|
||
|
|
ASN_DEBUG("Encoding %s %ld as NativeInteger", td ? td->name : "", native);
|
||
|
|
|
||
|
|
if((specs && specs->field_unsigned) ? asn_ulong2INTEGER(&tmpint, native)
|
||
|
|
: asn_long2INTEGER(&tmpint, native)) {
|
||
|
|
ASN_STRUCT_FREE_CONTENTS_ONLY(asn_DEF_INTEGER, &tmpint);
|
||
|
|
ASN__ENCODE_FAILED;
|
||
|
|
} else {
|
||
|
|
asn_enc_rval_t er =
|
||
|
|
INTEGER_encode_oer(td, constraints, &tmpint, cb, app_key);
|
||
|
|
ASN_STRUCT_FREE_CONTENTS_ONLY(asn_DEF_INTEGER, &tmpint);
|
||
|
|
return er;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
#endif /* ASN_DISABLE_OER_SUPPORT */
|