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
}