Check-in [7f025a5dc4]
Not logged in
Home Documentation Downloads Timeline Files Branches Tags Tickets Wiki Login
Bounty program for improvements to Tcl and certain Tcl packages.

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

Overview
Comment:Fix bug [ff67c5356f] -- Enter missing in checkin [1ba41a6993]
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 7f025a5dc4f1a7abeb8371e1d5fe1b68c76107a1
User & Date: gerald 2012-10-31 06:04:10
Context
2012-10-31 06:05
Roll version numbers to 2.3.0 check-in: 3399b69461 user: gerald tags: trunk
2012-10-31 06:04
Fix bug [ff67c5356f] -- Enter missing in checkin [1ba41a6993] check-in: 7f025a5dc4 user: gerald tags: trunk
2012-10-16 22:11
Rolled version numbers to 2.2.10.

Fixed: [22382a9828] - Service specific simple types do not work check-in: 1ba41a6993 user: gerald tags: trunk

Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to Utilities.tcl. 

55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
...
907
908
909
910
911
912
913
914

915
916
917
918
919
920
921
...
926
927
928
929
930
931
932
933

934
935
936
937
938
939
940

    }
}

package require log
package require tdom 0.8
package require struct::set

package provide WS::Utils 2.2.10

namespace eval ::WS {}

namespace eval ::WS::Utils {
    set ::WS::Utils::typeInfo {}
    set ::WS::Utils::currentSchema {}
    array set ::WS::Utils::importedXref {}
................................................................................
# Maintenance History - as this file is modified, please be sure that you
#                       update this segment of the file header block by
#                       adding a complete entry at the bottom of the list.
#
# Version     Date     Programmer   Comments / Changes / Reasons
# -------  ----------  ----------   -------------------------------------------
#       1  07/06/2006  G.Lester     Initial version
#  2.2.10  10/16/2012  G. Lester    Corrected detection of service specific simple type.

#
###########################################################################
proc ::WS::Utils::TypeInfo {mode service type} {
    variable simpleTypes
    variable typeInfo

    set type [string trim $type]
................................................................................
        set isArray 1
    } else {
        set isArray 0
    }
    #set isNotSimple [dict exists $typeInfo $mode $service $type]
    #set isNotSimple [expr {$isNotSimple || [dict exists $typeInfo $mode $service $service:$type]}]
    lassign [split $type {:}] tns baseType
    set isNotSimple [expr {!([info exist simpleTypes($type)] || [info exist simpleTypes($baseType)] || [info exist simpleTypes($mode,$service,$type)] || [info exist simpleTypes($mode,$service,$baseType)] )}]    return [list $isNotSimple $isArray]

}


###########################################################################
#
# Public Procedure Header - as this procedure is modified, please be sure
#                           that you update this header block. Thanks.







|







 







|
>







 







|
>








55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
...
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
...
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942

    }
}

package require log
package require tdom 0.8
package require struct::set

package provide WS::Utils 2.3.0

namespace eval ::WS {}

namespace eval ::WS::Utils {
    set ::WS::Utils::typeInfo {}
    set ::WS::Utils::currentSchema {}
    array set ::WS::Utils::importedXref {}
................................................................................
# Maintenance History - as this file is modified, please be sure that you
#                       update this segment of the file header block by
#                       adding a complete entry at the bottom of the list.
#
# Version     Date     Programmer   Comments / Changes / Reasons
# -------  ----------  ----------   -------------------------------------------
#       1  07/06/2006  G.Lester     Initial version
#  2.3.0   10/16/2012  G. Lester    Corrected detection of service specific simple type.
#  2.3.0   10/31/2012  G. Lester    Corrected missing newline.
#
###########################################################################
proc ::WS::Utils::TypeInfo {mode service type} {
    variable simpleTypes
    variable typeInfo

    set type [string trim $type]
................................................................................
        set isArray 1
    } else {
        set isArray 0
    }
    #set isNotSimple [dict exists $typeInfo $mode $service $type]
    #set isNotSimple [expr {$isNotSimple || [dict exists $typeInfo $mode $service $service:$type]}]
    lassign [split $type {:}] tns baseType
    set isNotSimple [expr {!([info exist simpleTypes($type)] || [info exist simpleTypes($baseType)] || [info exist simpleTypes($mode,$service,$type)] || [info exist simpleTypes($mode,$service,$baseType)] )}]
    return [list $isNotSimple $isArray]
}


###########################################################################
#
# Public Procedure Header - as this procedure is modified, please be sure
#                           that you update this header block. Thanks.

Fossil 2.10 [eb804dc674] 2019-09-19 14:14:14