##                                                                           ##
###############################################################################

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 {}

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

##                                                                           ##
###############################################################################

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 {}

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 {}
}

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 {}

##                                                                           ##
###############################################################################

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 {}

<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>

<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).

# Tcl package index file, version 1.1
# This file is generated by the "pkg_mkIndex" command
# and sourced either when an application starts up or
# 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]]