Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Merge changes for package require into trunk. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
2e8c40a8830e3e43e7d9ef3d391b1066 |
| User & Date: | gerald 2012-11-09 04:15:26.134 |
Context
| 2012-11-09 14:34 | Updated all docs pages from wiki. Not present wiki pages: clients, Downloads, Pretty Printing a Dictionary Instance check-in: d7188ff2cb user: oehhar tags: trunk, Release_2.3.0 | |
| 2012-11-09 04:15 | Merge changes for package require into trunk. check-in: 2e8c40a883 user: gerald tags: trunk | |
| 2012-11-08 21:15 | Fix version numbers for WS::Util requirements. Closed-Leaf check-in: 7f17665126 user: andreask tags: aku-require-changes | |
| 2012-11-08 19:26 | Replace spaces in html file names with underscores. check-in: 100da64630 user: gerald tags: trunk | |
Changes
Changes to AOLserver.tcl.
1 2 3 4 5 6 7 |
namespace eval ::WS::AOLserver {
if {![info exists logVersion]} {
variable logVersion [package require log]
}
if {![info exists wsVersion]} {
| > | 1 2 3 4 5 6 7 8 |
package require Tcl 8.4
namespace eval ::WS::AOLserver {
if {![info exists logVersion]} {
variable logVersion [package require log]
}
if {![info exists wsVersion]} {
|
| ︙ | ︙ |
Changes to ChannelServer.tcl.
| ︙ | ︙ | |||
28 29 30 31 32 33 34 35 36 37 38 39 40 41 | ## LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER ## ## CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT ## ## LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ## ## ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ## ## POSSIBILITY OF SUCH DAMAGE. ## ## ## ############################################################################### package require uri package require base64 package require html package provide WS::Channel 2.0.0 | > > > > > > > > > > > > > > > > > | 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 |
## LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER ##
## CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT ##
## LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ##
## ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ##
## POSSIBILITY OF SUCH DAMAGE. ##
## ##
###############################################################################
package require Tcl 8.4
# XXX WS::Utils usable here? (provide dict, lassign)
if {![llength [info command dict]]} {
package require dict
}
if {![llength [info command lassign]]} {
proc lassign {inList args} {
set numArgs [llength $args]
set i -1
foreach var $args {
incr i
uplevel 1 [list set $var [lindex $inList $i]]
}
return [lrange $inList $numArgs end]
}
}
package require uri
package require base64
package require html
package provide WS::Channel 2.0.0
|
| ︙ | ︙ |
Changes to CheckAndBuild.tcl.
| ︙ | ︙ | |||
25 26 27 28 29 30 31 | ## CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT ## ## LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ## ## ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ## ## POSSIBILITY OF SUCH DAMAGE. ## ## ## ############################################################################### | | < < < < | < > > | 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 |
## CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT ##
## LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ##
## ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ##
## POSSIBILITY OF SUCH DAMAGE. ##
## ##
###############################################################################
package require Tcl 8.4
package require WS::Utils ; # dict
package require tdom
package require log
package provide WS::CheckAndBuild 0.0.3
namespace eval ::WS::CheckAndBuild {
variable resultTree
variable currNode
}
|
| ︙ | ︙ |
Changes to ClientSide.tcl.
| ︙ | ︙ | |||
35 36 37 38 39 40 41 | ## CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT ## ## LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ## ## ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ## ## POSSIBILITY OF SUCH DAMAGE. ## ## ## ############################################################################### | < | < | < | 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 |
## CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT ##
## LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ##
## ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ##
## POSSIBILITY OF SUCH DAMAGE. ##
## ##
###############################################################################
package require Tcl 8.4
package require WS::Utils 2.3 ; # dict, lassign
package require tdom 0.8
package require http 2
package require log
package require uri
catch {
package require tls
|
| ︙ | ︙ |
Changes to Embedded.tcl.
| ︙ | ︙ | |||
28 29 30 31 32 33 34 35 36 37 38 39 40 41 | ## LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER ## ## CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT ## ## LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ## ## ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ## ## POSSIBILITY OF SUCH DAMAGE. ## ## ## ############################################################################### package require uri package require base64 package require html package require log package provide WS::Embeded 2.3.0 | > > > > > > | 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 |
## LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER ##
## CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT ##
## LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ##
## ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ##
## POSSIBILITY OF SUCH DAMAGE. ##
## ##
###############################################################################
package require Tcl 8.4
# WS::Utils usable here for dict?
if {![llength [info command dict]]} {
package require dict
}
package require uri
package require base64
package require html
package require log
package provide WS::Embeded 2.3.0
|
| ︙ | ︙ |
Changes to ServerSide.tcl.
| ︙ | ︙ | |||
34 35 36 37 38 39 40 | ## CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT ## ## LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ## ## ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ## ## POSSIBILITY OF SUCH DAMAGE. ## ## ## ############################################################################### | < | < | < | 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 |
## CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT ##
## LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ##
## ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ##
## POSSIBILITY OF SUCH DAMAGE. ##
## ##
###############################################################################
package require Tcl 8.4
package require WS::Utils 2.3 ; # provides dict
package require html
package require log
package require tdom
package provide WS::Server 2.3.0
namespace eval ::WS::Server {
|
| ︙ | ︙ |
Changes to Wub.tcl.
| ︙ | ︙ | |||
35 36 37 38 39 40 41 42 43 44 45 46 47 48 |
## CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT ##
## LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ##
## ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ##
## POSSIBILITY OF SUCH DAMAGE. ##
## ##
###############################################################################
package require uri
package require base64
package require html
package provide WS::Wub 2.2.1
namespace eval ::WS::Wub {
| > > > > > | 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 |
## CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT ##
## LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ##
## ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ##
## POSSIBILITY OF SUCH DAMAGE. ##
## ##
###############################################################################
package require Tcl 8.4
# WS::Utils usable here for dict?
if {![llength [info command dict]]} {
package require dict
}
package require uri
package require base64
package require html
package provide WS::Wub 2.2.1
namespace eval ::WS::Wub {
|
| ︙ | ︙ |
Changes to WubServer.tcl.
1 2 3 4 5 6 7 8 | # WSWub - Wub interface to WebServices package require WS::Server package require OO package require Direct package require Debug Debug off wsdl 10 | > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 |
# WSWub - Wub interface to WebServices
package require Tcl 8.4
# WS::Utils usable here for dict?
if {![llength [info command dict]]} {
package require dict
}
package require WS::Server
package require OO
package require Direct
package require Debug
Debug off wsdl 10
|
| ︙ | ︙ |