Check-in [c020a40930]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Updates to documentation

git-svn-id: http://tclws.googlecode.com/svn/[email protected] 4eab59b1-ed42-0410-973d-ab9b78d4c8bc

Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | proposed-main
Files: files | file ages | folders
SHA1: c020a4093000a0679f894df0584f221cd6bca99e
User & Date: [email protected] 2010-11-16 23:55:42
Context
2010-11-17 04:35
Added Wub support

git-svn-id: http://tclws.googlecode.com/svn/[email protected] 4eab59b1-ed42-0410-973d-ab9b78d4c8bc check-in: 81cee77135 user: [email protected] tags: proposed-main

2010-11-16 23:55
Updates to documentation

git-svn-id: http://tclws.googlecode.com/svn/[email protected] 4eab59b1-ed42-0410-973d-ab9b78d4c8bc check-in: c020a40930 user: [email protected] tags: proposed-main

2010-11-16 22:42
Updates to Client side documentation.

git-svn-id: http://tclws.googlecode.com/svn/[email protected] 4eab59b1-ed42-0410-973d-ab9b78d4c8bc check-in: cff198f656 user: [email protected] tags: proposed-main

Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to AolServer.tcl.

39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
##                                                                           ##
###############################################################################

package require uri
package require base64
package require html

package provide WS::AolServer 1.1.2

namespace eval ::WS::AolServer {

    array set portInfo {}

    set portList [list]
    set forever {}






|







39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
##                                                                           ##
###############################################################################

package require uri
package require base64
package require html

package provide WS::AolServer 1.2.0

namespace eval ::WS::AolServer {

    array set portInfo {}

    set portList [list]
    set forever {}

Changes to ClientSide.tcl.

50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
package require uri

catch {
    package require tls
    http::register https 443 ::tls::socket
}

package provide WS::Client 1.1.2

namespace eval ::WS::Client {
    ##
    ## serviceArr is indexed by service name and contains a dictionary that
    ## defines the service.  The dictionary has the following structure:
    ##   targetNamespace - the target namespace
    ##   operList - list of operations






|







50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
package require uri

catch {
    package require tls
    http::register https 443 ::tls::socket
}

package provide WS::Client 1.2.0

namespace eval ::WS::Client {
    ##
    ## serviceArr is indexed by service name and contains a dictionary that
    ## defines the service.  The dictionary has the following structure:
    ##   targetNamespace - the target namespace
    ##   operList - list of operations

Changes to Embedded.tcl.

33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
##                                                                           ##
###############################################################################

package require uri
package require base64
package require html

package provide WS::Embeded 1.1.2

namespace eval ::WS::Embeded {

    array set portInfo {}

    set portList [list]
    set forever {}






|







33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
##                                                                           ##
###############################################################################

package require uri
package require base64
package require html

package provide WS::Embeded 1.2.0

namespace eval ::WS::Embeded {

    array set portInfo {}

    set portList [list]
    set forever {}

Changes to ServerSide.tcl.

43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
if {![llength [info command dict]]} {
    package require dict
}
package require html
package require log
package require tdom

package provide WS::Server 1.1.2

namespace eval ::WS::Server {
    array set serviceArr {}
    set procInfo {}
    set mode {}
}







|







43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
if {![llength [info command dict]]} {
    package require dict
}
package require html
package require log
package require tdom

package provide WS::Server 1.2.0

namespace eval ::WS::Server {
    array set serviceArr {}
    set procInfo {}
    set mode {}
}

Changes to Utilities.tcl.

51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
if {![llength [info command dict]]} {
    package require dict
}
package require log
package require tdom
package require struct::set

package provide WS::Utils 1.1.2

namespace eval ::WS {}

namespace eval ::WS::Utils {
    set typeInfo {}
    set currentSchema {}
    array set importedXref {}






|







51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
if {![llength [info command dict]]} {
    package require dict
}
package require log
package require tdom
package require struct::set

package provide WS::Utils 1.2.0

namespace eval ::WS {}

namespace eval ::WS::Utils {
    set typeInfo {}
    set currentSchema {}
    array set importedXref {}

Changes to Wub.tcl.

39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
##                                                                           ##
###############################################################################

package require uri
package require base64
package require html

package provide WS::Wub 1.1.2

namespace eval ::WS::Wub {

    array set portInfo {}

    set portList [list]
    set forever {}






|







39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
##                                                                           ##
###############################################################################

package require uri
package require base64
package require html

package provide WS::Wub 1.2.0

namespace eval ::WS::Wub {

    array set portInfo {}

