Check-in [57c46d4424]
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 tclconference@googlegroups.com
or submit via the online form by Sep 9.

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

Overview
Comment:Comment why dict is build by a list
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256:57c46d44243cd36da6750467f6e327ded0854f69171b265c6aa9a3596eddbf91
User & Date: oehhar 2017-12-05 19:50:02
Context
2017-12-07 17:37
ClientSide rev 2.4.6: Define new parameter "serviceNumber" to address a service definition (of n) in a WSDL file. Ticket [955e3754e5] check-in: b5e0c651f1 user: oehhar tags: trunk
2017-12-05 19:50
Comment why dict is build by a list check-in: 57c46d4424 user: oehhar tags: trunk
2017-12-04 20:51
New global option "inlineElementNS" to switch inline WSDL namespace prefixes. Document "WS::Client::SetOption". Extend both option procedures by a return of current dict. Tickets: [7140a6c07a], [dcce437d7a]. ::WS::Client package now version 2.4.5 check-in: 4bc013299a user: oehhar tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ClientSide.tcl.

209
210
211
212
213
214
215



216
217
218
219
220
221
222
...
399
400
401
402
403
404
405



406
407
408
409
410
411
412
    set args [lassign $args option]
    
    switch -exact -- $option {
        -globalonly {
            ##
            ## Return list of global options
            ##



            set res {}
            foreach option [array names options] {
                if {$option ni $serviceLocalOptionsList} {
                    lappend res $option $options($option)
                }
            }
            return $res
................................................................................
    variable options
    variable serviceLocalOptionsList

    set validOptionList $serviceLocalOptionsList
    lappend validOptionList location targetNamespace
    
    if {0 == [llength $args]} {



        set res {}
        foreach item $validOptionList {
            lappend res $item
            if {[info exists options($item)]} {
                lappend res $options($item)
            } else {
                lappend res {}







>
>
>







 







>
>
>







209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
...
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
    set args [lassign $args option]
    
    switch -exact -- $option {
        -globalonly {
            ##
            ## Return list of global options
            ##
            # A list convertible to a dict is build for performance reasons:
            # - lappend does not test existence for each element
            # - if a list is needed, dict build burden is avoided
            set res {}
            foreach option [array names options] {
                if {$option ni $serviceLocalOptionsList} {
                    lappend res $option $options($option)
                }
            }
            return $res
................................................................................
    variable options
    variable serviceLocalOptionsList

    set validOptionList $serviceLocalOptionsList
    lappend validOptionList location targetNamespace
    
    if {0 == [llength $args]} {
        # A list convertible to a dict is build for performance reasons:
        # - lappend does not test existence for each element
        # - if a list is needed, dict build burden is avoided
        set res {}
        foreach item $validOptionList {
            lappend res $item
            if {[info exists options($item)]} {
                lappend res $options($item)
            } else {
                lappend res {}