wm withdraw .; wm withdraw .output; wm geom .konsola 627x525+23+30;
  #% 

# tclws jako klient do serwera embeded...
# + BLAD: przy ponownym zaladowaniu tego samego pliku wsdl...
#

lappend auto_path ~/tcl
package re WS::Client
  #% 2.3.7

info load
  #% {/root/tcl/tls1.6/libtls1.6.so Tls} {/root/tcl/tdom0.8/libtdom0.8.2.so Tdom} {/root/tcl/dict/libdict8.5.2.so Dict} {/root/tcl/tclkit/lib/tk8.4/libtk8.4.so Tk} {{} zlib} {{} vfs} {{} rechan} {{} pwb} {{} Mk4tcl}

set w1 [::WS::Client::GetAndParseWsdl http://localhost:5000/service/qqq/wsdl]
dict get $w1 name
  #% qqq

array names WS::Utils::simpleTypes Client,qqq,*met3*
  #% Client,qqq,tns1:met3Request
set WS::Utils::simpleTypes(Client,qqq,tns1:met3Request)
  #% base string comment {} xns tns1
  # + to sie powinno zmienic, ale sie nie zmiania...
unset WS::Utils::simpleTypes(Client,qqq,tns1:met3Request)
  # + naprawia problem... w takim razie po co ten wpis do simpleTypes???
  #    dziwne, ale bez tego wpisu tez dziala... moze chodzi o cache???
array unset WS::Utils::simpleTypes Client,qqq,*
  # + to troche z duzo usuwa... patrz: ClientSide.tcl, "# MH"

unset WS::Utils::simpleTypes(Client,qqq,tns1:met3Request)
  # + obecnie to nalezy zrobic po przeladowaniu wsdl, przed CreateStubs;
  #   to nie jest wlasciwe rozwiazanie...

::WS::Client::CreateStubs qqq
  #% 
	::qqq::met1 {par1 par2}
	::qqq::met2 liczbaElem
	::qqq::met3 {p1 p2}
	::qqq::razyDwa par1

  # + BLAD: po dodaniu parametrow do met3, param. te nie chce sie pojawic ?!
  #   w wsdl jest... czyli jednak nie mozna na zywo tego zmieniac ???
  #   po restartowaniu klienta wszystko jest ok...?!?!?!

#dict set ::WS::Client::serviceArr(qqq) location http://127.0.0.1:5001/service/qqq/op; set _ ""
  # + na uzytek sockspy...

qqq::met1 qqq 321
  #% met1Result {a ku ku !!! par1=qqq, par2+1=322}

qqq::met2 3
  #% met2Result {{a qqq0 b 0} {a qqq1 b 1} {a qqq2 b 2}}
qqq::met2 1
  #% met2Result {{a qqq0 b 0}}
qqq::met2 0
  #% 
  # + ???

qqq::met3 1 22
  #% met3Result 23

qqq::razyDwa {1 2 3}
  #% razyDwaResult {2 4 6}
  # + warto obserwowac kom. soap...
  #   widac ze sekwencja jest przekazywana w b. rozrzutny sposob!!!

qqq::razyDwa {1 2 3.3}
  #% razyDwaResult {2 4 6.6}
  # + nie sprawdza sie dokladnie typow!

qqq::razyDwa {}
  #% 
  # + formalnie w wsdl min. elem to 1 ?!?!!? (blad?)

catch {qqq::razyDwa {1 2 q}} err; set err
  #% can't use non-numeric string as operand of "*"
  # + dlaczego poawia sie tylko fault string??


# ogladamy wsdl ...
# + dziala jesli WS ma >=1 metode!!
# + widac ze kazda operacja ma kom. we i wy;
#   kom. te sa dokumentami xml, opisanymi w <types>
#   w jezyku XML Schema...
#
package re http
set h [http::geturl http://localhost:5000/service/qqq/wsdl]; http::data $h
  #% <?xml version="1.0"  encoding="utf-8"?>
<wsdl:definitions xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:http="http://schemas.xmlsoap.org/wsdl/http/" xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:qqq="http://127.0.0.1:5000/service/qqq" targetNamespace="http://127.0.0.1:5000/service/qqq">
    <wsdl:types>
        <xs:schema elementFormDefault="qualified" targetNamespace="http://127.0.0.1:5000/service/qqq">
            <xs:element name="met1Request" type="qqq:met1Request"/>
            <xs:complexType name="met1Request">
                <xs:sequence>
                    <xs:element name="par1" maxOccurs="1" type="xs:string" minOccurs="1"/>
                    <xs:element name="par2" maxOccurs="1" type="xs:int" minOccurs="1"/>
                </xs:sequence>
            </xs:complexType>
            <xs:element name="met1Results" type="qqq:met1Results"/>
            <xs:complexType name="met1Results">
                <xs:sequence>
                    <xs:element name="met1Result" maxOccurs="1" type="xs:string" minOccurs="1"/>
                </xs:sequence>
            </xs:complexType>
            <xs:element name="met2Request" type="qqq:met2Request"/>
            <xs:complexType name="met2Request">
                <xs:sequence>
                    <xs:element name="liczbaElem" maxOccurs="1" type="xs:int" minOccurs="1"/>
                </xs:sequence>
            </xs:complexType>
            <xs:element name="met2Results" type="qqq:met2Results"/>
            <xs:complexType name="met2Results">
                <xs:sequence>
                    <xs:element name="met2Result" maxOccurs="unbounded" type="qqq:mojTyp" minOccurs="1"/>
                </xs:sequence>
            </xs:complexType>
            <xs:element name="met3Request" type="qqq:met3Request"/>
            <xs:complexType name="met3Request">
                <xs:sequence>
                    <xs:element name="p1" maxOccurs="1" type="xs:int" minOccurs="1"/>
                    <xs:element name="p2" maxOccurs="1" type="xs:int" minOccurs="1"/>
                </xs:sequence>
            </xs:complexType>
            <xs:element name="met3Results" type="qqq:met3Results"/>
            <xs:complexType name="met3Results">
                <xs:sequence>
                    <xs:element name="met3Result" maxOccurs="1" type="xs:int" minOccurs="1"/>
                </xs:sequence>
            </xs:complexType>
            <xs:element name="mojTyp" type="qqq:mojTyp"/>
            <xs:complexType name="mojTyp">
                <xs:sequence>
                    <xs:element name="a" maxOccurs="1" type="xs:string" minOccurs="1"/>
                    <xs:element name="b" maxOccurs="1" type="xs:int" minOccurs="1"/>
                </xs:sequence>
            </xs:complexType>
            <xs:element name="razyDwaRequest" type="qqq:razyDwaRequest"/>
            <xs:complexType name="razyDwaRequest">
                <xs:sequence>
                    <xs:element name="par1" maxOccurs="unbounded" type="xs:int" minOccurs="1"/>
                </xs:sequence>
            </xs:complexType>
            <xs:element name="razyDwaResults" type="qqq:razyDwaResults"/>
            <xs:complexType name="razyDwaResults">
                <xs:sequence>
                    <xs:element name="razyDwaResult" maxOccurs="unbounded" type="xs:int" minOccurs="1"/>
                </xs:sequence>
            </xs:complexType>
        </xs:schema>
    </wsdl:types>
    <wsdl:message name="met1In">
        <wsdl:part name="parameters" element="qqq:met1Request"/>
    </wsdl:message>
    <wsdl:message name="met1Out">
        <wsdl:part name="parameters" element="qqq:met1Results"/>
    </wsdl:message>
    <wsdl:message name="met2In">
        <wsdl:part name="parameters" element="qqq:met2Request"/>
    </wsdl:message>
    <wsdl:message name="met2Out">
        <wsdl:part name="parameters" element="qqq:met2Results"/>
    </wsdl:message>
    <wsdl:message name="met3In">
        <wsdl:part name="parameters" element="qqq:met3Request"/>
    </wsdl:message>
    <wsdl:message name="met3Out">
        <wsdl:part name="parameters" element="qqq:met3Results"/>
    </wsdl:message>
    <wsdl:message name="razyDwaIn">
        <wsdl:part name="parameters" element="qqq:razyDwaRequest"/>
    </wsdl:message>
    <wsdl:message name="razyDwaOut">
        <wsdl:part name="parameters" element="qqq:razyDwaResults"/>
    </wsdl:message>
    <wsdl:portType name="qqqSoap">
        <wsdl:operation name="met1">
            <wsdl:input message="qqq:met1In"/>
            <wsdl:output message="qqq:met1Out"/>
        </wsdl:operation>
        <wsdl:operation name="met2">
            <wsdl:input message="qqq:met2In"/>
            <wsdl:output message="qqq:met2Out"/>
        </wsdl:operation>
        <wsdl:operation name="met3">
            <wsdl:input message="qqq:met3In"/>
            <wsdl:output message="qqq:met3Out"/>
        </wsdl:operation>
        <wsdl:operation name="razyDwa">
            <wsdl:input message="qqq:razyDwaIn"/>
            <wsdl:output message="qqq:razyDwaOut"/>
        </wsdl:operation>
    </wsdl:portType>
    <wsdl:binding name="qqqSoap" type="qqq:qqqSoap">
        <soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http"/>
        <wsdl:operation name="met1">
            <soap:operation soapAction="qqq:met1" style="document"/>
            <wsdl:input>
                <soap:body use="literal"/>
            </wsdl:input>
            <wsdl:output>
                <soap:body use="literal"/>
            </wsdl:output>
        </wsdl:operation>
        <wsdl:operation name="met2">
            <soap:operation soapAction="qqq:met2" style="document"/>
            <wsdl:input>
                <soap:body use="literal"/>
            </wsdl:input>
            <wsdl:output>
                <soap:body use="literal"/>
            </wsdl:output>
        </wsdl:operation>
        <wsdl:operation name="met3">
            <soap:operation soapAction="qqq:met3" style="document"/>
            <wsdl:input>
                <soap:body use="literal"/>
            </wsdl:input>
            <wsdl:output>
                <soap:body use="literal"/>
            </wsdl:output>
        </wsdl:operation>
        <wsdl:operation name="razyDwa">
            <soap:operation soapAction="qqq:razyDwa" style="document"/>
            <wsdl:input>
                <soap:body use="literal"/>
            </wsdl:input>
            <wsdl:output>
                <soap:body use="literal"/>
            </wsdl:output>
        </wsdl:operation>
    </wsdl:binding>
    <wsdl:service name="qqq">
        <wsdl:documentation></wsdl:documentation>
        <wsdl:port name="qqqSoap" binding="qqq:qqqSoap">
            <soap:address location="http://127.0.0.1:5000/service/qqq/op"/>
        </wsdl:port>
    </wsdl:service>
</wsdl:definitions>