• testitOperation


• EchoSymbolOperation


• EchoCodeOperation


• EchoOperation


• AddNumbersOperation


• MultiplyNumbersOperation


• helloOperation


• helloWorldOperation


• EchoByteOperation


• TestDecimalValueOperation


• testStringOperation

Web Service Links

• config
• simpleTypes
• complexTypes
• messages
• operations
• portTypes
• port
• binding
• service
• server

Namespace Children of ::wsdb::elements::mywebservice::helloWorldRequest

Namespace Code for ::wsdb::elements::mywebservice::helloWorldRequest

namespace eval ::wsdb::elements::mywebservice::helloWorldRequest {
    variable Children {}
    variable MaxOccurs
    variable MinOccurs
    variable facetList {form Value name helloWorldRequest}
    variable new ::wsdb::elements::mywebservice::helloWorldRequest::new
    variable validate ::wsdb::elements::mywebservice::helloWorldRequest::ValidatehelloWorldRequest

}

Procedures in ::wsdb::elements::mywebservice::helloWorldRequest

proc ::wsdb::elements::mywebservice::helloWorldRequest::new {
    instanceNamespace
    childValuesList
} {

    set typeNS [::xml::element::append $instanceNamespace helloWorldRequest]
    return $typeNS
}


proc ::wsdb::elements::mywebservice::helloWorldRequest::ValidatehelloWorldRequest {
    namespace
} {

    variable Children
    variable MinOccurs
    variable MaxOccurs
    array set COUNT [array get ${namespace}::.COUNT]
    set COUNT(.INVALID) 0

    set ElementNames $Children

    foreach ElementName $ElementNames {
        if {$MinOccurs($ElementName) > 0} {
            if {![info exists COUNT($ElementName)]} {
                ::wsdl::elements::noteFault $namespace [list 4 $ElementName 0 $MinOccurs($ElementName)]
                incr COUNT(.INVALID)
                return 0
            } elseif {$COUNT($ElementName) < $MinOccurs($ElementName)} {
                ::wsdl::elements::noteFaunt $namespace [list 4 $ElementName $COUNT($ElementName) $MinOccurs($ElementName)]
                incr COUNT(.INVALID)
                return 0
            }
        }
        if {[info exists COUNT($ElementName)] && $COUNT($ElementName) > $MaxOccurs($ElementName)} {
            ::wsdl::elements::noteFault $namespace [list 5 $ElementName $COUNT($ElementName) $MaxOccurs($ElementName)]
            incr COUNT(.INVALID)
            return 0
        }
    }

    set PARTS [set ${namespace}::.PARTS]
    set COUNT(.ELEMENTS) 0

    foreach PART $PARTS {
        incr COUNT(.ELEMENTS)
        foreach {childName prefix childPart} $PART {}
        set childPart [::xml::normalizeNamespace $namespace $childPart]

        switch -exact -- $childName {
            default {
                ::wsdl::elements::noteFault $namespace [list 3 $childName $childPart]
                incr COUNT(.INVALID)
            }
        }
    }

    if {$COUNT(.INVALID)} {
        return 0
    } else {
        return 1
    }
}