RELATIVE-OID.c 8.63 KB
Newer Older
Lev Walkin's avatar
Lev Walkin committed
1
/*-
2
 * Copyright (c) 2003-2017 Lev Walkin <vlm@lionet.info>.
Lev Walkin's avatar
Lev Walkin committed
3
 * 	All rights reserved.
Lev Walkin's avatar
Lev Walkin committed
4 5
 * Redistribution and modifications are permitted subject to BSD license.
 */
Lev Walkin's avatar
Lev Walkin committed
6
#include <asn_internal.h>
Lev Walkin's avatar
Lev Walkin committed
7
#include <RELATIVE-OID.h>
Lev Walkin's avatar
Lev Walkin committed
8
#include <OCTET_STRING.h>
Lev Walkin's avatar
Lev Walkin committed
9
#include <asn_codecs_prim.h>	/* Encoder and decoder of a primitive type */
10
#include <limits.h>	/* for CHAR_BIT */
Lev Walkin's avatar
Lev Walkin committed
11 12 13 14 15
#include <errno.h>

/*
 * RELATIVE-OID basic type description.
 */
16
static const ber_tlv_tag_t asn_DEF_RELATIVE_OID_tags[] = {
Lev Walkin's avatar
Lev Walkin committed
17 18
	(ASN_TAG_CLASS_UNIVERSAL | (13 << 2))
};
19
asn_TYPE_operation_t asn_OP_RELATIVE_OID = {
20
	ASN__PRIMITIVE_TYPE_free,
Lev Walkin's avatar
Lev Walkin committed
21
	RELATIVE_OID_print,
22
	OCTET_STRING_compare,   /* Implemented in terms of opaque comparison */
23 24
	ber_decode_primitive,
	der_encode_primitive,
25
	RELATIVE_OID_decode_xer,
Lev Walkin's avatar
Lev Walkin committed
26
	RELATIVE_OID_encode_xer,
Lev Walkin's avatar
Lev Walkin committed
27 28 29 30
#ifdef	ASN_DISABLE_OER_SUPPORT
	0,
	0,
#else
31 32
	RELATIVE_OID_decode_oer,
	RELATIVE_OID_encode_oer,
Lev Walkin's avatar
Lev Walkin committed
33
#endif  /* ASN_DISABLE_OER_SUPPORT */
Lev Walkin's avatar
Lev Walkin committed
34 35 36 37 38 39 40
#ifdef	ASN_DISABLE_PER_SUPPORT
	0,
	0,
#else
	OCTET_STRING_decode_uper,
	OCTET_STRING_encode_uper,
#endif	/* ASN_DISABLE_PER_SUPPORT */
41
	RELATIVE_OID_random_fill,
42 43 44 45 46 47
	0	/* Use generic outmost tag fetcher */
};
asn_TYPE_descriptor_t asn_DEF_RELATIVE_OID = {
	"RELATIVE-OID",
	"RELATIVE_OID",
	&asn_OP_RELATIVE_OID,
Lev Walkin's avatar
Lev Walkin committed
48 49 50 51 52 53
	asn_DEF_RELATIVE_OID_tags,
	sizeof(asn_DEF_RELATIVE_OID_tags)
	    / sizeof(asn_DEF_RELATIVE_OID_tags[0]),
	asn_DEF_RELATIVE_OID_tags,	/* Same as above */
	sizeof(asn_DEF_RELATIVE_OID_tags)
	    / sizeof(asn_DEF_RELATIVE_OID_tags[0]),
54
	{ 0, 0, asn_generic_no_constraint },
Lev Walkin's avatar
Lev Walkin committed
55
	0, 0,	/* No members */
56
	0	/* No specifics */
Lev Walkin's avatar
Lev Walkin committed
57 58
};

