1 /*****************************************************************************
3 # Copyright 2019 AT&T Intellectual Property *
5 # Licensed under the Apache License, Version 2.0 (the "License"); *
6 # you may not use this file except in compliance with the License. *
7 # You may obtain a copy of the License at *
9 # http://www.apache.org/licenses/LICENSE-2.0 *
11 # Unless required by applicable law or agreed to in writing, software *
12 # distributed under the License is distributed on an "AS IS" BASIS, *
13 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. *
14 # See the License for the specific language governing permissions and *
15 # limitations under the License. *
17 ******************************************************************************/
20 * Copyright (c) 2003, 2004 Lev Walkin <vlm@lionet.info>. All rights reserved.
21 * Redistribution and modifications are permitted subject to BSD license.
23 #include <asn_internal.h>
28 * The XER encoder of any type. May be invoked by the application.
31 xer_encode(const asn_TYPE_descriptor_t *td, const void *sptr,
32 enum xer_encoder_flags_e xer_flags, asn_app_consume_bytes_f *cb,
34 asn_enc_rval_t er = {0, 0, 0};
38 int xcan = (xer_flags & XER_F_CANONICAL) ? 1 : 2;
40 if(!td || !sptr) goto cb_failed;
45 ASN__CALLBACK3("<", 1, mname, mlen, ">", 1);
47 tmper = td->op->xer_encoder(td, sptr, 1, xer_flags, cb, app_key);
48 if(tmper.encoded == -1) return tmper;
49 er.encoded += tmper.encoded;
51 ASN__CALLBACK3("</", 2, mname, mlen, ">\n", xcan);
59 * This is a helper function for xer_fprint, which directs all incoming data
60 * into the provided file descriptor.
63 xer__print2fp(const void *buffer, size_t size, void *app_key) {
64 FILE *stream = (FILE *)app_key;
66 if(fwrite(buffer, 1, size, stream) != size)
73 xer_fprint(FILE *stream, const asn_TYPE_descriptor_t *td, const void *sptr) {
74 asn_enc_rval_t er = {0,0,0};
76 if(!stream) stream = stdout;
80 er = xer_encode(td, sptr, XER_F_BASIC, xer__print2fp, stream);
84 return fflush(stream);
90 size_t allocated_size;
94 xer__buffer_append(const void *buffer, size_t size, void *app_key) {
95 struct xer_buffer *xb = app_key;
97 while(xb->buffer_size + size + 1 > xb->allocated_size) {
98 size_t new_size = 2 * (xb->allocated_size ? xb->allocated_size : 64);
99 char *new_buf = MALLOC(new_size);
100 if(!new_buf) return -1;
102 memcpy(new_buf, xb->buffer, xb->buffer_size);
105 xb->buffer = new_buf;
106 xb->allocated_size = new_size;
109 memcpy(xb->buffer + xb->buffer_size, buffer, size);
110 xb->buffer_size += size;
111 xb->buffer[xb->buffer_size] = '\0';
115 enum xer_equivalence_e
116 xer_equivalent(const struct asn_TYPE_descriptor_s *td, const void *struct1,
117 const void *struct2, FILE *opt_debug_stream) {
118 struct xer_buffer xb1 = {0, 0, 0};
119 struct xer_buffer xb2 = {0, 0, 0};
120 asn_enc_rval_t e1, e2;
124 if(!td || !struct1 || !struct2) {
125 if(opt_debug_stream) {
126 if(!td) fprintf(opt_debug_stream, "Type descriptor missing\n");
127 if(!struct1) fprintf(opt_debug_stream, "Structure 1 missing\n");
128 if(!struct2) fprintf(opt_debug_stream, "Structure 2 missing\n");
133 e1 = xer_encode(td, struct1, XER_F_BASIC, xer__buffer_append, &xb1);
134 if(e1.encoded == -1) {
135 if(opt_debug_stream) {
136 fprintf(stderr, "XER Encoding of %s failed\n", td->name);
139 return XEQ_ENCODE1_FAILED;
142 e2 = xer_encode(td, struct2, XER_F_BASIC, xer__buffer_append, &xb2);
143 if(e2.encoded == -1) {
144 if(opt_debug_stream) {
145 fprintf(stderr, "XER Encoding of %s failed\n", td->name);
149 return XEQ_ENCODE1_FAILED;
152 if(xb1.buffer_size != xb2.buffer_size
153 || memcmp(xb1.buffer, xb2.buffer, xb1.buffer_size) != 0) {
154 if(opt_debug_stream) {
155 fprintf(opt_debug_stream,
156 "Structures XER-encoded into different byte streams:\n=== "
157 "Structure 1 ===\n%s\n=== Structure 2 ===\n%s\n",
158 xb1.buffer, xb2.buffer);
162 return XEQ_DIFFERENT;
164 if(opt_debug_stream) {
165 fprintf(opt_debug_stream,
166 "Both structures encoded into the same XER byte stream "
167 "of size %" ASN_PRI_SIZE ":\n%s",
168 xb1.buffer_size, xb1.buffer);
172 rval = xer_decode(NULL, td, (void **)&sptr, xb1.buffer,
178 if(opt_debug_stream) {
179 fprintf(opt_debug_stream,
180 "Structure %s XER decode unexpectedly requires "
182 td->name, xb1.buffer);
187 if(opt_debug_stream) {
188 fprintf(opt_debug_stream,
189 "Structure %s XER decoding resulted in failure.\n",
192 ASN_STRUCT_FREE(*td, sptr);
195 return XEQ_DECODE_FAILED;
198 if(rval.consumed != xb1.buffer_size
199 && ((rval.consumed > xb1.buffer_size)
200 || xer_whitespace_span(xb1.buffer + rval.consumed,
201 xb1.buffer_size - rval.consumed)
202 != (xb1.buffer_size - rval.consumed))) {
203 if(opt_debug_stream) {
204 fprintf(opt_debug_stream,
205 "Round-trip decode of %s required less bytes (%" ASN_PRI_SIZE ") than "
206 "encoded (%" ASN_PRI_SIZE ")\n",
207 td->name, rval.consumed, xb1.buffer_size);
209 ASN_STRUCT_FREE(*td, sptr);
212 return XEQ_ROUND_TRIP_FAILED;
216 * Reuse xb2 to encode newly decoded structure.
219 memset(&xb2, 0, sizeof(xb2));
221 e2 = xer_encode(td, sptr, XER_F_BASIC, xer__buffer_append, &xb2);
222 if(e2.encoded == -1) {
223 if(opt_debug_stream) {
224 fprintf(stderr, "XER Encoding of round-trip decode of %s failed\n",
227 ASN_STRUCT_FREE(*td, sptr);
230 return XEQ_ROUND_TRIP_FAILED;
233 ASN_STRUCT_FREE(*td, sptr);
236 if(xb1.buffer_size != xb2.buffer_size
237 || memcmp(xb1.buffer, xb2.buffer, xb1.buffer_size) != 0) {
238 if(opt_debug_stream) {
239 fprintf(opt_debug_stream,
240 "XER Encoding of round-trip decode of %s resulted in "
241 "different byte stream:\n"
242 "=== Original ===\n%s\n"
243 "=== Round-tripped ===\n%s\n",
244 xb1.buffer, xb2.buffer, td->name);
248 return XEQ_ROUND_TRIP_FAILED;