XER support

diff --git a/tests/66-ref-simple-OK.asn1.-P b/tests/66-ref-simple-OK.asn1.-P
index 8a3466d..0ae62e3 100644
--- a/tests/66-ref-simple-OK.asn1.-P
+++ b/tests/66-ref-simple-OK.asn1.-P
@@ -36,14 +36,17 @@
 static asn1_SET_OF_specifics_t asn1_DEF_T_specs = {
 	sizeof(struct T),
 	offsetof(struct T, _ber_dec_ctx),
+	1,	/* XER encoding is XMLValueList */
 };
 asn1_TYPE_descriptor_t asn1_DEF_T = {
 	"T",
+	SET_OF_free,
+	SET_OF_print,
 	SET_OF_constraint,
 	SET_OF_decode_ber,
 	SET_OF_encode_der,
-	SET_OF_print,
-	SET_OF_free,
+	0,				/* Not implemented yet */
+	SET_OF_encode_xer,
 	0,	/* Use generic outmost tag fetcher */
 	asn1_DEF_T_tags,
 	sizeof(asn1_DEF_T_tags)
@@ -78,11 +81,12 @@
 /*** <<< FUNC-DECLS [SimpleType] >>> ***/
 
 extern asn1_TYPE_descriptor_t asn1_DEF_SimpleType;
+asn_struct_free_f SimpleType_free;
+asn_struct_print_f SimpleType_print;
 asn_constr_check_f SimpleType_constraint;
 ber_type_decoder_f SimpleType_decode_ber;
 der_type_encoder_f SimpleType_encode_der;
-asn_struct_print_f SimpleType_print;
-asn_struct_free_f SimpleType_free;
+xer_type_encoder_f SimpleType_encode_xer;
 
 /*** <<< CODE [SimpleType] >>> ***/
 
@@ -102,29 +106,23 @@
  */
 static void
 SimpleType_inherit_TYPE_descriptor(asn1_TYPE_descriptor_t *td) {
-	td->ber_decoder    = asn1_DEF_ENUMERATED.ber_decoder;
-	td->der_encoder    = asn1_DEF_ENUMERATED.der_encoder;
 	td->free_struct    = asn1_DEF_ENUMERATED.free_struct;
 	td->print_struct   = asn1_DEF_ENUMERATED.print_struct;
+	td->ber_decoder    = asn1_DEF_ENUMERATED.ber_decoder;
+	td->der_encoder    = asn1_DEF_ENUMERATED.der_encoder;
+	td->xer_decoder    = asn1_DEF_ENUMERATED.xer_decoder;
+	td->xer_encoder    = asn1_DEF_ENUMERATED.xer_encoder;
 	td->last_tag_form  = asn1_DEF_ENUMERATED.last_tag_form;
 	td->elements       = asn1_DEF_ENUMERATED.elements;
 	td->elements_count = asn1_DEF_ENUMERATED.elements_count;
 	td->specifics      = asn1_DEF_ENUMERATED.specifics;
 }
 
-ber_dec_rval_t
-SimpleType_decode_ber(asn1_TYPE_descriptor_t *td,
-		void **structure, void *bufptr, size_t size, int tag_mode) {
+void
+SimpleType_free(asn1_TYPE_descriptor_t *td,
+		void *struct_ptr, int contents_only) {
 	SimpleType_inherit_TYPE_descriptor(td);
-	return td->ber_decoder(td, structure, bufptr, size, tag_mode);
-}
-
-der_enc_rval_t
-SimpleType_encode_der(asn1_TYPE_descriptor_t *td,
-		void *structure, int tag_mode, ber_tlv_tag_t tag,
-		asn_app_consume_bytes_f *cb, void *app_key) {
-	SimpleType_inherit_TYPE_descriptor(td);
-	return td->der_encoder(td, structure, tag_mode, tag, cb, app_key);
+	td->free_struct(td, struct_ptr, contents_only);
 }
 
 int
@@ -134,11 +132,27 @@
 	return td->print_struct(td, struct_ptr, ilevel, cb, app_key);
 }
 
-void
-SimpleType_free(asn1_TYPE_descriptor_t *td,
-		void *struct_ptr, int contents_only) {
+ber_dec_rval_t
+SimpleType_decode_ber(asn1_TYPE_descriptor_t *td,
+		void **structure, void *bufptr, size_t size, int tag_mode) {
 	SimpleType_inherit_TYPE_descriptor(td);
-	td->free_struct(td, struct_ptr, contents_only);
+	return td->ber_decoder(td, structure, bufptr, size, tag_mode);
+}
+
+asn_enc_rval_t
+SimpleType_encode_der(asn1_TYPE_descriptor_t *td,
+		void *structure, int tag_mode, ber_tlv_tag_t tag,
+		asn_app_consume_bytes_f *cb, void *app_key) {
+	SimpleType_inherit_TYPE_descriptor(td);
+	return td->der_encoder(td, structure, tag_mode, tag, cb, app_key);
+}
+
+asn_enc_rval_t
+SimpleType_encode_xer(asn1_TYPE_descriptor_t *td, void *structure,
+		int ilevel, enum xer_encoder_flags_e flags,
+		asn_app_consume_bytes_f *cb, void *app_key) {
+	SimpleType_inherit_TYPE_descriptor(td);
+	return td->xer_encoder(td, structure, ilevel, flags, cb, app_key);
 }
 
 
@@ -149,11 +163,13 @@
 };
 asn1_TYPE_descriptor_t asn1_DEF_SimpleType = {
 	"SimpleType",
+	SimpleType_free,
+	SimpleType_print,
 	SimpleType_constraint,
 	SimpleType_decode_ber,
 	SimpleType_encode_der,
-	SimpleType_print,
-	SimpleType_free,
+	0,				/* Not implemented yet */
+	SimpleType_encode_xer,
 	0,	/* Use generic outmost tag fetcher */
 	asn1_DEF_SimpleType_tags,
 	sizeof(asn1_DEF_SimpleType_tags)