75 lines
2.0 KiB
C
75 lines
2.0 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 "NativeReal.h"
|
||
|
|
#include "REAL.h"
|
||
|
|
#include "OCTET_STRING.h"
|
||
|
|
|
||
|
|
asn_dec_rval_t
|
||
|
|
NativeReal_decode_aper(const asn_codec_ctx_t *opt_codec_ctx,
|
||
|
|
const asn_TYPE_descriptor_t *td,
|
||
|
|
const asn_per_constraints_t *constraints,
|
||
|
|
void **dbl_ptr, asn_per_data_t *pd) {
|
||
|
|
double *Dbl = (double *)*dbl_ptr;
|
||
|
|
asn_dec_rval_t rval;
|
||
|
|
REAL_t tmp;
|
||
|
|
void *ptmp = &tmp;
|
||
|
|
int ret;
|
||
|
|
|
||
|
|
(void)constraints;
|
||
|
|
|
||
|
|
/*
|
||
|
|
* If the structure is not there, allocate it.
|
||
|
|
*/
|
||
|
|
if(Dbl == NULL) {
|
||
|
|
*dbl_ptr = CALLOC(1, sizeof(*Dbl));
|
||
|
|
Dbl = (double *)*dbl_ptr;
|
||
|
|
if(Dbl == NULL)
|
||
|
|
ASN__DECODE_FAILED;
|
||
|
|
}
|
||
|
|
|
||
|
|
memset(&tmp, 0, sizeof(tmp));
|
||
|
|
rval = OCTET_STRING_decode_aper(opt_codec_ctx, td, NULL,
|
||
|
|
&ptmp, pd);
|
||
|
|
if(rval.code != RC_OK) {
|
||
|
|
ASN_STRUCT_FREE_CONTENTS_ONLY(asn_DEF_REAL, &tmp);
|
||
|
|
return rval;
|
||
|
|
}
|
||
|
|
|
||
|
|
ret = asn_REAL2double(&tmp, Dbl);
|
||
|
|
ASN_STRUCT_FREE_CONTENTS_ONLY(asn_DEF_REAL, &tmp);
|
||
|
|
if(ret) ASN__DECODE_FAILED;
|
||
|
|
|
||
|
|
return rval;
|
||
|
|
}
|
||
|
|
|
||
|
|
asn_enc_rval_t
|
||
|
|
NativeReal_encode_aper(const asn_TYPE_descriptor_t *td,
|
||
|
|
const asn_per_constraints_t *constraints,
|
||
|
|
const void *sptr, asn_per_outp_t *po) {
|
||
|
|
double Dbl = *(const double *)sptr;
|
||
|
|
asn_enc_rval_t erval = {0,0,0};
|
||
|
|
REAL_t tmp;
|
||
|
|
|
||
|
|
(void)constraints;
|
||
|
|
|
||
|
|
/* Prepare a temporary clean structure */
|
||
|
|
memset(&tmp, 0, sizeof(tmp));
|
||
|
|
|
||
|
|
if(asn_double2REAL(&tmp, Dbl))
|
||
|
|
ASN__ENCODE_FAILED;
|
||
|
|
|
||
|
|
/* Encode a DER REAL */
|
||
|
|
erval = OCTET_STRING_encode_aper(td, NULL, &tmp, po);
|
||
|
|
if(erval.encoded == -1)
|
||
|
|
erval.structure_ptr = sptr;
|
||
|
|
|
||
|
|
/* Free possibly allocated members of the temporary structure */
|
||
|
|
ASN_STRUCT_FREE_CONTENTS_ONLY(asn_DEF_REAL, &tmp);
|
||
|
|
|
||
|
|
return erval;
|
||
|
|
}
|