Lev Walkin's avatar
Lev Walkin committed
59 60
static ssize_t
RELATIVE_OID__dump_body(const RELATIVE_OID_t *st, asn_app_consume_bytes_f *cb, void *app_key) {
61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85
    char scratch[32];
    size_t produced = 0;
    size_t off = 0;

    for(;;) {
        asn_oid_arc_t arc;
        ssize_t rd = OBJECT_IDENTIFIER_get_single_arc(st->buf + off,
                                                      st->size - off, &arc);
        if(rd < 0) {
            return -1;
        } else if(rd == 0) {
            /* No more arcs. */
            break;
        } else {
            int ret = snprintf(scratch, sizeof(scratch), "%s%" PRIu32,
                               off ? "." : "", arc);
            if(ret >= (ssize_t)sizeof(scratch)) {
                return -1;
            }
            produced += ret;
            off += rd;
            assert(off <= st->size);
            if(cb(scratch, ret, app_key) < 0) return -1;
        }
    }
Lev Walkin's avatar
Lev Walkin committed
86

87 88 89 90
    if(off != st->size) {
        ASN_DEBUG("Could not scan to the end of Object Identifier");
        return -1;
    }
Lev Walkin's avatar
Lev Walkin committed
91

92
	return produced;
Lev Walkin's avatar
Lev Walkin committed
93 94
}

Lev Walkin's avatar
Lev Walkin committed
95
int
96 97 98
RELATIVE_OID_print(const asn_TYPE_descriptor_t *td, const void *sptr,
                   int ilevel, asn_app_consume_bytes_f *cb, void *app_key) {
    const RELATIVE_OID_t *st = (const RELATIVE_OID_t *)sptr;
Lev Walkin's avatar
Lev Walkin committed
99

100 101 102
	(void)td;	/* Unused argument */
	(void)ilevel;	/* Unused argument */

Lev Walkin's avatar
Lev Walkin committed
103
	if(!st || !st->buf)
104
		return (cb("<absent>", 8, app_key) < 0) ? -1 : 0;
Lev Walkin's avatar
Lev Walkin committed
105 106

	/* Dump preamble */
107
	if(cb("{ ", 2, app_key) < 0)
Lev Walkin's avatar
Lev Walkin committed
108 109
		return -1;

Lev Walkin's avatar
Lev Walkin committed
110 111
	if(RELATIVE_OID__dump_body(st, cb, app_key) < 0)
		return -1;
Lev Walkin's avatar
Lev Walkin committed
112

113
	return (cb(" }", 2, app_key) < 0) ? -1 : 0;
Lev Walkin's avatar
Lev Walkin committed
114 115
}

116
static enum xer_pbd_rval
117 118 119
RELATIVE_OID__xer_body_decode(const asn_TYPE_descriptor_t *td, void *sptr,
                              const void *chunk_buf, size_t chunk_size) {
    RELATIVE_OID_t *st = (RELATIVE_OID_t *)sptr;
Lev Walkin's avatar
Lev Walkin committed
120 121
	const char *chunk_end = (const char *)chunk_buf + chunk_size;
	const char *endptr;
122 123 124
	asn_oid_arc_t s_arcs[6];
	asn_oid_arc_t *arcs = s_arcs;
	ssize_t num_arcs;
125 126
	int ret;

Lev Walkin's avatar
Lev Walkin committed
127 128
	(void)td;

129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148
    num_arcs = OBJECT_IDENTIFIER_parse_arcs(
        (const char *)chunk_buf, chunk_size, arcs,
        sizeof(s_arcs) / sizeof(s_arcs[0]), &endptr);
    if(num_arcs < 0) {
        /* Expecting at least one arc arcs */
        return XPBD_BROKEN_ENCODING;
    } else if(num_arcs == 0) {
        return XPBD_NOT_BODY_IGNORE;
    }
    assert(endptr == chunk_end);

    if((size_t)num_arcs > sizeof(s_arcs) / sizeof(s_arcs[0])) {
        arcs = (asn_oid_arc_t *)MALLOC(num_arcs * sizeof(arcs[0]));
        if(!arcs) return XPBD_SYSTEM_FAILURE;
        ret = OBJECT_IDENTIFIER_parse_arcs((const char *)chunk_buf, chunk_size,
                                           arcs, num_arcs, &endptr);
        if(ret != num_arcs) {
            return XPBD_SYSTEM_FAILURE; /* assert?.. */
        }
    }
149

150 151 152 153 154
    /*
     * Convert arcs into BER representation.
     */
    ret = RELATIVE_OID_set_arcs(st, arcs, num_arcs);
    if(arcs != s_arcs) FREEMEM(arcs);
155

156
    return ret ? XPBD_SYSTEM_FAILURE : XPBD_BODY_CONSUMED;
157 158 159
}