    set portList [list]
    set forever {}

Changes to docs/Calling a Web Service.html.

186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
<P><B>Pre-requisite Conditions&nbsp;: None</B> </P>
<HR>


<A name=Transforms></A>
<H2>Defining Transforms </H2>
<P><B>Procedure Name&nbsp;: <I>::WS::Client::SetServiceTransforms</I></B> </P>
#       serviceName  - Service name to add namespace to
#       inTransform  - Input transform, defaults to {}
#       outTransform - Output transform, defaults to {}
#
# Returns :     None
<P><B>Description&nbsp;: Define a service's transforms</B>
<PRE>
               Transform signature is:
                   cmd serviceName operationName <I>transformType</I> xml {url {}} {argList {}}
               where <I>transformType</I> is <B>REQUEST</B> or <B>REPLY</B>
               and url and argList will only be present for <I>transformType</I> == <B>REQUEST</B>
</PRE> </P>






<
<
<
<
<







186
187
188
189
190
191
192





193
194
195
196
197
198
199
<P><B>Pre-requisite Conditions&nbsp;: None</B> </P>
<HR>


<A name=Transforms></A>
<H2>Defining Transforms </H2>
<P><B>Procedure Name&nbsp;: <I>::WS::Client::SetServiceTransforms</I></B> </P>





<P><B>Description&nbsp;: Define a service's transforms</B>
<PRE>
               Transform signature is:
                   cmd serviceName operationName <I>transformType</I> xml {url {}} {argList {}}
               where <I>transformType</I> is <B>REQUEST</B> or <B>REPLY</B>
               and url and argList will only be present for <I>transformType</I> == <B>REQUEST</B>
</PRE> </P>

Changes to docs/index.html.

14
15
16
17
18
19
20
21
22
23
24
25
26
27

28
29
30
31
32
33
34
<p>
The distribution provides both client side access to Web Services and server
side creation of Web Services. Currently only document/literal and rpc/encoded
with HTTP Soap transport are supported on the client side. The server side
currently works only with TclHttpd or embedded into an application.
The server side provides all services as document/literal
over HTTP Soap transport. Documentation for the package, including examples can
be found here. The distribution consist of four packages:
</p>

<UL>
    <LI> <A HREF="Calling a Web Service.html">Calling a Web Service from Tcl</A>
    <LI> <A HREF="Creating a Tcl Web Service.html">Creating a Tcl Web Service</A>
    <LI> <A HREF="Creating a Web Service Type.html">Creating a Web Service Type</A>

    <LI> <A HREF="Embedded Web Service.html">Embeding a Web Service into an application</A>
    <LI> <A HREF="Tcl Web Service Example.html">Tcl Web Service Example</A>
</UL>

<p>
The client is known to work with #C and Java based Web Services (your mileage
may very).






|






>







14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
<p>
The distribution provides both client side access to Web Services and server
side creation of Web Services. Currently only document/literal and rpc/encoded
with HTTP Soap transport are supported on the client side. The server side
currently works only with TclHttpd or embedded into an application.
The server side provides all services as document/literal
over HTTP Soap transport. Documentation for the package, including examples can
be found here.
</p>

<UL>
    <LI> <A HREF="Calling a Web Service.html">Calling a Web Service from Tcl</A>
    <LI> <A HREF="Creating a Tcl Web Service.html">Creating a Tcl Web Service</A>
    <LI> <A HREF="Creating a Web Service Type.html">Creating a Web Service Type</A>
    <LI> <A HREF="Using Options.html">Using Web Service Options</A>
    <LI> <A HREF="Embedded Web Service.html">Embeding a Web Service into an application</A>
    <LI> <A HREF="Tcl Web Service Example.html">Tcl Web Service Example</A>
</UL>

<p>
The client is known to work with #C and Java based Web Services (your mileage
may very).

Changes to pkgIndex.tcl.

4
5
6
7
8
9
10
11
12
13
14
# by a "package unknown" script.  It invokes the
# "package ifneeded" command to set up package-related
# information so that packages will be loaded automatically
# in response to "package require" commands.  When this
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.

package ifneeded WS::Client 1.1.2 [list source [file join $dir ClientSide.tcl]]
package ifneeded WS::Server 1.1.2 [list source [file join $dir ServerSide.tcl]]
package ifneeded WS::Utils 1.1.2 [list source [file join $dir Utilities.tcl]]
package ifneeded WS::Embeded 1.1.2 [list source [file join $dir Embedded.tcl]]






|
|
|
|
4
5
6
7
8
9
10
11
12
13
14
# by a "package unknown" script.  It invokes the
# "package ifneeded" command to set up package-related
# information so that packages will be loaded automatically
# in response to "package require" commands.  When this
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.

package ifneeded WS::Client 1.2.0 [list source [file join $dir ClientSide.tcl]]
package ifneeded WS::Server 1.2.0 [list source [file join $dir ServerSide.tcl]]
package ifneeded WS::Utils 1.2.0 [list source [file join $dir Utilities.tcl]]
package ifneeded WS::Embeded 1.2.0 [list source [file join $dir Embedded.tcl]]