/*-

 * Copyright (c) 2003, 2004 Lev Walkin <vlm@lionet.info>. All rights reserved.

 * Redistribution and modifications are permitted subject to BSD license.

 */

#include <asn_internal.h>

#include <constr_TYPE.h>

#include <errno.h>

/*

 * Version of the ASN.1 infrastructure shipped with compiler.

 */

int get_asn1c_environment_version() { return ASN1C_ENVIRONMENT_VERSION; }

static asn_app_consume_bytes_f _print2fp;

/*

 * Return the outmost tag of the type.

 */

ber_tlv_tag_t

asn_TYPE_outmost_tag(asn_TYPE_descriptor_t *type_descriptor,

		const void *struct_ptr, int tag_mode, ber_tlv_tag_t tag) {

	if(tag_mode)

		return tag;

	if(type_descriptor->tags_count)

		return type_descriptor->tags[0];

	return type_descriptor->outmost_tag(type_descriptor, struct_ptr, 0, 0);

}

/*

 * Print the target language's structure in human readable form.

 */

int

asn_fprint(FILE *stream, asn_TYPE_descriptor_t *td, const void *struct_ptr) {

	if(!stream) stream = stdout;

	if(!td || !struct_ptr) {

		errno = EINVAL;

		return -1;

	}

	/* Invoke type-specific printer */

	if(td->print_struct(td, struct_ptr, 1, _print2fp, stream))

		return -1;

	/* Terminate the output */

	if(_print2fp("\n", 1, stream))

		return -1;

	return fflush(stream);

}

/* Dump the data into the specified stdio stream */

static int

_print2fp(const void *buffer, size_t size, void *app_key) {

	FILE *stream = (FILE *)app_key;

	if(fwrite(buffer, 1, size, stream) != size)

		return -1;

	return 0;

}

/*

 * Some compilers do not support variable args macros.

 * This function is a replacement of ASN_DEBUG() macro.

 */

void ASN_DEBUG_f(const char *fmt, ...);

void ASN_DEBUG_f(const char *fmt, ...) {

	va_list ap;

	va_start(ap, fmt);

	vfprintf(stderr, fmt, ap);

	fprintf(stderr, "\n");

	va_end(ap);

}