asn_dec_rval_t
Lev Walkin's avatar
Lev Walkin committed
160
RELATIVE_OID_decode_xer(const asn_codec_ctx_t *opt_codec_ctx,
161 162 163 164
                        const asn_TYPE_descriptor_t *td, void **sptr,
                        const char *opt_mname, const void *buf_ptr,
                        size_t size) {
    return xer_decode_primitive(opt_codec_ctx, td,
165 166 167 168
		sptr, sizeof(RELATIVE_OID_t), opt_mname,
			buf_ptr, size, RELATIVE_OID__xer_body_decode);
}

Lev Walkin's avatar
Lev Walkin committed
169
asn_enc_rval_t
170 171 172 173
RELATIVE_OID_encode_xer(const asn_TYPE_descriptor_t *td, const void *sptr,
                        int ilevel, enum xer_encoder_flags_e flags,
                        asn_app_consume_bytes_f *cb, void *app_key) {
    const RELATIVE_OID_t *st = (const RELATIVE_OID_t *)sptr;
Lev Walkin's avatar
Lev Walkin committed
174 175 176 177 178 179
	asn_enc_rval_t er;

	(void)ilevel;	/* Unused argument */
	(void)flags;	/* Unused argument */

	if(!st || !st->buf)
180
		ASN__ENCODE_FAILED;
Lev Walkin's avatar
Lev Walkin committed
181 182

	er.encoded = RELATIVE_OID__dump_body(st, cb, app_key);
183
	if(er.encoded < 0) ASN__ENCODE_FAILED;
Lev Walkin's avatar
Lev Walkin committed
184

185
	ASN__ENCODED_OK(er);
Lev Walkin's avatar
Lev Walkin committed
186
}
Lev Walkin's avatar
Lev Walkin committed
187

188 189 190 191 192
ssize_t
RELATIVE_OID_get_arcs(const RELATIVE_OID_t *st, asn_oid_arc_t *arcs,
                      size_t arcs_count) {
    size_t num_arcs = 0;
    size_t off;
Lev Walkin's avatar
Lev Walkin committed
193

194 195 196 197
    if(!st || !st->buf) {
        errno = EINVAL;
        return -1;
    }
Lev Walkin's avatar
Lev Walkin committed
198

199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219
    for(off = 0;;) {
        asn_oid_arc_t arc;
        ssize_t rd = OBJECT_IDENTIFIER_get_single_arc(st->buf + off,
                                                      st->size - off, &arc);
        if(rd < 0) {
            return -1;
        } else if(rd == 0) {
            /* No more arcs. */
            break;
        } else {
            off += rd;
            if(num_arcs < arcs_count) {
                arcs[num_arcs] = arc;
            }
            num_arcs++;
        }
    }

    if(off != st->size) {
        return -1;
    }
Lev Walkin's avatar
Lev Walkin committed
220

221
	return num_arcs;
Lev Walkin's avatar
Lev Walkin committed
222 223 224
}

