Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | add tclws upstream changes |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
32cdbee92a163ffd5c9c3e920d43ae51 |
User & Date: | chw 2019-12-03 21:33:17.238 |
Context
2019-12-03
| ||
21:38 | update awthemes to version 7.3 check-in: a4782b3770 user: chw tags: trunk | |
21:33 | add tclws upstream changes check-in: 32cdbee92a user: chw tags: trunk | |
21:24 | update bwidget to version 1.9.14 check-in: 9c5af8859b user: chw tags: trunk | |
Changes
assets/tcllib1.20/math/interpolate.tcl became executable.
︙ | ︙ |
assets/tcllib1.20/math/pdf_stat.tcl became executable.
︙ | ︙ |
assets/tcllib1.20/math/wilcoxon.tcl became executable.
︙ | ︙ |
Changes to assets/tclws2.6.0/ClientSide.tcl.
1 2 | ############################################################################### ## ## | | | 1 2 3 4 5 6 7 8 9 10 | ############################################################################### ## ## ## Copyright (c) 2016-2019, Harald Oehlmann ## ## Copyright (c) 2006-2013, Gerald W. Lester ## ## Copyright (c) 2008, Georgios Petasis ## ## Copyright (c) 2006, Visiprise Software, Inc ## ## Copyright (c) 2006, Arnulf Wiedemann ## ## Copyright (c) 2006, Colin McCormack ## ## Copyright (c) 2006, Rolf Ade ## ## Copyright (c) 2001-2006, Pat Thoyts ## |
︙ | ︙ | |||
43 44 45 46 47 48 49 | package require Tcl 8.4 package require WS::Utils 2.4 ; # dict, lassign, logsubst package require tdom 0.8 package require http 2 package require log package require uri | | | 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 | package require Tcl 8.4 package require WS::Utils 2.4 ; # dict, lassign, logsubst package require tdom 0.8 package require http 2 package require log package require uri package provide WS::Client 2.6.3 namespace eval ::WS::Client { # register https only if not yet registered if {[catch { http::unregister https } lPortCmd]} { # not registered -> register on my own if {[catch { package require tls |
︙ | ︙ | |||
2050 2051 2052 2053 2054 2055 2056 | set body [::http::data $token] ::log::logsubst info {\nReceived: $body} set results {} if {[::http::status $token] ne {ok} || ( [::http::ncode $token] != 200 && $body eq {} )} { set errorCode [list WS CLIENT HTTPERROR [::http::code $token]] set hadError 1 | > | | | < < < < > > | | > | > < | | 2050 2051 2052 2053 2054 2055 2056 2057 2058 2059 2060 2061 2062 2063 2064 2065 2066 2067 2068 2069 2070 2071 2072 2073 2074 2075 2076 2077 2078 2079 2080 2081 2082 2083 2084 2085 2086 2087 2088 2089 2090 2091 2092 2093 2094 2095 | set body [::http::data $token] ::log::logsubst info {\nReceived: $body} set results {} if {[::http::status $token] ne {ok} || ( [::http::ncode $token] != 200 && $body eq {} )} { set errorCode [list WS CLIENT HTTPERROR [::http::code $token]] set hadError 1 set results [FormatHTTPError $token] set errorInfo "" } else { SaveAndSetOptions $serviceName set hadError [catch {parseResults $serviceName $operationName $body} results] RestoreSavedOptions $serviceName if {$hadError} { set errorCode $::errorCode set errorInfo $::errorInfo } } ::http::cleanup $token ## ## Call the appropriate callback ## if {$hadError} { set cmd $errorCmd lappend cmd $errorCode $errorInfo } else { set cmd $succesCmd } if {$cmd ne ""} { lappend cmd $results if {[catch $cmd cmdErr]} { ::log::log error "Error invoking callback '$cmd': $cmdErr" } } ## ## All done ## return } ########################################################################### # # Private Procedure Header - as this procedure is modified, please be sure # that you update this header block. Thanks. # |
︙ | ︙ |
Changes to assets/tclws2.6.0/pkgIndex.tcl.
1 2 3 4 5 6 7 8 9 10 11 12 | # Tcl package index file, version 1.1 # This file is generated by the "pkg_mkIndex -direct" 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::AOLserver 2.4.0 [list source [file join $dir AOLserver.tcl]] package ifneeded WS::Channel 2.4.0 [list source [file join $dir ChannelServer.tcl]] | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | # Tcl package index file, version 1.1 # This file is generated by the "pkg_mkIndex -direct" 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::AOLserver 2.4.0 [list source [file join $dir AOLserver.tcl]] package ifneeded WS::Channel 2.4.0 [list source [file join $dir ChannelServer.tcl]] package ifneeded WS::Client 2.6.3 [list source [file join $dir ClientSide.tcl]] package ifneeded WS::Embeded 2.6.0 [list source [file join $dir Embedded.tcl]] package ifneeded WS::Embedded 2.6.0 [list source [file join $dir Embedded.tcl]] package ifneeded WS::Server 2.6.0 [list source [file join $dir ServerSide.tcl]] package ifneeded WS::Utils 2.6.2 [list source [file join $dir Utilities.tcl]] package ifneeded WS::Wub 2.4.0 [list source [file join $dir WubServer.tcl]] package ifneeded Wsdl 2.4.0 [list source [file join $dir WubServer.tcl]] |