#undef	NDEBUG
#include <stdio.h>
#include <stdlib.h>
#include <sys/types.h>
#include <string.h>
#include <assert.h>

#include <DefaultSequence.h>
#include <DefaultSet.h>

uint8_t berSeq1[] = {
  32 | 16, /* [UNIVERSAL 16], constructed */
  6, /* L */
  /* aBool BOOLEAN */
  ((2 << 6) + 0), /* [0], primitive */
  1, /* L */
  0, /* FALSE */
  /* anInteger INTEGER */
  ((2 << 6) + 1), /* [1], primitive */
  1, /* L */
  1
};

uint8_t derSeq1[] = {
  32 | 16, /* [UNIVERSAL 16], constructed */
  3, /* L */
  /* anInteger INTEGER */
  ((2 << 6) + 1), /* [1], primitive */
  1, /* L */
  1
};

uint8_t berSeq2[] = {
  32 | 16, /* [UNIVERSAL 16], constructed */
  3, /* L */
  /* aBool BOOLEAN */
  ((2 << 6) + 0), /* [0], primitive */
  1, /* L */
  0 /* FALSE */
};

uint8_t derSeq2[] = {
  32 | 16, /* [UNIVERSAL 16], constructed */
  0 /* L */
};

uint8_t berSet1[] = {
  32 | 17, /* [UNIVERSAL 17], constructed */
  6, /* L */
  /* aBool BOOLEAN */
  ((2 << 6) + 0), /* [0], primitive */
  1, /* L */
  0, /* FALSE */
  /* anInteger INTEGER */
  ((2 << 6) + 1), /* [1], primitive */
  1, /* L */
  1
};

uint8_t derSet1[] = {
  32 | 17, /* [UNIVERSAL 17], constructed */
  3, /* L */
  /* anInteger INTEGER */
  ((2 << 6) + 1), /* [1], primitive */
  1, /* L */
  1
};

uint8_t berSet2[] = {
  32 | 17, /* [UNIVERSAL 17], constructed */
  3, /* L */
  /* aBool BOOLEAN */
  ((2 << 6) + 0), /* [0], primitive */
  1, /* L */
  0 /* FALSE */
};

uint8_t derSet2[] = {
  32 | 17, /* [UNIVERSAL 17], constructed */
  0 /* L */
};

uint8_t buf2[128];
int buf2_pos;

static int
buf2_fill(const void *buffer, size_t size, void *app_key) {

	(void)app_key;

	if(buf2_pos + size > sizeof(buf2))
		return -1;

	memcpy(buf2 + buf2_pos, buffer, size);
	buf2_pos += size;

	return 0;
}

static void
compare_encoding(asn_enc_rval_t *erval, uint8_t *expected, size_t expected_size,
                 uint8_t *actual) {
  int i;

  assert(erval->encoded != -1);
  if(erval->encoded != expected_size) {
    printf("%d != %d\n", (int)erval->encoded, (int)expected_size);
  }
  assert(erval->encoded == (ssize_t)expected_size);
	for(i = 0; i < expected_size; i++) {
		if(expected[i] != actual[i]) {
			fprintf(stderr, "Recreated buffer content mismatch:\n");
			fprintf(stderr, "Byte %d, %x != %x (%d != %d)\n",
				i,
				expected[i], actual[i],
				expected[i], actual[i]
			);
		}
		assert(expected[i] == actual[i]);
	}
}

static void
check_sequence(uint8_t *in, size_t in_size, uint8_t *expected,
               size_t expected_size) {
  DefaultSequence_t t, *tp;
  void *tpp = &tp;
  asn_dec_rval_t rval;
  asn_enc_rval_t erval;

  tp = memset(&t, 0, sizeof(t));

  /* Try to decode the BER encoding. */ 
  rval = ber_decode(0, &asn_DEF_DefaultSequence, (void**)tpp, in, in_size);
  assert(rval.code == RC_OK);
  assert(rval.consumed == in_size);

  /* Try to re-create using DER encoding. */
  buf2_pos = 0;
  erval = der_encode(&asn_DEF_DefaultSequence, tp, buf2_fill, 0);
  compare_encoding(&erval, expected, expected_size, buf2);
}

static void
check_set(uint8_t *in, size_t in_size, uint8_t *expected,
          size_t expected_size) {
  DefaultSet_t t, *tp;
  void *tpp = &tp;
  asn_dec_rval_t rval;
  asn_enc_rval_t erval;

  tp = memset(&t, 0, sizeof(t));

  /* Try to decode the BER encoding. */ 
  rval = ber_decode(0, &asn_DEF_DefaultSet, (void**)tpp, in, in_size);
  assert(rval.code == RC_OK);
  assert(rval.consumed == in_size);

  /* Try to re-create using DER encoding. */
  buf2_pos = 0;
  erval = der_encode(&asn_DEF_DefaultSet, tp, buf2_fill, 0);
  compare_encoding(&erval, expected, expected_size, buf2);
}

int
main(int ac, char **av) {

  (void)ac; /* Unused argument */
  (void)av; /* Unused argument */

  check_sequence(berSeq1, sizeof(berSeq1), derSeq1, sizeof(derSeq1));
  check_sequence(berSeq2, sizeof(berSeq2), derSeq2, sizeof(derSeq2));
  check_set(berSet1, sizeof(berSet1), derSet1, sizeof(derSet1));
  check_set(berSet2, sizeof(berSet2), derSet2, sizeof(derSet2));
}