int
225 226 227
RELATIVE_OID_set_arcs(RELATIVE_OID_t *st, const asn_oid_arc_t *arcs,
                      size_t arcs_count) {
    uint8_t *buf;
Lev Walkin's avatar
Lev Walkin committed
228
	uint8_t *bp;
229 230
    size_t size;
	size_t i;
Lev Walkin's avatar
Lev Walkin committed
231

232
	if(!st || !arcs) {
Lev Walkin's avatar
Lev Walkin committed
233 234 235 236 237 238 239
		errno = EINVAL;
		return -1;
	}

	/*
	 * Roughly estimate the maximum size necessary to encode these arcs.
	 */
240 241
    size = ((sizeof(asn_oid_arc_t) * CHAR_BIT + 6) / 7) * arcs_count;
    bp = buf = (uint8_t *)MALLOC(size + 1);
Lev Walkin's avatar
Lev Walkin committed
242 243 244 245 246 247
	if(!buf) {
		/* ENOMEM */
		return -1;
	}

	/*
248
	 * Encode the arcs.
Lev Walkin's avatar
Lev Walkin committed
249
	 */
250 251 252 253 254 255 256 257 258 259
    for(i = 0; i < arcs_count; i++) {
        ssize_t wrote = OBJECT_IDENTIFIER_set_single_arc(bp, size, arcs[i]);
        if(wrote <= 0) {
            FREEMEM(buf);
            return -1;
        }
        assert((size_t)wrote <= size);
        bp += wrote;
        size -= wrote;
    }
Lev Walkin's avatar
Lev Walkin committed
260 261 262 263

	/*
	 * Replace buffer.
	 */
264 265 266 267
	st->size = bp - buf;
	bp = st->buf;
	st->buf = buf;
	st->buf[st->size] = '\0';
Lev Walkin's avatar
Lev Walkin committed
268 269 270 271
	if(bp) FREEMEM(bp);

	return 0;
}
272

273 274 275 276

/*
 * Generate values from the list of interesting values, or just a random value.
 */
277
static asn_oid_arc_t
278 279 280
RELATIVE_OID__biased_random_arc() {
    static const uint16_t values[] = {0, 1, 127, 128, 129, 254, 255, 256};

281 282 283 284 285 286 287 288 289
    switch(asn_random_between(0, 2)) {
    case 0:
        return values[asn_random_between(
            0, sizeof(values) / sizeof(values[0]) - 1)];
    case 1:
        return asn_random_between(0, UINT_MAX);
    case 2:
    default:
        return UINT_MAX;
290 291 292 293 294
    }
}

asn_random_fill_result_t
RELATIVE_OID_random_fill(const asn_TYPE_descriptor_t *td, void **sptr,
295 296
                         const asn_encoding_constraints_t *constraints,
                         size_t max_length) {
297 298 299 300
    asn_random_fill_result_t result_ok = {ARFILL_OK, 1};
    asn_random_fill_result_t result_failed = {ARFILL_FAILED, 0};
    asn_random_fill_result_t result_skipped = {ARFILL_SKIPPED, 0};
    RELATIVE_OID_t *st;
301
    const int min_arcs = 1; /* A minimum of 1 arc is required */
302 303 304
    asn_oid_arc_t arcs[3];
    size_t arcs_len =
        asn_random_between(min_arcs, sizeof(arcs) / sizeof(arcs[0]));
305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320
    size_t i;

    (void)constraints;

    if(max_length < arcs_len) return result_skipped;

    if(*sptr) {
        st = *sptr;
    } else {
        st = CALLOC(1, sizeof(*st));
    }

    for(i = 0; i < arcs_len; i++) {
        arcs[i] = RELATIVE_OID__biased_random_arc();
    }

321
    if(RELATIVE_OID_set_arcs(st, arcs, arcs_len)) {
322 323 324 325 326 327 328 329
        if(st != *sptr) {
            ASN_STRUCT_FREE(*td, st);
        }
        return result_failed;
    }

    *sptr = st;

330
    result_ok.length = st->size;
331 332
    return result_ok;
}