pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Part 1

Browse Source 
runtime WSDL generation : 
  * class inheritance is handled correctly
  * record type handling
  * tests
several warnings get fixed

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@541 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2008-09-10 01:06:46 +00:00
parent 3c301358b4
commit c899af0c2d
4 changed files with 83 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
wst/trunk/tests/test_suite/files/wsdl_gen_complex_type_derivation.wsdl Normal file
View File

@ -0,0 +1,38 @@
<?xml version="1.0"?>
<definitions name="runtime_generator" xmlns="http://schemas.xmlsoap.org/wsdl/" xmlns:tns="urn:sample-namespace" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" targetNamespace="urn:sample-namespace">
<types>
<xsd:schema xmlns="http://www.w3.org/2001/XMLSchema" targetNamespace="urn:sample-namespace">
<xsd:simpleType name="TTestEnum">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="teA"/>
<xsd:enumeration value="teB"/>
<xsd:enumeration value="teC"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:complexType name="TClass_A">
<xsd:sequence>
<xsd:element name="A_StringProp" type="xsd:string" maxOccurs="1" minOccurs="1"/>
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="TClass_AB">
<xsd:complexContent>
<xsd:extension base="tns:TClass_A">
<xsd:sequence>
<xsd:element name="AB_IntProp" type="xsd:int" maxOccurs="1" minOccurs="1"/>
</xsd:sequence>
</xsd:extension>
</xsd:complexContent>
</xsd:complexType>
<xsd:complexType name="Class_ABC">
<xsd:complexContent>
<xsd:extension base="tns:TClass_AB">
<xsd:sequence>
<xsd:element name="ABC_BoolProp" type="xsd:boolean" maxOccurs="1" minOccurs="1"/>
</xsd:sequence>
<xsd:attribute use="required" name="ABC_EnumAttProp" type="tns:TTestEnum"/>
</xsd:extension>
</xsd:complexContent>
</xsd:complexType>
</xsd:schema>
</types>
</definitions>

17
wst/trunk/tests/test_suite/files/wsdl_gen_generate_array.wsdl Normal file
View File

@ -0,0 +1,17 @@
<?xml version="1.0"?>
<definitions name="runtime_generator" xmlns="http://schemas.xmlsoap.org/wsdl/" xmlns:tns="urn:sample-namespace" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" targetNamespace="urn:sample-namespace">
<types>
<xsd:schema xmlns="http://www.w3.org/2001/XMLSchema" targetNamespace="urn:sample-namespace">
<xsd:complexType name="TArrayOfStringRemotableSample">
<xsd:sequence>
<xsd:element name="item" type="xsd:string" maxOccurs="unbounded" minOccurs="0"/>
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="TArrayOfIntRemotableSample">
<xsd:sequence>
<xsd:element name="int_value" type="xsd:int" maxOccurs="unbounded" minOccurs="0"/>
</xsd:sequence>
</xsd:complexType>
</xsd:schema>
</types>
</definitions>

14
wst/trunk/tests/test_suite/files/wsdl_gen_generate_enum.wsdl Normal file
View File

@ -0,0 +1,14 @@
<?xml version="1.0"?>
<definitions name="runtime_generator" xmlns="http://schemas.xmlsoap.org/wsdl/" xmlns:tns="urn:sample-namespace" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" targetNamespace="urn:sample-namespace">
<types>
<xsd:schema xmlns="http://www.w3.org/2001/XMLSchema" targetNamespace="urn:sample-namespace">
<xsd:simpleType name="TestEnum_Type">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="A"/>
<xsd:enumeration value="teB"/>
<xsd:enumeration value="The C Item"/>
</xsd:restriction>
</xsd:simpleType>
</xsd:schema>
</types>
</definitions>

14
wst/trunk/tests/test_suite/files/wsdl_gen_generate_record.wsdl Normal file
View File

@ -0,0 +1,14 @@
<?xml version="1.0"?>
<definitions name="runtime_generator" xmlns="http://schemas.xmlsoap.org/wsdl/" xmlns:tns="urn:sample-namespace" xmlns:wst="urn:wst_base" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" targetNamespace="urn:sample-namespace">
<types>
<xsd:schema xmlns="http://www.w3.org/2001/XMLSchema" targetNamespace="urn:sample-namespace">
<xsd:complexType name="TTestSmallRecord" wst:wst_record="true">
<xsd:sequence>
<xsd:element name="fieldSmallint" type="xsd:short" maxOccurs="1" minOccurs="0"/>
<xsd:element name="fieldString" type="xsd:string" maxOccurs="1" minOccurs="0"/>
</xsd:sequence>
<xsd:attribute use="optional" name="fieldWord" type="xsd:unsignedShort"/>
</xsd:complexType>
</xsd:schema>
</types>
</definitions>