Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix bug [ff67c5356f] -- Enter missing in checkin [1ba41a6993] |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
7f025a5dc4f1a7abeb8371e1d5fe1b68 |
| User & Date: | gerald 2012-10-31 06:04:10.447 |
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
Changes to Utilities.tcl.
| ︙ | ︙ | |||
55 56 57 58 59 60 61 |
}
}
package require log
package require tdom 0.8
package require struct::set
| | | 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 |
}
}
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 {}
|
| ︙ | ︙ | |||
907 908 909 910 911 912 913 | # 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 | | > | > | 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 |
# 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]
if {[string equal [string range $type end-1 end] {()}]} {
set isArray 1
set type [string range $type 0 end-2]
} elseif {[string equal $type {array}]} {
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.
|
| ︙ | ︙ |