diff --git a/XML-RPC.xsd b/XML-RPC.xsd
new file mode 100644
index 0000000000000000000000000000000000000000..a7e7567bc648d50f00aaf6eb2da42c03462d0d66
--- /dev/null
+++ b/XML-RPC.xsd
@@ -0,0 +1,133 @@
+<?xml version="1.0"?>
+<xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+
+ <!-- The only two possible root elements are methodResponse and
+ methodCall so these are the only two I use a top-level
+ declaration for. -->
+
+ <xsd:element name="methodCall">
+ <xsd:complexType>
+ <xsd:all>
+ <xsd:element name="methodName">
+ <xsd:simpleType>
+ <xsd:restriction base="ASCIIString">
+ <xsd:pattern value="([A-Za-z0-9]|/|\.|:|_)*" />
+ </xsd:restriction>
+ </xsd:simpleType>
+ </xsd:element>
+ <xsd:element name="params" minOccurs="0" maxOccurs="1">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="param" type="ParamType"
+ minOccurs="0" maxOccurs="unbounded"/>
+ </xsd:sequence>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:all>
+ </xsd:complexType>
+ </xsd:element>
+
+ <xsd:element name="methodResponse">
+ <xsd:complexType>
+ <xsd:choice>
+ <xsd:element name="params">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="param" type="ParamType"/>
+ </xsd:sequence>
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="fault">
+ <!-- What can appear inside a fault is very restricted -->
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="struct">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="member"
+ type="MemberType">
+ </xsd:element>
+ <xsd:element name="member"
+ type="MemberType">
+ </xsd:element>
+ </xsd:sequence>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:sequence>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:sequence>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+
+ <xsd:complexType name="ParamType">
+ <xsd:sequence>
+ <xsd:element name="value" type="ValueType"/>
+ </xsd:sequence>
+ </xsd:complexType>
+
+ <xsd:complexType name="ValueType" mixed="true">
+ <!-- I need to figure out how to say that this
+ is either a simple xsd:string type or that
+ it contains one of these elements; but that otherwise
+ it does not have mixed content -->
+ <xsd:choice>
+ <xsd:element name="i4" type="xsd:int"/>
+ <xsd:element name="int" type="xsd:int"/>
+ <xsd:element name="string" type="ASCIIString"/>
+ <xsd:element name="double" type="xsd:decimal"/>
+ <xsd:element name="Base64" type="xsd:base64Binary"/>
+ <xsd:element name="boolean" type="NumericBoolean"/>
+ <xsd:element name="dateTime.iso8601" type="xsd:dateTime"/>
+ <xsd:element name="array" type="ArrayType"/>
+ <xsd:element name="struct" type="StructType"/>
+ </xsd:choice>
+ </xsd:complexType>
+
+ <xsd:complexType name="StructType">
+ <xsd:sequence>
+ <xsd:element name="member" type="MemberType"
+ maxOccurs="unbounded"/>
+ </xsd:sequence>
+ </xsd:complexType>
+
+ <xsd:complexType name="MemberType">
+ <xsd:sequence>
+ <xsd:element name="name" type="xsd:string" />
+ <xsd:element name="value" type="ValueType"/>
+ </xsd:sequence>
+ </xsd:complexType>
+
+ <xsd:complexType name="ArrayType">
+ <xsd:sequence>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="ValueType"
+ minOccurs="0" maxOccurs="unbounded"/>
+ </xsd:sequence>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:sequence>
+ </xsd:complexType>
+
+ <xsd:simpleType name="ASCIIString">
+ <xsd:restriction base="xsd:string">
+ <xsd:pattern value="([ -~]|\n|\r|\t)*" />
+ </xsd:restriction>
+ </xsd:simpleType>
+
+ <xsd:simpleType name="NumericBoolean">
+ <xsd:restriction base="xsd:boolean">
+ <xsd:pattern value="0|1" />
+ </xsd:restriction>
+ </xsd:simpleType>
+
+</xsd:schema>
+
diff --git a/XML_RPC.ttcn b/XML_RPC.ttcn
new file mode 100644
index 0000000000000000000000000000000000000000..2da17935019005fa0e59f9f6aba7e9cb81bc50ae
--- /dev/null
+++ b/XML_RPC.ttcn
@@ -0,0 +1,189 @@
+/*******************************************************************************
+* Copyright (c) 2000-2018 Ericsson Telecom AB
+*
+* XSD to TTCN-3 Translator version: CRL 113 200/6 R4B
+*
+* All rights reserved. This program and the accompanying materials
+* are made available under the terms of the Eclipse Public License v2.0
+* which accompanies this distribution, and is available at
+* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html
+*******************************************************************************/
+//
+// File: XML_RPC.ttcn
+// Description:
+// References:
+// Rev:
+// Prodnr:
+// Updated: Thu Aug 2 13:51:04 2018
+// Contact: http://ttcn.ericsson.se
+//
+////////////////////////////////////////////////////////////////////////////////
+// Generated from file(s):
+// - XML-RPC.xsd
+// /* xml version = "1.0" */
+// /* targetnamespace = "NoTargetNamespace" */
+////////////////////////////////////////////////////////////////////////////////
+// Modification header(s):
+//-----------------------------------------------------------------------------
+// Modified by:
+// Modification date:
+// Description:
+// Modification contact:
+//------------------------------------------------------------------------------
+////////////////////////////////////////////////////////////////////////////////
+
+
+module XML_RPC {
+
+
+import from XSD all;
+
+
+external function enc_MethodCall(in MethodCall pdu) return octetstring
+with { extension "prototype (convert) encode(XER:XER_EXTENDED)" }
+
+external function dec_MethodCall(in octetstring stream) return MethodCall
+with { extension "prototype (convert) decode(XER:XER_EXTENDED)" }
+
+
+
+
+external function enc_MethodResponse(in MethodResponse pdu) return octetstring
+with { extension "prototype (convert) encode(XER:XER_EXTENDED)" }
+
+external function dec_MethodResponse(in octetstring stream) return MethodResponse
+with { extension "prototype (convert) decode(XER:XER_EXTENDED)" }
+
+
+
+
+
+
+type record MethodCall
+{
+ record of enumerated {
+ methodName,
+ params
+ } order,
+ XSD.String methodName (pattern "([A-Za-z0-9]|/|.|:|_)*"),
+ record {
+ record of ParamType param_list
+ } params optional
+}
+with {
+ variant "name as uncapitalized";
+ variant "useOrder";
+ variant "element";
+ variant (params.param_list) "untagged";
+ variant (params.param_list[-]) "name as 'param'";
+};
+
+
+type record MethodResponse
+{
+ union {
+ record {
+ ParamType param_
+ } params,
+ /* What can appear inside a fault is very restricted */
+ record {
+ record {
+ record {
+ MemberType member,
+ MemberType member_1
+ } struct
+ } value_
+ } fault
+ } choice
+}
+with {
+ variant "name as uncapitalized";
+ variant "element";
+ variant (choice) "untagged";
+ variant (choice.params.param_) "name as 'param'";
+ variant (choice.fault.value_) "name as 'value'";
+ variant (choice.fault.value_.struct.member_1) "name as 'member'";
+};
+
+
+type record ParamType
+{
+ ValueType value_
+}
+with {
+ variant (value_) "name as 'value'";
+};
+
+
+
+type record ValueType
+{
+ record of XSD.String embed_values,
+ union {
+ XSD.Int i4,
+ // XSD.Int int,
+ ASCIIString string,
+ XSD.Decimal double,
+ XSD.Base64Binary base64,
+ NumericBoolean boolean_,
+ XSD.DateTime dateTime_iso8601,
+ ArrayType array,
+ StructType struct
+ } choice
+}
+with {
+ variant "embedValues";
+ variant (choice) "untagged";
+ variant (choice.base64) "name as capitalized";
+ variant (choice.boolean_) "name as 'boolean'";
+ variant (choice.dateTime_iso8601) "name as 'dateTime.iso8601'";
+};
+
+
+type record StructType
+{
+ record length(1 .. infinity) of MemberType member_list
+}
+with {
+ variant (member_list) "untagged";
+ variant (member_list[-]) "name as 'member'";
+};
+
+
+type record MemberType
+{
+ XSD.String name,
+ ValueType value_
+}
+with {
+ variant (value_) "name as 'value'";
+};
+
+
+type record ArrayType
+{
+ record {
+ record of ValueType value_list
+ } data
+}
+with {
+ variant (data.value_list) "untagged";
+ variant (data.value_list[-]) "name as 'value'";
+};
+
+
+type XSD.String ASCIIString (pattern "([ -~]|\n|\r|\t)*");
+
+
+type XSD.Boolean NumericBoolean;
+//with {
+//variant "text 'true' as '1'";
+//variant "text 'false' as '0'";
+//};
+
+
+}
+with {
+encode "XML";
+variant "controlNamespace 'http://www.w3.org/2001/XMLSchema-instance' prefix 'xsi'";
+}
diff --git a/XML_RPC_test.ttcn b/XML_RPC_test.ttcn
new file mode 100644
index 0000000000000000000000000000000000000000..faabc38e7f3202b0ad0baa424f9c744d23a9a06e
--- /dev/null
+++ b/XML_RPC_test.ttcn
@@ -0,0 +1,630 @@
+/*******************************************************************************
+* Copyright (c) 2000-2018 Ericsson Telecom AB
+*
+* XSD to TTCN-3 Translator version: CRL 113 200/6 R4B
+*
+* All rights reserved. This program and the accompanying materials
+* are made available under the terms of the Eclipse Public License v2.0
+* which accompanies this distribution, and is available at
+* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html
+*******************************************************************************/
+//
+// File: XML_RPC_test.ttcn
+// Description: XML_RPC encoding-decoding test
+// Rev: <RnXnn>
+// Prodnr:
+// Updated:
+// Contact:
+///////////////////////////////////////////////
+module XML_RPC_test {
+
+
+import from XML_RPC all;
+
+type component Test_CT {
+}
+
+template MethodResponse t_GetVoucherHistoryResponse := {
+ choice := {
+ params := {
+ param_ := {
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+ struct := {
+ member_list := {
+ {
+ name := "responseCode",
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+ i4 := 0
+ }
+ }
+ },
+ {
+ name := "agent",
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+ string := "BZ101"
+ }
+ }
+ },
+ {
+ name := "batchId",
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+ string := "ABC1234"
+ }
+ }
+ },
+ {
+ name := "currency",
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+ string := "EUR"
+ }
+ }
+ },
+ {
+ name := "expiryDate",
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+ dateTime_iso8601 := "2003-07-17T00:00:00"
+ }
+ }
+ },
+ {
+ name := "voucherGroup",
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+ string := "A1"
+ }
+ }
+ },
+ {
+ name := "state",
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+ i4 := 2
+ }
+ }
+ },
+ {
+ name := "value",
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+ string := "10000"
+ }
+ }
+ },
+ {
+ name := "extensionText1",
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+ string := "VoucherType=1,Market=Europe"
+ }
+ }
+ },
+ {
+ name := "extensionText2",
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+ string := "19990817T00:00:00"
+ }
+ }
+ },
+ {
+ name := "extensionText3",
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+ string := "42"
+ }
+ }
+ },
+ {
+ name := "transactionRecords",
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+ array := {
+ data := {
+ value_list := {
+ {
+ embed_values:={"",""},
+ choice := {
+ struct := {
+ member_list :=
+ {
+ {
+ name := "operatorId",
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+
+ string := "administrator"
+ }
+ }
+ },
+ {
+ name := "newState",
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+
+ i4 := 5
+ }
+ }
+ },
+ {
+ name := "timestamp",
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+
+ dateTime_iso8601 := "2002-10-09T02:39:55"
+ }
+ }
+ }
+ }
+ }
+ }
+ },
+ {
+ embed_values:={"",""},
+ choice := {
+ struct := {
+ member_list :=
+ {
+ {
+ name := "operatorId",
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+
+ string := "administrator"
+ }
+ }
+ },
+ {
+ name := "newState",
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+
+ i4 := 0
+ }
+ }
+ },
+ {
+ name := "timestamp",
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+
+ dateTime_iso8601 := "2002-10-10T01:39:54"
+ }
+ }
+ }
+ }
+ }
+ }}
+ ,
+ {
+ embed_values:={"",""},
+ choice := {
+
+ struct := {
+ member_list :=
+ {
+ {
+ name := "subscriberId",
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+
+ string := "706691616"
+ }
+ }
+ },
+ {
+ name := "timestamp",
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+
+ dateTime_iso8601 := "2002-10-10T01:39:54"
+ }
+ }
+ },
+ {
+ name := "transactionId",
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+
+ string := "123456"
+ }
+ }
+ },
+ {
+ name := "newState", // newState put at the end
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+ // to test whether SET OF works
+ i4 := 1
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+}
+
+
+template MethodResponse t_GetVoucherHistoryResponse1 := {
+ choice := {
+ params := {
+ param_ := {
+ value_ := {
+ embed_values:={"",""},
+ choice:= {
+ struct := {
+ member_list := {
+ {
+ name := "responseCode",
+ value_ := {
+ embed_values:={"",""},
+ choice:= {
+ i4 := 0
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+}
+
+
+
+template MethodCall t_DeleteTask_SingleParam :=
+{
+ order:={methodName, params},
+ methodName := "DeleteTask",
+ params := {
+ param_list := {{
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+ struct := {
+ member_list := {
+ {
+ name := "taskId",
+ value_ := {
+ embed_values:={"",""},
+ choice:= {
+
+ i4 := 44
+ }
+ }
+ }}
+ }
+ }
+ }
+ }
+ }
+ }
+}
+
+
+template MethodCall/*_MultipleParams */ t_GetGenerateVoucherUsageReportTaskInfo :=
+{
+ order:={methodName, params},
+ methodName := "GetGenerateVoucherUsageReportTaskInfo",
+ params := {
+ param_list := {
+ {
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+ struct := {
+ member_list := { {
+ name := "originNodeType",
+ value_ := {
+ embed_values:={"",""},
+ choice:= {
+ string := "IVR"
+ }}
+ }}
+ }
+ }
+ }
+ }
+ }
+ }
+
+}
+
+
+template MethodCall t_GeneralUpdate_SingleParam := {
+ order:={methodName, params},
+ methodName := "GeneralUpdate",
+ params := {
+ param_list := { {
+ value_ := {
+ embed_values:={"",""},
+ choice := {
+ struct := {
+ member_list := {
+ {
+ name := "originNodeType",
+ value_ := {
+ embed_values:={"",""},
+ choice:= {
+ string := "IVR"
+ }}
+ },
+ {
+ name := "originHostName",
+ value_ := {
+ embed_values:={"",""},
+ choice:= {
+ string := "ws00824"
+ }}
+ },
+ {
+ name := "originTransactionID",
+ value_ := {
+ embed_values:={"",""},
+ choice:= {
+ string := "31349729532086766516"
+ }}
+ },
+ {
+ name := "originTimeStamp",
+ value_ := {
+ embed_values:={"",""},
+ choice:= {
+ dateTime_iso8601 := "2012-02-06T13:19:00"
+ }
+ }
+ },
+ {
+ name := "subscriberNumber",
+ value_ := {
+ embed_values:={"",""},
+ choice:= {
+ string := "4558024013"
+ }}
+ },
+ {
+ name := "transactionCurrency",
+ value_ := {
+ embed_values:={"",""},
+ choice:= {
+ string := "SEK"
+ }}
+ },
+ {
+ name := "offerUpdateInformationList",
+ value_ := {
+ embed_values:={"",""},
+ choice:= {
+ array := {
+ data := {
+ value_list := {
+ {
+ embed_values:={"",""},
+ choice:= {
+ struct := {
+ member_list := {
+ {
+ name := "offerID",
+ value_ := {
+ embed_values:={"",""},
+ choice:= {
+ i4 := 20// int := 20
+ }
+ }
+ },
+ {
+ name := "startDate",
+ value_ := {
+ embed_values:={"",""},
+ choice:= {
+ dateTime_iso8601 := "2012-02-07T12:00:00+00:00"
+ }
+ }
+ },
+ {
+ name := "expiryDate",
+ value_ := {
+ embed_values:={"",""},
+ choice:= {
+ dateTime_iso8601 := "2012-02-10T12:00:00+00:00"
+ }
+ }
+ },
+ {
+ name := "offerType",
+ value_ := {
+ embed_values:={"",""},
+ choice:= {
+ i4 := 0// int := 0
+ }
+ }
+ },
+ {
+ name := "dedicatedAccountUpdateInformation",
+ value_ := {
+ embed_values:={"",""},
+ choice:= {
+ array := {
+ data := {
+ value_list := {
+ {
+ embed_values:={"",""},
+ choice:= {
+ struct := {
+ member_list := {
+ {
+ name := "dedicatedAccountID",
+ value_ := {
+ embed_values:={"",""},
+ choice:= {
+ i4 := 1// int := 1
+ }
+ }
+ },
+ {
+ name := "dedicatedAccountValueNew",
+ value_ := {
+ embed_values:={"",""},
+ choice:= {
+ string := "100"
+ }
+ }
+ },
+ {
+ name := "dedicatedAccountUnitType",
+ value_ := {
+ embed_values:={"",""},
+ choice:= {
+ i4 := 1// int := 1
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+
+}
+
+testcase tc_TestEncDec() runs on Test_CT {
+
+log (t_GetVoucherHistoryResponse);
+var MethodResponse pdu := valueof(t_GetVoucherHistoryResponse);
+var octetstring encodedPdu;
+
+encodedPdu := enc_MethodResponse(pdu);
+log(encodedPdu);
+
+
+
+
+log(dec_MethodResponse(encodedPdu))
+
+
+if (match(dec_MethodResponse(encodedPdu), t_GetVoucherHistoryResponse)) {
+setverdict(pass);
+} else {
+setverdict(fail);
+}
+
+
+log (t_DeleteTask_SingleParam);
+var MethodCall pdu2 := valueof(t_DeleteTask_SingleParam);
+
+var octetstring encodedPdu2;
+
+encodedPdu2 := enc_MethodCall(pdu2);
+log(encodedPdu2);
+
+log(dec_MethodCall(encodedPdu2))
+if (match(dec_MethodCall(encodedPdu2), t_DeleteTask_SingleParam)) {
+setverdict(pass);
+} else {
+setverdict(fail);
+}
+
+
+log (t_GetGenerateVoucherUsageReportTaskInfo);
+var MethodCall pdu3 := valueof(t_GetGenerateVoucherUsageReportTaskInfo);
+var octetstring encodedPdu3;
+
+encodedPdu3 := enc_MethodCall(pdu3);
+log(encodedPdu3);
+
+log(dec_MethodCall(encodedPdu3))
+if (match(dec_MethodCall(encodedPdu3), t_GetGenerateVoucherUsageReportTaskInfo)) {
+setverdict(pass);
+} else {
+setverdict(fail);
+}
+
+log (t_GeneralUpdate_SingleParam );
+var MethodCall pdu4 := valueof(t_GeneralUpdate_SingleParam );
+
+var octetstring encodedPdu4;
+
+encodedPdu4 := enc_MethodCall(pdu4);
+log(encodedPdu4);
+
+log(dec_MethodCall(encodedPdu4))
+if (match(dec_MethodCall(encodedPdu4), t_GeneralUpdate_SingleParam )) {
+setverdict(pass);
+} else {
+setverdict(fail);
+}
+
+}
+
+
+control {
+ execute(tc_TestEncDec())
+}
+
+}