The following operations are supported. For a formal definition,
please review the
Service Description.
Web Service Links
Namespace Children of ::wsdb::types::mywebservice::myString
Namespace Code for ::wsdb::types::mywebservice::myString
namespace eval ::wsdb::types::mywebservice::myString {
variable base xsd::string
variable length 10
variable validate ::wsdb::types::mywebservice::myString::validate
}
Procedures in ::wsdb::types::mywebservice::myString
proc ::wsdb::types::mywebservice::myString::validate {
value
{errorListVar }
} {
variable base
variable length
if {"$errorListVar" ne ""} {
upvar $errorListVar errorList
}
set valid 0
set errorList [list $value]
while {1} {
if {![::wsdb::types::${base}::validate $value]} {
lappend errorList "failed base test $base"
break
}
set valueLength [string length $value]
if {$valueLength != 10} {
lappend errorList "failed length test foundLength ($valueLength) != length (10)"
break
}
set valid 1
break
}
return $valid
}