69 lines
2.3 KiB
C
69 lines
2.3 KiB
C
/*
|
|
* Copyright (c) 2017 Lev Walkin <vlm@lionet.info>.
|
|
* All rights reserved.
|
|
* Redistribution and modifications are permitted subject to BSD license.
|
|
*/
|
|
#include <asn_internal.h>
|
|
#include <NativeInteger.h>
|
|
|
|
asn_dec_rval_t
|
|
NativeInteger_decode_aper(const asn_codec_ctx_t *opt_codec_ctx,
|
|
const asn_TYPE_descriptor_t *td,
|
|
const asn_per_constraints_t *constraints, void **sptr, asn_per_data_t *pd) {
|
|
|
|
const asn_INTEGER_specifics_t *specs = (const asn_INTEGER_specifics_t *)td->specifics;
|
|
asn_dec_rval_t rval;
|
|
long *native = (long *)*sptr;
|
|
INTEGER_t tmpint;
|
|
void *tmpintptr = &tmpint;
|
|
|
|
(void)opt_codec_ctx;
|
|
ASN_DEBUG("Decoding NativeInteger %s (APER)", td->name);
|
|
|
|
if(!native) {
|
|
native = (long *)(*sptr = CALLOC(1, sizeof(*native)));
|
|
if(!native) ASN__DECODE_FAILED;
|
|
}
|
|
|
|
memset(&tmpint, 0, sizeof tmpint);
|
|
rval = INTEGER_decode_aper(opt_codec_ctx, td, constraints,
|
|
&tmpintptr, pd);
|
|
if(rval.code == RC_OK) {
|
|
if((specs&&specs->field_unsigned)
|
|
? asn_INTEGER2ulong(&tmpint, (unsigned long *)native)
|
|
: asn_INTEGER2long(&tmpint, native))
|
|
rval.code = RC_FAIL;
|
|
else
|
|
ASN_DEBUG("NativeInteger %s got value %ld",
|
|
td->name, *native);
|
|
}
|
|
ASN_STRUCT_FREE_CONTENTS_ONLY(asn_DEF_INTEGER, &tmpint);
|
|
|
|
return rval;
|
|
}
|
|
|
|
asn_enc_rval_t
|
|
NativeInteger_encode_aper(const asn_TYPE_descriptor_t *td,
|
|
const asn_per_constraints_t *constraints,
|
|
const void *sptr, asn_per_outp_t *po) {
|
|
|
|
const asn_INTEGER_specifics_t *specs = (const asn_INTEGER_specifics_t *)td->specifics;
|
|
asn_enc_rval_t er = {0,0,0};
|
|
long native;
|
|
INTEGER_t tmpint;
|
|
|
|
if(!sptr) ASN__ENCODE_FAILED;
|
|
|
|
native = *(const long *)sptr;
|
|
|
|
ASN_DEBUG("Encoding NativeInteger %s %ld (APER)", td->name, native);
|
|
|
|
memset(&tmpint, 0, sizeof(tmpint));
|
|
if((specs&&specs->field_unsigned)
|
|
? asn_ulong2INTEGER(&tmpint, (unsigned long)native)
|
|
: asn_long2INTEGER(&tmpint, native))
|
|
ASN__ENCODE_FAILED;
|
|
er = INTEGER_encode_aper(td, constraints, &tmpint, po);
|
|
ASN_STRUCT_FREE_CONTENTS_ONLY(asn_DEF_INTEGER, &tmpint);
|
|
return er;
|
|
}
|