#325

Add encoding/decoding for NullType in XER format

Introduce `Xer_EncodeNull` and `Xer_DecodeNull` functions
to handle `NullType` values in the XER (XML Encoding Rules)
format.

Author: usr3-1415

BackendAst/DAstXer.fs

@@ -211,7 +211,7 @@ let createTimeTypeFunction (r:Asn1AcnAst.AstRoot) (lm:LanguageMacros) (codec:Com
 let createNullTypeFunction (r:Asn1AcnAst.AstRoot) (lm:LanguageMacros) (codec:CommonTypes.Codec) (t:Asn1AcnAst.Asn1Type) (o:Asn1AcnAst.NullType) (typeDefinition:TypeDefinitionOrReference)  (isValidFunc: IsValidFunction option) (us:State)  =
     let nullFunc = lm.xer.Null
     let funcBody (errCode:ErrorCode) (p:CallerScope) (xmlTag:XerTag option) =
-        let pp = match codec with CommonTypes.Encode -> lm.lg.getPointer p.arg | CommonTypes.Decode -> lm.lg.getPointer p.arg
+        let pp = match codec with CommonTypes.Encode -> lm.lg.getValue p.arg | CommonTypes.Decode -> lm.lg.getPointer p.arg
         let xmlTag = xmlTag |> orElse (XerLiteralConstant "NULL")
         let nLevel = BigInteger (t.id.AcnAbsPath.Length - 2)
         let totalSize = getMaxSizeInBytesForXER xmlTag 0I

asn1crt/asn1crt_encoding_xer.c

@@ -506,6 +506,11 @@ flag Xer_DecodeComplexElementEnd(ByteStream* pByteStrm, const char* elementTag,
 
 
 
+flag Xer_EncodeNull(ByteStream* pByteStrm, const char* elementTag, NullType value, int *pErrCode, int level)
+{
+	return Xer_EncodePrimitiveElement(pByteStrm, elementTag, NULL, pErrCode, level);
+}
+
 flag Xer_EncodeInteger(ByteStream* pByteStrm, const char* elementTag, asn1SccSint value, int *pErrCode, int level)
 {
 	return Xer_EncodePrimitiveElement(pByteStrm, elementTag, Int2String(value), pErrCode, level);
@@ -677,6 +682,15 @@ flag Xer_EncodeObjectIdentifier(ByteStream* pByteStrm, const char* elementTag, c
 
 
 
+flag Xer_DecodeNull(ByteStream* pByteStrm, const char* elementTag, NullType* value, int *pErrCode)
+{
+	char tmp[256];
+	memset(tmp, 0x0, sizeof(tmp));
+	if (!Xer_DecodePrimitiveElement(pByteStrm, elementTag, tmp, pErrCode))
+		return FALSE;
+	*value = 0;
+	return TRUE;
+}
 
 
 

asn1crt/asn1crt_encoding_xer.h

@@ -10,6 +10,7 @@ extern "C" {
 void Xer_EncodeXmlHeader(ByteStream* pByteStrm, const char* xmlHeader);
 flag Xer_EncodeComment(ByteStream* pByteStrm, const char* comment, int *pErrCode);
 
+flag Xer_EncodeNull(ByteStream* pByteStrm, const char* elementTag, NullType value, int *pErrCode, int level);
 flag Xer_EncodeInteger(ByteStream* pByteStrm, const char* elementTag, asn1SccSint value, int *pErrCode, int level);
 flag Xer_EncodePosInteger(ByteStream* pByteStrm, const char* elementTag, asn1SccUint value, int *pErrCode, int level);
 flag Xer_EncodeBoolean(ByteStream* pByteStrm, const char* elementTag, flag value, int *pErrCode, int level);
@@ -20,7 +21,7 @@ flag Xer_EncodeOctetString(ByteStream* pByteStrm, const char* elementTag, const
 flag Xer_EncodeBitString(ByteStream* pByteStrm, const char* elementTag, const byte value[], int nCount, int *pErrCode, int level);
 flag Xer_EncodeObjectIdentifier(ByteStream* pByteStrm, const char* elementTag, const Asn1ObjectIdentifier *pVal, int *pErrCode, int level);
 
-
+flag Xer_DecodeNull(ByteStream* pByteStrm, const char* elementTag, NullType* value, int *pErrCode);
 flag Xer_DecodeInteger(ByteStream* pByteStrm, const char* elementTag, asn1SccSint* value, int *pErrCode);
 flag Xer_DecodePosInteger(ByteStream* pByteStrm, const char* elementTag, asn1SccUint* value, int *pErrCode);
 flag Xer_DecodeBoolean(ByteStream* pByteStrm, const char* elementTag, flag* value, int *pErrCode);

asn1scc/Program.fs

@@ -123,7 +123,7 @@ let printVersion () =
     //let fvi = System.Diagnostics.FileVersionInfo.GetVersionInfo(assembly.Location);
     //let version = fvi.FileVersion;
 
-    let version = "4.5.2.8"
+    let version = "4.5.2.9"
     printfn "asn1scc version %s\n" version
     ()